Ice_Queen_ Ice_Queen_
爱明道,爱Lindsay!我是SuperWoman!
关注数: 9 粉丝数: 34 发帖数: 545 关注贴吧数: 6
【求助】求大神帮我找一下代码的错误!!! unit eee; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ADODB, DB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; ADOConnection1: TADOConnection; ADODataSet1: TADODataSet; DataSource1: TDataSource; ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; DataSource2: TDataSource; DataSource3: TDataSource; ADOQuery3: TADOQuery; ADOQuery4: TADOQuery; DataSource4: TDataSource; // procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button4Click(Sender: TObject); // procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //procedure TForm1.Button2Click(Sender: TObject); //begin //adoquery1.Close; //adoquery1.SQL.Clear; //adoquery1.SQL.add('insert into Book(BookID,name'+') //values('''+edit1.Text+''','''+edit2.Text+''')');//charu //adoquery1.ExecSQL; //end; procedure TForm1.Button1Click(Sender: TObject); begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.add('select * from Book where BookID='''+edit1.Text+''''); adoquery1.Open; //edit2.Text:=adoquery1.Fields[1].AsString; end; procedure TForm1.Button4Click(Sender: TObject); begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add('delect from book where BookID='''+edit1.Text +'''');//shanchu adoquery1.ExecSQL; end; //procedure TForm1.Button3Click(Sender: TObject); //begin //adoquery1.Close; //adoquery1.SQL.Clear; //adoquery1.SQL.add('update Book set name='''+edit2.Text+''', //'update Book set name='''+edit1.Text+'''); //adoquery1.ExecSQL; end.
1 下一页