Alıntı:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, Menus, AdvMenus, AdvMenuStylers,
psvRTFText, XPMan, Grids, DBGrids, StdCtrls, ComCtrls, Shader,
ButtonComps, ToolPanels, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
Panel2: TPanel;
Image3: TImage;
AdvToolPanel1: TAdvToolPanel;
image1: TAOLButton;
Shape1: TShape;
Label1: TLabel;
ComboBox1: TComboBox;
ListBox1: TListBox;
Edit1: TEdit;
Shader1: TShader;
Bevel1: TBevel;
Bevel2: TBevel;
AOLButton1: TAOLButton;
AOLButton2: TAOLButton;
AOLButton3: TAOLButton;
AOLButton4: TAOLButton;
AOLButton5: TAOLButton;
AOLButton6: TAOLButton;
AOLButton7: TAOLButton;
AOLButton8: TAOLButton;
AOLButton9: TAOLButton;
AOLButton10: TAOLButton;
AOLButton11: TAOLButton;
AOLButton12: TAOLButton;
AOLButton13: TAOLButton;
AOLButton14: TAOLButton;
Bevel3: TBevel;
Label3: TLabel;
AOLButton15: TAOLButton;
Shader2: TShader;
Label2: TLabel;
RichEdit1: TRichEdit;
DBGrid1: TDBGrid;
FontDialog1: TFontDialog;
FindDialog1: TFindDialog;
ReplaceDialog1: TReplaceDialog;
ColorDialog1: TColorDialog;
XPManifest1: TXPManifest;
psvRichText1: TpsvRichText;
AdvMainMenu1: TAdvMainMenu;
Dosya2: TMenuItem;
VeriAktar2: TMenuItem;
Htlm2: TMenuItem;
Word2: TMenuItem;
Excell2: TMenuItem;
nzleme2: TMenuItem;
Yazdr2: TMenuItem;
k2: TMenuItem;
Dzen2: TMenuItem;
GeriAl3: TMenuItem;
leriAl3: TMenuItem;
N6: TMenuItem;
Kes3: TMenuItem;
KopYala3: TMenuItem;
Yaptr3: TMenuItem;
mnSe2: TMenuItem;
Sil4: TMenuItem;
Git1: TMenuItem;
N7: TMenuItem;
AramaYap3: TMenuItem;
Deitir4: TMenuItem;
Kayit1: TMenuItem;
Ekle2: TMenuItem;
Deitir5: TMenuItem;
Sil5: TMenuItem;
N9: TMenuItem;
ncekiKayt1: TMenuItem;
SonrakiKayt1: TMenuItem;
lkKayr2: TMenuItem;
SonKayt2: TMenuItem;
Grnm2: TMenuItem;
Araubuklar2: TMenuItem;
Durumubuu2: TMenuItem;
YazTipi2: TMenuItem;
ArkaPlanRengi3: TMenuItem;
SatrNumaralar2: TMenuItem;
ProgramHakknda2: TMenuItem;
ArkaPlanRengi4: TMenuItem;
HddNo1: TMenuItem;
Yardm1: TMenuItem;
AdvMenuOfficeStyler1: TAdvMenuOfficeStyler;
AdvPopupMenu1: TAdvPopupMenu;
GeriAl1: TMenuItem;
leriAl1: TMenuItem;
N1: TMenuItem;
Kes1: TMenuItem;
KopYala1: TMenuItem;
Yaptr1: TMenuItem;
mnSe1: TMenuItem;
Sil1: TMenuItem;
Git2: TMenuItem;
N2: TMenuItem;
AramaYap1: TMenuItem;
Deitir1: TMenuItem;
Timer1: TTimer;
ADOCommand1: TADOCommand;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ADOTable1: TADOTable;
ADOCommand2: TADOCommand;
ADOConnection2: TADOConnection;
DataSource2: TDataSource;
ADOTable2: TADOTable;
ADOCommand3: TADOCommand;
ADOConnection3: TADOConnection;
DataSource3: TDataSource;
ADOTable3: TADOTable;
ADOCommand4: TADOCommand;
ADOConnection4: TADOConnection;
DataSource4: TDataSource;
ADOTable4: TADOTable;
Shader3: TShader;
Label4: TLabel;
WebBrowser1: TWebBrowser;
StatusBar1: TStatusBar;
ComboBox2: TComboBox;
procedure FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
procedure FormResize(Sender: TObject);
procedure adom;
procedure adom1;
procedure adom2;
procedure adom3;
procedure isim;
procedure isim1;
procedure isim2;
procedure isim3;
procedure yolumm;
procedure yolumm1;
procedure yolumm2;
procedure yolumm3;
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure RichEdit1Change(Sender: TObject);
private
public
end;
var
Form1: TForm1;
yolum,s: String[255];
c: array[0..255] of Byte absolute s;
i: Integer;
implementation
procedure tform1.adom;
begin
getdir(0,yolum);
adoconnection1.ConnectionString:='Provider=Microso ft.Jet.OLEDB.4.0;'+'Data Source='+yolum+'verihtml.mdb'+';Persist Security Info=False';
adoconnection1.LoginPrompt:=false;
adotable1.Connection:=adoconnection1;
datasource1.DataSet:=adotable1;
dbgrid1.DataSource:=datasource1;
end;
procedure tform1.adom1;
begin
getdir(0,yolum);
adoconnection2.ConnectionString:='Provider=Microso ft.Jet.OLEDB.4.0;'+'Data Source='+yolum+'veriasp.mdb'+';Persist Security Info=False';
adoconnection2.LoginPrompt:=false;
adotable2.Connection:=adoconnection2;
datasource2.DataSet:=adotable2;
dbgrid1.DataSource:=datasource2;
end;
procedure tform1.adom2;
begin
getdir(0,yolum);
adoconnection3.ConnectionString:='Provider=Microso ft.Jet.OLEDB.4.0;'+'Data Source='+yolum+'verijsp.mdb'+';Persist Security Info=False';
adoconnection3.LoginPrompt:=false;
adotable3.Connection:=adoconnection3;
datasource1.DataSet:=adotable3;
dbgrid1.DataSource:=datasource3;
end;
procedure tform1.adom3;
begin
getdir(0,yolum);
adoconnection4.ConnectionString:='Provider=Microso ft.Jet.OLEDB.4.0;'+'Data Source='+yolum+'veriphp.mdb'+';Persist Security Info=False';
adoconnection4.LoginPrompt:=false;
adotable4.Connection:=adoconnection4;
datasource4.DataSet:=adotable4;
dbgrid1.DataSource:=datasource4;
end;
//--Ado Onayla--\
procedure Tform1.isim;
begin
adoconnection1.GetTableNames(combobox1.Items,false );
combobox1.ItemIndex:=0;
if (combobox1.Text='HTML')then
begin
adotable1.Close;
adotable1.TableName:=combobox1.Items.Strings[combobox1.itemindex];
adotable1.Open;
end;
end;
procedure Tform1.isim1;
begin
adoconnection2.GetTableNames(combobox1.Items,false );
combobox1.ItemIndex:=0;
if (combobox1.Text='ASP')then
begin
adotable2.Close;
adotable2.TableName:=combobox1.Items.Strings[combobox1.itemindex];
adotable2.Open;
end;
end;
procedure Tform1.isim2;
begin
adoconnection3.GetTableNames(combobox1.Items,false );
combobox1.ItemIndex:=0;
if (combobox1.Text='JSP')then
begin
adotable3.Close;
adotable3.TableName:=combobox1.Items.Strings[combobox1.itemindex];
adotable3.Open;
end;
end;
procedure Tform1.isim3;
begin
adoconnection4.GetTableNames(combobox1.Items,false );
combobox1.ItemIndex:=0;
if (combobox1.Text='PHP')then
begin
adotable4.Close;
adotable4.TableName:=combobox1.Items.Strings[combobox1.itemindex];
adotable4.Open;
end;
end;
//------------------------------------------------
procedure Tform1.yolumm;
begin
form1.adotable1.ReFresh; //Son Değişiklikler İcin.
listbox1.Clear;
form1.adotable1.First;
while not form1.adotable1.eof do begin
if listbox1.Items.IndexOf(form1.adotable1.Fields.Fiel ds[1].AsString)