【正文】 歷、私人電話、工作電話、備注）；部門（部門編號(hào)、部門名稱、備注）；職務(wù)（職務(wù)編號(hào)、職務(wù)名稱、備注）；工資（員工編號(hào)、工資類型編號(hào)、金額、備注）；工資類別（工資類別編號(hào)、工資類別名稱、備注）；用戶（用戶名、密碼、確認(rèn)密碼、備注）。消除冗余數(shù)據(jù)和聯(lián)系后，其系統(tǒng)的ER圖如下： 數(shù)據(jù)庫物理設(shè)計(jì)數(shù)據(jù)庫的物理設(shè)計(jì)將完成數(shù)據(jù)邏輯模型向數(shù)據(jù)物理模型的轉(zhuǎn)換。每一記錄類型確定為數(shù)據(jù)庫中的一張表；記錄類型中的數(shù)據(jù)項(xiàng)成為相應(yīng)表中的字段，字段屬性根據(jù)各字段特點(diǎn)設(shè)置；確定索引和表之間的聯(lián)系。系統(tǒng)表結(jié)構(gòu)描述如下：（1）員工表用于存放員工信息，包括員工編號(hào)、姓名、部門編號(hào)、職務(wù)編號(hào)、入職時(shí)間、性別、身份證號(hào)、出生日期、學(xué)歷、私人電話、工作電話、備注。字段字段名稱類型寬度必需索引說明1員工編號(hào)文本20是有無重復(fù)主鍵2姓名文本10是3部門編號(hào)數(shù)字長(zhǎng)整型4職務(wù)編號(hào)數(shù)字長(zhǎng)整型5入職時(shí)間日期/時(shí)間6性別文本27身份證號(hào)文本208出生日期日期/時(shí)間9學(xué)歷文本1010私人電話文本2011工作電話文本2012備注文本100（2）部門表用于存放員工的部門信息，包括部門編號(hào)、部門名稱和備注。字段字段名稱類型寬度必需索引說明1部門編號(hào)數(shù)字長(zhǎng)整型是有無重復(fù)主鍵2部門名稱文本20是3備注文本100（3）職務(wù)表用于存放員工的職務(wù)信息，包括職務(wù)編號(hào)、職務(wù)名稱和備注。字段字段名稱類型寬度必需索引說明1職務(wù)編號(hào)數(shù)字長(zhǎng)整型是有無重復(fù)主鍵2職務(wù)名稱文本20是3備注文本100（4）工資表用于存放員工的工資信息，包括員工編號(hào)、工資類別編號(hào)、金額和備注。字段字段名稱類型寬度必需索引說明1員工編號(hào)文本20是有重復(fù)主鍵2工資類別編號(hào)數(shù)字長(zhǎng)整型是有重復(fù)主鍵3金額數(shù)字單精度型4備注文本100（5）工資類別表用于存放員工的工資類別，包括工資類別編號(hào)、工資類別名稱和備注。字段字段名稱類型寬度必需索引說明1工資類別編號(hào)數(shù)字長(zhǎng)整型是有無重復(fù)主鍵2工資類別名稱文本20是3備注文本100（6）用戶表用于存放系統(tǒng)的用戶名和密碼，包括用戶名、密碼和備注。字段字段名稱類型寬度必需索引說明1用戶名文本20是有無重復(fù)主鍵2密碼文本30是3確認(rèn)密碼文本30是4備注文本100 輸出設(shè)計(jì)(1) 選擇輸出方式 ：顯示終端、打印機(jī)；(2) 確定輸出格式：格式設(shè)計(jì)體現(xiàn)在各類報(bào)表中；(3) 輸出的主要形式：報(bào)表；(4) 輸出的內(nèi)容：主要有員工信息、工資信息、部門信息、職務(wù)信息、工資類別信息和用戶信息。 輸入設(shè)計(jì)(1) 輸入方式設(shè)計(jì)①鍵盤輸入和鼠標(biāo)操作，為常規(guī)的數(shù)據(jù)錄入方式；②磁盤傳遞數(shù)據(jù)。(2) 用戶界面設(shè)計(jì)（詳見各子模塊用戶界面）①人機(jī)對(duì)話方式：通過屏幕、鍵盤、鼠標(biāo)與系統(tǒng)對(duì)話，當(dāng)操作錯(cuò)誤時(shí)系統(tǒng)給出提示和警告。①菜單方式：設(shè)計(jì)成下拉式、上彈式、按鈕式，功能選擇：有光帶移動(dòng)、數(shù)字或字母選擇、鼠標(biāo)驅(qū)動(dòng)。4. 系統(tǒng)實(shí)現(xiàn)系統(tǒng)實(shí)施的最主要工作是程序設(shè)計(jì)，此外還包括了物理系統(tǒng)的實(shí)施、程序的調(diào)試等。本系統(tǒng)的程序設(shè)計(jì)由主程序和各模塊表單程序等兩大部份組成。 系統(tǒng)主程序流程 系統(tǒng)主界面設(shè)計(jì) 系統(tǒng)主程序設(shè)計(jì)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