图书管理系统 delphi程序.docxVIP

图书管理系统delphi代码unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Mask, StdCtrls, Buttons, DB, ADODB;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; BitBtn1: TBitBtn; BitBtn2: TBitBtn; Edit2: TEdit; ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementationuses Unit2;{$R *.dfm}var i:integer;procedure TForm1.BitBtn1Click(Sender: TObject);v