dataconnect.pas

来自「图书管理系统：包括借书、还书、查询、添加、统计等功能。」· PAS 代码 · 共 56 行

unit dataconnect;

interface

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

type
  Tsetdata = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Image2: TImage;
    ADOConnection1: TADOConnection;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  setdata: Tsetdata;

implementation

{$R *.dfm}

//************取消按扭，关闭连接数据库窗体*********
procedure Tsetdata.Button1Click(Sender: TObject);
begin
close;
end;
//***********通过ADOConnection1设定数据库对象******
procedure Tsetdata.Button2Click(Sender: TObject);
var
  sCon: string;
begin
  sCon := 'Provider=SQLOLEDB.1;Persist Security Info=True;'
         +'Initial Catalog='+Edit2.Text+';Data Source='+Edit1.Text;  //Edit1为用户填入服务器名或服务器IP地址，Edit2为登录数据库的密码.
         ShowMessage(sCon);
  ADOConnection1.Connected := False;
  ADOConnection1.ConnectionString := sCon;
  ADOConnection1.Connected := True;
  Close;
end;
end.