tools.dpr

批量修改约束关系, 只对sql server

PROGRAM tools;

uses
  Forms,
  DM in 'DM.pas' {FDM: TDataModule},
  Consts in '..\public\Consts.pas',
  FormBase in 'FormBase.pas' {BaseFrom},
  FromTools in 'FromTools.pas' {ToolsFrom},
  SetDbsLink in '..\public\SetDbsLink.pas' {frmDbsLink};

{$R *.res}

BEGIN
  Application.Initialize;
  Application.Title:='批量修改约束关系';
  Application.HelpFile:='';
  TRY
    InitOKConn:=InitApplication>0;
    IF NOT InitOKConn THEN
    BEGIN
      //程序初始化失败, 终止
      //Application.CreateForm(TToolsFrom, ToolsFrom);
      frmDbsLink.ShowModal;
      Application.Terminate;
    END;
    bHasLogin:=true;                    //(ShowLoginFrom=1);
    //IF NOT bHasLogin THEN Application.Terminate;
  EXCEPT
    Application.Terminate;
  END;
  Application.CreateForm(TToolsFrom, ToolsFrom);
  Application.Run;

END.