exec_sql.dpr

来自「执行一些简单的SQL语句。 注：各SQL语句用“GO”区分」· DPR 代码 · 共 33 行

program EXEC_SQL;

uses
  Forms,
  Inifiles,
  SysUtils,
  TSQL in 'TSQL.pas' {frm_main},
  LDatebase in 'LDatebase.pas' {frm_ljsjk};

{$R *.res}

var
  Sqlini: Tinifile;
begin
  Application.Initialize;
  Sqlini:=Tinifile.Create(extractfilepath(application.exename)+'.\TSQL.ini');
  if  Sqlini.readbool('服务器配置','第一次启动',true) then
  begin
   frm_ljsjk:=tfrm_ljsjk.Create(nil);
   frm_ljsjk.ShowModal;
  end;
  {判断刚才是否进行了配置}
  if  Sqlini.readbool('服务器配置','第一次启动',true) then
       exit;
  Application.Title := 'SQL执行工具';
  Application.CreateForm(Tfrm_main, frm_main);
  if Sqlini.readbool('服务器配置','第一次启动',true) then
   exit;
  Sqlini.Destroy;
  frm_main.Visible:=true;
  Application.Run;
end.