【正文】 【參考文獻】[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è)出版社。通過《員工信息管理系統(tǒng)》的設(shè)計，讓我懂得了信息系統(tǒng)的可行性研究及業(yè)務(wù)需求分析的重要性，理解了系統(tǒng)的概要設(shè)計和詳細(xì)設(shè)計對系統(tǒng)實施的程序設(shè)計的重要作用，把所學(xué)的編程語言運用于數(shù)據(jù)庫應(yīng)用系統(tǒng)的設(shè)計中，掌握了系統(tǒng)測試的技巧。在測試過程中，不僅選擇正確的數(shù)據(jù)，還要錄入假定錯誤的數(shù)據(jù)，并對系統(tǒng)的數(shù)據(jù)進行核對，填寫系統(tǒng)運行日志，整理成文檔資料，以便于今后系統(tǒng)的維護。首先，對組成系統(tǒng)的各個模塊分別進行單元測試； 其次，對通過單元測試的各個模塊進行了組裝測試即集成測試，并完成系統(tǒng)模塊功能有效性測試； 最后完成系統(tǒng)測試。end。 finally 。)。39。39。39。39。39。39。39。39。 (39。 try 。 end。 。DELETE FROM 39。 。)。 (39。職務(wù)39。)。 (39。員工39。)。 (39。工資39。 TableName:=。,MB_ICONEXCLAMATION+MB_YESNO+MB_DEFBUTTON2) = IDNO then Exit。, 39。+CHR(13)+39。begin if MessageBox(0,39。var i: integer。end。 ADone:=True。不能刪除最后一個用戶！39。 var ADone: Boolean)。procedure (Sender: TObject。 end。)。begin if [1].AsString [2].AsString then begin ShowMessage(39。end。 var Action: TCloseAction)。end。) else ShowMessage()。) then ShowMessage(39。) else if AnsiContainsStr(, 39。 then ShowMessage(39。) else if [2].AsString = 39。 then ShowMessage(39。) else if [1].AsString = 39。 then ShowMessage(39。begin if [0].AsString = 39。 E: EDatabaseError。implementation{$R *.dfm}uses main。 var ADone: Boolean)。 procedure cxDBNavigator1ButtonsButtonClick(Sender: TObject。 var Action: TCloseAction)。 var Action: TDataAction)。 procedure ADOQueryUserPostError(DataSet: TDataSet。 cxGrid1DBTableView1DBColumn2: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn: TcxGridDBColumn。 cxGrid1: TcxGrid。 cxGrid1DBTableView1: TcxGridDBTableView。type TMDIUser = class(TForm) DataSourceUser: TDataSource。end. 用戶管理unit User。begin Action := caFree。procedure (Sender: TObject。 Action:=daAbort?！肮べY類別名稱”不能重復(fù)！39。重復(fù)數(shù)據(jù)39?！肮べY類別名稱”不能為空！39。39。 var Action: TDataAction)。procedure (DataSet: TDataSet。 private { Private declarations } public { Public declarations } end。 procedure FormClose(Sender: TObject。 E: EDatabaseError。 cxGrid1DBTableView1DBColumn2: TcxGridDBColumn。 cxDBNavigator1: TcxDBNavigator。 cxGrid1Level1: TcxGridLevel。 ADOQueryWageCategory: TADOQuery。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。end。 var Action: TCloseAction)。end。) else ShowMessage()。) then ShowMessage(39。) else if AnsiContainsStr(, 39。 then ShowMessage(39。begin if [1].AsString = 39。 E: EDatabaseError。implementation{$R *.dfm}uses main。 var Action: TCloseAction)。 var Action: TDataAction)。 procedure ADOQueryPostPostError(DataSet: TDataSet。 cxGrid1DBTableView1DBColumn1: TcxGridDBColumn。 cxGrid1: TcxGrid。 cxGrid1DBTableView1: TcxGridDBTableView。type TMDIPost = class(TForm) DataPost: TDataSource。end. 職務(wù)管理unit Post。begin Action := caFree。procedure (Sender: TObject。 Action:=daAbort?！安块T名稱”不能重復(fù)！39。重復(fù)數(shù)據(jù)39。“部門名稱”不能為空！39。39。 var Action: TDataAction)。procedure (DataSet: TDataSet。 private { Private declarations } public { Public declarations } end。 procedure FormClose(Sender: TObject。 E: EDatabaseError。 cxGrid1DBTableView1DBColumn2: TcxGridDBColumn。 cxDBNavigator1: TcxDBNavigator。 cxGrid1Level1: TcxGridLevel。 ADOQueryDepartment: TADOQuery。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。end。 。begin 。end。 var Action: TCloseAction)。end。) else ShowMessage()。 then ShowMessage(39。) else if [4].AsString = 39。 then ShowMessage(39。) else if [3].AsString = 39。 then ShowMessage(39。) else if [2].AsString = 39。 then ShowMessage(39。) else if [1].AsString = 39。) then ShowMessage(39。) else if AnsiContainsStr(, 39。 then ShowMessage(39。