【文章內(nèi)容簡介】 。 c:=chr(ord(39。a39。) + i)。 := + c。 end。 begin Randomize。 end。 end。 procedure (Sender: TObject)。 begin :=False。 end。 procedure (Sender: TObject)。 var i,j:Integer。 c:Char。 begin :=39。39。 //這個是標簽 for j:=0 to 3 do //隨機生成 4 個 a 到 z 的字符串 begin i:=Random(24)。 c:=chr(ord(39。a39。) + i)。 := + c。 end。 begin Randomize。 end。 end。 procedure (Sender: TObject)。 begin if MessageDlg(39。確認修改嗎？ 39。,mtConfirmation,[mbYes,mbNO],0)=mrYes then begin if = then 25 begin 。 。 :=39。select * from 管 理 信 息 表 where 賬號=39。39。39。++39。39。39。and 密碼 =39。39。39。++39。39。39。39。 。 if =1 then begin if = then begin 。 。 (39。Update 管理信息表 SET 密碼 =:A where 賬號 =39。39。39。++39。39。39。39。)。 (39。A39。).Value:=。 。 ShowMessage(39。修改成功 39。)。 end else ShowMessage(39。新密碼不一致 39。) end else ShowMessage(39。原密碼錯誤 39。)。 end else ShowMessage(39。驗證碼錯誤 39。)。 end。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 end。 end. unit Unit5。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids。 type 26 TForm5 = class(TForm) DBGrid1: TDBGrid。 Button1: TButton。 Button2: TButton。 ADOQuery1: TADOQuery。 DataSource1: TDataSource。 procedure Button1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var Form5: TForm5。 implementation uses Unit2。 {$R *.dfm} procedure (Sender: TObject)。 begin :=True。 。 。 begin (39。select * from 成 績 信 息 表 where 學號=39。39。39。++39。39。39。39。)。 。 end。 end。 procedure (Sender: TObject)。 begin 。 :=False。 end。 end. unit Unit6。 27 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids。 type TForm6 = class(TForm) DBGrid1: TDBGrid。 Button1: TButton。 Button2: TButton。 ADOQuery1: TADOQuery。 DataSource1: TDataSource。 procedure Button1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var Form6: TForm6。 implementation uses Unit2。 {$R *.dfm} procedure (Sender: TObject)。 begin :=True。 。 。 begin (39。select * from 課 程 信 息 表 where 學號=39。39。39。++39。39。39。39。)。 。 end。 end。 procedure (Sender: TObject)。 begin 。 28 :=False。 end。 end. unit Unit7。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB。 type TForm7 = class(TForm) Button1: TButton。 ADOQuery1: TADOQuery。 DataSource1: TDataSource。 DBGrid1: TDBGrid。 Label1: TLabel。 Edit1: TEdit。 Button2: TButton。 Button3: TButton。 DBGrid2: TDBGrid。 Button4: TButton。 ADOQuery2: TADOQuery。 ADOQuery3: TADOQuery。 ADOQuery4: TADOQuery。 DataSource2: TDataSource。 ADOQuery5: TADOQuery。 procedure Button1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var Form7: TForm7。 implementation 29 uses Unit2。 {$R *.dfm} procedure (Sender: TObject)。 begin 。 。 (39。select * from 教師課程表 39。)。 。 end。 procedure (Sender: TObject)。 begin 。 。 :=39。select * from 教師課程表 where 課程號 =39。39。39。++39。39。39。39。 。 if =0 then begin ShowMessage(39。此課程不存在 39。)。 end else 。 。 :=39。select * from 課 程 信 息 表 where 課 程 號=39。39。39。++39。39。39。and 學號 =39。39。39。++39。39。39。39。 。 if =0 then begin if MessageDlg(39。確認選課嗎？ 39。,mtConfirmation,[mbYes,mbNo],0)=mrYes then begin 。 。 (39。select * from 教 師 課 程 表 where 課 程 號=39。39。39。++39。39。39。39。)。 。 。 。 (39。insert into 課程信息表 values(:A,:B,:C,:D,:E,:F,:G,:H,:I)39。)。 (39。A39。).Value:=。 (39。B39。).Value:=(39。課程號 39。).AsString。 (39。C39。).Value:=(39。30 課程名 39。).AsString。 (39。D39。).Value:=(39。學時 39。).AsString。 (39。E39。).Value:=(39。學分 39。).AsString。 (39。F39。).Value:=(39。開課時間 39。).AsString。 (39。G39。).Value:=(39。教師工號 39。).AsString。 (39。H39。).Value:=(39。教師姓名 39。).AsString。 (39。I39。).Value:=(39。備注 39。).AsString。 。 。 。 (39。select * from 學 生 信 息 表 where 學號=39。39。39。++39。39。39。39。)。 。 。 。 (39。insert into 成 績 信 息 表 values(:J,:K,:L,:M,:N,:O,:P,:Q,:R,:S)39。)。 (39。J39。).Value:=。 (39。K39。).Value:=(39。姓名 39。).AsString。 (39。L39。).Value:=(39。課程號 39。).AsString。 (39。M39。).Value:=(39。課程名 39。).AsString。 (39。N39。).Value:=(39。學時 39。).AsString。 (39。O39。).Value:=(39。學分 39。).AsString。 (39。P39。).Value:=39。39。