【正文】
(39。學號 39。 。確實要添加該學生信息?39。 then showmessage(39。) else if =39。 then showmessage(39。) else if =39。 then showmessage(39。) else if =39。 then showmessage(39。) else if =39。 then showmessage(39。 begin begin if =39。 end. form8,編寫代碼,可以快速輸入學生 的信息,也可以很方便的刪除學生的信息。 。 begin if not assigned(form9) then form9:=(self)。 end。 。 X, Y: Integer)。 Button: TMouseButton。 end。 。 X, Y: Integer)。 Button: TMouseButton。 end。 procedure (Sender: TObject)。 。 begin if not assigned(form8) then form8:=(self)。 Shift: TShiftState。 procedure (Sender: TObject。 。 begin 12 if not assigned(form10) then form10:=(self)。 Shift: TShiftState。 Form2 procedure (Sender: TObject。 end。 procedure (Sender: TObject)。 end。 。)。 end else showmessage(39。 11 。Pwd39。 if (39。請輸入密碼 39。39。請輸入用戶名 39。39。 {$R *.dfm} procedure (Sender: TObject)。 Form1(登陸界面) var Form1: TForm1。 。 (TForm1, Form1)。 。 aboutbox:=(application)。 {Form10}。 {Form8}, Unit10 in 39。 {Form9}, Unit8 in 39。 {AboutBox}, Unit9 in 39。 {Form4}, Unit7 in 39。 {Form3}, Unit4 in 39。 {Form2}, Unit3 in 39。 {Form1}, Unit2 in 39。 uses Forms, sysutils, Unit1 in 39。在 project1中編寫相應的代碼。 三 .設計 流程: ( 1) 學生成績管理系統(tǒng)登陸 信息輸入 成績輸入 5 ( 2) 四 .表結構 : 6 7 8 9 五 .具體 步驟 : applicatio