怎么连接sql2000数据库并进行session验证，急！

Question

怎么连接sql2000数据库并进行session验证，密码是二进制的，请前辈详细指点，急！！unit FrmLogin;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;type
  TFormLogin = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    EditName: TEdit;
    EditPass: TEdit;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);    //procedure show(Sender: TObject);
  private    { Private declarations }
  public
    { Public declarations }  end;
var
  FormLogin: TFormLogin;implementationuses FrmMain;{$R *.dfm}procedure TFormLogin.Button1Click(Sender: TObject);
var
  f: TextFile;
  begin   AdoQuery1.Active := False;
  AdoQuery1.SQL.Clear;
  AdoQuery1.SQL.Add('SELECT id FROM UserInfo WHERE UserName=''' + EditName.Text +
    ''' and Password=''' + EditPass.Text + '''');
  AdoQuery1.Open;
  if AdoQuery1.IsEmpty then //没有此用户
  begin
    ShowMessage('帐号错误!');
  end
  else
  begin
    AssignFile(f,'C:\tmp.txt');
    rewrite(f);
    WriteLn(f,EditName.Text);
    WriteLn(f,EditPass.Text);
    CloseFile(f);
    self.ModalResult := mrOk;  //返回mrOk，说明登陆成功     Application.ShowMainForm:=false;
    Form1.show;
  end;
  AdoQuery1.Active := False;
end;end.

Answer 1

procedure TFormLogin.Button1Click(Sender: TObject); 
var s1:string;
begin
  s1:='Provider=SQLOLEDB.1;Password='+密码+';Persist Security Info=True;User ID='+用户+';Initial Catalog='+数据库+';Data Source='+数据库地址;
  DataModule1.ADOConn.Close;
  DataModule1.ADOConn.ConnectionString:=s1;
  try
    DataModule1.ADOConn.Open;
    showmessage('数据库连接成功！');
  except
    showmessage('数据库连接失败！');
  end;

Answer 2

zxf_feng 通过网页传递参数是:http://www.csdn.com?UID=UserName&PWD=Password 
这个Password 怎么传

Answer 3

procedure TForm1.FormShow(Sender: TObject);
begin
  WebBrowser1.Navigate(Edit1.Text+'?UID='+LoginForm.EditName.Text+'&PWD='+LoginForm.EditPass.Text);
  //Edit1.Text 常规网址.如:http://www.csdn.com
end;procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject); 
begin 
  StatusBar1.Panels[0].Text:='正在连接：' + WebBrowser1.LocationURL; 
end; 传递Password 是不是要解密啊