【正文】 歷、私人電話、工作電話、備注）；部門（部門編號、部門名稱、備注）；職務（職務編號、職務名稱、備注）；工資（員工編號、工資類型編號、金額、備注）；工資類別（工資類別編號、工資類別名稱、備注）；用戶（用戶名、密碼、確認密碼、備注）。消除冗余數據和聯系后，其系統(tǒng)的ER圖如下： 數據庫物理設計數據庫的物理設計將完成數據邏輯模型向數據物理模型的轉換。每一記錄類型確定為數據庫中的一張表；記錄類型中的數據項成為相應表中的字段，字段屬性根據各字段特點設置；確定索引和表之間的聯系。系統(tǒng)表結構描述如下：（1）員工表用于存放員工信息，包括員工編號、姓名、部門編號、職務編號、入職時間、性別、身份證號、出生日期、學歷、私人電話、工作電話、備注。字段字段名稱類型寬度必需索引說明1員工編號文本20是有無重復主鍵2姓名文本10是3部門編號數字長整型4職務編號數字長整型5入職時間日期/時間6性別文本27身份證號文本208出生日期日期/時間9學歷文本1010私人電話文本2011工作電話文本2012備注文本100（2）部門表用于存放員工的部門信息，包括部門編號、部門名稱和備注。字段字段名稱類型寬度必需索引說明1部門編號數字長整型是有無重復主鍵2部門名稱文本20是3備注文本100（3）職務表用于存放員工的職務信息，包括職務編號、職務名稱和備注。字段字段名稱類型寬度必需索引說明1職務編號數字長整型是有無重復主鍵2職務名稱文本20是3備注文本100（4）工資表用于存放員工的工資信息，包括員工編號、工資類別編號、金額和備注。字段字段名稱類型寬度必需索引說明1員工編號文本20是有重復主鍵2工資類別編號數字長整型是有重復主鍵3金額數字單精度型4備注文本100（5）工資類別表用于存放員工的工資類別，包括工資類別編號、工資類別名稱和備注。字段字段名稱類型寬度必需索引說明1工資類別編號數字長整型是有無重復主鍵2工資類別名稱文本20是3備注文本100（6）用戶表用于存放系統(tǒng)的用戶名和密碼，包括用戶名、密碼和備注。字段字段名稱類型寬度必需索引說明1用戶名文本20是有無重復主鍵2密碼文本30是3確認密碼文本30是4備注文本100 輸出設計(1) 選擇輸出方式 ：顯示終端、打印機；(2) 確定輸出格式：格式設計體現在各類報表中；(3) 輸出的主要形式：報表；(4) 輸出的內容：主要有員工信息、工資信息、部門信息、職務信息、工資類別信息和用戶信息。 輸入設計(1) 輸入方式設計①鍵盤輸入和鼠標操作，為常規(guī)的數據錄入方式；②磁盤傳遞數據。(2) 用戶界面設計（詳見各子模塊用戶界面）①人機對話方式：通過屏幕、鍵盤、鼠標與系統(tǒng)對話，當操作錯誤時系統(tǒng)給出提示和警告。①菜單方式：設計成下拉式、上彈式、按鈕式，功能選擇：有光帶移動、數字或字母選擇、鼠標驅動。4. 系統(tǒng)實現系統(tǒng)實施的最主要工作是程序設計，此外還包括了物理系統(tǒng)的實施、程序的調試等。本系統(tǒng)的程序設計由主程序和各模塊表單程序等兩大部份組成。 系統(tǒng)主程序流程 系統(tǒng)主界面設計 系統(tǒng)主程序設計unit Main。interfaceuses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus, StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns, ActnList, ToolWin, ImgList, DB, ADODB, cxControls, cxContainer, cxEdit, cxLabel。type TMainForm = class(TForm) MainMenu: TMainMenu。 File1: TMenuItem。 Window: TMenuItem。 Help: TMenuItem。 FileExitItem: TMenuItem。 WindowCascadeItem: TMenuItem。 WindowTileItem: TMenuItem。 WindowArrangeItem: TMenuItem。 HelpAboutItem: TMenuItem。 WindowMinimizeItem: TMenuItem。 ActionList: TActionList。 FileExit: TAction。 WindowCascade1: TWindowCascade。 WindowTileHorizontal1: TWindowTileHorizontal。 WindowArrangeAll1: TWindowArrange。 WindowMinimizeAll1: TWindowMinimizeAll。 HelpAbout1: TAction。 WindowTileVertical1: TWindowTileVertical。 WindowTileItem2: TMenuItem。 ImageList: TImageList。 FileWage: TMenuItem。 FilePersonnel: TMenuItem。 FileDepartment: TMenuItem。 ADOConnection: TADOConnection。 FilePost: TMenuItem。 N1: TMenuItem。 FileWageCategory: TMenuItem。 Image1: TImage。 FileUser: TMenuItem。 ADOQueryDelete: TADOQuery。 FileDataInit: TMenuItem。 procedure HelpAbout1Execute(Sender: TObject)。 procedure FileExitExecute(Sender: TObject)。 procedure FilePersonnelClick(Sender: TObject)。 procedure FileDepartmentClick(Sender: TObject)。 procedure FilePostClick(Sender: TObject)。 procedure FileWageCategoryClick(Sender: TObject)。 procedure FileWageClick(Sender: TObject)。 procedure FormActivate(Sender: TObject)。 procedure FileUserClick(Sender: TObject)。 procedure FileDataInitClick(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var MainForm: TMainForm。 ShowLogin :Boolean = True。implementation{$R *.dfm}uses Login, Personnel, Department, Post, Wage, WageCategory, User, About。procedure (Sender: TObject)。begin Close。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。var MDIPersonnel: TMDIPersonnel。 i: integer。begin for i:=0 to MDIChildCount1 do if MDIChildren[i] is TMDIPersonnel then begin MDIChildren[i].BringToFront。 if MDIChildren[i].WindowState = wsMinimized then MDIChildren[i].WindowState := wsNormal。 Exit。 end。 MDIPersonnel := (Application)。 。end。procedure (Sender: TObject)。var MDIDepartment: TMDIDepartment。 i: integer。begin for i:=0 to MDIChildCount1 do if MDIChildren[i] is TMDIDepartment then begin MDIChildren[i].BringToFront。 if MDIChildren[i].WindowState = wsMinimized then MDIChildren[i].WindowState := wsNormal。 Exit。 end。 MDIDepartment := (Application)。 。end。procedure (Send