unitconnecttosqlserverdb.pas

此代码是关于mapgis的在

unit UnitConnectToSQLServerDB;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ODBC, Buttons;

type
  TForm_ConnectToSQLServerDB = class(TForm)
    Memo1: TMemo;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit_Address: TComboBox;
    Edit_UserName: TEdit;
    Edit_Password: TEdit;
    btn_Local: TBitBtn;
    btn_Romate: TBitBtn;
    CheckBox_UseNT: TCheckBox;
    btn_Cancel: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure CheckBox_UseNTClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btn_LocalClick(Sender: TObject);
    procedure btn_RomateClick(Sender: TObject);
    procedure btn_CancelClick(Sender: TObject);
  private
    { Private declarations }
    FBtnClick:integer;
    function GetCurrentUserName:string;
  public
    { Public declarations }
    property BtnClick:integer read FBtnClick;
  end;

var
  Form_ConnectToSQLServerDB: TForm_ConnectToSQLServerDB;

function GetConnectInfo_SQLServer(var Server, UserName, Password:string;
  var IsNT:Boolean):Boolean;

implementation

uses
  MSSQLServer;

function GetConnectInfo_SQLServer(var Server, UserName, Password:string;
  var IsNT:Boolean):Boolean;
begin
  Result:=False;
  with TForm_ConnectToSQLServerDB.Create(Application) do
  begin
    try
      ShowModal;
      if BtnClick<>2 then
      begin
        if BtnClick=0 then
          Server:='127.0.0.1'
        else
          Server:=Edit_Address.Text;
        UserName:=Edit_UserName.Text;
        Password:=Edit_Password.Text;
        IsNT:=CheckBox_UseNT.Checked;
        Result:=True;
      end;
    finally
      Free;
    end;
  end;
end;

{$R *.DFM}

procedure TForm_ConnectToSQLServerDB.FormCreate(Sender: TObject);
begin
  FBtnClick:=2;
end;

procedure TForm_ConnectToSQLServerDB.CheckBox_UseNTClick(Sender: TObject);
begin
  if CheckBox_UseNT.Checked then
  begin
    Edit_UserName.Text:=GetCurrentUserName;
    Edit_UserName.Enabled:=false;
    Edit_UserName.Color:=clBtnFace;
    Edit_Password.Enabled:=false;
    Edit_Password.Color:=clBtnFace;
  end
  else
  begin
    Edit_UserName.Enabled:=true;
    Edit_UserName.Color:=clWindow;
    Edit_Password.Enabled:=true;
    Edit_Password.Color:=clWindow;
  end;
end;

function TForm_ConnectToSQLServerDB.GetCurrentUserName: string;
var
  PStr:PChar;
  nSize:Cardinal;
begin
  nSize:=255;
  GetMem(PStr,nSize);
  GetUserName(PStr,nSize);
  result:=StrPas(PStr);
end;

procedure TForm_ConnectToSQLServerDB.FormShow(Sender: TObject);
//var
//  List:TStringList;
begin
  FBtnClick:=2;
{  List:=TStringList.Create;
  try
    GetSQLServerNames(List);
    Edit_Address.items.Assign(List);
  finally
    List.Free;
  end; }
end;

procedure TForm_ConnectToSQLServerDB.btn_LocalClick(Sender: TObject);
begin
  FBtnClick:=0;
  close;
end;

procedure TForm_ConnectToSQLServerDB.btn_RomateClick(Sender: TObject);
begin
  FBtnClick:=1;
  close;
end;

procedure TForm_ConnectToSQLServerDB.btn_CancelClick(Sender: TObject);
begin
  FBtnClick:=2;
  close;
end;

end.