mdiapp.~dpr

本文重点研究的是医院西药药房管理系统

program Mdiapp;

uses
  Forms,
  controls,
  Main in 'MAIN.PAS' {MainForm},
  Childwin in 'CHILDWIN.PAS' {MDIChild},
  About in 'about.pas' {AboutBox},
  datamz in 'datamz.pas' {DataMzf: TDataModule},
  XyMzLossValiM in 'XyMzLossValiM.pas' {XyMzLossVali},
  XyMzRefeM in 'XyMzRefeM.pas' {XyMzRefe},
  XyLossQueryM in 'XyLossQueryM.pas' {XyLossQuery},
  GzlQueryM in 'GzlQueryM.pas' {GzlQuery},
  ConnM in 'ConnM.pas' {Conn},
  LossHzPrinM in 'LossHzPrinM.pas' {LossHzPrin: TQuickRep},
  ZbKcPrinM in 'ZbKcPrinM.pas' {ZbKcPrin: TQuickRep},
  XyDkOutM in 'XyDkOutM.pas' {XyDkOut},
  XyZwOutM in 'XyZwOutM.pas' {XyZwOut},
  OutHzPrinM in 'OutHzPrinM.pas' {OutHzPrin: TQuickRep},
  OutQueryM in 'OutQueryM.pas' {OutQuery},
  OutZwHzPrinM in 'OutZwHzPrinM.pas' {OutZwHzPrin: TQuickRep},
  OutZwQueryM in 'OutZwQueryM.pas' {OutZwQuery},
  datamz1 in 'datamz1.pas' {DataMzf1: TDataModule},
  ZbQueryM in 'ZbQueryM.pas' {ZbQuery},
  ZbPrinM in 'ZbPrinM.pas' {ZbPrin: TQuickRep},
  datamz2 in 'datamz2.pas' {DataMzf2: TDataModule},
  QxWhM in 'QxWhM.pas' {QxWh},
  MzKcM in 'MzKcM.pas' {MzKc},
  XyMzInQueryM in 'XyMzInQueryM.pas' {XyMzInQuery},
  RecipeQueryM in 'RecipeQueryM.pas' {RecipeQueryF},
  RecipeYpQueryM in 'RecipeYpQueryM.pas' {RecipeYpQueryF},
  MzLossQueryM in 'MzLossQueryM.pas' {MzLossQuery},
  MzInQueryM in 'MzInQueryM.pas' {XyMzInQueryF},
  XyMzZjInQueryM in 'XyMzZjInQueryM.pas' {XyMzZjInQuery},
  RecipeQueryZyM in 'RecipeQueryZyM.pas' {RecipeQueryZy},
  RecipeYpQueryZyM in 'RecipeYpQueryZyM.pas' {RecipeYpQueryZy},
  ZyLossQueryM in 'ZyLossQueryM.pas' {ZyLossQuery},
  ZyInQueryM in 'ZyInQueryM.pas' {XyMzInQueryZy},
  XyZyZjInQueryM in 'XyZyZjInQueryM.pas' {XyZyZjInQuery},
  FmDkYsQue in 'FmDkYsQue.pas' {Fm_dkys_que};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := '西药主任';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TDataMzf, DataMzf);
  Application.CreateForm(TConn, Conn);
  Application.CreateForm(TLossHzPrin, LossHzPrin);
  Application.CreateForm(TZbKcPrin, ZbKcPrin);
  Application.CreateForm(TOutHzPrin, OutHzPrin);
  Application.CreateForm(TOutZwHzPrin, OutZwHzPrin);
  Application.CreateForm(TDataMzf1, DataMzf1);
  Application.CreateForm(TZbPrin, ZbPrin);
  Application.CreateForm(TDataMzf2, DataMzf2);
  if conn.ShowModal<>mrOk then mainform.Close;
  Application.Run;
end.