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

畢業(yè)設(shè)計(jì)任務(wù)書學(xué)生姓名 學(xué)號060223F01029班級計(jì)算機(jī)應(yīng)用班指導(dǎo)教師姓名 職稱副教授、助教課題名稱學(xué)生信息管理系統(tǒng)設(shè)計(jì)任務(wù)1、 用戶登錄、用戶管理和密碼修改功能；2、 信息輸入、瀏覽、修改、刪除和查詢功能；3、 數(shù)據(jù)庫備份和還原功能。設(shè)計(jì)環(huán)境條件1、 后臺數(shù)據(jù)庫：Access2000或者 SQL Server 20002、 數(shù)據(jù)庫開發(fā)工具：Delphi 7完成形式1、 提交設(shè)計(jì)文檔。文檔的內(nèi)容至少包含需求分析、總體設(shè)計(jì)（即系統(tǒng)層次模塊圖、模塊設(shè)計(jì)和數(shù)據(jù)庫設(shè)計(jì)）和詳細(xì)設(shè)計(jì)（項(xiàng)目文件及主界面設(shè)計(jì)和各個模塊設(shè)計(jì)），最后總結(jié)。2、 提交程序。程序能運(yùn)行（附加光盤）。摘要本系統(tǒng)是一個單機(jī)的學(xué)生信息管理系統(tǒng)。它具有錄入、查詢和修改信息的功能，并且形象直觀、簡潔易用，但該系統(tǒng)沒有用戶權(quán)限的設(shè)置。本系統(tǒng)采用Delphi7作為開發(fā)工具，Object Pascal為開發(fā)語言，采用Access建立后臺數(shù)據(jù)庫，先在Access中設(shè)計(jì)并制作各部分需要調(diào)用的數(shù)據(jù)庫，并進(jìn)行初始數(shù)據(jù)的輸入，再進(jìn)行Delphi7工程中界面的設(shè)計(jì)和事件代碼的編寫。Access作為該系統(tǒng)后臺數(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是用來對記錄進(jìn)行查看、瀏覽等操作。其他一些如DBText、DBMemo、DBLookupComBobox等都是數(shù)據(jù)庫感知組件，可進(jìn)行數(shù)據(jù)庫的連接。本系統(tǒng)的最大特點(diǎn)是所有的數(shù)據(jù)表的關(guān)聯(lián)都是通過組件的屬性設(shè)置（ADOTable的 MasterSource、MasterFeild屬性，DBText等數(shù)據(jù)庫感知組件的DataSource、DataFeild）加上SQL語句來完成。本系統(tǒng)在設(shè)計(jì)過程中，事件程序代碼的編寫十分重要。但界面屬性設(shè)置也很重要，特別是涉及到表的查詢時的屬性設(shè)置。關(guān)鍵詞 學(xué)生信息 查詢 修改 刪除 用戶管理 身份登錄目錄第一章 需求分析31.1功能分析31.2 性能需求31.3 運(yùn)行要求32.1 功能模塊劃分42.3 數(shù)據(jù)庫設(shè)計(jì)5第三章 詳細(xì)設(shè)計(jì)73.1 系統(tǒng)項(xiàng)目文件和公共文件73.2 主界面設(shè)計(jì)：main.pas73.3公共模塊:data.pas93.4用戶登錄窗體模塊:login.pas103.5用戶管理模塊的窗體設(shè)計(jì)：user.pas133.6 密碼修改模塊的窗體設(shè)計(jì)：passwordchange.pas163.7添加 /修改/刪除學(xué)生信息模塊的窗體設(shè)計(jì)：19添加學(xué)生信息模塊的窗體設(shè)計(jì)：xinxiadd.pas19學(xué)生信息修改：xinxichange.pas.21學(xué)生信息刪除：xinxidel.pas.233.8姓名查詢模塊的窗體設(shè)計(jì)：FrmNameChaxun243.9學(xué)號查詢模塊的窗體設(shè)計(jì)：frmxuehaochaxun263.10 數(shù)據(jù)管理設(shè)計(jì)273.11幫助文件的設(shè)計(jì)和調(diào)用29總結(jié)30參考文獻(xiàn) 30致謝31第一章 需求分析學(xué)生管理系統(tǒng)是一個管理學(xué)生信息的應(yīng)用程序，它維護(hù)著一個數(shù)據(jù)庫，存儲著學(xué)生信息、用戶信息等。Delphi程序負(fù)責(zé)對數(shù)據(jù)庫進(jìn)行輸入和輸出的維護(hù)。主要功能包括學(xué)生信息管理、用戶管理和學(xué)生信息查詢等功能。1.1功能分析 1、系統(tǒng)管理模塊:系統(tǒng)管理模塊為我們提供學(xué)生信息的管理功能.我們可以對其信息進(jìn)行進(jìn)行添加、刪除、修改等操作。 添加：添加新的管理用戶。 刪除：刪除已經(jīng)存在的管理用戶。 修改：更改已經(jīng)存在管理用戶權(quán)限、密碼等。 2、學(xué)生管理模塊：學(xué)生管理模塊提供學(xué)生信息管理功能。我們可以對學(xué)生信息進(jìn)行添加、刪除、修改等操作。 添加：錄入新的學(xué)生信息，在添加新學(xué)生信息候應(yīng)填寫完整的信息。 刪除：刪除已有的學(xué)生信息。 修改：更改有的學(xué)生信息。3、信息查詢模塊：信息查詢模塊提供查詢當(dāng)前學(xué)生的功能。我們可以方便、快速地查詢到想要的學(xué)生信息。 按姓名：根據(jù)所輸入的姓名條件，查詢相應(yīng)的學(xué)生資料。 按學(xué)號：根據(jù)所輸入的學(xué)號條件，查詢相應(yīng)的學(xué)生資料。 4、數(shù)據(jù)庫管理：對現(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。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)是通過對象模型ADO來訪問數(shù)據(jù)庫。采用Microsoft Access為后臺數(shù)據(jù)庫。根據(jù)系統(tǒng)功能設(shè)計(jì)的要求以及功能的劃分，對于系統(tǒng)用戶數(shù)據(jù)庫（名稱：Student）包含下列數(shù)據(jù)表。1、數(shù)據(jù)表名稱：管理表 數(shù)據(jù)來源:用戶管理模塊,密碼修改模塊和用戶登錄模塊. 表結(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).為此,建立一個delphi 工程.系統(tǒng)設(shè)計(jì)和實(shí)現(xiàn)如下:3.1 系統(tǒng)項(xiàng)目文件和公共文件 1、項(xiàng)目文件：StudentMIS.pas3.2 主界面設(shè)計(jì)：main.pas主界面主要實(shí)現(xiàn)對模塊的調(diào)用和顯示工作，本系統(tǒng)的主界面提供了菜單和按鈕兩種調(diào)用各個子模塊方式，主要工作如下：1、設(shè)計(jì)好菜單和各個組件的布局2、設(shè)置各個菜單和組件的屬性。3、給出各個菜單和組件的name值。4、設(shè)計(jì)各個功能模塊的空白窗體，定好窗體名（name值）5、在主界面添加顯示各個窗體模塊的代碼。6、調(diào)試運(yùn)行主界面。 主界面添加顯示各個窗體模塊顯示狀態(tài)欄的代碼如下：var frmmain: Tfrmmain; userStr:string; date:string; time:string;implementationuses data,login, NameChaxun,xuehaochaxun, xinxiAdd, xinxiChage, xinxiDel, passwordchange,user;$R *.dfmprocedure Tfrmmain.FormShow(Sender: TObject);begin Application.CreateForm(Tfrmlogin,frmlogin); frmlogin.ShowModal; frmlogin.Free;end;procedure Tfrmmain.NxingmingClick(Sender: TObject);beginfrmNamechaxun.Show;end; 。詳情請看光盤。procedure Tfrmmain.NcloseClick(Sender: TObject);beginapplication.Terminate;end;procedure Tfrmmain.NxinxiAddClick(Sender: TObject);begin frmxinxiAdd.show;end;procedure Tfrmmain.NxinxiChageClick(Sender: TObject);begin frmxinxichange.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);beginif frmuser=nil then frmuser:=Tfrmuser.Create(nil); frmuser.ShowModal;end;end.。詳情請看光盤。3.3公共模塊:data.pas公共模塊圖如下: 創(chuàng)建方法:FilenewData module所有組件及其屬性:組件Name屬性ADOConnetionADOConnetionstringd(與后臺的access數(shù)據(jù)庫連接)ADOqueryAQConnetion(ADO)3.4用戶登錄窗體模塊:login.pas組件及其屬性表組件Name值ItemsFlat學(xué)生管理系統(tǒng)用戶登錄frmlogincomboBoxcmbusername管理員、用戶EditEdtpasswordspeedButtonspeedButton1True功能：用戶身份驗(yàn)證輸入：用戶名和密碼處理：1、用戶登錄窗體啟動；2、從操作人員表中讀取操作人員的名稱信息，并寫入用戶名下拉框中，以方便登錄。3、用戶選擇用戶名并輸入密碼。4、從操作人員表中檢查是否有相應(yīng)的用戶名和密碼。5、如果用戶名或密碼錯誤，進(jìn)行提示，并被3次登錄機(jī)會。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 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 begin 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; frmmain.BBtnXuehao.Enabled:=true; frmmain.Nxuehao.Enabled:=true; frmmain.NxinxiAdd.Enabled:=true; frmmain.NxinxiChage.Enabled:=true; frmmain.NxinxiDel.Enabled:=true; frmmain.Npassword.Enabled:=true; frmmain.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:=true; end; 。詳情請見光盤 if DM.AQ.FieldByName(class).AsInteger=1 then begin frmmain.Nxuehao.Enabled:=true; frmmain.Nxingming.Enabled:=true; frmmain.BBtnXingming.Enabled:=true; frmmain.BBtnXuehao.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 begin end; else begin Application.MessageBox(對不起，您無權(quán)使用本系統(tǒng)。,提示,0+64); Application.Terminate ;。詳情請見光盤 end; end;end;end.3.5用戶管理模塊的窗體設(shè)計(jì)：user.pas組件及其屬性表組件CaptionName值Passwordchar其他屬性Form用戶管理frmuserComboBoxComboBox1DBEditDBEdit1*DBEditDBEdit2DMRaiogroupDMRaiogroup1ItemsLine1:0line2:1Lable說明：0:為管理員 1:為用戶Lable3DataSourceDataSource1Dataset為ATADOtableATConnetion為DM。ADODBGridDBGrid1Datasource為DataSource1Button添加SBaddButton修改SBchangeButton刪除SbdelButton保存SbsaveButton取消SpeedButton1Button退出SBquit功能 ：負(fù)責(zé)對操作人員基本信息的建立，對操作人員的權(quán)限進(jìn)行基本維護(hù)，不同權(quán)限的操作人員使用的模塊不一樣。功能樹：用戶管理添加新的操作人員編輯操作人員權(quán)限刪除指定操作人員修改刪除添加添加新的操作人員的處理1、點(diǎn)擊添加按鈕。2、輸入用戶名稱、密碼等用戶信息，設(shè)置權(quán)限類別。3、點(diǎn)擊保存按鈕，保存操作4、完成對數(shù)據(jù)庫中操作人員表的相應(yīng)操作。修改操作人員信息的處理1、選擇要編輯的用戶，點(diǎn)擊修改按鈕。2、修改相應(yīng)的用戶信息3、點(diǎn)擊保存按鈕，保存操作4、完成對數(shù)據(jù)庫中操作人員表的相應(yīng)操作。刪除指定操作人員的處理1、選擇要刪除的用戶。2、點(diǎn)擊刪除按鈕，彈出個提示，點(diǎn)擊“OK”刪除，點(diǎn)擊“cancel”則取消。3、完成對數(shù)據(jù)庫中操作人員表的相應(yīng)操作。用戶管理模塊的代碼添加1、該單元使用其他單元文件：data,main2、對變量date進(jìn)行定義：date:string;3、其他代碼和事件代碼添加。4、該模塊使用了其他的函數(shù)： 雙擊刪除按鈕代碼如下： procedure Tfrmuser.SBdelClick(Sender: TObject);beginif messageDlg(確實(shí)要刪除當(dāng)前記錄嗎？,mtInformation,mbOK,mbCancel,0)=mrOK then AT.Delete;end;雙擊添加按鈕代碼如下：procedure Tfrmuser.SBaddClick(Sender: TObject);if AT.CanModify thenbegindbedit1.SetFocus;AT.Append;endelse showmessage(添加用戶失敗!);end; 。詳情請見光盤雙擊修改按鈕代碼如下：procedure Tfrmuser.SBchangeClick(Sender: TObject);if AT.CanModify thenbegin dbedit1.Enabled:=true; SBsave.Enabled:=true; AT.Edit; 。詳情請見光盤procedure Tfrmuser.SpeedButton1Click(Sender: TObject);beginif AT.CanModify then AT.Cancel; sbadd.Enabled:=true;end;雙擊保存按鈕代碼如下：procedure Tfrmuser.SBsaveClick(Sender: TObject);if AT.CanModify thenbegin AT.Post; sbadd.Enabled:=true; sbchange.Enabled:=true; sbsave.Enabled:=false; dbedit1.Enabled:=false; showmessage(用戶保存成功！);endelsebegin showmessage(當(dāng)前數(shù)據(jù)不能保存);end; 。詳情請見光盤end.雙擊保存按鈕代碼如下：procedure Tfrmuser.SBquitClick(Sender: TObject);beginclose;end;3.6 密碼修改模塊的窗體設(shè)計(jì)：passwordchange.pas組件及其屬性表組件CaptionName值PasswordcharForm密碼修改FrmpasswordchangeComboBoxComboBox1EditEdit1*EditEdit2*EditEdit3*Button確定Button1Button取消Button2 功能：用來修改用戶密碼 處理過程：1、選擇用戶名2、輸入原來的密碼3、輸入新密碼4、再次輸入新密碼5、確認(rèn)，完成對數(shù)據(jù)庫中操作人員表的相應(yīng)操作 密碼修改模塊的代碼添加1、該單元使用其他單元文件：data,main2、其他代碼和事件代碼添加。 在該窗體的OnActivate事件中添加代碼如下：procedure Tfrmpasswordchange.FormActivate(Sender: TObject);begin combobox1.Clear; try with dm.AQ do begin Close; SQL.Clear; SQL.Add(select username from 管理表 ); MessageDlg(連接數(shù)據(jù)庫出錯!,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.Text) ; 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; 雙擊【確定】按鈕，添加如下代碼：procedure Tfrmpassword.SpeedButton1Click(Sender: TObject);beginwith 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.RecordCount >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(密碼修改成功); cus; end;。詳情請見光盤end; 雙擊【取消】按鈕，添加如下代碼：procedure Tfrmpassword.SpeedButton2Click(Sender: TObject);beginclose;end; 3.7添加 /修改/刪除學(xué)生信息模塊的窗體設(shè)計(jì)： 添加學(xué)生信息模塊的窗體設(shè)計(jì)：xinxiadd.pas組件及其屬性表組件CaptionName值PasswordcharForm學(xué)生信息添加frmadd1Button添加SbaddButton保存SBsaveButton取消SBcancelButton退出SBquitDataSourceDataSource1DataSet(ATxinxiadd)DBeditDbedit1-8Dbedit1-8DataSource(DataSource1)ADOtableATConnection(DM.ADO)Active(True) 功能：添加新的分組或?qū)ο鄳?yīng)的分組信息進(jìn)行修改、刪除操作。 處理過程：l 該單元使用其他單元文件： data,main; 雙擊添加按鈕，添加如下代碼：procedure TfrmxinxiAdd.SBaddClick(Sender: TObject);beginlabel9.Caption:=請輸入學(xué)生的信息;if ATxinxiAdd.CanModify then ATxinxiAdd.Append; sbadd.Enabled:=false; SBsave.Enabled:=true;begin。詳情請見光盤雙擊保存按鈕，添加如下代碼：procedure TfrmxinxiAdd.SBsaveClick(Sender: TObject);beginsbsave.Enabled:=true;if Atxinxiadd.CanModify thenATxinxiadd.Post; sbadd.Enabled:=true; showmessage(添加成功!); SBadd.Enabled:=false; end else showmessage(當(dāng)前數(shù)據(jù)庫不能保存!);end;。詳情請見光盤雙擊取消按鈕，添加如下代碼：procedure TfrmxinxiAdd.SBcancelClick(Sender: TObject);beginif atxinxiadd.CanModify thenbeginatxinxiadd.Cancel; sbadd.Enabled:=true; SBsave.Enabled:=false;End；。詳情請見光盤雙擊退出按鈕，添加如下代碼：procedure TfrmxinxiAdd.SBquitClick(Sender: TObject);beginclose;end;end. 學(xué)生信息修改：xinxichange.pas 學(xué)生信息修改的界面如圖：組件及其屬性表組件CaptionName值DataSourceDataFieldForm學(xué)生信息修改FrmxinxichangeDBEditDbedit1-6DataSource與前面的lable相對應(yīng)DBmemoDbmemo1DataSource獎罰情況DBimageDbimage1DataSource相片BitBtn修改SBchangeBitBtn保存SBsaveBitBtn取消SBcancelBitBtn退出SBquitDataSourceDataSource1DataSet（AT）ADOtableATConnection (DM.ADO)True（Active）select * from user_type(SQL) 該單元使用其他單元文件：data,main在主界面上雙擊【修改】按鈕，其代碼如下：procedure TfrmxinxiChange.SBchangeClick(Sender: TObject);beginif ATxinxichange.CanModify thenend;。詳情請見光盤end;在主界面上雙擊【保存】按鈕，其代碼如下：procedure TfrmxinxiChange.SBsaveClick(Sender: TObject);beginsbsave.Enabled:=true;if atxinxichange.CanModify then。詳情請見光盤end;在主界面上雙擊【取消】按鈕，其代碼如下：procedure TfrmxinxiChange.SBcancelClick(Sender: TObject);beginif atxinxichange.CanModify then。詳情請見光盤end;在主界面上雙擊【退出】按鈕，其代碼如下：procedure TfrmxinxiChange.SBquitClick(Sender: TObject);beginclose;end;學(xué)生信息刪除：xinxidel.pas學(xué)生信息刪除的界面如下圖： 組件及其屬性表組件CaptionName值DataSourceDataFieldForm添加用戶組frmtianjiauserDBEditDBEdit1-6DataSource1與前面的lable相對應(yīng)DBmemoDBmemoDataSource1獎罰情況DBimageDBimageDataSource1相片DBGridDBGrid1DataSource1BitBtn刪除SBchangeBitBtn退出SBquitDataSourceDataSource1DataSet （ATxinxidel）Tadoquety ATxinxidelConnection ( DM.ADO)Active（true） 該單元使用其他單元文件：data,main在彈出“學(xué)生信息刪除”界面后，單擊【退出】按鈕，退出該界面；代碼如下：procedure Tfrmxiugaiuser.BitBtn1Click(Sender: TObject);beginclose；end;對學(xué)生信息進(jìn)行刪除操作。在這里，將會提示您是否真的要刪除該用戶組，單擊【確定】按鈕將刪除用戶組信息。在主界面上單擊【刪除】按鈕，然后輸入代碼，其代碼如下： procedure TfrmxinxiDel.SBdelClick(Sender: TObject);begin if messageDlg(確實(shí)要刪除當(dāng)前記錄嗎？,mtInformation,mbOK,mbCancel,0)=mrOK then atxinxidel.Delete;end;3.8姓名查詢模塊的窗體設(shè)計(jì)：FrmNameChaxun組件及其屬性表組件CaptionName值DataSourceForm姓名查詢frmnamechaxunButton查詢Button1Button退出Button2true(Flat)DataSourceDataSource1DataSet（AQname）DBGridDBGrid1DataSource1AdoqueryAQnameConnection (DM.ADO)Active (True)u 功能：方便大家查找到要找的用于成員信息。u 輸入：在文本框中輸入所要查找的學(xué)的姓名。u 處理：1、啟動姓名查詢窗體。2、在文本框中輸入所要查找的學(xué)生姓名。3、用戶進(jìn)行查找和退出工作。u 輸出：顯示查詢出來的成員信息。u 該單元使用的其他單元文件：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(Sender: TObject);beginclose;end;3.9學(xué)號查詢模塊的窗體設(shè)計(jì)：frmxuehaochaxun組件及其屬性表組件CaptionName值DataSourceForm學(xué)號查詢frmxuehaochaxunButton查詢Button1Button退出Button2DataSourceDataSource1DataSe（AQxuehao）DBGridDBGrid1DataSource1TadoqueryAQxingmingConnection (DM.ADO)Active (True)u 功能：方便大家查找到要找的用于成員信息。u 輸入：在文本框中輸入所要查找的成員學(xué)號。u 處理：1、啟動學(xué)號查詢窗體。2、在文本框中輸入所要查找的成員學(xué)號。3、用戶進(jìn)行查找和退出工作。u 輸出：顯示查詢出來的成員信息。u 該單元使用的其他單元文件：data,main;u 學(xué)號查詢模塊的主要代碼： 在【查詢】按鈕中添加如下代碼：procedure Tfrmxuehaochaxun.Button1Click(Sender: TObject);AQxuehao.Close;AQxuehao.SQL.Clear;AQxuehao.SQL.Text:=select * from 學(xué)生表 where 學(xué)號="+edit1.Text+"AQxuehao.Open;在【退出】按鈕中添加如下代碼：procedure Tfrmxuehaogchaxun. Button2Click(Sender: TObject);beginclose;end;3.10 數(shù)據(jù)管理設(shè)計(jì)數(shù)據(jù)管理包括數(shù)據(jù)庫備份和數(shù)據(jù)庫還原工作，通過這些工作來維護(hù)數(shù)據(jù)庫的安全和高效。 數(shù)據(jù)庫備份的代碼：procedure Tfrmmain.NbeifenClick(Sender: TObject);var dbname,dbsourcename: string;beginif dm.ADO.Connected = true then dm.ADO.Connected := false; dbname := ExtractFilePath(Application.ExeName)+ datastudent.bak; dbsourcename:=ExtractFilePath(Application.ExeName)+ datastudent.mdb; if FileExists(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; 數(shù)據(jù)庫還原的代碼：procedure Tfrmmain.NhuanyuanClick(Sender: TObject);var dbname, dbbname: string;beginif dm.ADO.Connected = true then dm.ADO.Connected := false; dbname := ExtractFilePath(Application.ExeName)+ datastudent.mdb; dbbname := ExtractFilePath(Application.ExeName)+ datastudent.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.Connected = false then dm.ADO.Connected := true; end;3.11幫助文件的設(shè)計(jì)和調(diào)用1、幫助文件的設(shè)計(jì)：有幫助主題和about；2、about（frmabout）的設(shè)計(jì)界面如下： 3、 為了讓整個系統(tǒng)更美觀，還在開始運(yùn)行之前增加了一個初始化封面如下：總結(jié)經(jīng)過一個多月的設(shè)計(jì)和開發(fā)，學(xué)生管理管理系統(tǒng)系統(tǒng)基本開發(fā)完畢。本系統(tǒng)主要分析了學(xué)生信息系統(tǒng)需求和功能模塊，其功能基本符合用戶需求：1、以Access2000為后臺數(shù)據(jù)庫，以WindowsXP為操作系統(tǒng)，以SQL語句對數(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)時，通過正確的口令進(jìn)入系統(tǒng)，進(jìn)行數(shù)據(jù)庫的維護(hù)操作和運(yùn)用。2、本系統(tǒng)提供了用戶登錄、用戶管理、密碼修改等基本管理功能，能夠完成學(xué)生學(xué)籍的添加、修改、 刪除、存儲學(xué)生信息和學(xué)生信息的查詢。3、本系統(tǒng)還提供了數(shù)據(jù)庫維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)。但是由于畢業(yè)設(shè)計(jì)時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，用戶界面不夠美觀，出錯處理不夠等多方面問題。這些都有待進(jìn)一步改善。參考文獻(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)，同時也從她身上學(xué)到了很多東西。蘭老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的水平都使我收益匪淺。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。 在我做畢業(yè)設(shè)計(jì)的每個階段，從選題到查閱資料，論文提綱的確定，中期論文的修改，后期論文格式調(diào)整等每一步都是在蘭老師的悉心指導(dǎo)下完成的，傾注了蘭老師大量的心血。蘭老師指引我的論文的寫作的方向和架構(gòu)，并對本論文初稿進(jìn)行逐字批閱，指正出其中誤謬之處，使我有了思考的方向，她循循善誘的教導(dǎo)和不拘一格的思路給了我無盡的啟迪，她的嚴(yán)謹(jǐn)細(xì)致、一絲不茍的作風(fēng)，將一直是我工作、學(xué)習(xí)中的榜樣。 她的精神激勵了我們，使我們克服了在論文寫作過程中的困難。在此，謹(jǐn)向蘭老師表示崇高的敬意和衷心的感謝！謝謝蘭老師在我撰寫論文的過程中給與我的極大地幫助。同時，論文的順利完成，也離不開其他各位老師、同學(xué)和朋友的關(guān)心和幫助。在整個的論文寫作中，各位老師、同學(xué)和朋友積極幫助我查資料和提供有利于論文寫作的建議和意見，在他們的幫助下，論文得以不斷的完善，最終幫助我完整的寫完了整個論文。另外，要感謝在大學(xué)期間所有傳授我知識的老師，是你們的悉心教導(dǎo)使我有了良好的專業(yè)課知識，這也是論文得以完成的基礎(chǔ)。感謝所有給我?guī)椭睦蠋熀屯瑢W(xué)，謝謝你們！ 31