【正文】 的DevExpressVCL數(shù)據(jù)控件一起實現(xiàn)員工信息管理系統(tǒng)的開發(fā)。2. 系統(tǒng)分析系統(tǒng)分析的最主要內(nèi)容有員工信息管理系統(tǒng)的業(yè)務(wù)需求分析、業(yè)務(wù)流程圖、數(shù)據(jù)流程圖、數(shù)據(jù)庫設(shè)計等四個部分。另外，目前部分企業(yè)使用的員工信息管理系統(tǒng)只有信息的錄入，修改和刪除的功能，而不具有信息查詢的功能，這對于企業(yè)的信息管理工作來說是一個很遺憾的事情。Visual ；Java可以支持多種環(huán)境及操作系統(tǒng)平臺；而Delphi則可在Windows系統(tǒng)下快速開發(fā)C/S結(jié)構(gòu)程序，具有多方成熟的控件完善系統(tǒng)開發(fā)。(3) 系統(tǒng)性能需求系統(tǒng)的性能指標包括存儲容量限制、運行時間限制、傳輸速度要求、安全保密性等幾個方面。(15) 程序設(shè)計過程中的標簽、文本框、編輯框、復(fù)選框、列表框、數(shù)據(jù)庫連接、數(shù)據(jù)查詢的屬性。字段字段名稱類型寬度必需索引說明1員工編號文本20是有無重復(fù)主鍵2姓名文本10是3部門編號數(shù)字長整型4職務(wù)編號數(shù)字長整型5入職時間日期/時間6性別文本27身份證號文本208出生日期日期/時間9學(xué)歷文本1010私人電話文本2011工作電話文本2012備注文本100（2）部門表用于存放員工的部門信息，包括部門編號、部門名稱和備注。 Help: TMenuItem。 ImageList: TImageList。 procedure FilePostClick(Sender: TObject)。procedure (Sender: TObject)。 end。 i: integer。 。end。 LoginTime: Integer=0。 。end。 cxGrid1DBTableView1DBColumn4: TcxGridDBColumn。 var Action: TCloseAction)。39。 Action:=daAbort。 cxGrid1DBTableView1: TcxGridDBTableView。begin if [1].AsString = 39。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。procedure (DataSet: TDataSet。begin Action := caFree。 var Action: TCloseAction)。end。 cxGrid1DBTableView1DBColumn3: TcxGridDBColumn。39。 Action:=daAbort。begin if (AButtonIndex=7) and (=1) then begin ShowMessage(39。 for i:=0 to MDIChildCount1 do MDIChildren[i].Close。)。INSERT INTO 用戶 VALUES(39。)39。特別是學(xué)會了提出問題、分析問題并解決問題的方法，真正地把書本上、課堂上所學(xué)的知識應(yīng)用于實際的、具體的實踐中，很好地完成了理論與實踐上相結(jié)合的信息系統(tǒng)設(shè)計，為今后更為復(fù)雜的計算機管理信息系統(tǒng)的開發(fā)打下良好的基礎(chǔ)。, 39。 end。部門39。是否繼續(xù)？39。end。重復(fù)數(shù)據(jù)39。procedure (DataSet: TDataSet。 cxDBNavigator1: TcxDBNavigator。) then ShowMessage(39。 procedure ADOQueryWageCategoryPostError(DataSet: TDataSet。 Action:=daAbort。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。implementation{$R *.dfm}uses main。end. 部門管理unit Department。39。重復(fù)數(shù)據(jù)39。 procedure ADOQueryPersonnePostError(DataSet: TDataSet。 cxGrid1DBTableView1DBColumn: TcxGridDBColumn。end。).Value:=。 var Action: TCloseAction)。 Exit。 if MDIChildren[i].WindowState = wsMinimized then MDIChildren[i].WindowState := wsNormal。 。 i: integer。end。 procedure HelpAbout1Execute(Sender: TObject)。 WindowMinimizeAll1: TWindowMinimizeAll。interfaceuses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus, StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns, ActnList, ToolWin, ImgList, DB, ADODB, cxControls, cxContainer, cxEdit, cxLabel。邏輯模型規(guī)范化及總ER圖描述如下：員工（員工編號、姓名、部門編號、職務(wù)編號、入職時間、性別、身份證號、出生日期、學(xué)歷、私人電話、工作電話、備注）；部門（部門編號、部門名稱、備注）；職務(wù)（職務(wù)編號、職務(wù)名稱、備注）；工資（員工編號、工資類型編號、金額、備注）；工資類別（工資類別編號、工資類別名稱、備注）；用戶（用戶名、密碼、確認密碼、備注）。(11) 第三階段設(shè)計任務(wù)是數(shù)據(jù)庫的物理設(shè)計，確定表的結(jié)構(gòu)，建立數(shù)據(jù)庫模型。②工資管理：完成員工工資的錄入、查詢、分析及相關(guān)打印等功能；主要實現(xiàn)對員工的姓名、工資類別及工資金額等信息的管理。作為計算機應(yīng)用的一部分,使用計算機對企業(yè)員工信息進行管理,:查詢迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠降低員工管理工作的成本,減輕企業(yè)管理人員的負擔(dān),方便員工信息的更新、維護和查詢,增加數(shù)據(jù)的可靠性。③基本信息管理：完成部門設(shè)置、職務(wù)設(shè)置、工資類別設(shè)置、用戶口令設(shè)置，系統(tǒng)數(shù)據(jù)初始化等功能。 數(shù)據(jù)庫系統(tǒng)設(shè)計要點及難點(12) 建立數(shù)據(jù)庫，確定數(shù)據(jù)庫中表的數(shù)量及其每個表中各個字段的字段名、類型、寬度、小數(shù)及索引、排序。消除冗余數(shù)據(jù)和聯(lián)系后，其系統(tǒng)的ER圖如下： 數(shù)據(jù)庫物理設(shè)計數(shù)據(jù)庫的物理設(shè)計將完成數(shù)據(jù)邏輯模型向數(shù)據(jù)物理模型的轉(zhuǎn)換。type TMainForm = class(TForm) MainMenu: TMainMenu。 HelpAbout1: TAction。 procedure FileExitExecute(Sender: TObject)。procedure (Sender: TObject)。begin for i:=0 to MDIChildCount1 do if MDIChildren[i] is TMDIDepartment then begin MDIChildren[i].BringToFront。end。 Exit。 end。 procedure ButtonCancelClick(Sender: TObject)。 (39。procedure (Sender: TObject。 cxGrid1DBTableView1DBColumn1: TcxGridDBColumn。 E: EDatabaseError。) then ShowMessage(39。 then ShowMessage(39。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。procedure (DataSet: TDataSet。begin Action := caFree。 var Action: TCloseAction)。end。 E: EDatabaseError。“工資類別名稱”不能重復(fù)！39。 cxGrid1DBTableView1DBColumn: Tcx