【正文】 、復(fù)選框、列表框、數(shù)據(jù)庫(kù)連接、數(shù)據(jù)查詢的屬性。 數(shù)據(jù)庫(kù)及其表的建立和使用使用Access程序建立Access數(shù)據(jù)庫(kù)，建立相應(yīng)表，設(shè)置各個(gè)表中具體字段名稱、類型、主鍵、索引，設(shè)置各個(gè)表間的關(guān)系。實(shí)體、屬性、聯(lián)系及數(shù)據(jù)結(jié)構(gòu)描述如下：(1)員工管理模塊實(shí)體：?jiǎn)T工、部門、職務(wù)；屬性：?jiǎn)T工的屬性有姓名、員工編號(hào)、部門、職務(wù)、入職時(shí)間、性別、身份證號(hào)、出生日期、學(xué)歷、私人電話、工作電話及備注等；部門的屬性有部門編號(hào)和部門名稱；職務(wù)的屬性有職務(wù)編號(hào)和職務(wù)名稱。數(shù)據(jù)項(xiàng)：見數(shù)據(jù)庫(kù)的物理設(shè)計(jì)。關(guān)系：工資類別與工資這間是一對(duì)一（1：1）的關(guān)系。 數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)數(shù)據(jù)庫(kù)的邏輯設(shè)計(jì)主要完成從ER模型向數(shù)據(jù)邏輯模型的轉(zhuǎn)換。邏輯模型規(guī)范化及總ER圖描述如下：?jiǎn)T工（員工編號(hào)、姓名、部門編號(hào)、職務(wù)編號(hào)、入職時(shí)間、性別、身份證號(hào)、出生日期、學(xué)歷、私人電話、工作電話、備注）；部門（部門編號(hào)、部門名稱、備注）；職務(wù)（職務(wù)編號(hào)、職務(wù)名稱、備注）；工資（員工編號(hào)、工資類型編號(hào)、金額、備注）；工資類別（工資類別編號(hào)、工資類別名稱、備注）；用戶（用戶名、密碼、確認(rèn)密碼、備注）。每一記錄類型確定為數(shù)據(jù)庫(kù)中的一張表；記錄類型中的數(shù)據(jù)項(xiàng)成為相應(yīng)表中的字段，字段屬性根據(jù)各字段特點(diǎn)設(shè)置；確定索引和表之間的聯(lián)系。字段字段名稱類型寬度必需索引說明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職務(wù)編號(hào)數(shù)字長(zhǎng)整型是有無重復(fù)主鍵2職務(wù)名稱文本20是3備注文本100（4）工資表用于存放員工的工資信息，包括員工編號(hào)、工資類別編號(hào)、金額和備注。字段字段名稱類型寬度必需索引說明1工資類別編號(hào)數(shù)字長(zhǎng)整型是有無重復(fù)主鍵2工資類別名稱文本20是3備注文本100（6）用戶表用于存放系統(tǒng)的用戶名和密碼，包括用戶名、密碼和備注。 輸入設(shè)計(jì)(1) 輸入方式設(shè)計(jì)①鍵盤輸入和鼠標(biāo)操作，為常規(guī)的數(shù)據(jù)錄入方式；②磁盤傳遞數(shù)據(jù)。①菜單方式：設(shè)計(jì)成下拉式、上彈式、按鈕式，功能選擇：有光帶移動(dòng)、數(shù)字或字母選擇、鼠標(biāo)驅(qū)動(dòng)。本系統(tǒng)的程序設(shè)計(jì)由主程序和各模塊表單程序等兩大部份組成。interfaceuses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus, StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns, ActnList, ToolWin, ImgList, DB, ADODB, cxControls, cxContainer, cxEdit, cxLabel。 File1: TMenuItem。 Help: TMenuItem。 WindowCascadeItem: TMenuItem。 WindowArrangeItem: TMenuItem。 WindowMinimizeItem: TMenuItem。 FileExit: TAction。 WindowTileHorizontal1: TWindowTileHorizontal。 WindowMinimizeAll1: TWindowMinimizeAll。 WindowTileVertical1: TWindowTileVertical。 ImageList: TImageList。 FilePersonnel: TMenuItem。 ADOConnection: TADOConnection。 N1: TMenuItem。 Image1: TImage。 ADOQueryDelete: TADOQuery。 procedure HelpAbout1Execute(Sender: TObject)。 procedure FilePersonnelClick(Sender: TObject)。 procedure FilePostClick(Sender: TObject)。 procedure FileWageClick(Sender: TObject)。 procedure FileUserClick(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 ShowLogin :Boolean = True。procedure (Sender: TObject)。end。begin 。procedure (Sender: TObject)。 i: integer。 if MDIChildren[i].WindowState = wsMinimized then MDIChildren[i].WindowState := wsNormal。 end。 。procedure (Sender: TObject)。 i: integer。 if MDIChildren[i].WindowState = wsMinimized then MDIChildren[i].WindowState := wsNormal。 end。 。procedure (Sender: TObject)。 i: integer。 if MDIChildren[i].WindowState = wsMinimized then MDIChildren[i].WindowState := wsNormal。 end。 。procedure (Sender: TObject)。 i: integer。 if MDIChildren[i].WindowState = wsMinimized then MDIChildren[i].WindowState := wsNormal。 end。 。procedure (Sender: TObject)。 i: integer。 if MDIChildren[i].WindowState = wsMinimized then MDIChildren[i].WindowState := wsNormal。 end。 。procedure (Sender: TObject)。 if ShowLogin then Close。end。var MDIUser: TMDIUser。begin for i:=0 to MDIChildCount1 do if MDIChildren[i] is TMDIUser then begin MDIChildren[i].BringToFront。 Exit。 MDIUser := (Application)。end。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls。 ButtonCancel: TButton。 EditUser: TEdit。 EditPassword: TEdit。 procedure ButtonLoginClick(Sender: TObject)。 var Action: TCloseAction)。 private { Private declarations } public { Public declarations } end。 LoginTime: Integer=0。procedure (Sender: TObject)。39。 。SELECT COUNT(*) FROM 用戶 WHERE 用戶名=:User AND 密碼=:Password39。 (39。).Value:=。Password39。 。 Close。用戶名或密碼錯(cuò)誤！39。 LoginTime:=LoginTime+1。 end。 end。end。 var Action: TCloseAction)。end。begin Close。end. 員工管理unit Personnel。type TMDIPersonnel = class(TForm) DataSourcePersonne: TDataSource。 cxGrid1DBTableView1: TcxGridDBTableView。 cxGrid1: TcxGrid。 cxGrid1DBTableView1DBColumn: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn2: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn4: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn6: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn8: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn10: TcxGridDBColumn。 DataS