學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)

《學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)》由會(huì)員分享，可在線閱讀，更多相關(guān)《學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)（32頁珍藏版）》請?jiān)谘b配圖網(wǎng)上搜索。

1、畢業(yè)設(shè)計(jì)任務(wù)書 學(xué)生姓名 學(xué)號(hào) 060223F01029 班級(jí) 計(jì)算機(jī)應(yīng)用班 指導(dǎo)教師姓名 職稱 副教授、助教 課題 名稱 學(xué)生信息管理系統(tǒng) 設(shè) 計(jì) 任 務(wù) 1、 用戶登錄、用戶管理和密碼修改功能； 2、 信息輸入、瀏覽、修改、刪除和查詢功能； 3、 數(shù)據(jù)庫備份和還原功能。 設(shè) 計(jì) 環(huán) 境 條 件 1、 后臺(tái)數(shù)據(jù)庫：Access2000或者 SQL Server 2000 2、 數(shù)據(jù)庫開發(fā)工具：Delphi 7 完 成 形 式 1、 提交設(shè)計(jì)文檔。文檔的內(nèi)容至少

2、包含需求分析、總體設(shè)計(jì)（即系統(tǒng)層次模塊圖、模塊設(shè)計(jì)和數(shù)據(jù)庫設(shè)計(jì)）和詳細(xì)設(shè)計(jì)（項(xiàng)目文件及主界面設(shè)計(jì)和各個(gè)模塊設(shè)計(jì)），最后總結(jié)。 2、 提交程序。程序能運(yùn)行（附加光盤）。 摘要 本系統(tǒng)是一個(gè)單機(jī)的學(xué)生信息管理系統(tǒng)。它具有錄入、查詢和修改信息的功能，并且形象直觀、簡潔易用，但該系統(tǒng)沒有用戶權(quán)限的設(shè)置。本系統(tǒng)采用Delphi7作為開發(fā)工具，Object Pascal為開發(fā)語言，采用Access建立后臺(tái)數(shù)據(jù)庫，先在Access中設(shè)計(jì)并制作各部分需要調(diào)用的數(shù)據(jù)庫，并進(jìn)行初始數(shù)據(jù)的輸入，再進(jìn)行Delphi7工程中界面的設(shè)計(jì)和事件代碼的編寫。Access作

3、為該系統(tǒng)后臺(tái)數(shù)據(jù)庫的設(shè)計(jì)軟件，具有設(shè)計(jì)簡單，使用方便的特點(diǎn)，通過ADOConnection就可進(jìn)行數(shù)據(jù)庫的連接。該系統(tǒng)主要用到的組件有：DBEdit、ADOTable、DataSource、DBGrid、DBNavigator、Text、DBMemo、DBRadioGroup、RadioGroup等。DBGrid用于產(chǎn)生數(shù)據(jù)表格，導(dǎo)入數(shù)據(jù)庫中的表，DBNavigator是用來對(duì)記錄進(jìn)行查看、瀏覽等操作。其他一些如DBText、DBMemo、DBLookupComBobox等都是數(shù)據(jù)庫感知組件，可進(jìn)行數(shù)據(jù)庫的連接。本系統(tǒng)的最大特點(diǎn)是所有的數(shù)據(jù)表的關(guān)聯(lián)都是通過組件的屬性設(shè)置（ADOTable的 M

4、asterSource、MasterFeild屬性，DBText等數(shù)據(jù)庫感知組件的DataSource、DataFeild）加上SQL語句來完成。本系統(tǒng)在設(shè)計(jì)過程中，事件程序代碼的編寫十分重要。但界面屬性設(shè)置也很重要，特別是涉及到表的查詢時(shí)的屬性設(shè)置。 關(guān)鍵詞 學(xué)生信息 查詢 修改 刪除 用戶管理 身份登錄 目錄 第一章 需求分析 3 1.1功能分析 3 1.2 性能需求 3 1.3 運(yùn)行要求 3 2.1 功能模塊劃分 4 2.3 數(shù)據(jù)庫設(shè)計(jì) 5 第三章 詳細(xì)設(shè)計(jì)

5、 7 3.1 系統(tǒng)項(xiàng)目文件和公共文件 7 3.2 主界面設(shè)計(jì)：main.pas 7 3.3公共模塊:data.pas 9 3.4用戶登錄窗體模塊:login.pas 10 3.5用戶管理模塊的窗體設(shè)計(jì)：user.pas 13 3.6 密碼修改模塊的窗體設(shè)計(jì)：passwordchange.pas 16 3.7添加 /修改/刪除學(xué)生信息模塊的窗體設(shè)計(jì)： 19 添加學(xué)生信息模塊的窗體設(shè)計(jì)：xinxiadd.pas 19 學(xué)生信息修改：xinxichange.pas..........................................21 學(xué)生信息刪除：xinxide

6、l.pas.............................................23 3.8姓名查詢模塊的窗體設(shè)計(jì)：FrmNameChaxun 24 3.9學(xué)號(hào)查詢模塊的窗體設(shè)計(jì)：frmxuehaochaxun 26 3.10 數(shù)據(jù)管理設(shè)計(jì) 27 3.11幫助文件的設(shè)計(jì)和調(diào)用 29 總結(jié) 30 參考文獻(xiàn) 30 致謝 31 第一章 需求分析 學(xué)生管理系統(tǒng)是一個(gè)管理學(xué)生信息的應(yīng)用程序，它維護(hù)著一個(gè)數(shù)據(jù)庫，存儲(chǔ)著學(xué)生信息、用戶信息等。Delphi程序負(fù)責(zé)對(duì)數(shù)據(jù)庫進(jìn)行輸入和輸出的維護(hù)。主要功能包括學(xué)生信息

7、管理、用戶管理和學(xué)生信息查詢等功能。 1.1功能分析 1、系統(tǒng)管理模塊:系統(tǒng)管理模塊為我們提供學(xué)生信息的管理功能.我們可以對(duì)其信息進(jìn)行進(jìn)行添加、刪除、修改等操作。 添加：添加新的管理用戶。 刪除：刪除已經(jīng)存在的管理用戶。 修改：更改已經(jīng)存在管理用戶權(quán)限、密碼等。 2、學(xué)生管理模塊：學(xué)生管理模塊提供學(xué)生信息管理功能。我們可以對(duì)學(xué)生信息進(jìn)行添加、刪除、修改等操作。 添加：錄入新的學(xué)生信息，在添加新學(xué)生信息候應(yīng)填寫完整的信息。 刪除：刪除已有的學(xué)生信息。 修改：更改有的學(xué)生信息。 3、信息查詢模塊：信息查詢模塊提供查詢當(dāng)前學(xué)生的功能。我

8、們可以方便、快速地查詢到想要的學(xué)生信息。 按姓名：根據(jù)所輸入的姓名條件，查詢相應(yīng)的學(xué)生資料。 按學(xué)號(hào)：根據(jù)所輸入的學(xué)號(hào)條件，查詢相應(yīng)的學(xué)生資料。 4、數(shù)據(jù)庫管理：對(duì)現(xiàn)有數(shù)據(jù)庫進(jìn)行備份和還原操作。 5、用戶管理：新增、刪除、更新用戶。 6、密碼修改：修改用戶的密碼。 1.2 性能需求 硬件環(huán)境需求：IBM兼容機(jī)，具有80486 50MHZ以上的處理器。 32MB以上的內(nèi)存。 足夠的硬盤空間。 軟件環(huán)境需求：Windows XP，Access2000，Delphi 7。

9、1.3 運(yùn)行要求 系統(tǒng)屬于軟件系統(tǒng)，代碼使用Delphi編碼，數(shù)據(jù)庫管理系統(tǒng)采用Access2000 數(shù)據(jù)庫管理系統(tǒng)，運(yùn)行在Windows系統(tǒng)下。 第二章 總體設(shè)計(jì) 2.1 功能模塊劃分 2.2系統(tǒng)流程圖 2.3 數(shù)據(jù)庫設(shè)計(jì) ★ 本系統(tǒng)是通過對(duì)象模型ADO來訪問數(shù)據(jù)庫。采用Microsoft Access為后臺(tái)數(shù)據(jù)庫。根據(jù)系統(tǒng)功能設(shè)計(jì)的要求以及功能的劃分，對(duì)于系統(tǒng)用戶數(shù)據(jù)庫（名稱：Student）包含下列數(shù)據(jù)表。 1、數(shù)據(jù)表名稱：管理表 數(shù)據(jù)來源:用戶管理模塊,密碼修改模塊和用戶登錄模塊.

10、 表結(jié)構(gòu): 2、 數(shù)據(jù)表名稱：學(xué)生表 數(shù)據(jù)來源:添加/修改用戶組界面模塊、添加用戶組模塊、 修改用戶組界面。 表結(jié)構(gòu)： 第三章 詳細(xì)設(shè)計(jì) ★ 根據(jù)已經(jīng)有的需求信息和總體設(shè)計(jì),可以進(jìn)行系統(tǒng)的詳細(xì)設(shè)計(jì)和實(shí)現(xiàn).為此,建立一個(gè)delphi 工程.系統(tǒng)設(shè)計(jì)和實(shí)現(xiàn)如下: 3.1 系統(tǒng)項(xiàng)目文件和公共文件 1、項(xiàng)目文件：StudentMIS.pas 3.2 主界面設(shè)計(jì)：main.pas ★主界面主要實(shí)現(xiàn)對(duì)模塊的調(diào)用和顯示工作，本系統(tǒng)的主界面提供了菜單和按鈕兩種調(diào)用各個(gè)子模

11、塊方式，主要工作如下： 1、設(shè)計(jì)好菜單和各個(gè)組件的布局 2、設(shè)置各個(gè)菜單和組件的屬性。 3、給出各個(gè)菜單和組件的name值。 4、設(shè)計(jì)各個(gè)功能模塊的空白窗體，定好窗體名（name值） 5、在主界面添加顯示各個(gè)窗體模塊的代碼。 6、調(diào)試運(yùn)行主界面。 ★ 主界面添加顯示各個(gè)窗體模塊顯示狀態(tài)欄的代碼如下： var frmmain: Tfrmmain; userStr:string; date:string; time:string; implementation uses data,login, NameChaxun,xuehaocha

12、xun, xinxiAdd, xinxiChage, xinxiDel, passwordchange,user; {$R *.dfm} procedure Tfrmmain.FormShow(Sender: TObject); begin Application.CreateForm(Tfrmlogin,frmlogin); frmlogin.ShowModal; frmlogin.Free; end; procedure Tfrmmain.NxingmingClick(Sender: TObject); begin frmNamechaxun.

13、Show; end; 。。。。。。。。。。。。詳情請看光盤。 procedure Tfrmmain.NcloseClick(Sender: TObject); begin application.Terminate; end; procedure Tfrmmain.NxinxiAddClick(Sender: TObject); begin frmxinxiAdd.show; end; procedure Tfrmmain.NxinxiChageClick(Sender: TObject); begin frmx

14、inxichange.show; end; procedure Tfrmmain.NxinxiDelClick(Sender: TObject); begin frmxinxidel.show; end; procedure Tfrmmain.NpasswordClick(Sender: TObject); begin frmpasswordchange.show; end; procedure Tfrmmain.NuserClick(Sender: TObject); begin if frmuser=nil then frmuser:=Tf

15、rmuser.Create(nil); frmuser.ShowModal; end; end. 。。。。。。。。。。。。詳情請看光盤。 3.3公共模塊:data.pas 公共模塊圖如下: 創(chuàng)建方法:FilenewData module 所有組件及其屬性: 組件 Name 屬性 ADOConnetion ADO Connetionstringd(與后臺(tái)的access數(shù)據(jù)庫連接) ADOquery AQ Connetion(ADO) 3.4用戶登錄窗體模塊:login.pas 組件及其屬性表

16、組件 Name值 Items Flat 學(xué)生管理系統(tǒng)——用戶登錄 frmlogin comboBox cmbusername 管理員、用戶 Edit Edtpassword speedButton speedButton1 True 功能：用戶身份驗(yàn)證 輸入：用戶名和密碼 處理： 1、用戶登錄窗體啟動(dòng)； 2、從操作人員表中讀取操作人員的名稱信息，并寫入用戶名下拉框中，以方便登錄。 3、用戶選擇用戶名并輸入密碼。 4、從操作人員表中檢查是否有相應(yīng)的用戶名和密碼。 5、如果用戶名或密碼錯(cuò)誤，進(jìn)行提示，并被3次登錄機(jī)會(huì)。

17、 6、如果輸入的用戶名和相應(yīng)的密碼正確，則根據(jù)該用戶的權(quán)限類別進(jìn)行權(quán)限設(shè)置。 7、進(jìn)入主界面。 用戶登錄模塊的窗體設(shè)計(jì)。 用戶登錄模塊的代碼添加。 （1）該單元使用其他單元文件：data,main （2）其他代碼和事件代碼添加。 代碼如下 ： ★ 單擊【確定】按鈕，判斷密碼框里的內(nèi)容是否與數(shù)據(jù)庫里設(shè)置的密碼一致，如果一致就進(jìn)入管理主界面，否則退出系統(tǒng)。代碼如下： procedure Tfrmlogin.Button1Click(Sender: TObject); begin with DM.AQ do begin

18、 Close; SQL.Clear; SQL.Add(select * from 管理表 where username=:a and password=:b); Parameters.ParamByName(a).Value:=cmbusername.Text; Parameters.ParamByName(b).Value:=edtpassword.Text; open; end; if DM.AQ.RecordCount>0 then beg

19、in userStr:=DM.AQ.FieldByName(username).AsString; Close; if DM.AQ.FieldByName(class).AsInteger=0 then begin frmmain.Nxuehao.Enabled:=true; frmmain.Nxingming.Enabled:=true; frmmain.BBtnXingming.Enabled:=true;

20、 frmmain.BBtnXuehao.Enabled:=true; frmmain.Nxuehao.Enabled:=true; frmmain.NxinxiAdd.Enabled:=true; frmmain.NxinxiChage.Enabled:=true; frmmain.NxinxiDel.Enabled:=true; frmmain.Npassword.Enabled:=true; f

21、rmmain.Nbeifen.Enabled:=true; frmmain.Nhuanyuan.Enabled:=true; frmmain.Nuser.Enabled:=true; frmmain.SBadd.Enabled:=true; frmmain.SBdel.Enabled:=true; frmmain.SBuser.Enabled:=true; frmmain.SBpassword.Enabled:=tr

22、ue; end; 。。。。。。。詳情請見光盤 if DM.AQ.FieldByName(class).AsInteger=1 then begin frmmain.Nxuehao.Enabled:=true; frmmain.Nxingming.Enabled:=true; frmmain.BBtnXingming.Enabled:=true; frmmain.BBtnXue

23、hao.Enabled:=true; frmmain.Nxuehao.Enabled:=true; frmmain.NxinxiAdd.Enabled:=true; frmmain.NxinxiChage.Enabled:=true; frmmain.NxinxiDel.Enabled:=true; end; if DM.AQ.FieldByName(class).AsInteger=1 then

24、 begin end; else begin Application.MessageBox(對(duì)不起，您無權(quán)使用本系統(tǒng)。,提示,0+64); Application.Terminate ; 。。。。。。。詳情請見光盤 end; end; end; end. 3.5用戶管理模塊的窗體設(shè)計(jì)：user.pas 組件及其屬性表 組件 Caption Name值 Passwordchar 其他屬性 Form 用戶管理

25、frmuser ComboBox ComboBox1 DBEdit DBEdit1 * DBEdit DBEdit2 DMRaiogroup DMRaiogroup1 Items Line1:0\line2:1 Lable 說明：0:為管理員 \ 1:為用戶 Lable3 DataSource DataSource1 Dataset 為AT ADOtable AT Connetion 為DM。ADO DBGrid DBGrid1 Datasource 為D

26、ataSource1 Button 添加 SBadd Button 修改 SBchange Button 刪除 Sbdel Button 保存 Sbsave Button 取消 SpeedButton1 Button 退出 SBquit ★功能 ：負(fù)責(zé)對(duì)操作人員基本信息的建立，對(duì)操作人員的權(quán)限進(jìn)行基本維護(hù)，不同權(quán)限的操作人員使用的模塊不一樣。 ★功能樹： 用戶管理 添加新的操作人員 編輯操作人員權(quán)限 刪除指定操作人員 修改 刪除 添加 ★添加新的操作人員的處理 1、點(diǎn)擊

27、添加按鈕。 2、輸入用戶名稱、密碼等用戶信息，設(shè)置權(quán)限類別。 3、點(diǎn)擊保存按鈕，保存操作 4、完成對(duì)數(shù)據(jù)庫中操作人員表的相應(yīng)操作。 ★修改操作人員信息的處理 1、選擇要編輯的用戶，點(diǎn)擊修改按鈕。 2、修改相應(yīng)的用戶信息 3、點(diǎn)擊保存按鈕，保存操作 4、完成對(duì)數(shù)據(jù)庫中操作人員表的相應(yīng)操作。 ★刪除指定操作人員的處理 1、選擇要?jiǎng)h除的用戶。 2、點(diǎn)擊刪除按鈕，彈出個(gè)提示，點(diǎn)擊“OK”刪除，點(diǎn)擊“cancel”則取消。 3、完成對(duì)數(shù)據(jù)庫中操作人員表的相應(yīng)操作。 ★用戶管理模塊的代碼添加 1、該單元使用其他單元文件：data,main 2、對(duì)變量date進(jìn)行定義：date

28、:string; 3、其他代碼和事件代碼添加。 4、該模塊使用了其他的函數(shù)： 雙擊刪除按鈕代碼如下： procedure Tfrmuser.SBdelClick(Sender: TObject); begin if messageDlg(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？,mtInformation,[mbOK,mbCancel],0)=mrOK then AT.Delete; end; 雙擊添加按鈕代碼如下： procedure Tfrmuser.SBaddClick(Sender: TObject); if AT.CanModify then

29、begin dbedit1.SetFocus; AT.Append; end else showmessage(添加用戶失敗!); end; 。。。。。。。詳情請見光盤 雙擊修改按鈕代碼如下： procedure Tfrmuser.SBchangeClick(Sender: TObject); if AT.CanModify then begin dbedit1.Enabled:=true; SBsave.Enabled:=true; AT.Edit;

30、 。。。。。。。詳情請見光盤 procedure Tfrmuser.SpeedButton1Click(Sender: TObject); begin if AT.CanModify then AT.Cancel; sbadd.Enabled:=true; end; 雙擊保存按鈕代碼如下： procedure Tfrmuser.SBsaveClick(Sender: TObject); if AT.CanModify then begin AT.Post; sbadd.Enabled:=true;

31、 sbchange.Enabled:=true; sbsave.Enabled:=false; dbedit1.Enabled:=false; showmessage(用戶保存成功！); end else begin showmessage(當(dāng)前數(shù)據(jù)不能保存); end; 。。。。。。。詳情請見光盤 end. 雙擊保存按鈕代碼如下： procedure Tfrmuser.SBquitClick(Sender: TObject); begin close; end; 3.6 密碼修改模

32、塊的窗體設(shè)計(jì)：passwordchange.pas 組件及其屬性表 組件 Caption Name值 Passwordchar Form 密碼修改 Frmpasswordchange ComboBox ComboBox1 Edit Edit1 * Edit Edit2 * Edit Edit3 * Button 確定 Button1 Button 取消 Button2 ★ 功能：用來修改用戶密碼 ★ 處理過程： 1、選擇用戶名 2、輸入原來的密碼 3、輸入新密碼 4

33、、再次輸入新密碼 5、確認(rèn)，完成對(duì)數(shù)據(jù)庫中操作人員表的相應(yīng)操作 ★ 密碼修改模塊的代碼添加 1、該單元使用其他單元文件：data,main 2、其他代碼和事件代碼添加。 ? 在該窗體的OnActivate事件中添加代碼如下： procedure Tfrmpasswordchange.FormActivate(Sender: TObject); begin combobox1.Clear; try with dm.AQ do begin Close; SQL.Clear; SQL.Add(select username from

34、管理表 ); MessageDlg(連接數(shù)據(jù)庫出錯(cuò)!,mtError,[mbok],0); end; end; procedure Tfrmpasswordchange.Edit1Exit(Sender: TObject); begin with DM.AQ DO begin Close; SQL.Clear; SQL.Add(select * from 管理表 where UserName=:a); Parameters.ParamByName(a).Value := trim(combobox1.Te

35、xt) ; Open; end; if DM.AQ.RecordCount >0 then if edit1.text<>DM.AQ.FieldByName(password).AsString then begin MessageDlg(原密碼不正確,請重新輸入,mtError,[mbok],0); edit1.Text:=; edit1.SetFocus; end else edit2.SetFocus; end; 。。。。。。。詳情請見光盤 end

36、; ? 雙擊【確定】按鈕，添加如下代碼： procedure Tfrmpassword.SpeedButton1Click(Sender: TObject); begin with DM.AQ DO begin Close; SQL.Clear; SQL.Add(select * from 管理表 where UserName=:a); Parameters.ParamByName(a).Value := trim(combobox1.Text) ; Open; end; if DM.AQ.RecordCo

37、unt >0 then if edit2.Text<>edit3.Text then begin MessageDlg(兩次輸入的秘密不一致,請重新輸入,mtError,[mbok],0); end else begin DM.AQ.Edit; DM.AQ.FieldByName(password).AsString:=edit2.text; DM.AQ.post; showmessage(密碼修改成功);

38、 cus; end; 。。。。。。。詳情請見光盤 end; ? 雙擊【取消】按鈕，添加如下代碼： procedure Tfrmpassword.SpeedButton2Click(Sender: TObject); begin close; end; 3.7添加 /修改/刪除學(xué)生信息模塊的窗體設(shè)計(jì)： 添加學(xué)生信息模塊的窗體設(shè)計(jì)：xinxiadd.pas 組件及其屬性表 組件 Caption Name值 Passwordch

39、ar Form 學(xué)生信息添加 frmadd1 Button 添加 Sbadd Button 保存 SBsave Button 取消 SBcancel Button 退出 SBquit DataSource DataSource1 DataSet(ATxinxiadd) DBedit Dbedit1---8 Dbedit1---8 DataSource(DataSource1) ADOtable AT Connection(DM.ADO) Active(True) ★ 功能：添加新的分組或?qū)ο?/p>

40、應(yīng)的分組信息進(jìn)行修改、刪除操作。 ★ 處理過程： l 該單元使用其他單元文件： data,main; 雙擊添加按鈕，添加如下代碼： procedure TfrmxinxiAdd.SBaddClick(Sender: TObject); begin label9.Caption:=請輸入學(xué)生的信息; if ATxinxiAdd.CanModify then ATxinxiAdd.Append; sbadd.Enabled:=false; SBsave.Enabled:=true; begin 。。。。。。。詳情請見光盤 雙擊保存按鈕，添加如下

41、代碼： procedure TfrmxinxiAdd.SBsaveClick(Sender: TObject); begin sbsave.Enabled:=true; if Atxinxiadd.CanModify then ATxinxiadd.Post; sbadd.Enabled:=true; showmessage(添加成功!); SBadd.Enabled:=false; end else showmessage(當(dāng)前數(shù)據(jù)庫不能保存!); end; 。。。。。。。詳情請見光盤 雙擊取消按鈕，添加如下

42、代碼： procedure TfrmxinxiAdd.SBcancelClick(Sender: TObject); begin if atxinxiadd.CanModify then begin atxinxiadd.Cancel; sbadd.Enabled:=true; SBsave.Enabled:=false; End； 。。。。。。。詳情請見光盤 雙擊退出按鈕，添加如下代碼： procedure TfrmxinxiAdd.SBquitClick(Sender: TObject); begin close; end; end. 學(xué)生信息

43、修改：xinxichange.pas 學(xué)生信息修改的界面如圖： 組件及其屬性表 組件 Caption Name值 DataSource DataField Form 學(xué)生信息修改 Frmxinxichange DBEdit Dbedit1--6 DataSource 與前面的lable相對(duì)應(yīng) DBmemo Dbmemo1 DataSource 獎(jiǎng)罰情況 DBimage Dbimage1 DataSource 相片 BitBtn 修改 SBchange BitBtn 保存 SBsave

44、 BitBtn 取消 SBcancel BitBtn 退出 SBquit DataSource DataSource1 DataSet（AT） ADOtable AT Connection (DM.ADO) True（Active） select * from user_type (SQL) ★ 該單元使用其他單元文件：data,main 在主界面上雙擊【修改】按鈕，其代碼如下： procedure TfrmxinxiChange.SBchangeClick(Sender: TObject);

45、begin if ATxinxichange.CanModify then end;。。。。。。。詳情請見光盤 end; 在主界面上雙擊【保存】按鈕，其代碼如下： procedure TfrmxinxiChange.SBsaveClick(Sender: TObject); begin sbsave.Enabled:=true; if atxinxichange.CanModify then 。。。。。。。詳情請見光盤 end; 在主界面上雙擊【取消】按鈕，其代碼如下： procedure TfrmxinxiChange.SBcancelClick(Sender:

46、TObject); begin if atxinxichange.CanModify then 。。。。。。。詳情請見光盤 end; 在主界面上雙擊【退出】按鈕，其代碼如下： procedure TfrmxinxiChange.SBquitClick(Sender: TObject); begin close; end; 學(xué)生信息刪除：xinxidel.pas 學(xué)生信息刪除的界面如下圖： 組件及其屬性表 組件 Caption Name值 DataSource DataField Form 添加用戶組 frm

47、tianjiauser DBEdit DBEdit1---6 DataSource1 與前面的lable相對(duì)應(yīng) DBmemo DBmemo DataSource1 獎(jiǎng)罰情況 DBimage DBimage DataSource1 相片 DBGrid DBGrid1 DataSource1 BitBtn 刪除 SBchange BitBtn 退出 SBquit DataSource DataSource1 DataSet （ATxinxidel） Tadoquety

48、ATxinxidel Connection ( DM.ADO) Active（true） ★ 該單元使用其他單元文件：data,main 在彈出“學(xué)生信息刪除”界面后，單擊【退出】按鈕，退出該界面；代碼如下： procedure Tfrmxiugaiuser.BitBtn1Click(Sender: TObject); begin close； end; 對(duì)學(xué)生信息進(jìn)行刪除操作。在這里，將會(huì)提示您是否真的要?jiǎng)h除該用戶組，單擊【確定】按鈕將刪除用戶組信息。 在主界面上單擊【刪除】按鈕，然后輸入代碼，其代碼如下： procedu

49、re TfrmxinxiDel.SBdelClick(Sender: TObject); begin if messageDlg(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？,mtInformation,[mbOK,mbCancel],0)=mrOK then atxinxidel.Delete; end; 3.8姓名查詢模塊的窗體設(shè)計(jì)：FrmNameChaxun 組件及其屬性表 組件 Caption Name值 DataSource Form 姓名查詢 frmnamechaxun Button 查詢 Button1 Button 退

50、出 Button2 true(Flat) DataSource DataSource1 DataSet（AQname） DBGrid DBGrid1 DataSource1 Adoquery AQname Connection (DM.ADO) Active (True) u 功能：方便大家查找到要找的用于成員信息。 u 輸入：在文本框中輸入所要查找的學(xué)的姓名。 u 處理： 1、啟動(dòng)姓名查詢窗體。 2、在文本框中輸入所要查找的學(xué)生姓名。 3、用戶進(jìn)行查找和退出工作。 u 輸出：顯示查詢出來的成員信息。 u 該單元使用的其他單元文件

51、：data,main; u 姓名查詢模塊的主要代碼： 在【查詢】按鈕中添加如下代碼： procedure Tfrmnamechaxun. Button1Click(Sender: TObject); beginAQname.Close; AQname.SQL.Clear; AQname.SQL.Text:= select * from 學(xué)生表 where 姓名= "+edit1.Text+" ; AQname.Open; 。。。。。。詳情請看光盤。end; 在【退出】按鈕中添加如下代碼： procedure Tfrmnamechaxun. Button2Click(Sen

52、der: TObject); begin close; end; 3.9學(xué)號(hào)查詢模塊的窗體設(shè)計(jì)：frmxuehaochaxun 組件及其屬性表 組件 Caption Name值 DataSource Form 學(xué)號(hào)查詢 frmxuehaochaxun Button 查詢 Button1 Button 退出 Button2 DataSource DataSource1 DataSe（AQxuehao） DBGrid DBGrid1 DataSource1 Tadoquer

53、y AQxingming Connection (DM.ADO) Active (True) u 功能：方便大家查找到要找的用于成員信息。 u 輸入：在文本框中輸入所要查找的成員學(xué)號(hào)。 u 處理： 1、啟動(dòng)學(xué)號(hào)查詢窗體。 2、在文本框中輸入所要查找的成員學(xué)號(hào)。 3、用戶進(jìn)行查找和退出工作。 u 輸出：顯示查詢出來的成員信息。 u 該單元使用的其他單元文件：data,main; u 學(xué)號(hào)查詢模塊的主要代碼： 在【查詢】按鈕中添加如下代碼： procedure Tfrmxuehaochaxun.Button1Click(Sender: TObject);

54、 AQxuehao.Close; AQxuehao.SQL.Clear; AQxuehao.SQL.Text:=select * from 學(xué)生表 where 學(xué)號(hào)="+edit1.Text+"; AQxuehao.Open; 在【退出】按鈕中添加如下代碼： procedure Tfrmxuehaogchaxun. Button2Click(Sender: TObject); begin close; end; 3.10 數(shù)據(jù)管理設(shè)計(jì) 數(shù)據(jù)管理包括數(shù)據(jù)庫備份和數(shù)據(jù)庫還原工作，通過這些工作來維護(hù)數(shù)據(jù)庫的安全和高效。 ※ 數(shù)據(jù)庫備份的代碼： procedure Tfr

55、mmain.NbeifenClick(Sender: TObject); var dbname,dbsourcename: string; begin if dm.ADO.Connected = true then dm.ADO.Connected := false; dbname := ExtractFilePath(Application.ExeName)+ data\student.bak; dbsourcename:=ExtractFilePath(Application.ExeName)+ data\student.mdb; if FileExists(

56、dbname) then DeleteFile(dbname); CopyFile(Pchar(dbsourcename),Pchar(dbname),true); if FileExists(dbname) then begin showmessage(備份文件是：+dbname); MessageBox(handle, 數(shù)據(jù)庫備份成功!, 提示, mb_IconInformation + mb_Ok); end; if dm.ADO.Connected = false then dm.ADO.Connected := true; end;

57、※ 數(shù)據(jù)庫還原的代碼： procedure Tfrmmain.NhuanyuanClick(Sender: TObject); var dbname, dbbname: string; begin if dm.ADO.Connected = true then dm.ADO.Connected := false; dbname := ExtractFilePath(Application.ExeName)+ data\student.mdb; dbbname := ExtractFilePath(Application.ExeName)+ data\stu

58、dent.bak; if not FileExists(dbbname) then MessageBox(self.Handle, 沒有備份數(shù)據(jù),不能還原, 提示, mb_IconInformation + mb_Ok) else begin CopyFile(Pchar(dbbname), Pchar(dbname), true); MessageBox(handle, 數(shù)據(jù)庫還原成功!, 提示, mb_IconInformation + mb_Ok); end; if dm.ADO.Connecte

59、d = false then dm.ADO.Connected := true; end; 3.11幫助文件的設(shè)計(jì)和調(diào)用 1、幫助文件的設(shè)計(jì)：有幫助主題和about； 2、about（frmabout）的設(shè)計(jì)界面如下： 3、 為了讓整個(gè)系統(tǒng)更美觀，還在開始運(yùn)行之前增加了一個(gè)初始化封面如下： 總結(jié) 經(jīng)過一個(gè)多月的設(shè)計(jì)和開發(fā)，學(xué)生管理管理系統(tǒng)系統(tǒng)基本開發(fā)完畢。本系統(tǒng)主要分析了學(xué)生信息系統(tǒng)需求和功能模塊，其功能基本符合用戶需求： 1、以Acc

60、ess2000為后臺(tái)數(shù)據(jù)庫，以WindowsXP為操作系統(tǒng)，以SQL語句對(duì)數(shù)據(jù)庫進(jìn)行操作運(yùn)用SQL的數(shù)據(jù)庫技術(shù)，設(shè)計(jì)與開發(fā)學(xué)生信息管理系統(tǒng)。新系統(tǒng)的運(yùn)行硬件環(huán)境PC機(jī)，當(dāng)用戶使用系統(tǒng)時(shí)，通過正確的口令進(jìn)入系統(tǒng)，進(jìn)行數(shù)據(jù)庫的維護(hù)操作和運(yùn)用。 2、本系統(tǒng)提供了用戶登錄、用戶管理、密碼修改等基本管理功能，能夠完成學(xué)生學(xué)籍的添加、修改、 刪除、存儲(chǔ)學(xué)生信息和學(xué)生信息的查詢。 3、本系統(tǒng)還提供了數(shù)據(jù)庫維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)。 但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。這些都有待進(jìn)一步改善。

61、 參考文獻(xiàn) [1] 李雁翎．《Access 2000 應(yīng)用教程》．北京：高等教育出版社，2006年版。 [2] 黃梯云．《管理信息系統(tǒng)（修訂版）》．北京：高等教育出版社，2001年版。 [3] 白致明．《Access2000中文版看圖速成》．北京：清華大學(xué)出版社，1999年版。 [4] 康博創(chuàng)造室．《中文Access2000使用教程》．北京：中國水利水電出版社，1999年版。 [5] 魏江江，李青，孫立京 《Delphi編程百例通》．北京：科學(xué)出版社，2007年版。  致謝 在本次畢業(yè)設(shè)計(jì)中，我得到了我的指導(dǎo)老師蘭慧紅老師的悉心指導(dǎo)，同時(shí)也從她身上學(xué)到了很多東西

62、。蘭老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的水平都使我收益匪淺。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。 在我做畢業(yè)設(shè)計(jì)的每個(gè)階段，從選題到查閱資料，論文提綱的確定，中期論文的修改，后期論文格式調(diào)整等每一步都是在蘭老師的悉心指導(dǎo)下完成的，傾注了蘭老師大量的心血。蘭老師指引我的論文的寫作的方向和架構(gòu)，并對(duì)本論文初稿進(jìn)行逐字批閱，指正出其中誤謬之處，使我有了思考的方向，她循循善誘的教導(dǎo)和不拘一格的思路給了我無盡的啟迪，她的嚴(yán)謹(jǐn)細(xì)致、一絲不茍的作風(fēng)，將一直是我工作、學(xué)習(xí)中的榜樣。 她的精神激勵(lì)了我們，使我們克服了在論文寫作過程中的困難。在此，謹(jǐn)向蘭老師表示崇高的敬意和衷心的感謝！謝謝蘭老師在我撰寫論文的過程中給與我的極大地幫助。 同時(shí)，論文的順利完成，也離不開其他各位老師、同學(xué)和朋友的關(guān)心和幫助。在整個(gè)的論文寫作中，各位老師、同學(xué)和朋友積極幫助我查資料和提供有利于論文寫作的建議和意見，在他們的幫助下，論文得以不斷的完善，最終幫助我完整的寫完了整個(gè)論文。另外，要感謝在大學(xué)期間所有傳授我知識(shí)的老師，是你們的悉心教導(dǎo)使我有了良好的專業(yè)課知識(shí)，這也是論文得以完成的基礎(chǔ)。感謝所有給我?guī)椭睦蠋熀屯瑢W(xué)，謝謝你們！ 31