stgl.dpr

这是一个非常使用的DELPHI源码的例子,用的是SQL数据库和DELPHI企业版

program STGL;

uses
  Forms,
  U_Bb_xf_xfcz in 'Utils\U_Bb_xf_xfcz.pas' {Frm_Bb_xf_Xfcz},
  U_Main in 'Utils\U_Main.pas' {Frm_Main},
  U_Dl in 'Utils\U_Dl.pas' {Frm_dl},
  U_Ks in 'Utils\U_Ks.pas' {Frm_Ks},
  U_User in 'Utils\U_User.pas' {Frm_User},
  U_Xtgl_yhxx in 'Ico\U_Xtgl_yhxx.pas' {Frm_Xtgl_Yhxx},
  U_Xtgl_Xxgl in 'Utils\U_Xtgl_Xxgl.pas' {Frm_Xtgl_xxgl},
  U_Xtgl_Sdxx in 'Utils\U_Xtgl_Sdxx.pas' {Frm_Xtgl_Sdxx},
  U_Xtgl_Xkff in 'Utils\U_Xtgl_Xkff.pas' {Frm_Xtgl_Xkff},
  U_Zhgl_Zhgl_Zj in 'Utils\U_Zhgl_Zhgl_Zj.pas' {Frm_Zhgl_ZHgl_Zj},
  U_Zhgl_Zhgl_Zx in 'Utils\U_Zhgl_Zhgl_Zx.pas' {Frm_Zhgl_Zhgl_Zx},
  U_Zhgl_Zhgl_Hk in 'Utils\U_Zhgl_Zhgl_Hk.pas' {Frm_Zhgl_Zhgl_Hk},
  U_Zjkgl_Zjkgl_Grzj in 'Utils\U_Zjkgl_Zjkgl_Grzj.pas' {Frm_Zjkgl_zjkgl_Grzj},
  U_Zhgl_Zhgl_Qtzj in 'Utils\U_Zhgl_Zhgl_Qtzj.pas' {Frm_Zhgl_Zhgl_QtZj},
  U_Bb_Xtzjhz in 'Utils\U_Bb_Xtzjhz.pas' {Frm_Bb_Xtzjhz},
  U_Help in 'Utils\U_Help.pas' {Frm_Help},
  U_Configure_DataBase in 'Utils\U_Configure_DataBase.pas' {Frm_Configure_Database},
  U_Bb_Zh_Hk in 'Utils\U_Bb_Zh_Hk.pas' {Frm_Bb_Zh_Hk},
  U_Bb_Zh_Yecz in 'Utils\U_Bb_Zh_Yecz.pas' {Frm_Bb_Zh_Yecz},
  U_Bb_Zjk_Zjkmx in 'Utils\U_Bb_Zjk_Zjkmx.pas' {Frm_BB_Zjk_Zjkmx},
  U_Zhgl_Zhgl in 'Utils\U_Zhgl_Zhgl.pas' {Frm_Zhgl_Zhgl},
  U_Public_Define in 'Utils\U_Public_Define.pas',
  U_Card in 'Utils\U_Card.pas',
  U_Public_File_config in 'Utils\U_Public_File_config.pas',
  U_Data in 'Utils\U_Data.pas' {Data: TDataModule},
  U_Data_Update in 'Utils\U_Data_Update.pas',
  U_Xtgl_Gjgl in 'Utils\U_Xtgl_Gjgl.pas' {Frm_Xtgl_Gjgl},
  U_zjkgl_zjkgl in 'Utils\U_zjkgl_zjkgl.pas' {Frm_Zjkgl_Zjkgl},
  U_Ryb in 'Utils\U_Ryb.pas' {Frm_ryb},
  U_Zjkgl_Hz in 'Utils\U_Zjkgl_Hz.pas' {Frm_zjkgl_Hz},
  U_zjkgl_Hzcz in 'Utils\U_zjkgl_Hzcz.pas' {Frm_Zjkgl_hzcz},
  U_Sjcj in 'Utils\U_Sjcj.pas' {Frm_Sjcj},
  U_bb_xfHz in 'Utils\U_bb_xfHz.pas' {Frm_Bb_xfHz},
  U_Pmsd in 'Utils\U_Pmsd.pas' {Frm_PMSd};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '明日科技食堂管理系统';
  Application.CreateForm(TFrm_Main, Frm_Main);
  Application.CreateForm(TFrm_Bb_xf_Xfcz, Frm_Bb_xf_Xfcz);
  Application.CreateForm(TFrm_dl, Frm_dl);
  Application.CreateForm(TFrm_Ks, Frm_Ks);
  Application.CreateForm(TFrm_User, Frm_User);
  Application.CreateForm(TFrm_Xtgl_Yhxx, Frm_Xtgl_Yhxx);
  Application.CreateForm(TFrm_Xtgl_xxgl, Frm_Xtgl_xxgl);
  Application.CreateForm(TFrm_Xtgl_Sdxx, Frm_Xtgl_Sdxx);
  Application.CreateForm(TFrm_Xtgl_Xkff, Frm_Xtgl_Xkff);
  Application.CreateForm(TFrm_Zhgl_ZHgl_Zj, Frm_Zhgl_ZHgl_Zj);
  Application.CreateForm(TFrm_Zhgl_Zhgl_Zx, Frm_Zhgl_Zhgl_Zx);
  Application.CreateForm(TFrm_Zhgl_Zhgl_Hk, Frm_Zhgl_Zhgl_Hk);
  Application.CreateForm(TFrm_Zjkgl_zjkgl_Grzj, Frm_Zjkgl_zjkgl_Grzj);
  Application.CreateForm(TFrm_Zhgl_Zhgl_QtZj, Frm_Zhgl_Zhgl_QtZj);
  Application.CreateForm(TFrm_Bb_Xtzjhz, Frm_Bb_Xtzjhz);
  Application.CreateForm(TFrm_Help, Frm_Help);
  Application.CreateForm(TFrm_Configure_Database, Frm_Configure_Database);
  Application.CreateForm(TFrm_Bb_Zh_Hk, Frm_Bb_Zh_Hk);
  Application.CreateForm(TFrm_Bb_Zh_Yecz, Frm_Bb_Zh_Yecz);
  Application.CreateForm(TFrm_BB_Zjk_Zjkmx, Frm_BB_Zjk_Zjkmx);
  Application.CreateForm(TFrm_Zhgl_Zhgl, Frm_Zhgl_Zhgl);
  Application.CreateForm(TData, Data);
  Application.CreateForm(TFrm_Xtgl_Gjgl, Frm_Xtgl_Gjgl);
  Application.CreateForm(TFrm_Zjkgl_Zjkgl, Frm_Zjkgl_Zjkgl);
  Application.CreateForm(TFrm_ryb, Frm_ryb);
  Application.CreateForm(TFrm_zjkgl_Hz, Frm_zjkgl_Hz);
  Application.CreateForm(TFrm_Zjkgl_hzcz, Frm_Zjkgl_hzcz);
  Application.CreateForm(TFrm_Bb_xfHz, Frm_Bb_xfHz);
  Application.CreateForm(TFrm_PMSd, Frm_PMSd);
  frm_ks.ShowModal;
   frm_main.Show;
  frm_dl.ShowModal;
  if g_bool_dlok=false then
    begin
       frm_main.Close;
    end;

  Application.Run;
end.