?? project1.dpr
字號:
Program Project1;
Uses
ExceptionLog,
Forms, SysUtils, Windows,
MainUnit In 'MainUnit.pas' {MainForm},
DM In 'DM.pas' {DataModule2: TDataModule},
SoftReg In 'SoftReg.pas' {RegSoftForm},
GetCPUID In 'GetCPUID.pas',
HDID In 'HDID.PAS',
md5 In 'md5.pas',
BiosHelp In 'BiosHelp.pas',
Login In 'Login.pas' {LoginForm},
CnBase64 In 'CNBASE64.PAS',
LoginInfo In 'LoginInfo.pas' {ViewLoginForm},
CompactDB In 'CompactDB.pas' {CompactDBForm},
RestoreDB In 'RestoreDB.pas' {RestoreDBForm},
CompactMDB In 'CompactMDB.pas',
UserOparet In 'UserOparet.pas' {UserOparet},
CoVIEWUnit In 'CoVIEWUnit.pas' {ComViewForm},
EditComUnit In 'EditComUnit.pas' {EditComForm},
PUBFunction In 'PUBFunction.pas',
ViewWorkerUnit In 'ViewWorkerUnit.pas' {WorkerViewForm},
EditWorkerUnit In 'EditWorkerUnit.pas' {EditWorkerForm},
ViewCasterUnit In 'ViewCasterUnit.pas' {ViewCasterForm},
EditCasterUnit In 'EditCasterUnit.pas' {EditCasterForm},
VIEWItemUnit In 'VIEWItemUnit.pas' {VIEWItemForm},
EditItemUnit In 'EditItemUnit.pas' {EditItemForm},
ViewHouseUnit In 'ViewHouseUnit.pas' {ViewHouseForm},
EditHourseUnit In 'EditHourseUnit.pas' {EditHourseForm},
VIEWLicenceUnit In 'VIEWLicenceUnit.pas' {VIEWLicenceForm},
EditLicenceUnit In 'EditLicenceUnit.pas' {EditLicenceForm},
ViewRutOnRecordUnit In 'ViewRutOnRecordUnit.pas' {ViewRutOnRecordForm},
EditPutOnRecordUnit In 'EditPutOnRecordUnit.pas' {EditPutOnRecordForm},
ViewUnitUnit In 'ViewUnitUnit.pas' {ViewUnitForm},
EditUnitnit In 'EditUnitnit.pas' {EditUnitForm},
ViewLesseeUnit In 'ViewLesseeUnit.pas' {ViewLesseeForm},
EditLesseeUnit In 'EditLesseeUnit.pas' {EditLesseeForm},
UnitForSaleUnit In 'UnitForSaleUnit.pas' {UnitForSaleForm},
UnitObligateUnit In 'UnitObligateUnit.pas' {UnitObligateForm},
UnitPreconcertUnit In 'UnitPreconcertUnit.pas' {UnitPreconcertForm},
UnitTenancyUnit In 'UnitTenancyUnit.pas' {UnitTenancyForm},
UnitTenancyCaseUnit In 'UnitTenancyCaseUnit.pas' {UnitTenancyCaseForm},
UnitMortgageUnit In 'UnitMortgageUnit.pas' {UnitMortgageForm},
ListSellCaseUnit In 'ListSellCaseUnit.pas' {ListSellCaseForm},
UnitSellUnit In 'UnitSellUnit.pas' {UnitSellForm},
UnitPullDownUnit In 'UnitPullDownUnit.pas' {UnitPullDownForm},
SearchByHourseUnit In 'SearchByHourseUnit.pas' {SearchByHourseForm},
CALMoneyx In 'CALMoneyx.pas',
CalMoney In 'CalMoney.pas' {CalForm},
UnitCastPurposeUnit In 'UnitCastPurposeUnit.pas' {UnitCastPurposeForm},
PrintContractUnit In 'PrintContractUnit.pas' {PrintContractForm},
SearchBySellUniT In 'SearchBySellUniT.pas' {SearchBySellForm},
SearchSellOnlyUnit In 'SearchSellOnlyUnit.pas' {SearchSellOnlyForm},
SearchByTimeUnit In 'SearchByTimeUnit.pas' {SearchByTimeForm},
EDITTenancyCase2Unit In 'EDITTenancyCase2Unit.pas' {EDITTenancyCase2Form},
SearchByInfringeUnit In 'SearchByInfringeUnit.pas' {SearchByInfringeForm},
HTMLHelp_Decl In 'HTMLHELP_Decl.pas',
SearchByHistoryUnit In 'SearchByHistoryUnit.pas' {SearchByHistoryForm};
{$R *.res}
Var
Apath : String;
Begin
Application.Initialize;
Apath := ExtractFilePath(Application.ExeName);
If Not FileExists(Apath + 'x.mdb') Then Begin
Application.MessageBox('數據庫文件:X.MDB丟失!程序自動關閉!', '錯誤!',
MB_ICONERROR);
Application.Terminate;
End Else Begin
Application.CreateForm(TDataModule2, DataModule2);
Application.CreateForm(TMainForm, MainForm);
Application.Run;
End;
End.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -