【正文】 用戶名或密碼錯(cuò)誤39。 end else begin 。 end。end。begin 。end.unit Unit2。type TForm2 = class(TForm) MainMenu1: TMainMenu。 N2: TMenuItem。 N4: TMenuItem。 N6: TMenuItem。 Label1: TLabel。 procedure N2Click(Sender: TObject)。 procedure N5Click(Sender: TObject)。 procedure N4Click(Sender: TObject)。var Form2: TForm2。{$R *.dfm}procedure (Sender: TObject)。procedure (Sender: TObject)。procedure (Sender: TObject)。end。begin。end。begin 。end。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 Label5: TLabel。 Label6: TLabel。 Label7: TLabel。 Button1: TButton。 ComboBox1: TComboBox。 Edit7: TEdit。 DBGrid1: TDBGrid。 Label10: TLabel。 Edit8: TEdit。 Edit9: TEdit。 Label13: TLabel。 ComboBox3: TComboBox。 Button5: TButton。 DataSource1: TDataSource。 ADOConnection1: TADOConnection。 procedure Button2Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。implementationuses Unit2。begin。end。beginif =0 then begin 。 (39。39。++39。39。)。 if =0 then showmessage(39。)。 end else if =1 then begin 。 (39。39。++39。39。)。 if =0 then showmessage(39。)。 end else if =2 then begin 。 (39。39。++39。39。)。 if =0 then showmessage(39。)。 end else if =3 then begin 。 (39。39。++39。39。)。 if =0 then showmessage(39。)。 end else if =4 then begin 。 (39。39。++39。39。)。 if =0 then showmessage(39。)。 end else if =5 then begin 。 (39。39。++39。39。)。 if =0 then showmessage(39。)。 endend。begin if =1then begin。 (39。39。++39。39。39。++39。39。)。 showmessage(39。)。 。select *from 學(xué)生表 where 姓名=39。39。39。39。 。 endelse if =2 then begin。 (39。39。++39。39。39。++39。39。39。++39。39。)。 showmessage(39。)。 。select *from 學(xué)生表 where 籍貫=39。39。39。39。 。 endelse if =3 then begin。 (39。39。++39。39。39。++39。39。39。++39。39。)。 showmessage(39。)。 。select *from 學(xué)生表 where 專業(yè)=39。39。39。 and 學(xué)號(hào)=39。39。39。39。 。 endelse if =4then begin。 (39。39。++39。39。39。++39。39。39。++39。39。)。 showmessage(39。)。 。select *from 學(xué)生表 where 年齡=39。39。39。 and 學(xué)號(hào)=39。39。39。39。 。 endelse if =5then begin。 (39。39。++39。39。39。++39。39。39。++39。39。)。 showmessage(39。)。 。select *from 學(xué)生表 where 性別=39。39。39。 and 學(xué)號(hào)=39。39。39。39。 。 endend。begin。 (39。39。++39。39。39。++39。39。39。++39。39。39。++39。39。39。++39。39。39。++39。39。)。 showmessage(39。)。select *from 學(xué)生表39。 。end。beginif =0 then begin 。 (39。39。++39。39。)。 showmessage(39。)。 。select *from 學(xué)生表 39。 。endelse if =1 then begin 。 (39。39。++39。39。)。 showmessage(39。)。 。select *from 學(xué)生表 39。 。 end else if =2 then begin 。 (39。39。++39。39。)。 showmessage(39。)。 。select *from 學(xué)生表 39。 。 end else if =3 then begin 。 (39。39。++39。39。)。 showmessage(39。)。 。select *from 學(xué)生表 39。 。 end else if =4 then begin 。 (39。39。++39。39。)。 showmessage(39。)。 。select *from 學(xué)生表 39。 。 end else if =5 then begin 。 (39。39。++39。39。)。 showmessage(39。)。 。select *from 學(xué)生表 39。 。 end end。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 Label5: TLabel。 Label6: TLabel。 Label7: TLabel。 Label8: TLabel。 Label9: TLabel。 Button1: TButton。 DataSource1: TDataSource。 Label10: TLabel。 Label11: TLabel。 Button2: TButton。 ComboBox2: TComboBox。 Edit10: TEdit。 Label14: TLabel。 Label15: TLabel。 Label16: TLabel。 Button4: TButton。 ADOConnection1: TADOConnection。 procedure Button2Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。implementationuses Unit2。begin。end。beginif =0 then begin 。 (39。39。++39。39。)。 if =0 then showmessage(39。)。 end else if =1 then begin 。 (39。39。++39。39。)。 if =0 then showmessage(39。)。 end else if =2 then begin 。 (39。39。++39。39。)。 if =0 then showmessage(39。)。 end else if =3