delphi增删改查小模块

1、版权归作者所有窗体Delphi代码unit proj;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, DB, ADODB;type TForm1 = class(TForm) GroupBox1: TGroupBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel;

2、Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; DateTimePicker1: TDateTimePicker; DateTimePicker2: TDateTimePicker; DateTimePicker3: TDateTimePicker; Edit5: TEdit; Edit6: TEdit;

3、 Edit7: TEdit; Edit8: TEdit; GroupBox2: TGroupBox; DBGrid1: TDBGrid; Button1: TButton; Button2: TButton; Button3: TButton; ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; Edit9: TEdit; ADOQuery2: TADOQuery; DataSource1: TDataSource; Button4: TButton; Button5: TButton; Edit10: TEdit; StatusBar1

4、: TStatusBar; ClientDataSet1: TClientDataSet; cxDBTextEdit1: TcxDBTextEdit; procedure FormShow(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure DBGrid1CellClic

5、k(Column: TColumn); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1; Projname:string;implementation$R *.dfmprocedure TForm1.FormShow(Sender: TObject);begin edit1.Clear; edit2.Clear; edit3.

6、Clear; edit4.Clear; edit5.Clear; edit6.Clear; edit7.Clear; edit8.Clear; edit9.Clear; edit10.Clear;end;procedure TForm1.Button1Click(Sender: TObject); /增加begin ADOQuery1.SQL.Add('insert into proj(公司代号,项目代码,项目名称,项目总价,开工日期,预定完工日期,完工结案日期,完工率,项目成本材料,项目成本人工,项目成本费用,是否结案) values ('''+edit1.T

7、ext+''', '''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+datetostr(DateTimePicker1.Date)+''','''+datetostr(DateTimePicker2.Date)+''','''+dateto

8、str(DateTimePicker3.Date)+''','''+edit5.Text+''','''+edit6.Text+''','''+edit7.Text+''','''+edit8.Text+''','''+edit9.Text+''')'); ADOQuery1.ExecSQL; ADOQuery1.Close;

9、 ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select *from proj '); ADOQuery1.Open;end;procedure TForm1.Button3Click(Sender: TObject); /修改begin with ADOQuery2 do begin close; sql.Clear; sql.Add('update proj set 公司代号='''+trim(edit1.Text)+''',项目代码='''+trim(ed

10、it2.Text)+''',项目名称='''+trim(edit3.Text)+''',项目总价='''+trim(edit4.Text)+''',开工日期='''+trim(datetostr(DateTimePicker1.Date)+''',预定完工日期='''+trim(datetostr(DateTimePicker2.Date)+''',完工结案日期=''

11、;'+trim(datetostr(DateTimePicker3.Date)+''',完工率='''+trim(edit5.Text)+''',项目成本材料='''+trim(edit6.Text)+''',项目成本人工='''+trim(edit7.Text)+''',项目成本费用='''+trim(edit8.Text)+''',是否结案='''

12、;+trim(edit9.Text)+''' where 项目名称='''+trim(Projname)+''''); execsql; end; FormShow(Sender);end;procedure TForm1.Button2Click(Sender: TObject); /删除beginif ADOQuery1.RecordCount = 0 then showMessage('记录为空不能删除') else begin if MessageDlg('确定要删除吗？',

13、mtInformation,mbOK,mbCancel,0) = mrOK then adoquery1.Delete; end;end;procedure TForm1.FormCreate(Sender: TObject);begin adoQuery1.SQL.Clear; adoQuery1.SQL.Add('select * from proj'); adoQuery1.open;end;procedure TForm1.DBGrid1CellClick(Column: TColumn);begin edit1.Text:=inttostr(ADOQuery1.fie

14、ldbyname('公司代号').AsInteger); edit2.Text:=ADOQuery1.fieldbyname('项目代码').AsString; edit3.Text:=ADOQuery1.fieldbyname('项目名称').AsString; edit4.Text:=ADOQuery1.fieldbyname('项目总价').AsString; DateTimePicker1.Date:=ADOQuery1.fieldbyname('开工日期').AsDateTime; DateTimePic

15、ker2.Date:=ADOQuery1.fieldbyname('预定完工日期').AsDateTime; DateTimePicker3.Date:=ADOQuery1.fieldbyname('完工结案日期').AsDateTime; edit5.Text:=ADOQuery1.fieldbyname('完工率').AsString; edit6.Text:=ADOQuery1.fieldbyname('项目成本材料').AsString; edit7.Text:=ADOQuery1.fieldbyname('项目成

16、本人工').AsString; edit8.Text:=ADOQuery1.fieldbyname('项目成本费用').AsString; edit9.Text:=ADOQuery1.fieldbyname('是否结案').AsString; ProjName:=edit3.Text;end;procedure TForm1.Button4Click(Sender: TObject);begin close;end;procedure TForm1.Button5Click(Sender: TObject); /查询begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add('select *from proj where 项目代码='''+edit10.Text+''''); adoquery1.Open;end;end.数据库设计(sql2000)create table proj( 公司名称 varchar(18) not null, 项目代码 varchar(20) not null, 项目名称 varchar(80) null, 项