?? fpglxt.dpr
字號:
program FPGLXT;
uses
Forms,
MainUnit in 'MainUnit.pas' {MainForm},
createdata in 'createdata.pas' {createdataForm},
dm in 'dm.pas' {DMData: TDataModule},
OpenUnit in 'OpenUnit.pas' {Openform},
CreateUnit1 in 'CreateUnit1.pas' {CreateZtForm},
yhhz_AboutBox in 'yhhz_AboutBox.pas' {F_ABox},
updataztUnit in 'updataztUnit.pas' {updataForm},
BmUnit in 'BmUnit.pas' {BmForm},
BjqlUnit in 'BjqlUnit.pas' {BjqlForm},
GrUnit in 'GrUnit.pas' {GrForm},
QcKqUnit in 'QcKqUnit.pas' {QcKqForm},
GrqxUnit in 'GrqxUnit.pas' {GrqxForm},
BjllUnitpas in 'BjllUnitpas.pas' {bjllForm},
XhUnit in 'XhUnit.pas' {XhForm},
ThUnit in 'ThUnit.pas' {ThForm},
GrmsUnit in 'GrmsUnit.pas' {GrmsForm},
LeUnit in 'LeUnit.pas' {leForm},
KqUnit in 'KqUnit.pas' {KqForm},
XhqyUnit in 'XhqyUnit.pas' {XhqyForm},
BmkqUnit in 'BmkqUnit.pas' {BmkqForm},
LeMsUnit in 'LeMsUnit.pas' {LeMsForm},
KqMsUnit in 'KqMsUnit.pas' {KqMsForm},
XhMsUnit in 'XhMsUnit.pas' {XhMsForm},
BmKqMsUnit in 'BmKqMsUnit.pas' {BmKqMsForm},
JzUnit in 'JzUnit.pas' {JzForm},
FzUnit in 'FzUnit.pas' {FzForm},
jqUnit in 'jqUnit.pas' {jqform},
thqsUnit in 'thqsUnit.pas' {thqsForm},
thmsUnit in 'thmsUnit.pas' {thmsForm};
{$R *.res}
begin
Application.Initialize;
Application.Title := '票據(jù)管理系統(tǒng)';
Application.CreateForm(TDMData, DMData);
Application.CreateForm(TOpenform, Openform);
//dmdata.ADOConnectiondata.Connected:=false;
//createdataform.ShowModal;
//if dmdata.ADOConnectiondata.Connected then
//begin
// createdataform.free;
//application.CreateForm(Topenform,openform);
openform.ShowModal;
// application.CreateForm(TMainForm,MainForm);
// Application.Run;
if openform.loginok then
begin
openform.Free;
application.CreateForm(TMainForm,MainForm);
Application.Run;
//end;
end
else
Application.Terminate;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -