Delphi用ADO操作數(shù)據(jù)庫(kù)完整示例

1、Delphi用ADO操作數(shù)據(jù)庫(kù)完整示例(轉(zhuǎn))unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, RzDBGrid, ExtCtrls, RzPanel,ComCtrls, RzBckgnd, RzButton, Buttons, RzCmboBx;typeTForm1 = class(TForm)DataSource1: TDataSource;ADOQuery

2、1: TADOQuery;Label1: TLabel;RzGroupBox1: TRzGroupBox;RzDBGrid1: TRzDBGrid;RzGroupBox2: TRzGroupBox;Label2: TLabel;Edit1: TEdit;Label3: TLabel;Edit2: TEdit;Label4: TLabel;Edit3: TEdit;Label5: TLabel;Edit4: TEdit;Label6: TLabel;Edit5: TEdit;RzSeparator1: TRzSeparator;StatusBar1: TStatusBar;SpeedButton

3、1: TSpeedButton;SpeedButton3: TSpeedButton;SpeedButton4: TSpeedButton;SpeedButton2: TSpeedButton;SpeedButton5: TSpeedButton;SpeedButton6: TSpeedButton;SpeedButton7: TSpeedButton;RzGroupBox3: TRzGroupBox;RzComboBox1: TRzComboBox;Edit6: TEdit;RzButton1: TRzButton;Label7: TLabel;Timer1: TTimer;procedur

4、e FormCreate(Sender:TObject);procedure SpeedButton1Click(Sender:TObject);procedure SpeedButton3Click(Sender:TObject);procedure SpeedButton4Click(Sender:TObject);procedure SpeedButton2Click(Sender:TObject);procedure ShowData;/ 記得在此位置加入自定義過(guò)程的申明procedure Edit6Click(Sender:TObject);procedure RzButton1Cl

5、ick(Sender:TObject);procedure RzComboBox1Click(Sender:TObject);procedure SpeedButton5Click(Sender:TObject);procedure SpeedButton6Click(Sender:TObject);procedure SpeedButton7Click(Sender:TObject);procedure Timer1Timer(Sender:TObject);private Private declarations public Public declarations end;varForm

6、1: TForm1;implementation$R *.dfmprocedure TForml.ShowData; /自定義過(guò)程如果用DBEdit控件綁定字段就 不用這樣 ,beginEdit1.Text:=ADOQuery1.Fields0.Value;Edit2.Text:=ADOQuery1.Fields1.Value;Edit3.Text:=ADOQuery1.Fields5.Value;edit4.Text:=ADOQuery1.Fields3.Value;edit5.Text:=ADOQuery1.Fields4.Value;end;procedure TForm1.FormCr

7、eate(Sender:TObject);varsqlstr:string;beginsqlstr:='select * from abc'/數(shù)據(jù)庫(kù)連接字符串，打開(kāi)數(shù)據(jù)庫(kù)表，初始化查詢(xún)with ADOQuery1 dobeginConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;DataSource='+ExtractFilepath(Application.ExeName)+'a.MDB;Persist Security Info=True'SQL.Clear;SQL.Add(sqlstr);

8、Open;end;ShowData;StatusBar1.Panels.Items1.Text:='當(dāng)前數(shù)據(jù)庫(kù)中共有'+”+IntToStr(Form1.ADOQuery1.Recordcount)+”+條記錄'StatusBar1.Panels.Items0.Text:='準(zhǔn)備就緒！'end;procedure TForm1.SpeedButton1Click(Sender:TObject);/beginADOQuery1.First;ShowData;end;procedure TForm1.SpeedButton3Click(Sender:TObj

9、ect);/beginADOQuery1.Prior;ShowData;end;procedure TForm1.SpeedButton4Click(Sender:TObject); /beginADOQuery1.Next;ShowData;end;procedure TForm1.SpeedButton2Click(Sender:TObject); /beginADOQueryl.Last第一條上一條下一條最后一條 ShowData;end;procedure TForm1.Edit6Click(Sender:TObject);/ 簡(jiǎn)單判斷后激活查詢(xún)按鈕beginif RzComboBox

10、1.Text<>|選擇查詢(xún)字段'thenbeginRzButton1.Enabled:=True;endelseexit;end;procedure TForm1.RzButton1Click(Sender:TObject);/ 查詢(xún)按鈕處理過(guò)程vars:string;beginif (RzComboBox1.Text=M據(jù)工號(hào)查詢(xún))and (Edit6.Text<>")thenbegins:='Select * from abc where sCardID like''%'+Edit6.Text+'%'

11、''end;if (RzComboBox1.TextmM據(jù)姓名查詢(xún)')and (Edit6.Text<>") thenbegins:='Select * from abc where sName like''%'+Edit6.Text+'%'''end;if (RzComboBox1.TextmM據(jù)身份證號(hào)碼查詢(xún)')and (Edit6.Text<>")then begins:='Select * from abc where sID like&#

12、39;'%'+Edit6.Text+'%'''end;if (RzComboBox1.Text=M據(jù)地址查詢(xún)')and (Edit6.Text<>")thenbegins:='Select * from abc where sAddress like''%'+Edit6.Text+'%'''/showmessage (s);end;with ADOQuery1 dobegintry/ 此處加入錯(cuò)誤捕獲處理機(jī)制SQL.Clear;SQL.Add(s);op

13、en;exceptMessageBox(Handle,您選擇的查詢(xún)字段跟輸入的值不匹配，請(qǐng)檢查后重新輸 入!'+#13+'"例如您選擇了根據(jù)身份證號(hào)碼查詢(xún)就只能在文本框中輸入數(shù)字,而不能輸入字符串 "','警告信息',MB_ICONEXCLAMATION);end;ShowData;StatusBar1.Panels.Items1.Text:='此次查詢(xún)共有'+”+IntToStr(Form1.ADOQuery1.Recordcount)+”十條符合條件的記錄'end;end;procedure TForm1.RzComboBox1Click(Sender:TObject);beginEdit6.Text:;end;procedure TForm1.SpeedButton5Click(Sender:TObject);/ 添加空行 beginwith ADOQuery1 dobeginAppend;end;end;procedure TForm1.SpeedButton6Click(Sender:TObject); /beginwith ADOQuery1 dobeginedit;post;end;end;10