【正文】 f Trim() 39。 and = 39。39。 + QuotedStr(Trim())。 then sSQL := sSQL + 39。 if Trim() 39。 end。 and = 39。 end。 + QuotedStr() + 39。 1: begin sSQL := sSQL + 39。 where 1 = 139。 left join department d on = 39。 left join class c on = 39。 left join student b on = 39。 from score a 39。select , 39。var sSQL: string。end。 Exit。密碼修改成功！39。procedure (Sender: TObject)。 gf_ExecSQL(sSQL,)。 where userno = 39。update [user] set password = 39。 NewPwd := Trim()。 end。 Result := False。,MB_OK)。 if Trim() = Trim() then begin gf_MessageBox(39。 OldPwd,NewPwd: string。修改密碼function : Boolean。begin if Key = 13 then btnOKClick(Sender)。 var Key: Word。end。 Shift: TShiftState)。procedure (Sender: TObject。begin iErrorCount := 0。end。 。 end。 [2].Text := 39。姓名：39。 + 。 [0].Text := 39。 := False。 end。 [2].Text := 39。姓名：39。 + 。 [0].Text := 39。 := False。 end。 [2].Text := 39。姓名：39。 + 。 case of 0: begin [0].Text := 39。 。).AsInteger。 := (39。tname39。).AsString。 end else begin := (39。 。次將自動關閉程序！39。賬號或密碼錯誤，請重試！還剩39。 end。,MB_OK)。 if then begin if iErrorCount = 3 then begin gf_MessageBox(39。 + QuotedStr(Trim())。 + QuotedStr(Trim()) + 39。 + 39。 + 39。 + 39。 + 39。 + 39。 + 39。 + 39。 sSQL := 39。 end。 。請?zhí)顚懨艽a！39。39。 Exit。, MB_OK)。 then begin gf_MessageBox(39。begin if Trim() = 39。(3)、主要代碼描述：登錄procedure (Sender: TObject)。③教師登錄后可在登錄界面進行功能選擇來完成自己所選擇的查詢與維護。四、系統(tǒng)實施(1)、系統(tǒng)的界面設計：登陸界面密碼修改個人信息操作頁面信息管理成績查詢成績管理成績統(tǒng)計(2)、事件的設計過程：①運行軟件進入主界面，在主界面登錄進入各自操作主界面。視圖，索引，數據庫權限：這些在這個學生成績管理系統(tǒng)中沒有用到。表七班級表class屬性名數據類型是否為主鍵是否為空說明缺省值departidchar(10)noNOT NULL院系號（外鍵）classnochar（10）yesNOT NULL班級號classnamechar（10）noNOT NULL班級名稱Create table class (departid char(10) foreign key references department(departid),classno char（10）primary key ,classname char（10） not null)。表五管理員信息表administror屬性名數據類型是否為主鍵是否為空說明缺省值admininochar(10)YesNOT NULL工號admininameChar(20）noNOT NULL姓名Nonamesexchar(10)noNOT NULL性別Create table student(adminino char(10) primary key,admininame char（20） not null default ‘Noname’,sex char(10) not null)。表三課程信息表course屬性名數據類型是否為主鍵是否為空說明缺省值ochar(10)YesNOT NULL課程號amechar(20)noNOT NULL課程名creditchar（10）noNOT NULL學分ctimechar（10）noNOT NULL學時數tnochar(10)YesNOT NULL教師工號Create table student(o char(10) ,ame char（20） not null,credi char（10） not null ,ctime char(10) not null,tno char(10) ,primary key(o, tno))。屬性名數據類型是否為主鍵是否為空說明缺省值snochar(10)YesNOT NULL學號snamechar（20）noNOT NULL姓名Nonamesexchar（10）noNOT NULL性別classnochar(10)noNOT NULL班級號(外鍵)departidchar(10)noNOT NULL院系號（外鍵）phonechar（20）noNULL聯系方式 (2)、表的物理設計：表一學生信息表studentCreate table student(sno char(10) primary key,sname char（20） not null default ‘Noname’,sex char（10） not null ,classno char(10) foreign key references class(classno) ,departid char(10) foreign key references department(departid),phone char（20）)。class(departed, classno, classname)。administror（adminino，adimniname，sex）。course(o, ame, credit, ctime, tno)。administrorE/R圖:admininameadmininoownsclassnameownsdepartmentclassnoclassdepartidownsownsusernotnousernameownsdepartidsname snoteacherownstnameuserownssex