s_main.~dpr

结于初学者来说这对数据库是一个很好的例子

program S_main;

uses
  Forms,
  main in 'MAIN.PAS' {Form1},
  mainmenu in 'mainmenu.pas' {Form2},
  logo in 'logo.pas' {Form3},
  splb in 'splb.pas' {Form4},
  xmgl in 'xmgl.pas' {Form5},
  xm_in in 'xm_in.pas' {Form6},
  See_snkc in 'See_snkc.pas' {Form7},
  Sn_kcprint in 'Sn_kcprint.pas' {Form8},
  See_snrk in 'See_snrk.pas' {Form9},
  Sn_inprint in 'Sn_inprint.pas' {Form10},
  sn_new in 'sn_new.pas' {Form11},
  Sn_xfdj in 'Sn_xfdj.pas' {Form12},
  xm_qx in 'xm_qx.pas' {Form13},
  jiezhang in 'jiezhang.pas' {Form14},
  zd_print in 'zd_print.pas' {Form15},
  See_zdf in 'See_zdf.pas' {Form16},
  see_Hiszd in 'see_Hiszd.pas' {Form17},
  Date_report in 'Date_report.pas' {Form18},
  data_accountprn in 'data_accountprn.pas' {Form19},
  data_dinlistprn in 'data_dinlistprn.pas' {Form20},
  TJ_report in 'TJ_report.pas' {Form21},
  manager_waiter in 'manager_waiter.pas' {Form22},
  manager in 'manager.pas' {Form23},
  aboutme in 'aboutme.pas' {Form24},
  changepwd in 'changepwd.pas' {Form25},
  guibin in 'guibin.pas' {Form26},
  ZD_PRINT11 in 'ZD_PRINT11.pas' {Form27},
  dy in 'dy.pas' {Form28};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '萬佳圜桑拿洗浴管理系统';
  form3:=tform3.Create(application);
  form3.show;
  form3.Update;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm12, Form12);
  Application.CreateForm(TForm13, Form13);
  Application.CreateForm(TForm14, Form14);
  Application.CreateForm(TForm15, Form15);
  Application.CreateForm(TForm16, Form16);
  Application.CreateForm(TForm17, Form17);
  Application.CreateForm(TForm18, Form18);
  Application.CreateForm(TForm19, Form19);
  Application.CreateForm(TForm20, Form20);
  Application.CreateForm(TForm21, Form21);
  Application.CreateForm(TForm22, Form22);
  Application.CreateForm(TForm23, Form23);
  Application.CreateForm(TForm24, Form24);
  Application.CreateForm(TForm25, Form25);
  Application.CreateForm(TForm26, Form26);
  Application.CreateForm(TForm27, Form27);
  Application.CreateForm(TForm28, Form28);
  form3.hide;
  form3.free;
  Application.Run;
end.