版权归作者所有
窗体
Delphi 代码
unit proj; interface uses 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; 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; 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: 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 DBGrid1CellClick(Column: TColumn); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Projname:string; implementation {$R *.dfm}
procedure TForm1.FormShow(Sender: TObject); begin edit1.Clear; edit2.Clear; edit3.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.Text+''', '''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+datetostr(DateTimePicker1.Date)+''','''+datetost r(DateTimePicker2.Date)+''','''+datetostr(DateTimePicker3.Date)+''','''+edit5.Text+''','''+edit6.Text+ ''','''+edit7.Text+''','''+edit8.Text+''','''+edit9.Text+''')'); ADOQuery1.ExecSQL;
版权归作者所有
ADOQuery1.Close; 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(edit2.Text)+''', 项 目 名 称 ='''+trim(edit3.Text)+''', 项 目 总 价 ='''+trim(edit4.Text)+''', 开 工 日 期 ='''+trim(datetostr(DateTimePicker1.Date))+''', 预 定 完 工 日 期 ='''+trim(datetostr(DateTimePicker2.Date))+''', 完 工 结 案 日 期 ='''+trim(datetostr(DateTimePicker3.Date))+''', 完 工 率 ='''+trim(edit5.Text)+''', 项 目 成 本 材 料 =
'''+trim(edit6.Text)+''', 项 目 成 本 人 工 ='''+trim(edit7.Text)+''', 项 目 成 本 费 用 ='''+trim(edit8.Text)+''',是否结案='''+trim(edit9.Text)+''' where 项目名称='''+trim(Projname)+''''); exec
sql; end; FormShow(Sender); end; procedure TForm1.Button2Click(Sender: TObject); //删除 begin if ADOQuery1.R