?? piecerate.dpr
字號:
program PieceRate;
uses
Windows,
Messages,
SysUtils,
Variants,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
StdCtrls,
Buttons,
Main in 'Main.pas' {frmMain},
Flash in 'Flash.pas' {frmFlash},
Login in 'Login.pas' {frmLogin},
DataCenter in 'DataCenter.pas' {DmData: TDataModule},
ProdRate in 'ProdRate.pas' {frmProdRate},
SetDataSource in 'SetDataSource.pas' {frmSetDataSource},
ChoicePerson in 'ChoicePerson.pas' {frmChoicePerson},
ProdRateSearch in 'ProdRateSearch.pas' {frmProdRateSearch},
WorkType in 'WorkType.pas' {frmWorkType},
dept in 'dept.pas' {frmDept},
Personel in 'Personel.pas' {frmPersonel},
Rates in 'Rates.pas' {frmRates},
frmAffiche in 'frmAffiche.pas' {AfficheForm},
frmRatePMTotal in 'frmRatePMTotal.pas' {RatePMTotalForm},
frmPicecPMTotal in 'frmPicecPMTotal.pas' {PicecPMTotalForm},
frmCheckPMTotal in 'frmCheckPMTotal.pas' {CheckPMTotalForm},
UserGl in 'UserGl.pas' {frmUserGL},
frmGzcalc in 'frmGzcalc.pas' {GzcalcForm},
frmNoExist in 'frmNoExist.pas' {NoexistForm},
frmSearchRate in 'frmSearchRate.pas' {SearchRateForm},
frmMsg in 'frmMsg.pas' {MsgForm},
frmPicecCalc in 'frmPicecCalc.pas' {PicecCalcForm},
frmCheckCalc in 'frmCheckCalc.pas' {CheckCalcForm};
{$R *.res}
begin
Application.Initialize;
Application.Title := '計件工資管理系統(tǒng)';
Application.CreateForm(TDmData, DmData);
frmFlash:=TfrmFlash.Create(application);
frmFlash.Show;
frmFlash.Update;
frmLogin:=TfrmLogin.Create(Application);
frmFlash.Hide;
frmFlash.Free;
// 下面兩句代碼的作用:當(dāng)Server.Ini數(shù)據(jù)源配置錯誤,在設(shè)置數(shù)據(jù)源時會使FrmSetDataSource作為軟件主窗品,當(dāng)在下面加入以下兩句后就可使FrmDataSource不作主窗體
if Application.FindComponent('frmSetDataSource')<>nil then
frmSetDataSource.Free;
//主窗體調(diào)整結(jié)束
frmLogin.ShowModal;
frmLogin.Update;
if frmLogin.ModalResult=mrOK then
Application.CreateForm(TfrmMain, frmMain);
Application.Run;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -