學生信息管理系統(tǒng)畢業(yè)設計

畢業(yè)設計任務書學生姓名 學號060223F01029班級計算機應用班指導教師姓名 職稱副教授、助教課題名稱學生信息管理系統(tǒng)設計任務1、 用戶登錄、用戶管理和密碼修改功能；2、 信息輸入、瀏覽、修改、刪除和查詢功能；3、 數(shù)據(jù)庫備份和還原功能。設計環(huán)境條件1、 后臺數(shù)據(jù)庫：Access2000或者 SQL Server 20002、 數(shù)據(jù)庫開發(fā)工具：Delphi 7完成形式1、 提交設計文檔。文檔的內容至少包含需求分析、總體設計（即系統(tǒng)層次模塊圖、模塊設計和數(shù)據(jù)庫設計）和詳細設計（項目文件及主界面設計和各個模塊設計），最后總結。2、 提交程序。程序能運行（附加光盤）。摘要本系統(tǒng)是一個單機的學生信息管理系統(tǒng)。它具有錄入、查詢和修改信息的功能，并且形象直觀、簡潔易用，但該系統(tǒng)沒有用戶權限的設置。本系統(tǒng)采用Delphi7作為開發(fā)工具，Object Pascal為開發(fā)語言，采用Access建立后臺數(shù)據(jù)庫，先在Access中設計并制作各部分需要調用的數(shù)據(jù)庫，并進行初始數(shù)據(jù)的輸入，再進行Delphi7工程中界面的設計和事件代碼的編寫。Access作為該系統(tǒng)后臺數(shù)據(jù)庫的設計軟件，具有設計簡單，使用方便的特點，通過ADOConnection就可進行數(shù)據(jù)庫的連接。該系統(tǒng)主要用到的組件有：DBEdit、ADOTable、DataSource、DBGrid、DBNavigator、Text、DBMemo、DBRadioGroup、RadioGroup等。DBGrid用于產(chǎn)生數(shù)據(jù)表格，導入數(shù)據(jù)庫中的表，DBNavigator是用來對記錄進行查看、瀏覽等操作。其他一些如DBText、DBMemo、DBLookupComBobox等都是數(shù)據(jù)庫感知組件，可進行數(shù)據(jù)庫的連接。本系統(tǒng)的最大特點是所有的數(shù)據(jù)表的關聯(lián)都是通過組件的屬性設置（ADOTable的 MasterSource、MasterFeild屬性，DBText等數(shù)據(jù)庫感知組件的DataSource、DataFeild）加上SQL語句來完成。本系統(tǒng)在設計過程中，事件程序代碼的編寫十分重要。但界面屬性設置也很重要，特別是涉及到表的查詢時的屬性設置。關鍵詞 學生信息 查詢 修改 刪除 用戶管理 身份登錄目錄第一章 需求分析31.1功能分析31.2 性能需求31.3 運行要求32.1 功能模塊劃分42.3 數(shù)據(jù)庫設計5第三章 詳細設計73.1 系統(tǒng)項目文件和公共文件73.2 主界面設計：main.pas73.3公共模塊:data.pas93.4用戶登錄窗體模塊:login.pas103.5用戶管理模塊的窗體設計：user.pas133.6 密碼修改模塊的窗體設計：passwordchange.pas163.7添加 /修改/刪除學生信息模塊的窗體設計：19添加學生信息模塊的窗體設計：xinxiadd.pas19學生信息修改：xinxichange.pas.21學生信息刪除：xinxidel.pas.233.8姓名查詢模塊的窗體設計：FrmNameChaxun243.9學號查詢模塊的窗體設計：frmxuehaochaxun263.10 數(shù)據(jù)管理設計273.11幫助文件的設計和調用29總結30參考文獻 30致謝31第一章 需求分析學生管理系統(tǒng)是一個管理學生信息的應用程序，它維護著一個數(shù)據(jù)庫，存儲著學生信息、用戶信息等。Delphi程序負責對數(shù)據(jù)庫進行輸入和輸出的維護。主要功能包括學生信息管理、用戶管理和學生信息查詢等功能。1.1功能分析 1、系統(tǒng)管理模塊:系統(tǒng)管理模塊為我們提供學生信息的管理功能.我們可以對其信息進行進行添加、刪除、修改等操作。 添加：添加新的管理用戶。 刪除：刪除已經(jīng)存在的管理用戶。 修改：更改已經(jīng)存在管理用戶權限、密碼等。 2、學生管理模塊：學生管理模塊提供學生信息管理功能。我們可以對學生信息進行添加、刪除、修改等操作。 添加：錄入新的學生信息，在添加新學生信息候應填寫完整的信息。 刪除：刪除已有的學生信息。 修改：更改有的學生信息。3、信息查詢模塊：信息查詢模塊提供查詢當前學生的功能。我們可以方便、快速地查詢到想要的學生信息。 按姓名：根據(jù)所輸入的姓名條件，查詢相應的學生資料。 按學號：根據(jù)所輸入的學號條件，查詢相應的學生資料。 4、數(shù)據(jù)庫管理：對現(xiàn)有數(shù)據(jù)庫進行備份和還原操作。 5、用戶管理：新增、刪除、更新用戶。 6、密碼修改：修改用戶的密碼。1.2 性能需求 硬件環(huán)境需求：IBM兼容機，具有80486 50MHZ以上的處理器。 32MB以上的內存。 足夠的硬盤空間。 軟件環(huán)境需求：Windows XP，Access2000，Delphi 7。1.3 運行要求 系統(tǒng)屬于軟件系統(tǒng)，代碼使用Delphi編碼，數(shù)據(jù)庫管理系統(tǒng)采用Access2000 數(shù)據(jù)庫管理系統(tǒng)，運行在Windows系統(tǒng)下。第二章 總體設計 2.1 功能模塊劃分2.2系統(tǒng)流程圖2.3 數(shù)據(jù)庫設計 本系統(tǒng)是通過對象模型ADO來訪問數(shù)據(jù)庫。采用Microsoft Access為后臺數(shù)據(jù)庫。根據(jù)系統(tǒng)功能設計的要求以及功能的劃分，對于系統(tǒng)用戶數(shù)據(jù)庫（名稱：Student）包含下列數(shù)據(jù)表。1、數(shù)據(jù)表名稱：管理表 數(shù)據(jù)來源:用戶管理模塊,密碼修改模塊和用戶登錄模塊. 表結構: 2、 數(shù)據(jù)表名稱：學生表 數(shù)據(jù)來源:添加/修改用戶組界面模塊、添加用戶組模塊、修改用戶組界面。 表結構： 第三章 詳細設計 根據(jù)已經(jīng)有的需求信息和總體設計,可以進行系統(tǒng)的詳細設計和實現(xiàn).為此,建立一個delphi 工程.系統(tǒng)設計和實現(xiàn)如下:3.1 系統(tǒng)項目文件和公共文件 1、項目文件：StudentMIS.pas3.2 主界面設計：main.pas主界面主要實現(xiàn)對模塊的調用和顯示工作，本系統(tǒng)的主界面提供了菜單和按鈕兩種調用各個子模塊方式，主要工作如下：1、設計好菜單和各個組件的布局2、設置各個菜單和組件的屬性。3、給出各個菜單和組件的name值。4、設計各個功能模塊的空白窗體，定好窗體名（name值）5、在主界面添加顯示各個窗體模塊的代碼。6、調試運行主界面。 主界面添加顯示各個窗體模塊顯示狀態(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學生管理系統(tǒng)用戶登錄frmlogincomboBoxcmbusername管理員、用戶EditEdtpasswordspeedButtonspeedButton1True功能：用戶身份驗證輸入：用戶名和密碼處理：1、用戶登錄窗體啟動；2、從操作人員表中讀取操作人員的名稱信息，并寫入用戶名下拉框中，以方便登錄。3、用戶選擇用戶名并輸入密碼。4、從操作人員表中檢查是否有相應的用戶名和密碼。5、如果用戶名或密碼錯誤，進行提示，并被3次登錄機會。6、如果輸入的用戶名和相應的密碼正確，則根據(jù)該用戶的權限類別進行權限設置。7、進入主界面。 用戶登錄模塊的窗體設計。 用戶登錄模塊的代碼添加。 （1）該單元使用其他單元文件：data,main （2）其他代碼和事件代碼添加。代碼如下 ： 單擊【確定】按鈕，判斷密碼框里的內容是否與數(shù)據(jù)庫里設置的密碼一致，如果一致就進入管理主界面，否則退出系統(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(對不起，您無權使用本系統(tǒng)。,提示,0+64); Application.Terminate ;。詳情請見光盤 end; end;end;end.3.5用戶管理模塊的窗體設計：user.pas組件及其屬性表組件CaptionName值Passwordchar其他屬性Form用戶管理frmuserComboBoxComboBox1DBEditDBEdit1*DBEditDBEdit2DMRaiogroupDMRaiogroup1ItemsLine1:0line2:1Lable說明：0:為管理員 1:為用戶Lable3DataSourceDataSource1Dataset為ATADOtableATConnetion為DM。ADODBGridDBGrid1Datasource為DataSource1Button添加SBaddButton修改SBchangeButton刪除SbdelButton保存SbsaveButton取消SpeedButton1Button退出SBquit功能 ：負責對操作人員基本信息的建立，對操作人員的權限進行基本維護，不同權限的操作人員使用的模塊不一樣。功能樹：用戶管理添加新的操作人員編輯操作人員權限刪除指定操作人員修改刪除添加添加新的操作人員的處理1、點擊添加按鈕。2、輸入用戶名稱、密碼等用戶信息，設置權限類別。3、點擊保存按鈕，保存操作4、完成對數(shù)據(jù)庫中操作人員表的相應操作。修改操作人員信息的處理1、選擇要編輯的用戶，點擊修改按鈕。2、修改相應的用戶信息3、點擊保存按鈕，保存操作4、完成對數(shù)據(jù)庫中操作人員表的相應操作。刪除指定操作人員的處理1、選擇要刪除的用戶。2、點擊刪除按鈕，彈出個提示，點擊“OK”刪除，點擊“cancel”則取消。3、完成對數(shù)據(jù)庫中操作人員表的相應操作。用戶管理模塊的代碼添加1、該單元使用其他單元文件：data,main2、對變量date進行定義：date:string;3、其他代碼和事件代碼添加。4、該模塊使用了其他的函數(shù)： 雙擊刪除按鈕代碼如下： procedure Tfrmuser.SBdelClick(Sender: TObject);beginif messageDlg(確實要刪除當前記錄嗎？,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(當前數(shù)據(jù)不能保存);end; 。詳情請見光盤end.雙擊保存按鈕代碼如下：procedure Tfrmuser.SBquitClick(Sender: TObject);beginclose;end;3.6 密碼修改模塊的窗體設計：passwordchange.pas組件及其屬性表組件CaptionName值PasswordcharForm密碼修改FrmpasswordchangeComboBoxComboBox1EditEdit1*EditEdit2*EditEdit3*Button確定Button1Button取消Button2 功能：用來修改用戶密碼 處理過程：1、選擇用戶名2、輸入原來的密碼3、輸入新密碼4、再次輸入新密碼5、確認，完成對數(shù)據(jù)庫中操作人員表的相應操作 密碼修改模塊的代碼添加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添加 /修改/刪除學生信息模塊的窗體設計： 添加學生信息模塊的窗體設計：xinxiadd.pas組件及其屬性表組件CaptionName值PasswordcharForm學生信息添加frmadd1Button添加SbaddButton保存SBsaveButton取消SBcancelButton退出SBquitDataSourceDataSource1DataSet(ATxinxiadd)DBeditDbedit1-8Dbedit1-8DataSource(DataSource1)ADOtableATConnection(DM.ADO)Active(True) 功能：添加新的分組或對相應的分組信息進行修改、刪除操作。 處理過程：l 該單元使用其他單元文件： data,main; 雙擊添加按鈕，添加如下代碼：procedure TfrmxinxiAdd.SBaddClick(Sender: TObject);beginlabel9.Caption:=請輸入學生的信息;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(當前數(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. 學生信息修改：xinxichange.pas 學生信息修改的界面如圖：組件及其屬性表組件CaptionName值DataSourceDataFieldForm學生信息修改FrmxinxichangeDBEditDbedit1-6DataSource與前面的lable相對應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;學生信息刪除：xinxidel.pas學生信息刪除的界面如下圖： 組件及其屬性表組件CaptionName值DataSourceDataFieldForm添加用戶組frmtianjiauserDBEditDBEdit1-6DataSource1與前面的lable相對應DBmemoDBmemoDataSource1獎罰情況DBimageDBimageDataSource1相片DBGridDBGrid1DataSource1BitBtn刪除SBchangeBitBtn退出SBquitDataSourceDataSource1DataSet （ATxinxidel）Tadoquety ATxinxidelConnection ( DM.ADO)Active（true） 該單元使用其他單元文件：data,main在彈出“學生信息刪除”界面后，單擊【退出】按鈕，退出該界面；代碼如下：procedure Tfrmxiugaiuser.BitBtn1Click(Sender: TObject);beginclose；end;對學生信息進行刪除操作。在這里，將會提示您是否真的要刪除該用戶組，單擊【確定】按鈕將刪除用戶組信息。在主界面上單擊【刪除】按鈕，然后輸入代碼，其代碼如下： procedure TfrmxinxiDel.SBdelClick(Sender: TObject);begin if messageDlg(確實要刪除當前記錄嗎？,mtInformation,mbOK,mbCancel,0)=mrOK then atxinxidel.Delete;end;3.8姓名查詢模塊的窗體設計：FrmNameChaxun組件及其屬性表組件CaptionName值DataSourceForm姓名查詢frmnamechaxunButton查詢Button1Button退出Button2true(Flat)DataSourceDataSource1DataSet（AQname）DBGridDBGrid1DataSource1AdoqueryAQnameConnection (DM.ADO)Active (True)u 功能：方便大家查找到要找的用于成員信息。u 輸入：在文本框中輸入所要查找的學的姓名。u 處理：1、啟動姓名查詢窗體。2、在文本框中輸入所要查找的學生姓名。3、用戶進行查找和退出工作。u 輸出：顯示查詢出來的成員信息。u 該單元使用的其他單元文件：data,main;u 姓名查詢模塊的主要代碼： 在【查詢】按鈕中添加如下代碼：procedure Tfrmnamechaxun. Button1Click(Sender: TObject);beginAQname.Close;AQname.SQL.Clear;AQname.SQL.Text:= select * from 學生表 where 姓名= "+edit1.Text+" ;AQname.Open;。詳情請看光盤。end;在【退出】按鈕中添加如下代碼：procedure Tfrmnamechaxun. Button2Click(Sender: TObject);beginclose;end;3.9學號查詢模塊的窗體設計：frmxuehaochaxun組件及其屬性表組件CaptionName值DataSourceForm學號查詢frmxuehaochaxunButton查詢Button1Button退出Button2DataSourceDataSource1DataSe（AQxuehao）DBGridDBGrid1DataSource1TadoqueryAQxingmingConnection (DM.ADO)Active (True)u 功能：方便大家查找到要找的用于成員信息。u 輸入：在文本框中輸入所要查找的成員學號。u 處理：1、啟動學號查詢窗體。2、在文本框中輸入所要查找的成員學號。3、用戶進行查找和退出工作。u 輸出：顯示查詢出來的成員信息。u 該單元使用的其他單元文件：data,main;u 學號查詢模塊的主要代碼： 在【查詢】按鈕中添加如下代碼：procedure Tfrmxuehaochaxun.Button1Click(Sender: TObject);AQxuehao.Close;AQxuehao.SQL.Clear;AQxuehao.SQL.Text:=select * from 學生表 where 學號="+edit1.Text+"AQxuehao.Open;在【退出】按鈕中添加如下代碼：procedure Tfrmxuehaogchaxun. Button2Click(Sender: TObject);beginclose;end;3.10 數(shù)據(jù)管理設計數(shù)據(jù)管理包括數(shù)據(jù)庫備份和數(shù)據(jù)庫還原工作，通過這些工作來維護數(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幫助文件的設計和調用1、幫助文件的設計：有幫助主題和about；2、about（frmabout）的設計界面如下： 3、 為了讓整個系統(tǒng)更美觀，還在開始運行之前增加了一個初始化封面如下：總結經(jīng)過一個多月的設計和開發(fā)，學生管理管理系統(tǒng)系統(tǒng)基本開發(fā)完畢。本系統(tǒng)主要分析了學生信息系統(tǒng)需求和功能模塊，其功能基本符合用戶需求：1、以Access2000為后臺數(shù)據(jù)庫，以WindowsXP為操作系統(tǒng)，以SQL語句對數(shù)據(jù)庫進行操作運用SQL的數(shù)據(jù)庫技術，設計與開發(fā)學生信息管理系統(tǒng)。新系統(tǒng)的運行硬件環(huán)境PC機，當用戶使用系統(tǒng)時，通過正確的口令進入系統(tǒng)，進行數(shù)據(jù)庫的維護操作和運用。2、本系統(tǒng)提供了用戶登錄、用戶管理、密碼修改等基本管理功能，能夠完成學生學籍的添加、修改、 刪除、存儲學生信息和學生信息的查詢。3、本系統(tǒng)還提供了數(shù)據(jù)庫維護功能,使用戶方便進行數(shù)據(jù)備份和恢復。但是由于畢業(yè)設計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，用戶界面不夠美觀，出錯處理不夠等多方面問題。這些都有待進一步改善。參考文獻1 李雁翎Access 2000 應用教程北京：高等教育出版社，2006年版。2 黃梯云管理信息系統(tǒng)（修訂版）北京：高等教育出版社，2001年版。3 白致明Access2000中文版看圖速成北京：清華大學出版社，1999年版。4 康博創(chuàng)造室中文Access2000使用教程北京：中國水利水電出版社，1999年版。5 魏江江，李青，孫立京 Delphi編程百例通北京：科學出版社，2007年版。 致謝 在本次畢業(yè)設計中，我得到了我的指導老師蘭慧紅老師的悉心指導，同時也從她身上學到了很多東西。蘭老師認真負責的工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的水平都使我收益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和都有一種巨大的幫助，感謝他耐心的輔導。 在我做畢業(yè)設計的每個階段，從選題到查閱資料，論文提綱的確定，中期論文的修改，后期論文格式調整等每一步都是在蘭老師的悉心指導下完成的，傾注了蘭老師大量的心血。蘭老師指引我的論文的寫作的方向和架構，并對本論文初稿進行逐字批閱，指正出其中誤謬之處，使我有了思考的方向，她循循善誘的教導和不拘一格的思路給了我無盡的啟迪，她的嚴謹細致、一絲不茍的作風，將一直是我工作、學習中的榜樣。 她的精神激勵了我們，使我們克服了在論文寫作過程中的困難。在此，謹向蘭老師表示崇高的敬意和衷心的感謝！謝謝蘭老師在我撰寫論文的過程中給與我的極大地幫助。同時，論文的順利完成，也離不開其他各位老師、同學和朋友的關心和幫助。在整個的論文寫作中，各位老師、同學和朋友積極幫助我查資料和提供有利于論文寫作的建議和意見，在他們的幫助下，論文得以不斷的完善，最終幫助我完整的寫完了整個論文。另外，要感謝在大學期間所有傳授我知識的老師，是你們的悉心教導使我有了良好的專業(yè)課知識，這也是論文得以完成的基礎。感謝所有給我?guī)椭睦蠋熀屯瑢W，謝謝你們！ 31