【正文】 (39。A39。).Value:=。 (39。B39。).Value:=。 。 end。end。end.unit Unit12。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, Menus, DB, ADODB, StdCtrls。type TForm12 = class(TForm) Image1: TImage。 MainMenu1: TMainMenu。 N1: TMenuItem。 N2: TMenuItem。 N3: TMenuItem。 N4: TMenuItem。 N5: TMenuItem。 N6: TMenuItem。 N7: TMenuItem。 N8: TMenuItem。 N9: TMenuItem。 N10: TMenuItem。 N11: TMenuItem。 N12: TMenuItem。 N13: TMenuItem。 N14: TMenuItem。 N15: TMenuItem。 Panel1: TPanel。 Label1: TLabel。 ADOConnection1: TADOConnection。 Timer1: TTimer。 procedure N4Click(Sender: TObject)。 procedure N6Click(Sender: TObject)。 procedure N7Click(Sender: TObject)。 procedure N3Click(Sender: TObject)。 procedure N9Click(Sender: TObject)。 procedure N10Click(Sender: TObject)。 procedure N12Click(Sender: TObject)。 procedure N13Click(Sender: TObject)。 procedure N15Click(Sender: TObject)。 procedure N2Click(Sender: TObject)。 procedure Timer1Timer(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var Form12: TForm12。implementation uses Unit13,Unit14,Unit15,Unit16,Unit17,Unit18,Unit19,Unit20,Unit21。{$R *.dfm}procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin :=True。 (,nil,alNone)。 。 。 。 。 。 。 。 。end。procedure (Sender: TObject)。begin :=True。 (,nil,alNone)。 。 。 。 。 。 。 。 。 。end。procedure (Sender: TObject)。begin :=True。 (,nil,alNone)。 。 。 。 。 。 。 。 。 。end。procedure (Sender: TObject)。begin :=True。 (,nil,alNone)。 。 。 。 。 。 。 。 。 。end。procedure (Sender: TObject)。begin :=True。 (,nil,alNone)。 。 。 。 。 。 。 。 。 。end。procedure (Sender: TObject)。begin :=True。 (,nil,alNone)。 。 。 。 。 。 。 。 。 。end。procedure (Sender: TObject)。begin :=True。 (,nil,alNone)。 。 。 。 。 。 。 。 。 。end。procedure (Sender: TObject)。begin :=True。 (,nil,alNone)。 。 。 。 。 。 。 。 。 。end。procedure (Sender: TObject)。begin :=True。 (,nil,alNone)。 。 。 。 。 。 。 。 。 。end。procedure (Sender: TObject)。begin :=DateTimeToStr(Now)。end。end.unit Unit13。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids。type TForm13 = class(TForm) DBGrid1: TDBGrid。 DataSource1: TDataSource。 ADOQuery1: TADOQuery。 RadioButton1: TRadioButton。 RadioButton2: TRadioButton。 Button1: TButton。 Button2: TButton。 Edit1: TEdit。 Edit2: TEdit。 Button3: TButton。 procedure Button1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var Form13: TForm13。implementation uses Unit12。{$R *.dfm}procedure (Sender: TObject)。begin :=True。 if then begin 。 。 (39。select * from 學(xué)生信息表 where 學(xué)號(hào)=39。39。39。++39。39。39。39。)。 。 end else if then begin 。 。 (39。select * from 學(xué)生信息表 where 姓名=39。39。39。++39。39。39。39。)。 。 end else ShowMessage(39。請(qǐng)選擇查詢方式39。)。end。procedure (Sender: TObject)。begin :=False。 。 。 :=False。end。procedure (Sender: TObject)。begin :=True。 。 。 (39。select * from 學(xué)生信息表39。)。 。end。end.unit Unit14。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids。type TForm14 = class(TForm) Button1: TButton。 Button2: TButton。 Button3: TButton。 Button4: TButton。 GroupBox1: TGroupBox。 Label1: TLabel。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 Edit1: TEdit。 Edit2: TEdit。 ComboBox1: TComboBox。 Edit3: TEdit。 Label5: TLabel。 Label6: TLabel。 Label7: TLabel。 Edit4: TEdit。 Edit5: TEdit。 Edit6: TEdit。 Button5: TButton。 Label8: TLabel。 Edit7: TEdit。 ADOQuery1: TADOQuery。 Label9: TLabel。 GroupBox2: TGroupBox。 Label10: TLabel。 Edit8: TEdit。 Button6: TButton。 Button7: TButton。 Button8: TButton。 GroupBox3: TGroupBox。 DBGrid1: TDBGrid。 DataSource1: TDataSource。 Label11: TLabel。 Button9: TButton。 Button10: TButton。 Button11: TButton。 Label12: TLabel。 Edit9: TEdit。 Edit10: TEdit。 Label13: TLabel。 ComboBox2: TComboBox。 Label14: TLabel。 Edit11: TEdit。 Label15: TLabel。 Edit12: TEdit。 Label16: TLabel。 Edit13: TEdit。 Label17: TLabel。 Edit14: TEdit。 procedure Button4Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 procedure Button5Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure Button6Click(Sender: TObject)。 procedure Button7Click(Sender: TObject)。 procedure Button8Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 procedure Button9Click(Sender: TObject)。 procedure Button11Click(Sender: TObject)。 procedure Button10Click(Sender: TObject)。 private { Privat