mdiapp.dpr

来自「本文重点研究的是医院西药药房管理系统」· DPR 代码 · 共 52 行

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},
  XyMzValiM in 'XyMzValiM.pas' {XyMzVali},
  XyMzQuitM in 'XyMzQuitM.pas' {XyMzQuit},
  datamz1 in 'datamz1.pas' {DataMzf1: TDataModule},
  MzKcM in 'MzKcM.pas' {MzKc},
  KcPrinM in 'KcPrinM.pas' {KcPrin: TQuickRep},
  RecipeQueryM in 'RecipeQueryM.pas' {RecipeQuery},
  datamz2 in 'datamz2.pas' {DataMzf2: TDataModule},
  PassM in 'PassM.pas' {Pass},
  ConnM in 'ConnM.pas' {Conn},
  ValiConnM in 'ValiConnM.pas' {ValiConn},
  RecipePrinM in 'RecipePrinM.pas' {RecipePrin: TQuickRep},
  ZbValiM in 'ZbValiM.pas' {ZbVali},
  DyPrinM in 'DyPrinM.pas' {DyPrin: TQuickRep},
  ValiConn1M in 'ValiConn1M.pas' {ValiConn1},
  MfValiM in 'MfValiM.pas' {MfVali},
  ValiConn2M in 'ValiConn2M.pas' {ValiConn2},
  TjQueryM in 'TjQueryM.pas' {TjQuery},
  RecipeHzPrinM in 'RecipeHzPrinM.pas' {RecipeHzPrin: TQuickRep},
  RecipeYpQueryM in 'RecipeYpQueryM.pas' {RecipeYpQuery},
  KcDyPrinM in 'KcDyPrinM.pas' {KcDyPrin: TQuickRep};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := '西药门诊确认';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TDataMzf, DataMzf);
  Application.CreateForm(TDataMzf1, DataMzf1);
  Application.CreateForm(TDataMzf2, DataMzf2);
  Application.CreateForm(TConn, Conn);
  Application.CreateForm(TKcPrin, KcPrin);
  Application.CreateForm(TValiConn, ValiConn);
  Application.CreateForm(TRecipePrin, RecipePrin);
  Application.CreateForm(TDyPrin, DyPrin);
  Application.CreateForm(TValiConn1, ValiConn1);
  Application.CreateForm(TValiConn2, ValiConn2);
  Application.CreateForm(TRecipeHzPrin, RecipeHzPrin);
  Application.CreateForm(TKcDyPrin, KcDyPrin);
  if conn.ShowModal<>mrOk then mainform.Close;
  Application.Run;
end.