ht.dpr

很好的合同管理系统完整源码,适合初学者参考

program ht;

uses
  Forms,
  U_htgl in 'U_htgl.pas' {frm_main},
  U_login in 'U_login.pas' {frm_Login},
  U_flash in 'U_flash.pas' {frm_flash},
  U_htlx in 'U_htlx.pas' {frm_htlx},
  U_lx in 'U_lx.pas' {frm_lx},
  U_Data in 'U_Data.pas' {Data1: TDataModule},
  U_drht in 'U_drht.pas' {frm_drht},
  U_xtsz in 'U_xtsz.pas' {frm_xtsz},
  U_htsy in 'U_htsy.pas' {frm_htsy},
  U_dwxx in 'U_dwxx.pas' {frm_dwxx},
  U_htqd in 'U_htqd.pas' {frm_htqd},
  U_lxsz in 'U_lxsz.pas' {frm_lxsz},
  U_htxg in 'U_htxg.pas' {frm_htxg},
  U_htcx in 'U_htcx.pas' {frm_htcx},
  U_cx in 'U_cx.pas' {frm_cx},
  U_Public in 'U_Public.pas',
  U_ri in 'U_ri.pas' {frm_rz},
  U_czygl in 'U_czygl.pas' {frm_czygl},
  U_mccx in 'U_mccx.pas' {frm_mccx};

{$R *.res}

begin
  frm_flash:=Tfrm_flash.Create(nil);
  frm_flash.show;
  frm_flash.update;
  Application.Initialize;
  Application.CreateForm(Tfrm_main, frm_main);
  Application.CreateForm(Tfrm_Login, frm_Login);
  Application.CreateForm(Tfrm_flash, frm_flash);
  Application.CreateForm(Tfrm_htlx, frm_htlx);
  Application.CreateForm(Tfrm_lx, frm_lx);
  Application.CreateForm(TData1, Data1);
  Application.CreateForm(Tfrm_drht, frm_drht);
  Application.CreateForm(Tfrm_xtsz, frm_xtsz);
  Application.CreateForm(Tfrm_htsy, frm_htsy);
  Application.CreateForm(Tfrm_dwxx, frm_dwxx);
  Application.CreateForm(Tfrm_htqd, frm_htqd);
  Application.CreateForm(Tfrm_lxsz, frm_lxsz);
  Application.CreateForm(Tfrm_htxg, frm_htxg);
  Application.CreateForm(Tfrm_htcx, frm_htcx);
  Application.CreateForm(Tfrm_cx, frm_cx);
  Application.CreateForm(Tfrm_rz, frm_rz);
  Application.CreateForm(Tfrm_czygl, frm_czygl);
  Application.CreateForm(Tfrm_mccx, frm_mccx);
  ini_data();
  skinload();
  frm_flash.free;
  Application.Run;
end.