【正文】 xGridLevel。 cxGrid1: TcxGrid。 cxDBNavigator1: TcxDBNavigator。 cxGrid1DBTableView1DBColumn1: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn2: TcxGridDBColumn。 procedure ADOQueryWageCategoryPostError(DataSet: TDataSet。 E: EDatabaseError。 var Action: TDataAction)。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 private { Private declarations } public { Public declarations } end。implementation{$R *.dfm}uses main。procedure (DataSet: TDataSet。 E: EDatabaseError。 var Action: TDataAction)。begin if [1].AsString = 39。39。 then ShowMessage(39?！肮べY類別名稱”不能為空！39。) else if AnsiContainsStr(, 39。重復(fù)數(shù)據(jù)39。) then ShowMessage(39。“工資類別名稱”不能重復(fù)！39。) else ShowMessage()。 Action:=daAbort。end。procedure (Sender: TObject。 var Action: TCloseAction)。begin Action := caFree。end。end. 用戶管理unit User。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid, cxNavigator, StdCtrls, Grids, DBGrids, StrUtils, cxDBNavigator, cxGridCustomPopupMenu, cxGridPopupMenu, dxStatusBar, cxTextEdit。type TMDIUser = class(TForm) DataSourceUser: TDataSource。 ADOQueryUser: TADOQuery。 cxGrid1DBTableView1: TcxGridDBTableView。 cxGrid1Level1: TcxGridLevel。 cxGrid1: TcxGrid。 cxDBNavigator1: TcxDBNavigator。 cxGrid1DBTableView1DBColumn: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn1: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn2: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn3: TcxGridDBColumn。 procedure ADOQueryUserPostError(DataSet: TDataSet。 E: EDatabaseError。 var Action: TDataAction)。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 procedure ADOQueryUserBeforePost(DataSet: TDataSet)。 procedure cxDBNavigator1ButtonsButtonClick(Sender: TObject。 AButtonIndex: Integer。 var ADone: Boolean)。 private { Private declarations } public { Public declarations } end。implementation{$R *.dfm}uses main。procedure (DataSet: TDataSet。 E: EDatabaseError。 var Action: TDataAction)。begin if [0].AsString = 39。39。 then ShowMessage(39?！坝脩裘辈荒転榭眨?9。) else if [1].AsString = 39。39。 then ShowMessage(39?！懊艽a”不能為空！39。) else if [2].AsString = 39。39。 then ShowMessage(39。“確認(rèn)密碼”不能為空！39。) else if AnsiContainsStr(, 39。重復(fù)數(shù)據(jù)39。) then ShowMessage(39。“用戶名”不能重復(fù)！39。) else ShowMessage()。 Action:=daAbort。end。procedure (Sender: TObject。 var Action: TCloseAction)。begin Action := caFree。end。procedure (DataSet: TDataSet)。begin if [1].AsString [2].AsString then begin ShowMessage(39。輸入的密碼不一樣！39。)。 Abort。 end。end。procedure (Sender: TObject。 AButtonIndex: Integer。 var ADone: Boolean)。begin if (AButtonIndex=7) and (=1) then begin ShowMessage(39。不能刪除最后一個用戶！39。)。 ADone:=True。 end。end。end. 數(shù)據(jù)初始化procedure (Sender: TObject)。var i: integer。 TableName: TStrings。begin if MessageBox(0,39。數(shù)據(jù)初始化將刪除所有的數(shù)據(jù)！39。+CHR(13)+39。是否繼續(xù)？39。, 39。數(shù)據(jù)初始化39。,MB_ICONEXCLAMATION+MB_YESNO+MB_DEFBUTTON2) = IDNO then Exit。 for i:=0 to MDIChildCount1 do MDIChildren[i].Close。 TableName:=。 (39。工資39。)。 (39。工資類別39。)。 (39。員工39。)。 (39。部門39。)。 (39。職務(wù)39。)。 (39。用戶39。)。 for i:=0 to do begin try 。 。 (39。DELETE FROM 39。 + [i])。 。 finally 。 end。 end。 try 。 。 (39。INSERT INTO 用戶 VALUES(39。39。admin39。39。, 39。39。admin39。39。, 39。39。admin39。39。, 39。39。39。39。)39。)。 。 finally 。 end。end。 系統(tǒng)測試系統(tǒng)程序設(shè)計后，依照測試用例分別進行系統(tǒng)的單元測試、集成測試、有效性測試，最后進行系統(tǒng)的總體測試。首先，對組成系統(tǒng)的各個模塊分別進行單元測試； 其次，對通過單元測試的各個模塊進行了組裝測試即集成測試，并完成系統(tǒng)模塊功能有效性測試； 最后完成系統(tǒng)測試。通過上述測試后，根據(jù)系統(tǒng)設(shè)計的要求分別對戶主信息管理、雇傭產(chǎn)品信息管理、系統(tǒng)用戶管理等模塊進行試運行，效果良好，得到了滿意的結(jié)果。在測試過程中，不僅選擇正確的數(shù)據(jù)，還要錄入假定錯誤的數(shù)據(jù)，并對系統(tǒng)的數(shù)據(jù)進行核對，填寫系統(tǒng)運行日志，整理成文檔資料，以便于今后系統(tǒng)的維護。5. 結(jié)束語根據(jù)課任老師的要求并在老師的指導(dǎo)下，經(jīng)過信息系統(tǒng)設(shè)計，在計算機管理信息系統(tǒng)的開發(fā)研制及其設(shè)計方面得到了很好的鍛煉和學(xué)習(xí)。通過《員工信息管理系統(tǒng)》的設(shè)計，讓我懂得了信息系統(tǒng)的可行性研究及業(yè)務(wù)需求分析的重要性，理解了系統(tǒng)的概要設(shè)計和詳細設(shè)計對系統(tǒng)實施的程序設(shè)計的重要作用，把所學(xué)的編程語言運用于數(shù)據(jù)庫應(yīng)用系統(tǒng)的設(shè)計中，掌握了系統(tǒng)測試的技巧。特別是學(xué)會了提出問題、分析問題并解決問題的方法，真正地把書本上、課堂上所學(xué)的知識應(yīng)用于實際的、具體的實踐中，很好地完成了理論與實踐上相結(jié)合的信息系統(tǒng)設(shè)計，為今后更為復(fù)雜的計算機管理信息系統(tǒng)的開發(fā)打下良好的基礎(chǔ)?！緟⒖嘉墨I】[1]朱振元、朱承，《Delphi面向?qū)ο蟪绦蛟O(shè)計及應(yīng)用開發(fā)》西安電子科技大學(xué)出版社，2001[2] 陳瑞、葉核亞，《Delphi程序設(shè)計實用教程》，電子工業(yè)出版社，1998（3）、《Delphi 7組件應(yīng)用實例》 作者：張海蓮、馬琳、鄭城榮、邢海峰出版社：電子工業(yè)出版社 2002（4）、《Delphi 7程序設(shè)計技巧與實例》 作者：吳天準(zhǔn)出版社：中國鐵道出版社（5）、《Delphi 7信息系統(tǒng)設(shè)計與開發(fā)》 作者：黃明、梁旭、石虎出版社：機械工業(yè)出版社