【文章內容簡介】 private { Private declarations } public { Public declarations } end。 var Form1: TForm1。 implementation uses Unit2。 {$R *.dfm} procedure (sender: tobject)。 begin 。 。 (39。select * from 員工信息表 where 員工姓名=39。39。39。 + + 39。39。39。and 密碼 =39。39。39。+ + 39。39。39。39。)。 。 。 if =1 then begin 。 。 end else begin showmessage(39。用戶名或密碼錯誤 39。)。 end。 end。 procedure (Sender: TObject)。 begin 。 end。 17 End. FORM2 unit Unit2。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, jpeg, ExtCtrls。 type TForm2 = class(TForm) MainMenu1: TMainMenu。 N1: TMenuItem。 N2: TMenuItem。 N3: TMenuItem。 N4: TMenuItem。 N5: TMenuItem。 N6: TMenuItem。 N7: TMenuItem。 N8: TMenuItem。 N9: TMenuItem。 N10: TMenuItem。 Image1: TImage。 procedure N2Click(Sender: TObject)。 procedure N3Click(Sender: TObject)。 procedure N7Click(Sender: TObject)。 procedure N5Click(Sender: TObject)。 procedure N6Click(Sender: TObject)。 procedure N8Click(Sender: TObject)。 procedure N9Click(Sender: TObject)。 procedure N10Click(Sender: TObject)。 private { Private declarations } public { Public declarations } 18 end。 var Form2: TForm2。 implementation uses Unit3, Unit5, Unit4, Unit6, Unit7, Unit8, Unit9, Unit1。 {$R *.dfm} procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 19 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 。 end。 End. FORM3 unit Unit3。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls。 type TForm3 = class(TForm) ADOConnection1: TADOConnection。 ADOTable1: TADOTable。 ADOQuery1: TADOQuery。 DataSource1: TDataSource。 Edit1: TEdit。 20 Label1: TLabel。 Button1: TButton。 Edit2: TEdit。 Edit3: TEdit。 Edit4: TEdit。 Edit5: TEdit。 Edit6: TEdit。 Edit7: TEdit。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 Label5: TLabel。 Label6: TLabel。 Label7: TLabel。 Button2: TButton。 procedure Button1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var Form3: TForm3。 implementation uses Unit2, Unit1。 {$R *.dfm} procedure (Sender: TObject)。 begin :=(39。 商品類別39。).asstring 。 :=(39。供應商 39。).asstring 。 21 :=(39。商品規(guī)格 39。).asstring 。 :=(39。商品進價 39。).asstring 。 :=(39。商品售價 39。).asstring 。 :=(39。庫存量 39。).asstring 。 。 [39。商品類別 39。]:=。 [39。供應商 39。]:=。 [39。商品規(guī)格 39。]:=。 [39。商品進價 39。]:=。 [39。商品售價 39。]:=。 [39。庫存量 39。]:=。 end。 procedure (Sender: TObject)。 begin 。 end。 End. FORM4 unit Unit4。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons。 type TForm4 = class(TForm) ADOQuery1: TADOQuery。 DBGrid1: TDBGrid。 Edit1: TEdit。 BitBtn1: TBitBtn。 Label1: TLabel。 DataSource1: TDataSource。 22 ADOConnection1: TADOConnection。 Button1: TButton。 procedure BitBtn1Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 private { Private declarations } public {