his2001.dpr

某大型医院护士站

program His2001;

uses
  Forms,
  Windows,
  Main in 'Main.pas' {frmMain},
  HisUtilitis in 'HisUtilitis.pas',
  DataModule in 'DataModule.pas' {DM: TDataModule},
  title in 'title.pas' {frmTitle},
  Login in 'Login.pas' {frmLogin},
  PatientIn in 'PatientIn.pas' {frmPatientIn},
  PatientOut in 'PatientOut.pas' {frmPatientOut},
  OrderItem in 'OrderItem.pas' {frmOrderItem},
  ChgCharge in 'ChgCharge.pas' {frmChgCharge},
  Babyborn in 'Babyborn.pas' {frmBabyBorn},
  PatiData in 'PatiData.pas' {frmPatiData},
  ModiInid in 'ModiInid.pas' {frmModiInid},
  FeeBrow in 'FeeBrow.pas' {frmFeeBrow},
  SelectOrder in 'SelectOrder.pas' {frmSelOrder},
  PatientAO in 'PatientAO.pas' {frmPatientAtOnce},
  QryPrn in 'QryPrn.pas' {frmQryPrn},
  PRNDataModule in 'PRNDataModule.pas' {PRN_DM: TDataModule},
  LeftNote in 'LeftNote.pas' {frmLeftNote: TQuickRep},
  ProcBill1 in 'ProcBill1.pas' {frmProcBill1: TQuickRep},
  LabelPrn in 'LabelPrn.pas' {frmLabelPrn},
  jilu in 'jilu.pas' {frmqrjilu: TQuickRep},
  Sendmsg in 'Sendmsg.pas' {frmSendmsg},
  find in 'find.pas' {frmFindItemID},
  Passwd in 'Passwd.pas' {frmPassword},
  PrnSumBill in 'PrnSumBill.pas' {frmPrnSumBill},
  bedProperty in 'bedProperty.pas' {frmBedProperty},
  WardMed in 'WardMed.pas' {frmWardMed},
  patdayfeedtl in 'patdayfeedtl.pas' {frmPatDayfeeDtl},
  DayFeeView in 'DayFeeView.pas' {frmDayFeeView},
  RpWardMed in 'RpWardMed.pas' {frmRepWardMed},
  baseinfo in 'baseinfo.pas' {frmBaseInfo},
  WardDtlBill in 'WardDtlBill.pas' {frmWardDtlBill: TQuickRep},
  ItemfeeDtl in 'ItemfeeDtl.pas' {frmFeeDtl},
  chgExitem in 'chgExitem.pas' {frmChgExitem},
  OutRecall in 'OutRecall.pas' {frmOutRecall};

{$R *.RES}

begin
  if IsNextInstance then
  begin
     Application.Terminate;
     ActiveFirstInstanceWindow;
  end
  else begin
    Application.Initialize;
    frmTitle := TfrmTitle.Create(Application);
    frmTitle.Show;
    frmTitle.Refresh;

    Application.Title := '护士工作站管理系统';
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TPRN_DM, PRN_DM);
  Application.CreateForm(TfrmFindItemID, frmFindItemID);
  Application.CreateForm(TfrmPrnSumBill, frmPrnSumBill);
  Application.CreateForm(TfrmWardMed, frmWardMed);
  Application.CreateForm(TfrmDayFeeView, frmDayFeeView);
  Application.CreateForm(TfrmWardDtlBill, frmWardDtlBill);
  SetProp(Application.MainForm.Handle ,WindowName ,1);

    Application.CreateForm(TfrmOrderItem, frmOrderItem);

    frmTitle.Hide;
    frmTitle.Free;
    Application.Run;
  end;
end.