nanpupawn.dpr

一个典当行的业务管理系统程序

program NanPuPawn;

uses
  Forms,
  Pawn in 'Pawn.pas' {frmMain},
  PawnInput in 'PawnInput.pas' {frmPawnInput},
  Ransom in 'Ransom.pas' {frmRansom},
  Stockpile in 'Stockpile.pas' {frmStockpile},
  MoneyStac in 'MoneyStac.pas' {frmMoneyStac},
  Login in 'Login.pas' {frmLogin},
  StockMoney in 'StockMoney.pas' {frmStockMoney},
  OperCode in 'OperCode.pas' {frmOperCode},
  RepawnInput in 'RepawnInput.pas' {frmRePawnInput},
  PawnQuery in 'PawnQuery.pas' {frmPawnQuery},
  PawnModify in 'PawnModify.pas' {frmPawnModify},
  Handle in 'Handle.pas' {frmHandle},
  dmPawn in 'dmPawn.pas' {dmPawnFrm: TDataModule},
  Msg in 'Msg.pas',
  Pay in 'Pay.pas' {frmPay},
  NewPay in 'NewPay.pas' {frmNewPay},
  BuyPay in 'BuyPay.pas' {frmBuyPay},
  DeadLimitSet in 'DeadLimitSet.pas' {frmDeadLimit},
  DayReport in 'DayReport.pas' {frmDayReport},
  Category in 'Category.pas' {frmCategory},
  ConverDead in 'ConverDead.pas' {frmConverDead},
  SetCode in 'SetCode.pas' {frmSetCode},
  GlobalVar in 'GlobalVar.pas',
  Certificate in 'Certificate.pas' {frmCertificate},
  HandlExcep in 'HandlExcep.pas',
  ConfirmDate in 'ConfirmDate.pas' {frmConfirmDate},
  SetLimit in 'SetLimit.pas' {frmSetLimit},
  DataBackup in 'DataBackup.pas' {frmDataBackup},
  DataClear in 'DataClear.pas' {frmDataClear},
  MonthReport in 'MonthReport.pas' {frmMonthRep},
  FpPrint in 'FpPrint.pas' {frptFp: TQuickRep},
  PrintTicket in 'PrintTicket.pas' {frmPrint},
  rptTicket in 'rptTicket.pas' {frptTicket: TQuickRep},
  THandle in 'THandle.pas' {frmSHandle},
  RateSetup in 'RateSetup.pas' {frmRateSetup};

{$R *.RES}
var
   MyObject:TMyClass;

begin
     MyObject:=TMyClass.Create;
     Application.OnException:=MyObject.MyOwnExceptionHandler;
     Application.Initialize;
     Application.Title := '南浦典当行管理系统';
     frmLogin:=TfrmLogin.Create (Application);
     Application.CreateForm(TdmPawnFrm, dmPawnFrm);
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrptFp, frptFp);
  Application.CreateForm(TfrmPrint, frmPrint);
  Application.CreateForm(TfrptTicket, frptTicket);
  Application.CreateForm(TfrmRateSetup, frmRateSetup);
  frmLogin.ShowModal ;
     frmLogin.Free;
  //if frmLogin.ModalResult=1 then
       //begin
            //Application.Initialize;
            //Application.Title := '南浦典当行管理系统';
            //Application.CreateForm(TfrmLogin, frmLogin);
            //Application.Run;
       //end;

  
end.