project1.dpr

安邦售楼系统单机版 (DELPHI格式源码),比较实用

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.