【正文】 ourceDepartment: TDataSource。 DataSourcePost: TDataSource。 procedure ADOQueryPersonnePostError(DataSet: TDataSet。 var Action: TDataAction)。 var Action: TCloseAction)。 private { Private declarations } public { Public declarations } end。procedure (DataSet: TDataSet。 var Action: TDataAction)。39?！皢T工編號”不能為空！39。重復(fù)數(shù)據(jù)39?！皢T工編號”不能重復(fù)！39。39?！靶彰辈荒転榭?！39。39?！安块T編號”不能為空！39。39?！奥殑?wù)編號”不能為空！39。39?！叭肼殨r間”不能為空！39。 Action:=daAbort。procedure (Sender: TObject。begin Action := caFree。procedure (DataSet: TDataSet)。 。 。end. 部門管理unit Department。type TMDIDepartment = class(TForm) DataDepartment: TDataSource。 cxGrid1DBTableView1: TcxGridDBTableView。 cxGrid1: TcxGrid。 cxGrid1DBTableView1DBColumn1: TcxGridDBColumn。 procedure ADOQueryDepartmentPostError(DataSet: TDataSet。 var Action: TDataAction)。 var Action: TCloseAction)。implementation{$R *.dfm}uses main。 E: EDatabaseError。begin if [1].AsString = 39。 then ShowMessage(39。) else if AnsiContainsStr(, 39。) then ShowMessage(39。) else ShowMessage()。end。 var Action: TCloseAction)。end。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。 ADOQueryPost: TADOQuery。 cxGrid1Level1: TcxGridLevel。 cxDBNavigator1: TcxDBNavigator。 cxGrid1DBTableView1DBColumn2: TcxGridDBColumn。 E: EDatabaseError。 procedure FormClose(Sender: TObject。 private { Private declarations } public { Public declarations } end。procedure (DataSet: TDataSet。 var Action: TDataAction)。39。“職務(wù)名稱”不能為空！39。重復(fù)數(shù)據(jù)39。“職務(wù)名稱”不能重復(fù)！39。 Action:=daAbort。procedure (Sender: TObject。begin Action := caFree。end. 工資管理 工資類別管理unit WageCategory。type TMDIWageCategory = class(TForm) DataSourceWageCategory: TDataSource。 cxGrid1DBTableView1: TcxGridDBTableView。 cxGrid1: TcxGrid。 cxGrid1DBTableView1DBColumn1: TcxGridDBColumn。 procedure ADOQueryWageCategoryPostError(DataSet: TDataSet。 var Action: TDataAction)。 var Action: TCloseAction)。implementation{$R *.dfm}uses main。 E: EDatabaseError。begin if [1].AsString = 39。 then ShowMessage(39。) else if AnsiContainsStr(, 39。) then ShowMessage(39。) else ShowMessage()。end。 var Action: TCloseAction)。end。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。 ADOQueryUser: TADOQuery。 cxGrid1Level1: TcxGridLevel。 cxDBNavigator1: TcxDBNavigator。 cxGrid1DBTableView1DBColumn1: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn3: TcxGridDBColumn。 E: EDatabaseError。 procedure FormClose(Sender: TObject。 procedure ADOQueryUserBeforePost(DataSet: TDataSet)。 AButtonIndex: Integer。 private { Private declarations } public { Public declarations } end。procedure (DataSet: TDataSet。 var Action: TDataAction)。39?！坝脩裘辈荒転榭?！39。39。“密碼”不能為空！39。39。“確認(rèn)密碼”不能為空！39。重復(fù)數(shù)據(jù)39?！坝脩裘辈荒苤貜?fù)！39。 Action:=daAbort。procedure (Sender: TObject。begin Action := caFree。procedure (DataSet: TDataSet)。輸入的密碼不一樣！39。 Abort。end。 AButtonIndex: Integer。begin if (AButtonIndex=7) and (=1) then begin ShowMessage(39。)。 end。end. 數(shù)據(jù)初始化procedure (Sender: TObject)。 TableName: TStrings。數(shù)據(jù)初始化將刪除所有的數(shù)據(jù)！39。是否繼續(xù)？39。數(shù)據(jù)初始化39。 for i:=0 to MDIChildCount1 do MDIChildren[i].Close。 (39。)。工資類別39。 (39。)。部門39。 (39。)。用戶39。 for i:=0 to do begin try 。 (39。 + [i])。 finally 。 end。 。INSERT INTO 用戶 VALUES(39。admin39。, 39。admin39。, 39。admin39。, 39。39。)39。 。 end。 系統(tǒng)測試系統(tǒng)程序設(shè)計后，依照測試用例分別進(jìn)行系統(tǒng)的單元測試、集成測試、有效性測試，最后進(jìn)行系統(tǒng)的總體測試。通過上述測試后，根據(jù)系統(tǒng)設(shè)計的要求分別對戶主信息管理、雇傭產(chǎn)品信息管理、系統(tǒng)用戶管理等模塊進(jìn)行試運(yùn)行，效果良好，得到了滿意的結(jié)果。5. 結(jié)束語根據(jù)課任老師的要求并在老師的指導(dǎo)下，經(jīng)過信息系統(tǒng)設(shè)計，在計算機(jī)管理信息系統(tǒng)的開發(fā)研制及其設(shè)計方面得到了很好的鍛煉和學(xué)習(xí)。特別是學(xué)會了提出問題、分析問題并解決問題的方法，真正地把書本上、課堂上所學(xué)的知識應(yīng)用于實(shí)際的、具體的實(shí)踐中，很好地完成了理論與實(shí)踐上相結(jié)合的信息系統(tǒng)設(shè)計，為今后更為復(fù)雜的計算機(jī)管理信息系統(tǒng)的開發(fā)打下良好的