學生信息管理系統(tǒng)的設計與實現(xiàn)—計算機畢業(yè)設計論文(編輯修改稿)
2025-09-02 08:32 本頁面
【文章內(nèi)容簡介】 9。39。39。 and 學期 = 39。+39。39。39。39。++39。39。39。39。)。 //合并查詢，符合的話在DBGrid中顯示出來。endelsebegin。(39。select * from kecheng where 39。++39。 = 39。+39。39。39。39。++39。39。39。39。)。//單個條件查詢。end。end。procedure (Sender: TObject)。begin //開啟其他管理界面。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject。 var Key: Char)。begin:=true。 //當輸入條件后，“確定”按鈕為有效狀態(tài)end。procedure (Sender: TObject)。begin:=。//把查詢到的數(shù)據(jù)放在DBGrid上顯示出來end。end.四、學校學生管理信息系統(tǒng)的使用說明本系統(tǒng)分為學生用戶和管理用戶，如果你不是管理員，那只能進行查詢，對數(shù)據(jù)沒有修改權(quán)力。只能進行查詢，里面有各個方面的，如成績查詢，課程查詢，班級查詢，學籍查詢。各個界面都簡單明了，只要輸入你所需要的條件，系統(tǒng)自動調(diào)出數(shù)據(jù)。管理員登陸點系統(tǒng)，點系統(tǒng)，輸入管理員用戶及密碼，跟數(shù)據(jù)庫的用戶表比較。如果通過則能進行課程，學籍，成績，班級的管理。五、結(jié)束語 學生信息管理系統(tǒng)有利于學校對學生資料的查詢，具有可使用性和可維護性，利于學校在需要之時快速了解學生的情況。并可以讓具有最高權(quán)限的管理員更新、修改信息，已經(jīng)具備了一定的功能。但由于時間關系和其它原因，本系統(tǒng)還有些不足之處， 如本系統(tǒng)沒有實現(xiàn)報表打印的功能等等， 還有待于完善。 在張波爾老師的指導下，經(jīng)過一段時間的討論和上機的不斷調(diào)試，我順利的完成了開發(fā)任務。在開發(fā)過程中，我不僅增強了自學的能力和開發(fā)軟件的能力。對一些軟件開發(fā)模式有了更加深刻的認識，對應用軟件的熟練程度有所提高，已經(jīng)能運用這項開發(fā)過程，學會了如何進行小組式的開發(fā)一個綜合系統(tǒng)。還從張老師身上學到了很多東西。張老師認真負責的態(tài)度嚴謹治治學精神都使我收益非淺。在此我特向給了很多指導和提供我們開發(fā)小組寶貴意見的張波爾老師表示感謝！因為本系統(tǒng)所涉及的內(nèi)容非常廣泛并且比較復雜，加上時間的倉促，盡管我竭盡全力來保證系統(tǒng)的可靠性，但是肯定還有不足之處，懇請用戶批評指正。謝謝! 參考文獻：（1）Delphi6數(shù)據(jù)庫系統(tǒng)開發(fā)實例子導航 人民郵電出版社 （2）程序設計從入門到精通 科學出版社(3) 冶金工業(yè)出版社(4)Delphi數(shù)據(jù)庫開發(fā)自學教程 人民郵電出版社各模塊主要代碼成績管理模塊⑴ 成績管理procedure (Sender: TObject)。vari:boolean。begini:=false。(39。select * from pjcj where 39。++39。39。)。if not then （ 判斷是否數(shù)據(jù)庫最后一項）i:=true。if i thenbegin。(39。select * from dkcj where 學號 =39。+39。39。39。39。+[39。學號39。]+39。39。39。39。)。 （使用SQL進行查詢） 。 。:=false。endelsebeginshowmessage(39。沒有符合查詢條件的記錄!!39。)。 （:=39。39。 :=39。39。 件的，顯示該語句）:=39。39。:=39。39。:=39。39。:=true。end。:=39。學號39。:=39。姓名39。:=39。班級39。:=39。學號39。:=39。姓名39。:=39。課程號39。:=39。課程名39。:=39。成績39。end。（2）成績查詢procedure (Sender: TObject)。vari:boolean。begini:=false。(39。select * from pjcj where 39。++39。39。)。 。 （根據(jù)SQL進查詢）。if not theni:=true。if i thenbegin。(39。select * from dkcj where 學號 =39。+39。39。39。39。+[39。學號39。]+39。39。39。39。)。:=false。endelsebeginshowmessage(39。沒有符合查詢條件的記錄!!39。)。:=39。39。 （當沒有符合條件的記錄，自動:=39。39。 清空選擇框里的查詢條件）:=39。39。:=39。39。:=39。39。:=true。end。end。procedure (Column: TColumn)。varstr:string。beginstr:=[39。學號39。]。(39。select * from dkcj where 學號 =39。+39。39。39。39。+str+39。39。39。39。)。end。procedure (Sender: TObject)。 （管理界面的切換）begin。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。beginif =39。平均成績39。 then （根據(jù)平均成績查詢）begin:=+。endelsebegin:=+39。:=+。:=+39。
范文總結(jié)相關推薦
鄂ICP備17016276號-1