Delphi 7 连接数据库问题

Question

我要用delphi 连接access ,新建一个单元,写好连接字符串代码:
unit Linkdata;interface     function conn:string ;implementation
     function conn:string;
      var
        str:string;
      begin
         str:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;Persist Security Info=False';
         conn:=str;
         result:=str;
      end;end.现在我要在另一个单元调用,但是不知道怎么调用了,我的数据库为 Data.mbd,表为Admin ,里面有两个字段,分别是, admin 和 password ,我调用连接数据库,在窗体上输入用户名和密码,判断如果和数据库相等,就用showmessage('登录成功'),否则邓录失败, 假如登陆穿体的单元代码,是这样的:
unit longin_1_1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, DBTables,Linkdata;type
  TForm1 = class(TForm)
    Qu: TQuery;
    ADOConn: TADOConnection;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
end;end.
现在我要在这个窗体怎么写,请高手门帮忙, 不剩感谢!

Answer 1

你在一个单元只写好连接字符串完全没必要啊调用的话这样procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  s:=conn;
  ADOConn.connected:=false;
  ADOConn.connectionstring:=s;
  try
    ADOConn.connected:=true;
  except
  end;
end;