xray.dpr

来自「医院X光片资料管理系统—全部源码 这是源码。去年做的一个小软件。因为这是给一家」· DPR 代码 · 共 48 行

program xray;

uses
  Forms,
  windows,
  MAIN in 'MAIN.PAS' {MainForm},
  dm in 'dm.pas' {dmfm: TDataModule},
  input in 'input.pas' {inputfm},
  mylib in 'mylib.pas',
  bw in 'bw.pas' {bwfm},
  ys in 'ys.pas' {ysfm},
  fix in 'fix.pas' {fixfm},
  tj in 'tj.pas' {tjfm},
  dmwh in 'dmwh.pas' {dmwhfm},
  repairdb in 'repairdb.pas' {repair},
  login in 'login.pas' {loginfm},
  usergl in 'usergl.pas' {userglfm},
  About in 'about.pas' {AboutBox},
  qry in 'qry.pas' {qryfm},
  JRO_TLB in 'E:\Borland\Delphi6\Imports\JRO_TLB.pas';

var mydate: tdatetime;
{$R *.RES}

begin
//  passwd:=Tpasswd.create(Application);
//  passwd.showmodal;
//  if passwd.modalresult=1 then
//  begin
//  passwd.close;
//  passwd.Free;
//  flashwin := Tflashwin.create(application);
//  flashwin.show;
//  flashwin.update;
//  mydate := gettickcount;
//  while ((GetTickCount - mydate) / 1000 < 2) do ;
  Application.Initialize;
  Application.Title := 'X光片管理系统';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(Tdmfm, dmfm);
  Application.CreateForm(Tbwfm, bwfm);
  Application.CreateForm(Tysfm, ysfm);
  Application.CreateForm(Tloginfm, loginfm);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.Run;
end.