mdiapp.dpr

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

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},
  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},
  RecipePrinM in 'RecipePrinM.pas' {RecipePrin: TQuickRep},
  ZbValiM in 'ZbValiM.pas' {ZbVali},
  DyPrinM in 'DyPrinM.pas' {DyPrin: TQuickRep},
  TjQueryM in 'TjQueryM.pas' {TjQuery};

{$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(TRecipePrin, RecipePrin);
  Application.CreateForm(TDyPrin, DyPrin);
  if conn.ShowModal<>mrOk then mainform.Close;
  Application.Run;
end.