【正文】 begin if [0].AsString = 39。 E: EDatabaseError。implementation{$R *.dfm}uses main。 procedure ADOQueryPersonneBeforeRefresh(DataSet: TDataSet)。 procedure FormClose(Sender: TObject。 E: EDatabaseError。 ADOQueryPost: TADOQuery。 ADOQueryDepartment: TADOQuery。 cxGrid1DBTableView1DBColumn11: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn9: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn7: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn5: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn3: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn1: TcxGridDBColumn。 cxDBNavigator1: TcxDBNavigator。 cxGrid1Level1: TcxGridLevel。 ADOQueryPersonne: 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, cxCalendar, cxDropDownEdit, cxCheckBox, cxRadioGroup, cxDBLookupComboBox。end。procedure (Sender: TObject)。begin Action := caFree。procedure (Sender: TObject。 end。 finally 。 if LoginTime=3 then Close。)。 end else begin ShowMessage(39。 if [0].AsInteger=1 then begin ShowLogin:=False。).Value:=。 (39。User39。)。 (39。) then begin try 。begin if (39。 implementation{$R *.dfm}uses Main。var LoginBox: TLoginBox。 procedure ButtonCancelClick(Sender: TObject)。 procedure FormClose(Sender: TObject。 ADOQueryLogin: TADOQuery。 LabelPassword: TLabel。 LabelUser: TLabel。type TLoginBox = class(TForm) ButtonLogin: TButton。end. 子程序設(shè)計 系統(tǒng)登錄unit Login。 。 end。 if MDIChildren[i].WindowState = wsMinimized then MDIChildren[i].WindowState := wsNormal。 i: integer。procedure (Sender: TObject)。 end。begin if ShowLogin then begin 。end。 MDIWage := (Application)。 Exit。begin for i:=0 to MDIChildCount1 do if MDIChildren[i] is TMDIWage then begin MDIChildren[i].BringToFront。var MDIWage: TMDIWage。end。 MDIWageCategory := (Application)。 Exit。begin for i:=0 to MDIChildCount1 do if MDIChildren[i] is TMDIWageCategory then begin MDIChildren[i].BringToFront。var MDIWageCategory: TMDIWageCategory。end。 MDIPost := (Application)。 Exit。begin for i:=0 to MDIChildCount1 do if MDIChildren[i] is TMDIPost then begin MDIChildren[i].BringToFront。var MDIPost: TMDIPost。end。 MDIDepartment := (Application)。 Exit。begin for i:=0 to MDIChildCount1 do if MDIChildren[i] is TMDIDepartment then begin MDIChildren[i].BringToFront。var MDIDepartment: TMDIDepartment。end。 MDIPersonnel := (Application)。 Exit。begin for i:=0 to MDIChildCount1 do if MDIChildren[i] is TMDIPersonnel then begin MDIChildren[i].BringToFront。var MDIPersonnel: TMDIPersonnel。end。procedure (Sender: TObject)。begin Close。implementation{$R *.dfm}uses Login, Personnel, Department, Post, Wage, WageCategory, User, About。var MainForm: TMainForm。 procedure FileDataInitClick(Sender: TObject)。 procedure FormActivate(Sender: TObject)。 procedure FileWageCategoryClick(Sender: TObject)。 procedure FileDepartmentClick(Sender: TObject)。 procedure FileExitExecute(Sender: TObject)。 FileDataInit: TMenuItem。 FileUser: TMenuItem。 FileWageCategory: TMenuItem。 FilePost: TMenuItem。 FileDepartment: TMenuItem。 FileWage: TMenuItem。 WindowTileItem2: TMenuItem。 HelpAbout1: TAction。 WindowArrangeAll1: TWindowArrange。 WindowCascade1: TWindowCascade。 ActionList: TActionList。 HelpAboutItem: TMenuItem。 WindowTileItem: TMenuItem。 FileExitItem: TMenuItem。 Window: TMenuItem。type TMainForm = class(TForm) MainMenu: TMainMenu。 系統(tǒng)主程序流程 系統(tǒng)主界面設(shè)計 系統(tǒng)主程序設(shè)計unit Main。4. 系統(tǒng)實現(xiàn)系統(tǒng)實施的最主要工作是程序設(shè)計，此外還包括了物理系統(tǒng)的實施、程序的調(diào)試等。(2) 用戶界面設(shè)計（詳見各子模塊用戶界面）①人機對話方式：通過屏幕、鍵盤、鼠標與系統(tǒng)對話，當操作錯誤時系統(tǒng)給出提示和警告。字段字段名稱類型寬度必需索引說明1用戶名文本20是有無重復(fù)主鍵2密碼文本30是3確認密碼文本30是4備注文本100 輸出設(shè)計(1) 選擇輸出方式 ：顯示終端、打印機；(2) 確定輸出格式：格式設(shè)計體現(xiàn)在各類報表中；(3) 輸出的主要形式：報表；(4) 輸出的內(nèi)容：主要有員工信息、工資信息、部門信息、職務(wù)信息、工資類別信息和用戶信息。字段字段名稱類型寬度必需索引說明1員工編號文本20是有重復(fù)主鍵2工資類別編號數(shù)字長整型是有重復(fù)主鍵