?? lh_bom.~dpr
字號:
program LH_BOM;
uses
Forms,
Windows,
SysUtils,
Messages,
Dialogs,
main in 'public\main.pas' {frmMain},
Base in 'public\Base.pas' {frmBase},
Global in 'public\Global.pas',
MDIBase in 'public\MDIBase.pas' {frmMDIBase},
MainControl in 'public\MainControl.pas' {frmMainControl},
Loading in 'public\Loading.pas' {frmLoading},
MDISystem in 'public\MDISystem.pas' {frmMDISystem},
Login in 'public\Login.pas' {frmLogin},
DailogBase in 'public\DailogBase.pas' {frmDailogBase},
LookupBase in 'public\LookupBase.pas' {frmLookupBase},
TreeBase in 'public\TreeBase.pas' {frmTreeBase},
QueryBase in 'public\QueryBase.pas' {frmQueryBase},
ChangePWD in 'public\ChangePWD.pas' {frmChangePWD},
InfoBase in 'public\InfoBase.pas' {frmInfoBase},
BaseInfoBase in 'public\BaseInfoBase.pas' {frmBaseInfoBase},
BaseUser in 'System\BaseUser.pas' {frmBaseUser},
GroupRight in 'System\GroupRight.pas' {frmGroupRight},
BaseGroup in 'System\BaseGroup.pas' {frmBaseGroup},
BaseEType in 'System\BaseEType.pas' {frmBaseEType},
PersonalSet in 'System\PersonalSet.pas' {frmPersonalSet},
ModuleControl in 'Public\ModuleControl.pas' {frmModuleControl},
BaseModule_Func in 'System\BaseModule_Func.pas' {frmBaseModule_Func},
BaseDefine in 'Public\BaseDefine.pas' {frmBaseDefine},
DataModule in 'Public\DataModule.pas' {dmClient: TDataModule},
ProductInfo in 'syl\ProductInfo.pas' {frmProductInfo},
pasBom in 'syl\pasBom.pas' {frmBom},
pasMDIBom in 'syl\pasMDIBom.pas' {frmMDIBom},
LookupGeneralCcinput in 'syl\LookupGeneralCcinput.pas' {frmLookupGeneralCcinput},
khcx in 'zlf\khcx.pas' {frmkhcx},
BaseWorkingProcedure in 'zlf\BaseWorkingProcedure.pas' {frmBaseWorkingProcedure},
CcBaseNames in 'zlf\CcBaseNames.pas' {frmCcBaseNames},
Slip_money in 'wxh\Slip_money.pas' {frmSlip_money},
CcSlipFile in 'wxh\CcSlipFile.pas' {frmCcSlipFile},
LookupSlipFile in 'wxh\LookupSlipFile.pas' {frmLookupSlipFile},
import in 'syl\import.pas' {frmimport},
InfoImport in 'syl\InfoImport.pas' {frmInfoImport},
Slip_Print in 'wxh\Slip_Print.pas' {frmSlip_Print},
printxh in 'yww\printxh.pas' {frmprintxh},
select in 'syl\select.pas' {Frmselect},
TechnicsFlow in 'syl\TechnicsFlow.pas' {frmTechnicsFlow},
otherclass in 'syl\otherclass.pas' {frmotherclass};
{$R *.res}
const
CM_Restore=WM_User+$1000;
MyAppName='LH_BOM';
var
currentTime:Longword;
RvHandle:HWND;
begin
RvHandle:=FindWindow(MyAppName,Nil);
if RvHandle>0 then
begin
{Application.MessageBox('已打開相同程序,請節約資源!','信息提示',MB_OK);
PostMessage(RvHandle,CM_Restore,0,0);
Exit;}//去掉此判斷,暫時不用。
end;
frmLoading:=TfrmLoading.Create(frmLoading);
frmLoading.Show;
frmLoading.Update;
currentTime:=GetTickCount div 1000;
while ((GetTickCount div 1000)<(currentTime)) do//控制時間為3秒
begin
end;
Application.Initialize;
Application.Title := '產品信息管理系統';
Application.CreateForm(TdmClient, dmClient);
Application.CreateForm(TfrmLogin, frmLogin);
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(Tfrmotherclass, frmotherclass);
//Login.frmLogin:=login.TfrmLogin.Create(Login.frmLogin);
frmLoading.Hide;
FreeAndNil(frmLoading);
//frmLoading.Close;
Application.Run;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -