jsj_Delphi课程设计任务书.pdf

Delphi Delphi Delphi 1 PC Windows xp Delphi7 2010 5 12010 5 15 2010 5 162010 6 1 2010 6 22010 6 15 1 Delphi 2 Delphi 3 Delphi 2005 4 Delphi 2 4 1 4 2 4 3 4 4 4 Delphi7 SQL Server 2005 4 5 1 5 2 5 3 5 4 5 6 1 6 2 6 7 1 7 2 12 3 12 25 27 3 1 2 3 4 Delphi7 SQL Server 2005 4 1 2 1 ID 2 ID 3 4 1 2 5 3 1 E R 2 6 1 1 Image1 image 2 Label1 TLabel Label2 TLabel ID Label3 TLabel Edit1 TEdit ID Edit2 TEdit Label6 TLabel Label8 TLabel Image1 TImage Button1 TButton 7 Label4 TLabel DataSource1 TDataSource ADOConnection1 TADOConnection ADOTable1 TADOTable Edit3 TEdit ID Label5 TLabel ID Label7 TLabel Edit4 TEdit Label9 TLabel Button2 TButton Button3 TButton Button4 TButton DataSource2 TDataSource ADOConnection2 TADOConnection ADOTable2 TADOTable 3 DataSource1 TDataSource PageControl1 TPageControl TabSheet1 TTabSheet TabSheet2 TTabSheet TabSheet3 TTabSheet Label1 TLabel 8 Label2 TLabel Edit1 TEdit Edit2 TEdit Label3 TLabel Edit3 TEdit Button1 TButton Edit5 TEdit DBGrid1 TDBGrid ADOConnection1 TADOConnection ADOTable1 TADOTable GroupBox1 TGroupBox GroupBox2 TGroupBox GroupBox3 TGroupBox Label5 TLabel Label6 TLabel Label7 TLabel Edit6 TEdit Edit7 TEdit Edit8 TEdit Label8 TLabel Label9 TLabel Label10 TLabel Edit9 TEdit Edit10 TEdit Edit11 TEdit Label11 TLabel Edit12 TEdit Edit13 TEdit Edit14 TEdit Label12 TLabel Label13 TLabel Button2 TButton Button3 TButton Button5 TButton GroupBox4 TGroupBox DBGrid2 TDBGrid Button6 TButton Button7 TButton Button8 TButton Button9 TButton Button10 TButton Button11 TButton Label17 TLabel DBGrid3 TDBGrid 9 Button12 TButton Button13 TButton Button14 TButton Button15 TButton ADOQuery1 TADOQuery DataSource2 TDataSource ADOConnection2 TADOConnection ADOTable2 TADOTable ADOQuery2 TADOQuery Button16 TButton Button17 TButton Button18 TButton DataSource3 TDataSource DataSource4 TDataSource DataSource5 TDataSource DataSource6 TDataSource ADOConnection3 TADOConnection ADOConnection4 TADOConnection ADOConnection5 TADOConnection ADOConnection6 TADOConnection ADOTable3 TADOTable ADOTable4 TADOTable ADOTable5 TADOTable ADOTable6 TADOTable ADOTable7 TADOTable Button4 TButton ADOConnection7 TADOConnection DataSource7 TDataSource ADOTable8 TADOTable Button19 TButton Edit4 TEdit Button20 TButton Edit15 TEdit 10 11 2 3 1 unit Unit1 interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls jpeg ExtCtrls DB ADODB type TForm1 class TForm Label1 TLabel Label2 TLabel Label3 TLabel Edit1 TEdit Edit2 TEdit Label6 TLabel Label8 TLabel Image1 TImage 12 Button1 TButton Label4 TLabel DataSource1 TDataSource ADOConnection1 TADOConnection ADOTable1 TADOTable Edit3 TEdit Label5 TLabel Label7 TLabel Edit4 TEdit Label9 TLabel Button2 TButton Button3 TButton Button4 TButton DataSource2 TDataSource ADOConnection2 TADOConnection ADOTable2 TADOTable procedure Button1Click Sender TObject procedure Button3Click Sender TObject procedure Button2Click Sender TObject procedure Button4Click Sender TObject private Private declarations public Public declarations end var Form1 TForm1 implementation uses Unit3 R dfm procedure TForm1 Button1Click Sender TObject begin if edit1 Text or edit2 Text then begin showmessage ID end if adotable1 Locate ID password vararrayof edit1 Text edit2 Text 13 then begin Application CreateForm TForm3 Form3 Form3 ShowModal Form3 Free end else showmessage ID end procedure TForm1 Button3Click Sender TObject begin close end procedure TForm1 Button2Click Sender TObject begin if edit3 Text or edit4 Text then begin showmessage ID end if adotable2 Locate ID vararrayof edit3 Text edit4 Text then begin Application CreateForm TForm3 Form3 Form3 ShowModal Form3 Free end else showmessage ID end procedure TForm1 Button4Click Sender TObject begin close end end 2 unit Unit3 interface uses 14 Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs ComCtrls TabNotBk DB DBClient StdCtrls ADODB Grids DBGrids type TForm3 class TForm DataSource1 TDataSource PageControl1 TPageControl TabSheet1 TTabSheet TabSheet2 TTabSheet TabSheet3 TTabSheet Label1 TLabel Label2 TLabel Edit1 TEdit Edit2 TEdit Label3 TLabel Edit3 TEdit Button1 TButton Edit5 TEdit DBGrid1 TDBGrid ADOConnection1 TADOConnection ADOTable1 TADOTable GroupBox1 TGroupBox GroupBox2 TGroupBox GroupBox3 TGroupBox Label5 TLabel Label6 TLabel Label7 TLabel Edit6 TEdit Edit7 TEdit Edit8 TEdit Label8 TLabel Label9 TLabel Label10 TLabel Edit9 TEdit Edit10 TEdit Edit11 TEdit Label11 TLabel Edit12 TEdit Edit13 TEdit Edit14 TEdit Label12 TLabel Label13 TLabel 15 Button2 TButton Button3 TButton Button5 TButton GroupBox4 TGroupBox DBGrid2 TDBGrid Button6 TButton Button7 TButton Button8 TButton Button9 TButton Button10 TButton Button11 TButton Label17 TLabel DBGrid3 TDBGrid Button12 TButton Button13 TButton Button14 TButton Button15 TButton ADOQuery1 TADOQuery DataSource2 TDataSource ADOConnection2 TADOConnection ADOTable2 TADOTable ADOQuery2 TADOQuery Button16 TButton Button17 TButton Button18 TButton DataSource3 TDataSource DataSource4 TDataSource DataSource5 TDataSource DataSource6 TDataSource ADOConnection3 TADOConnection ADOConnection4 TADOConnection ADOConnection5 TADOConnection ADOConnection6 TADOConnection ADOTable3 TADOTable ADOTable4 TADOTable ADOTable5 TADOTable ADOTable6 TADOTable ADOTable7 TADOTable Button4 TButton ADOConnection7 TADOConnection DataSource7 TDataSource ADOTable8 TADOTable Button19 TButton Edit4 TEdit 16 Button20 TButton Edit15 TEdit procedure Button1Click Sender TObject procedure Button16Click Sender TObject procedure Button17Click Sender TObject procedure Button18Click Sender TObject procedure Button5Click Sender TObject procedure Button6Click Sender TObject procedure Button8Click Sender TObject procedure Button7Click Sender TObject procedure Button9Click Sender TObject procedure Button12Click Sender TObject procedure Button13Click Sender TObject procedure Button14Click Sender TObject procedure Button15Click Sender TObject procedure Button2Click Sender TObject procedure Button3Click Sender TObject procedure Button4Click Sender TObject private Private declarations public Public declarations end var Form3 TForm3 implementation R dfm procedure TForm3 Button1Click Sender TObject begin if edit3 Text then with adoquery1 do begin Close adoquery1 sql Clear adoquery1 sql Add select from where checi a 17 parameters ParamByName a Value trim form3 edit3 Text open if adoquery1 RecordCount 0 then datasource1 DataSet adoquery1 else begin application MessageBox 64 end edit5 Text adoquery1 FieldValues shengyupiaoshu end end procedure TForm3 Button16Click Sender TObject begin if edit1 Text then with adoquery2 do begin Close sql Clear sql Add select from where start b and zhongdianzhan c parameters ParamByName b Value trim form3 edit1 Text parameters ParamByName c Value trim form3 edit2 Text open if adoquery2 RecordCount 0 then datasource2 DataSet adoquery2 else begin application MessageBox 64 end edit7 Text adoquery2 FieldValues piaojia edit8 Text adoquery2 FieldValues piaojia strtoint edit6 Text 18 end end procedure TForm3 Button17Click Sender TObject begin if edit1 Text then with adoquery2 do begin Close sql Clear sql Add select from where start b and zhongdianzhan c parameters ParamByName b Value trim form3 edit1 Text parameters ParamByName c Value trim form3 edit2 Text open if adoquery2 RecordCount 0 then datasource2 DataSet adoquery2 else begin application MessageBox 64 end edit10 Text adoquery2 FieldValues piaojia edit11 Text adoquery2 FieldValues piaojia strtoint edit9 Text end end procedure TForm3 Button18Click Sender TObject begin if edit1 Text then with adoquery2 do begin 19 Close sql Clear sql Add select from where start b and zhongdianzhan c parameters ParamByName b Value trim form3 edit1 Text parameters ParamByName c Value trim form3 edit2 Text open if adoquery2 RecordCount 0 then datasource2 DataSet adoquery2 else begin application MessageBox 64 end edit13 Text adoquery2 FieldValues piaojia edit14 Text adoquery2 FieldValues piaojia strtoint edit12 Text end end procedure TForm3 Button5Click Sender TObject begin close end procedure TForm3 Button6Click Sender TObject begin adotable3 Active true DBGrid2 DataSource DataSource3 adotable4 Active false adotable5 Active false adotable6 Active false end procedure TForm3 Button8Click Sender TObject begin adotable4 Active true DBGrid2 DataSource DataSource4 adotable3 Active false 20 adotable5 Active false adotable6 Active false end procedure TForm3 Button7Click Sender TObject begin adotable5 Active true DBGrid2 DataSource DataSource5 adotable4 Active false adotable3 Active false adotable6 Active false end procedure TForm3 Button9Click Sender TObject begin adotable6 Active true DBGrid2 DataSource DataSource6 adotable4 Active false adotable5 Active false adotable3 Active false end procedure TForm3 Button12Click Sender TObject begin if adotable3 Active true then begin adotable3 First end if adotable4 Active true then begin adotable4 First end if adotable6 Active true then begin adotable6 First end else if adotable5 Active true then begin adotable5 First end end procedure TForm3 Button13Click Sender TObject 21 begin if adotable3 Active true begin adotable3 Prior end if adotable4 Active true begin adotable4 Prior end if adotable6 Active true begin adotable6 Prior end else if adotable5 Active true begin adotable5 Prior end end then then then then procedure TForm3 Button14Click Sender TObject begin if adotable3 Active true then begin adotable3 Next end if adotable4 Active true then begin adotable4 Next end if adotable6 Active true then begin adotable6 Next end else if adotable5 Active true then begin adotable5 Next end end procedure TForm3 Button15Click Sender TObject begin if adotable3 Active true then 22 begin adotable3 Last end if adotable4 Active true then begin adotable4 Last end if adotable6 Active true then begin adotable6 Last end else if adotable5 Active true then begin adotable5 Last end end procedure TForm3 Button2Click Sender TObject var a b integer begin a strtoint edit6 Text b strtoint edit6 Text adoquery2 Close adoquery2 SQL Clear adoquery2 SQL Text select checi from where checi edit3 Text adoquery2 Open if adoquery2 RecordCount 0 then begin adoquery2 Close adoquery2 SQL Clear while a 0 do begin adoquery2 SQL Text update set shengyupiaoshu shengyupiaoshu 1 where checi edit3 Text adoquery2 ExecSQL a a 1 end adoquery2 SQL Clear while b 0 do begin adoquery2 SQL Text update set yishoupiaoshu yishoupiaoshu 1 where checi edit3 Text 23 adoquery2 ExecSQL b b 1 end showmessage end end procedure TForm3 Button3Click Sender TObject var c d integer begin c strtoint ed