【正文】 private { Private declarations } public { Public declarations } end。 procedure Button11Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 procedure Button7Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 Edit14: TEdit。 Edit13: TEdit。 Edit12: TEdit。 Edit11: TEdit。 ComboBox2: TComboBox。 Edit10: TEdit。 Label12: TLabel。 Button10: TButton。 Label11: TLabel。 DBGrid1: TDBGrid。 Button8: TButton。 Button6: TButton。 Label10: TLabel。 Label9: TLabel。 Edit7: TEdit。 Button5: TButton。 Edit5: TEdit。 Label7: TLabel。 Label5: TLabel。 ComboBox1: TComboBox。 Edit1: TEdit。 Label3: TLabel。 Label1: TLabel。 Button4: TButton。 Button2: TButton。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids。end。)。 (39。 。procedure (Sender: TObject)。 :=False。 。procedure (Sender: TObject)。)。 end else ShowMessage(39。)。39。++39。39。 (39。 end else if then begin 。)。39。++39。39。 (39。 if then begin 。{$R *.dfm}procedure (Sender: TObject)。var Form13: TForm13。 procedure Button3Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 Edit2: TEdit。 Button2: TButton。 RadioButton2: TRadioButton。 ADOQuery1: TADOQuery。type TForm13 = class(TForm) DBGrid1: TDBGrid。end.unit Unit13。begin :=DateTimeToStr(Now)。end。 。 。 。 。 (,nil,alNone)。procedure (Sender: TObject)。 。 。 。 。 。begin :=True。end。 。 。 。 。 (,nil,alNone)。procedure (Sender: TObject)。 。 。 。 。 。begin :=True。end。 。 。 。 。 (,nil,alNone)。procedure (Sender: TObject)。 。 。 。 。 。begin :=True。end。 。 。 。 。 (,nil,alNone)。procedure (Sender: TObject)。 。 。 。 。 。begin :=True。end。 。 。 。 。begin :=True。end。{$R *.dfm}procedure (Sender: TObject)。var Form12: TForm12。 procedure Timer1Timer(Sender: TObject)。 procedure N15Click(Sender: TObject)。 procedure N12Click(Sender: TObject)。 procedure N9Click(Sender: TObject)。 procedure N7Click(Sender: TObject)。 procedure N4Click(Sender: TObject)。 ADOConnection1: TADOConnection。 Panel1: TPanel。 N14: TMenuItem。 N12: TMenuItem。 N10: TMenuItem。 N8: TMenuItem。 N6: TMenuItem。 N4: TMenuItem。 N2: TMenuItem。 MainMenu1: TMainMenu。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, Menus, DB, ADODB, StdCtrls。end。 。B39。).Value:=。 (39。39。39。39。Update 成績信息表 SET 平時成績=:A,期末成績=:B where 學(xué)號=39。 。確認提交？39。procedure (Sender: TObject)。 :=False。procedure (Sender: TObject)。 。39。39。39。select * from 成績信息表 where 課程號=39。 。begin :=True。implementation uses Unit8。 private { Private declarations } public { Public declarations } end。 procedure Button3Click(Sender: TObject)。 Button3: TButton。 Edit4: TEdit。 Edit3: TEdit。 Edit2: TEdit。 Label1: TLabel。 DBGrid1: TDBGrid。 ADOQuery1: TADOQuery。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls。 end。begin 。end。 。39。39。39。select * from 課程信息表 where 教師工號=39。 。begin :=True。implementation uses Unit2。 private { Private declarations } public { Public declarations } end。 procedure Button1Click(Sender: TObject)。 Button1: TButton。 ADOQuery1: TADOQuery。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids。end。 :=39。 :=39。 :=39。 :=39。)。 end else ShowMessage(39。原密碼錯誤39。新密碼不一致39。)。 ShowMessage(39。).Value:=。 (39。39。39。39。Update 管理信息表 SET 密碼=:A where 賬號=39。 。 。39。++39。39。39。++39。39。 :=39。,mtConfirmation,[mbYes,mbNO],0)=mrYes then begin if = then begin 。begin if MessageDlg(39。end。procedure (Sender: TObject)。 end。 end。) + i)。 c:=chr(ord(39。39。 c:Char。procedure (Sender: TObject)。 :=True。procedure (Sender: TObject)。 end。 end。) + i)。 c:=chr(ord(39。39。 c:Char。procedure (Sender: TObject)。 :=False。procedure (Sender: TObject)。 end。)。39。++39。39。 begin (39。 。{$R *.dfm}procedure (Sender: TObject)。var Form9: TForm9。 procedure Button4Click(Sender: TObject)。 procedure Button6Click(Sender: TObject)。 procedure GroupBox1Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 Label5: TLabel。 Edit3: TEdit。 Edit1: TEdit。 Button4: TButton。 Label3: TLabel。 Label1: TLabel。 DataSource1: TDataSource。 Button2: TButton。 ADOQuery1: TADOQuery。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, StdCtrls, ADODB, Grids, DBGrids。end。procedure (Sender: TObject)。 。39。39。39。select 姓名 from 教師信息表 where 教師工號=39。 。procedure (Sender: TObject)。 :=True。 (,nil,alNone)。begin 。end。 。 。procedure (Sender: TObject)。 :=True。 (,nil,alNone)。begin 。implementation uses Unit9,Unit10,Unit11,Unit2。 private { Private declarations } public { Publ