connect.pas

来自「SQL远程管理程序的源码,DELPHI做的.不需要控件」· PAS 代码 · 共 61 行

unit Connect;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, ADODB;

type
  TfrmConnect = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ADOConnection: TADOConnection;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmConnect: TfrmConnect;

implementation

uses main, main1;

{$R *.dfm}

procedure TfrmConnect.Button1Click(Sender: TObject);
var
  sCon: string;
begin
  sCon := 'Provider=SQLOLEDB.1;Password='+Edit3.Text+';Persist Security Info=True;User ID='+Edit2.Text+';'
         +'Initial Catalog='+Edit4.Text+';Data Source='+Edit1.Text;
  ADOConnection.Connected := False;
  ADOConnection.ConnectionString := sCon;
  ADOConnection.Connected := True;
  frmMain1.DrawTree;
  Close;
end;

procedure TfrmConnect.Button2Click(Sender: TObject);
begin
  Close;
end;

end.