jngs_sch.~dpr

来自「一个下设单位的局部网络终端数据录入软件。」· ~DPR 代码 · 共 33 行

program jngs_sch;

uses
  Forms,
  main in 'main.pas' {SCH_Global},
  Global in 'Global.pas',
  Login in 'Login.pas',
  Controls,
  DD in 'DD.pas' {DataModuleSCH: TDataModule},
  SCH_RBFORM in 'SCH_RBFORM.pas' {SCH_RB};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '水量上报';
  Application.CreateForm(TSCH_Global, SCH_Global);
  Application.CreateForm(TDataModuleSCH, DataModuleSCH);

  //这一句是随着prj程序自动加的
  Application.CreateForm(TSCH_RB, SCH_RB);

  dlform:=Tdlform.create(nil);


  SCH_RB.ShowModal;

 // if  dlform.ShowModal<>mrOK then   //水量输入调试完成后,放开这些东西
 //     Application.Terminate
//  else
//      Application.Run;
end.