【文章內容簡介】 er: TObject)。var MDIPost: TMDIPost。 i: integer。begin for i:=0 to MDIChildCount1 do if MDIChildren[i] is TMDIPost then begin MDIChildren[i].BringToFront。 if MDIChildren[i].WindowState = wsMinimized then MDIChildren[i].WindowState := wsNormal。 Exit。 end。 MDIPost := (Application)。 。end。procedure (Sender: TObject)。var MDIWageCategory: TMDIWageCategory。 i: integer。begin for i:=0 to MDIChildCount1 do if MDIChildren[i] is TMDIWageCategory then begin MDIChildren[i].BringToFront。 if MDIChildren[i].WindowState = wsMinimized then MDIChildren[i].WindowState := wsNormal。 Exit。 end。 MDIWageCategory := (Application)。 。end。procedure (Sender: TObject)。var MDIWage: TMDIWage。 i: integer。begin for i:=0 to MDIChildCount1 do if MDIChildren[i] is TMDIWage then begin MDIChildren[i].BringToFront。 if MDIChildren[i].WindowState = wsMinimized then MDIChildren[i].WindowState := wsNormal。 Exit。 end。 MDIWage := (Application)。 。end。procedure (Sender: TObject)。begin if ShowLogin then begin 。 if ShowLogin then Close。 end。end。procedure (Sender: TObject)。var MDIUser: TMDIUser。 i: integer。begin for i:=0 to MDIChildCount1 do if MDIChildren[i] is TMDIUser then begin MDIChildren[i].BringToFront。 if MDIChildren[i].WindowState = wsMinimized then MDIChildren[i].WindowState := wsNormal。 Exit。 end。 MDIUser := (Application)。 。end。end. 子程序設計 系統(tǒng)登錄unit Login。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls。type TLoginBox = class(TForm) ButtonLogin: TButton。 ButtonCancel: TButton。 LabelUser: TLabel。 EditUser: TEdit。 LabelPassword: TLabel。 EditPassword: TEdit。 ADOQueryLogin: TADOQuery。 procedure ButtonLoginClick(Sender: TObject)。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 procedure ButtonCancelClick(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var LoginBox: TLoginBox。 LoginTime: Integer=0。 implementation{$R *.dfm}uses Main。procedure (Sender: TObject)。begin if (39。39。) then begin try 。 。 (39。SELECT COUNT(*) FROM 用戶 WHERE 用戶名=:User AND 密碼=:Password39。)。 (39。User39。).Value:=。 (39。Password39。).Value:=。 。 if [0].AsInteger=1 then begin ShowLogin:=False。 Close。 end else begin ShowMessage(39。用戶名或密碼錯誤！39。)。 LoginTime:=LoginTime+1。 if LoginTime=3 then Close。 end。 finally 。 end。 end。end。procedure (Sender: TObject。 var Action: TCloseAction)。begin Action := caFree。end。procedure (Sender: TObject)。begin Close。end。end. 員工管理unit Personnel。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。type TMDIPersonnel = class(TForm) DataSourcePersonne: TDataSource。 ADOQueryPersonne: TADOQuery。 cxGrid1DBTableView1: TcxGridDBTableView。 cxGrid1Level1: TcxGridLevel。 cxGrid1: TcxGrid。 cxDBNavigator1: TcxDBNavigator。 cxGrid1DBTableView1DBColumn: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn1: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn2: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn3: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn4: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn5: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn6: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn7: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn8: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn9: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn10: TcxGridDBColumn。 cxGrid1DBTableView1DBColumn11: TcxGridDBColumn。 DataSourceDepartment: TDataSource。 ADOQueryDepartment: TADOQuery。 DataSourcePost: TDataSource。 ADOQueryPost: TADOQuery。 procedure ADOQueryPersonnePostError(DataSet: TDataSet。 E: EDatabaseError。 var Action: TDataAction)。 procedure FormClose(Sender: TObject。 var