buildsql_m.pas

来自「SQL自动生成」· PAS 代码 · 共 51 行

unit BuildSQL_M;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OpenSQLDialog, StdCtrls, Db, ADODB, Buttons,registry;

type
  TFrmBuildSQLM = class(TForm)
    OpenSQLDialog1: TOpenSQLDialog;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmBuildSQLM: TFrmBuildSQLM;

implementation

{$R *.DFM}

procedure TFrmBuildSQLM.FormShow(Sender: TObject);
var Tempstr:string;
begin
  OpenSQLDialog1.LoadCSNFromRegister;//从注册表中取
  Tempstr:=paramstr(1);
  if TempStr<>'' then
  begin
    try
      OpenSQLDialog1.Form_Left:=StrToInt(TempStr);
    except
    end;
  end;
  Tempstr:=paramstr(2);
  if TempStr<>'' then
  begin
    try
      OpenSQLDialog1.Form_Top:=StrToInt(TempStr);
    except
    end;
  end;
  OpenSQLDialog1.Execute;
  Close;
end;

end.