【正文】 P39。).AsString。).Value:=(39。 (39。學(xué)時 39。N39。).AsString。).Value:=(39。 (39。課程號 39。L39。).AsString。).Value:=(39。 (39。J39。)。 (39。 。)。39。++39。39。 (39。 。).AsString。).Value:=(39。 (39。教師姓名 39。H39。).AsString。).Value:=(39。 (39。開課時間 39。F39。).AsString。).Value:=(39。 (39。學(xué)時 39。D39。).AsString。).Value:=(39。 (39。課程號 39。B39。).Value:=。 (39。insert into 課程信息表 values(:A,:B,:C,:D,:E,:F,:G,:H,:I)39。 。 。39。39。39。select * from 教 師 課 程 表 where 課 程 號=39。 。確認(rèn)選課嗎？ 39。 。39。++39。39。39。++39。39。 :=39。 end else 。此課程不存在 39。 。39。++39。39。 :=39。 begin 。 end。)。 (39。 begin 。 implementation 29 uses Unit2。 private { Private declarations } public { Public declarations } end。 procedure Button4Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 DataSource2: TDataSource。 ADOQuery3: TADOQuery。 Button4: TButton。 Button3: TButton。 Edit1: TEdit。 DBGrid1: TDBGrid。 ADOQuery1: TADOQuery。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB。 end。 begin 。 end。 。39。39。39。select * from 課 程 信 息 表 where 學(xué)號=39。 。 begin :=True。 implementation uses Unit2。 private { Private declarations } public { Public declarations } end。 procedure Button1Click(Sender: TObject)。 ADOQuery1: TADOQuery。 Button1: TButton。 27 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids。 end。 begin 。 end。 。39。39。39。select * from 成 績 信 息 表 where 學(xué)號=39。 。 begin :=True。 implementation uses Unit2。 private { Private declarations } public { Public declarations } end。 procedure Button1Click(Sender: TObject)。 ADOQuery1: TADOQuery。 Button1: TButton。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, 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 25 begin 。 begin if MessageDlg(39。 end。 begin Randomize。 := + c。a39。 //這個是標(biāo)簽 for j:=0 to 3 do //隨機(jī)生成 4 個 a 到 z 的字符串 begin i:=Random(24)。 begin :=39。 var i,j:Integer。 end。 procedure (Sender: TObject)。 end。 end。) + i)。 c:=chr(ord(39。39。 c:Char。 24 procedure (Sender: TObject)。 :=True。 procedure (Sender: TObject)。 :=False。 begin 。 end。 。39。39。39。select * from 學(xué) 生 信 息 表 where 學(xué)號=39。 。 :=True。 {$R *.dfm} procedure (Sender: TObject)。 var Form4: TForm4。 procedure Button5Click(Sender: TObject)。 procedure Button6Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 Button5: TButton。 Label5: TLabel。 Edit3: TEdit。 Edit1: TEdit。 Label3: TLabel。 Label1: TLabel。 Button3: TButton。 Button1: TButton。 ADOQuery1: TADOQuery。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls。 end。 procedure (Sender: TObject)。 。39。39。39。select 姓名 from 學(xué) 生 信 息 表 where 學(xué)號=39。 。 procedure (Sender: TObject)。)。 end else ShowMessage(39。 。 。 then begin 。 begin if =39。 end。 。 。 begin 。 end。 。 。 begin 。 end。 。 。 begin 。 implementation uses Unit4,Unit5,Unit6,Unit7,Unit19,Unit2。 private { Private declarations } public { Public declarations } end。 procedure Image1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 Timer1: TTimer。 ADOConnection1: TADOConnection。 DataSource1: TDataSource。 Image1: TImage。 Button4: TButton。 Button2: TButton。 interface 20 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg, DB, ADODB, DBCtrls。 end。 := + c。a39。 //這個是標(biāo)簽 for j:=0 to 3 do //隨機(jī)生成 4 個 a 到 z 的字符串 begin i:=Random(24)。 begin :=39。 var i,j:Integer。 end。 begin Randomize。 := + c。a39。 //這個是標(biāo)簽 for j:=0 to 3 do //隨機(jī)生成 4 個 a 到 z 的字符串 begin i:=Random(24)。 begin :=39。 var i,j:Integer。 end。 19 procedure (Sender: TObject)。 :=False。 procedure (Sender: TObject)。)。 end else ShowMessage(39。)。 else ShowMessage(39。 end。 。)。 if =0 then begin ShowMessage(39。39。39。39。and 用戶名 =39。39。39。and 密碼 =39。39。39。select * from 管理信息表 where 賬號 =39。 。 end。 :=False。 end else begin 。用戶名或密碼錯誤，請重新登錄 39。 。39。++39。39。39。++39。39。39。++39。39。