soft.dpr

企业ERP管理系统

  YDBrPurchasePlan in 'Yd\YDBrPurchasePlan.pas' {YDBrPurchasePlanForm},
  YDBOMBack in 'Yd\YDBOMBack.pas' {YDBOMBackFrom},
  YDStockInWork in 'Yd\YDStockInWork.pas' {YDStockInWorkFrom},
  SLSaleFruitList in 'Sl\SLSaleFruitList.pas' {SLSaleFruitListForm},
  PCPurchaseFruitList in 'Pc\PCPurchaseFruitList.pas' {PCPurchaseFruitListForm},
  SRBrWorkTime in 'SR\SRBrWorkTime.pas' {SRBrWorkTimeForm},
  SREdWorkTime in 'SR\SREdWorkTime.pas' {SREdWorkTimeForm},
  SRBrWorkSchedule in 'SR\SRBrWorkSchedule.pas' {SRBrWorkScheduleForm},
  SREdWorkSchedule in 'SR\SREdWorkSchedule.pas' {SREdWorkScheduleForm},
  SREdWorkRest in 'SR\SREdWorkRest.pas' {SREdWorkRestForm},
  SRBrWorkRest in 'SR\SRBrWorkRest.pas' {SRBrWorkRestForm},
  SLEdSaleClient in 'Sl\SLEdSaleClient.pas' {SLEdSaleClientForm},
  SLBrSaleClient in 'Sl\SLBrSaleClient.pas' {SLBrSaleClientForm},
  WSVoucherImport in 'WSVoucherImport.pas' {WSVoucherImportForm},
  SREdWorkTimeCnt in 'SR\SREdWorkTimeCnt.pas' {SREdWorkTimeCntForm},
  SRBrWorkTimeCnt in 'SR\SRBrWorkTimeCnt.pas' {SRBrWorkTimeCntForm},
  SLSaleChainList in 'Sl\SLSaleChainList.pas' {SLSaleChainListForm},
  SRSalaryAnalyze in 'SR\SRSalaryAnalyze.pas' {SRSalaryAnalyzeForm},
  FAEdAssetAdd in 'Fa\FAEdAssetAdd.pas' {FAEdAssetAddForm},
  FABrAssetAdd in 'Fa\FABrAssetAdd.pas' {FABrAssetAddForm},
  FABrDepreciation in 'Fa\FABrDepreciation.pas' {FABrDepreciationForm},
  FAEdDepreciation in 'Fa\FAEdDepreciation.pas' {FAEdDepreciationForm},
  FNAssetRept in 'Fa\FNAssetRept.pas' {FNAssetReptFrom},
  MSBrEmployee in 'Ms\MSBrEmployee.pas' {MSBrEmployeeForm},
  FAEdAssetReduce in 'Fa\FAEdAssetReduce.pas' {FAEdAssetReduceForm},
  FABrAssetReduce in 'Fa\FABrAssetReduce.pas' {FABrAssetReduceForm},
  BaseVoucherEditA in 'BaseVoucherEditA.pas' {BaseVoucherEditAForm},
  FAEdAssetRepair in 'Fa\FAEdAssetRepair.pas' {FAEdAssetRepairForm},
  FABrAssetRepair in 'Fa\FABrAssetRepair.pas' {FABrAssetRepairForm},
  FABrAssetRePlan in 'Fa\FABrAssetRePlan.pas' {FABrAssetRePlanForm},
  FAEdAssetRePlan in 'Fa\FAEdAssetRePlan.pas' {FAEdAssetRePlanForm},
  FAAssetChange in 'Fa\FAAssetChange.pas' {FAAssetChangeFrom},
  FAAssetPlanRept in 'Fa\FAAssetPlanRept.pas' {FAAssetPlanReptFrom},
  YDDailyReport in 'Yd\YDDailyReport.pas' {YDDailyReportForm},
  YDStatisticReport in 'Yd\YDStatisticReport.pas' {YDStatisticReportForm},
  MSEdUserNew in 'Ms\MSEdUserNew.pas' {MSEdUserNewForm},
  MSBrUserNew in 'Ms\MSBrUserNew.pas' {MSBrUserNewForm},
  SRBrJobs in 'SR\SRBrJobs.pas' {SRBrJobsForm},
  FNAccountAgeSL in 'Fn\FNAccountAgeSL.pas' {FNAccountAgeSLForm},
  SLSaleForeCast in 'Sl\SLSaleForeCast.pas' {SLSaleForeCastForm},
  WSVoucherEditSY in '..\..\Public\Template\WSVoucherEditSY.pas' {WSVoucherEditSYForm},
  PCPurchaseStatistic in 'Pc\PCPurchaseStatistic.pas' {PCPurchaseStatisticForm},
  SLSaleStatistic in 'Sl\SLSaleStatistic.pas' {SLSaleStatisticForm},
  PCPurchaseForeCast in 'Pc\PCPurchaseForeCast.pas' {PCPurchaseForeCastForm},
  SLRpSale in 'Sl\SLRpSale.pas' {SLSaleVoucherReport: TQuickRep},
  PCEdPurchasePrice in 'Pc\PCEdPurchasePrice.pas' {PCedPurchasePriceForm},
  PCBrPurchasePrice in 'Pc\PCBrPurchasePrice.pas' {PCBrPurchasePriceForm},
  SLEdSaleGTP in 'Sl\SLEdSaleGTP.pas' {SLEdSaleGTPForm},
  SLEdOrderGTP in 'Sl\SLEdOrderGTP.pas' {SLEdOrderGTPForm},
  SLEdSaleBGTP in 'Sl\SLEdSaleBGTP.pas' {SLEdSaleBGTPForm},
  SLEdGoodsOutGTP in 'Sl\SLEdGoodsOutGTP.pas' {SLEdGoodsOutGTPForm},
  SLEdGoodsOutBGTP in 'Sl\SLEdGoodsOutBGTP.pas' {SLEdGoodsOutBGTPForm},
  SLEdSaleClientGTP in 'Sl\SLEdSaleClientGTP.pas' {SLEdSaleClientGTPForm},
  PCEdGoodsInGTP in 'Pc\PCEdGoodsInGTP.pas' {PCEdGoodsInGTPForm},
  PCEdGoodsInBGTP in 'Pc\PCEdGoodsInBGTP.pas' {PCEdGoodsInBGTPForm},
  PCEdOrderGTP in 'Pc\PCEdOrderGTP.pas' {PCEdOrderGTPForm},
  PCEdPurchaseGTP in 'Pc\PCEdPurchaseGTP.pas' {PCEdPurchaseGTPForm},
  PCEdPurchaseBGTP in 'Pc\PCEdPurchaseBGTP.pas' {PCEdPurchaseBGTPForm},
  YDEdGoodsInGTP in 'Yd\YDEdGoodsInGTP.pas' {YDEdGoodsInGTPForm},
  YDEdGoodsOutGTP in 'Yd\YDEdGoodsOutGTP.pas' {YDEdGoodsOutGTPForm},
  STEdGoodsCountOffGTP in 'St\STEdGoodsCountOffGTP.pas' {STEdGoodsCountOffGTPForm},
  STEdGoodsOutInGTP in 'St\STEdGoodsOutInGTP.pas' {STEdGoodsOutInGTPForm},
  MSDataRestore in 'Ms\MSDataRestore.pas' {MSDataRestoreForm},
  VoucherImport in 'VoucherImport.pas' {VoucherImportForm},
  MSEdUserPassWord in 'Ms\MSEdUserPassWord.pas' {MSEdUserPassWordForm},
  DAProjectBrowse in 'EG\DAProjectBrowse.pas' {DAProjectBrowseForm},
  DAProjectEdit in 'EG\DAProjectEdit.pas' {DAProjectEditForm},
  EGExpenseStatistic in 'EG\EGExpenseStatistic.pas' {EGExpenseStatisticForm},
  DAEdWarehouse in 'Da\DAEdWarehouse.pas' {DAEdWarehouseForm},
  DABrWarehouse in 'Da\DABrWarehouse.pas' {DABrWarehouseForm},
  DABrProjectClass in 'Da\DABrProjectClass.pas' {DAProjectClassBrowseForm},
  DAEdProjectClass in 'Da\DAEdProjectClass.pas' {DAProjectClassEditForm},
  DABrProject in 'Da\DABrProject.pas' {DABrProjectForm},
  DAEdProject in 'Da\DAEdProject.pas' {DAEdProjectForm},
  DASubject in 'Da\DASubject.pas' {DASubjectForm},
  DAEdAccountCode in 'Da\DAEdAccountCode.pas' {DAEdAccountCodeForm},
  AboutZW in 'AboutZW.pas' {AboutZWForm},
  FNBrCredence in 'Fn\FNBrCredence.pas' {FNCredenceBrowseForm},
  FNEdCredence in 'Fn\FNEdCredence.pas' {FNCredenceEditForm},
  FNExpenseSttc in 'Fn\FNExpenseSttc.pas' {FNExpenseSttcForm},
  FNAccountAgePC in 'Fn\FNAccountAgePC.pas' {FNAccountAgePCForm},
  WSDateRangeFm in '..\..\Public\Template\WSDateRangeFm.pas' {WSDateRangeFrame: TFrame},
  FNRptCustomize in 'Fn\FNRptCustomize.pas' {FNCustomizeReportForm},
  FNRptSubjectCollect in 'Fn\FNRptSubjectCollect.pas' {FNSubjectCollectReportForm},
  FNRptSubjectDetailCollect in 'Fn\FNRptSubjectDetailCollect.pas' {FNSubjectDetailsCollectReportForm},
  WSRptFrm in '..\..\Public\Template\WSRptFrm.pas' {WSReportForm},
  FNRptSubjectDetails in 'Fn\FNRptSubjectDetails.pas' {FNSubjectDetailsReportForm},
  STBrPCGoodsInCost in 'St\STBrPCGoodsInCost.pas' {STBrPCGoodsInCostForm},
  STEdPCGoodsInCost in 'St\STEdPCGoodsInCost.pas' {STEdPCGoodsInCostForm},
  FNBrVouchTran in 'Fn\FNBrVouchTran.pas' {FNBrVouchTranForm},
  FNEdVouchTran in 'Fn\FNEdVouchTran.pas' {FNEdVouchTranForm},
  FNVouchTranIni in 'Fn\FNVouchTranIni.pas' {FNVouchTranIniForm},
  STActualStock in 'St\STActualStock.pas' {STActualStockForm},
  STNewStockRep in 'St\STNewStockRep.pas' {STNewStockRepForm},
  SLRpCheckReckoning in 'Sl\SLRpCheckReckoning.pas' {SLCheckReckoningReport: TQuickRep},
  PCRpCheckReckoning in 'Pc\PCRpCheckReckoning.pas' {PCCheckReckoningReport: TQuickRep},
  STEdSLGoodsOutCost in 'St\STEdSLGoodsOutCost.pas' {STEdSLGoodsOutCostForm},
  STBrSLGoodsOutCost in 'St\STBrSLGoodsOutCost.pas' {STBrSLGoodsOutCostForm},
  STBrYDGoodsInCost in 'St\STBrYDGoodsInCost.pas' {STBrYDGoodsInCostForm},
  STEdYDGoodsInCost in 'St\STEdYDGoodsInCost.pas' {STEdYDGoodsInCostForm},
  EGEdGoodsOutGTP in 'EG\EGEdGoodsOutGTP.pas' {EGEdGoodsOutGTPForm},
  EGEdGoodsOut in 'EG\EGEdGoodsOut.pas' {EGEdGoodsOutForm},
  EGBrGoodsOut in 'EG\EGBrGoodsOut.pas' {EGBrGoodsOutForm},
  FNEdClearEG in 'Fn\FNEdClearEG.pas' {FNEdClearEGForm},
  FNBrClearEG in 'Fn\FNBrClearEG.pas' {FNBrClearEGForm},
  EGProjectStatistic in 'EG\EGProjectStatistic.pas' {EGProjectStatisticForm},
  SLEdSaleCloth in 'SL\SLEdSaleCloth.pas' {SLEdSaleClothForm},
  SLBrSaleCloth in 'SL\SLBrSaleCloth.pas' {SLBrSaleClothForm},
  PCBrPurchaseCloth in 'Pc\PCBrPurchaseCloth.pas' {PCBrPurchaseClothForm},
  PCEDPurchaseCloth in 'Pc\PCEDPurchaseCloth.pas' {PCEDPurchaseClothForm},
  STBrClothOutIn in 'St\STBrClothOutIn.pas' {STBrClothOutInForm},
  STEdClothOutIn in 'St\STEdClothOutIn.pas' {STEdClothOutInForm},
  STEdClothCountOff in 'St\STEdClothCountOff.pas' {STEdClothCountOffForm},
  STBRClothCountOff in 'St\STBRClothCountOff.pas' {STBRClothCountOffForm},
  SLSaleClothStatistic in 'SL\SLSaleClothStatistic.pas' {SLSaleClothStatisticForm},
  PCPurchaseClothStatistic in 'Pc\PCPurchaseClothStatistic.pas' {PCPurchaseClothStatisticForm},
  STClothStockRep in 'St\STClothStockRep.pas' {STClothStockRepForm},
  STBrYDGoodsOutCost in 'St\STBrYDGoodsOutCost.pas' {STBrYDGoodsOutCostForm},
  STEdYDGoodsOutCost in 'St\STEdYDGoodsOutCost.pas' {STEdYDGoodsOutCostForm},
  SLBrSaleDsct in 'SL\SLBrSaleDsct.pas' {SLBrSaleDsctForm},
  SLEdSaleDsct in 'SL\SLEdSaleDsct.pas' {SLEdSaleDsctForm},
  SLEdSaleDsctGTP in 'SL\SLEdSaleDsctGTP.pas' {SLEdSaleDsctGTPForm},
  FNBrCashExchange in 'Fn\FNBrCashExchange.pas' {FNBrCashExchangeForm},
  FNEdCashExchange in 'Fn\FNEdCashExchange.pas' {FNEdCashExchangeForm},
  FNCashExchStatistic in 'Fn\FNCashExchStatistic.pas' {FNCashExchStatisticForm},
  FNEdCashInFRG in 'Fn\FNEdCashInFRG.pas' {FNEdCashInFRGForm},
  FNEdCashOutFRG in 'Fn\FNEdCashOutFRG.pas' {FNEdCashOutFRGForm},
  FNEdExpenseFRG in 'Fn\FNEdExpenseFRG.pas' {FNEdExpenseFRGForm},
  FNEdClearEGFRG in 'Fn\FNEdClearEGFRG.pas' {FNEdClearEGFRGForm},
  FNEdClearPCFRG in 'Fn\FNEdClearPCFRG.pas' {FNEdClearPCFRGForm},
  FNEdClearSLFRG in 'Fn\FNEdClearSLFRG.pas' {FNEdClearSLFRGForm};

{$R *.RES}

{$IFDEF TRIAL}
var
  CKey: TKey = ($214);
  Code: TCode; S: string;
{$ENDIF}
begin
{$IFDEF TRIAL}
  S := 'NoCode';
  with TRegistry.Create do
  try
    RootKey := HKEY_CLASSES_ROOT;
    if OpenKey('CLSID\' + GUIDToString(TGUID(CKey)) + '\Codes', True) then
      if ValueExists('DaysCode') then S := ReadString('DaysCode');
    if S = 'NoCode' then
    begin
      InitDaysCode(CKey, 30, EncodeDate(2003, 12, 31), Code);
      S := BufferToHex(Code, SizeOf(Code));
    end
    else HexToBuffer(S, Code, SizeOf(Code));
    if not IsDaysCodeValid(CKey, Code) then
      raise Exception.Create('注册码错误');
    DecDaysCode(CKey, Code);
    if IsDaysCodeExpired(CKey, Code) then
    begin
      Application.MessageBox('本产品尚未授权!', '',
        MB_ICONINFORMATION or MB_OK);
      Exit;
    end;
    S := BufferToHex(Code, SizeOf(Code));
    WriteString('DaysCode', S);
  finally
    Free;
  end;
{$ENDIF}

  Application.Initialize;
  Application.Title := 'ERP';
  Application.CreateForm(TCommonData, CommonData);
  Application.CreateForm(TMainForm, MainForm);
  Guarder.Close;
  Guarder.Open;
  MainForm.DisableMenuItems(MainForm.MainMenu.Items);
  Application.Run;
end.