【正文】 , cxNavigator, StdCtrls, Grids, DBGrids, StrUtils, cxDBNavigator, cxGridCustomPopupMenu, cxGridPopupMenu, dxStatusBar, cxCalendar, cxDropDownEdit, cxCheckBox, cxRadioGroup, cxDBLookupComboBox。 cxGrid1Level1: TcxGridLevel。 cxGrid1DBTableView1DBColumn1: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn5: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn9: TcxGridDBColumn。 ADOQueryDepartment: TADOQuery。 E: EDatabaseError。 procedure ADOQueryPersonneBeforeRefresh(DataSet: TDataSet)。 E: EDatabaseError。 then ShowMessage(39。) then ShowMessage(39。 then ShowMessage(39。 then ShowMessage(39。 then ShowMessage(39。 then ShowMessage(39。end。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。 cxGrid1Level1: TcxGridLevel。 cxGrid1DBTableView1DBColumn2: TcxGridDBColumn。 procedure FormClose(Sender: TObject。procedure (DataSet: TDataSet。39。重復(fù)數(shù)據(jù)39。 Action:=daAbort。begin Action := caFree。type TMDIPost = class(TForm) DataPost: TDataSource。 cxGrid1: TcxGrid。 procedure ADOQueryPostPostError(DataSet: TDataSet。 var Action: TCloseAction)。 E: EDatabaseError。 then ShowMessage(39。) then ShowMessage(39。end。end。 ADOQueryWageCategory: TADOQuery。 cxDBNavigator1: TcxDBNavigator。 E: EDatabaseError。 private { Private declarations } public { Public declarations } end。 var Action: TDataAction)?！肮べY類(lèi)別名稱(chēng)”不能為空！39。“工資類(lèi)別名稱(chēng)”不能重復(fù)！39。procedure (Sender: TObject。end. 用戶(hù)管理unit User。 cxGrid1DBTableView1: TcxGridDBTableView。 cxGrid1DBTableView1DBColumn: TcxGridDBColumn。 procedure ADOQueryUserPostError(DataSet: TDataSet。 var Action: TCloseAction)。 var ADone: Boolean)。 E: EDatabaseError。 then ShowMessage(39。 then ShowMessage(39。 then ShowMessage(39。) then ShowMessage(39。end。end。)。procedure (Sender: TObject。不能刪除最后一個(gè)用戶(hù)！39。end。begin if MessageBox(0,39。, 39。 TableName:=。 (39。員工39。)。 (39。 。 。 try 。39。39。39。39。)。end。在測(cè)試過(guò)程中，不僅選擇正確的數(shù)據(jù)，還要錄入假定錯(cuò)誤的數(shù)據(jù)，并對(duì)系統(tǒng)的數(shù)據(jù)進(jìn)行核對(duì)，填寫(xiě)系統(tǒng)運(yùn)行日志，整理成文檔資料，以便于今后系統(tǒng)的維護(hù)?！緟⒖嘉墨I(xiàn)】[1]朱振元、朱承，《Delphi面向?qū)ο蟪绦蛟O(shè)計(jì)及應(yīng)用開(kāi)發(fā)》西安電子科技大學(xué)出版社，2001[2] 陳瑞、葉核亞，《Delphi程序設(shè)計(jì)實(shí)用教程》，電子工業(yè)出版社，1998（3）、《Delphi 7組件應(yīng)用實(shí)例》 作者：張海蓮、馬琳、鄭城榮、邢海峰出版社：電子工業(yè)出版社 2002（4）、《Delphi 7程序設(shè)計(jì)技巧與實(shí)例》 作者：吳天準(zhǔn)出版社：中國(guó)鐵道出版社（5）、《Delphi 7信息系統(tǒng)設(shè)計(jì)與開(kāi)發(fā)》 作者：黃明、梁旭、石虎出版社：機(jī)械工業(yè)出版社。通過(guò)《員工信息管理系統(tǒng)》的設(shè)計(jì)，讓我懂得了信息系統(tǒng)的可行性研究及業(yè)務(wù)需求分析的重要性，理解了系統(tǒng)的概要設(shè)計(jì)和詳細(xì)設(shè)計(jì)對(duì)系統(tǒng)實(shí)施的程序設(shè)計(jì)的重要作用，把所學(xué)的編程語(yǔ)言運(yùn)用于數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的設(shè)計(jì)中，掌握了系統(tǒng)測(cè)試的技巧。首先，對(duì)組成系統(tǒng)的各個(gè)模塊分別進(jìn)行單元測(cè)試； 其次，對(duì)通過(guò)單元測(cè)試的各個(gè)模塊進(jìn)行了組裝測(cè)試即集成測(cè)試，并完成系統(tǒng)模塊功能有效性測(cè)試； 最后完成系統(tǒng)測(cè)試。 finally 。39。39。39。39。 (39。 end。DELETE FROM 39。)。職務(wù)39。 (39。)。工資39。,MB_ICONEXCLAMATION+MB_YESNO+MB_DEFBUTTON2) = IDNO then Exit。+CHR(13)+39。var i: integer。 ADone:=True。 var ADone: Boolean)。 end。begin if [1].AsString [2].AsString then begin ShowMessage(39。 var Action: TCloseAction)。) else ShowMessage()。) else if AnsiContainsStr(, 39。) else if [2].AsString = 39。) else if [1].AsString = 39。begin if [0].AsString = 39。implementation{$R *.dfm}uses main。 procedure cxDBNavigator1ButtonsButtonClick(Sender: TObject。 var Action: TDataAction)。 cxGrid1DBTableView1DBColumn2: TcxGridDBColumn。 cxGrid1: TcxGrid。type TMDIUser = class(TForm) DataSourceUser: TDataSource。begin Action := caFree。 Action:=daAbort。重復(fù)數(shù)據(jù)39。39。procedure (DataSet: TDataSet。 procedure FormClose(Sender: TObject。 cxGrid1DBTableView1DBColumn2: TcxGridDBColumn。 cxGrid1Level1: TcxGridLevel。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。 var Action: TCloseAction)。) else ShowMessage()。) else if AnsiContainsStr(, 39。begin if [1].AsString = 39。implementation{$R *.dfm}uses main。 var Action: TDataAction)。 cxGrid1DBTableView1DBColumn1: TcxGridDBColumn。 cxGrid1DBTableView1: TcxGridDBTableView。end.