圖書(shū)管理系統(tǒng) delphi程序

1、圖書(shū)管理系統(tǒng)delphi代碼unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Mask, StdCtrls, Buttons, DB, ADODB;typeTForm1 = class(TFormLabel1: TLabel;Label2: TLabel;Edit1: TEdit;BitBtn1: TBitBtn;BitBtn2: TBitBtn;Edit2: TEdit;ADOConnection1: TADOConnectio

2、n;ADOQuery1: TADOQuery;procedure BitBtn1Click(Sender: TObject;procedure BitBtn2Click(Sender: TObject;private Private declarations public Public declarations end;varForm1: TForm1;implementationuses Unit2;$R *.dfmvar i:integer;procedure TForm1.BitBtn1Click(Sender: TObject;varu,p:string;beginu:=edit1.T

3、ext ;p:=edit2.Text ;Adoquery1.Close ;ADOQuery1.Open ;if ADOQuery1.RecordCount=0 thenbeginApplication.MessageBox('密碼錯(cuò)誤,請(qǐng)重新輸入','提示',mb_ok;edit1.SetFocus ;endelsebeginform1.hide;form2.ShowModal ;end;end;procedure TForm1.BitBtn2Click(Sender: TObject;beginapplication.Terminate;end;end.二un

4、it Unit5;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls, ImgList, Menus, Buttons, jpeg;typeTForm5 = class(TFormMainMenu1: TMainMenu;N1: TMenuItem;N2: TMenuItem;N3: TMenuItem;N4: TMenuItem;N5: TMenuItem;N6: TMenuItem;N7: TMenuItem;N8

5、: TMenuItem;procedure FormClose(Sender: TObject; var Action: TCloseAction;procedure N2Click(Sender: TObject;procedure N6Click(Sender: TObject;procedure N7Click(Sender: TObject;procedure N4Click(Sender: TObject;procedure N10Click(Sender: TObject;private Private declarations public Public declarations

6、 end;varForm5: TForm5;implementationuses Unit1, Unit4, Unit3, Unit6, about;$R *.dfmprocedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction; beginapplication.Terminate;end;procedure TForm5.N2Click(Sender: TObject;beginform4:=tform4.create(application;form4.show;end;procedure TForm5.N6Cli

7、ck(Sender: TObject;beginform3:=tform3.create(application;form3.show;end;procedure TForm5.N7Click(Sender: TObject;beginform1:=tform1.create(application;form1.show;end;procedure TForm5.N4Click(Sender: TObject;beginapplication.Terminate;end;procedure TForm5.N10Click(Sender: TObject;beginfrm_about:=tfrm

8、_about.create(application;frm_about.show;end;end.三unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ExtCtrls, StdCtrls;typeTForm1 = class(TFormPanel1: TPanel;Panel2: TPanel;SpeedButton1: TSpeedButton;SpeedButton2: TSpeedButton;SpeedB

9、utton3: TSpeedButton;SpeedButton4: TSpeedButton;SpeedButton5: TSpeedButton;SpeedButton6: TSpeedButton;SpeedButton7: TSpeedButton;SpeedButton8: TSpeedButton;SpeedButton9: TSpeedButton;SpeedButton10: TSpeedButton;SpeedButton11: TSpeedButton;SpeedButton12: TSpeedButton;SpeedButton13: TSpeedButton;Speed

10、Button14: TSpeedButton;SpeedButton15: TSpeedButton;SpeedButton16: TSpeedButton;SpeedButton17: TSpeedButton;procedure FormCreate(Sender: TObject;procedure SpeedButton10Click(Sender: TObject;procedure SpeedButton12Click(Sender: TObject;procedure Button1Click(Sender: TObject;procedure SpeedButton17Clic

11、k(Sender: TObject; private Private declarations public Public declarations end;varForm1: TForm1;implementationvars:word;x,y:real;v:boolean;$R *.dfmprocedure TForm1.FormCreate(Sender: TObject; begins:=0;x:=0;y:=0;v:=true;end;procedure TForm1.SpeedButton10Click(Sender: TObject; begin if form1.tag=1 th

12、en begin if tag=10 then panel2.caption:='0.' else panel2.caption:=(sender as tspeedbutton.Caption; form1.Tag:=0; end else panel2.caption:=panel2.Caption+(sender as tspeedbutton.caption; end; procedure TForm1.SpeedButton12Click(Sender: TObject; begin form1.Tag:=1; if v then begin x:=strtofloa

13、t(panel2.caption; v:= not v; end else begin y:=strtofloat(panel2.caption; case s of 0:panel2.caption:=format('%g',x+y; 1:panel2.caption:=format('%g',x-y; 2:panel2.caption:=format('%g',x*y; 3:if y<>0 then panel2.caption:=format('%g',x/y else begin showmessage('不能以 0 作為除數(shù)！' panel2.Caption:=format('%g',x; v:=true; end; 4:begin y:=0; v:=true; end; 5:panel2.Caption:='' end; x:=strtofloat(panel2.caption; end; s:=(sender as tsp