求一个bde写的login例程！！！

Question

用用户类型更好
用户名 密码 用户类型

Answer 1

什么时候要？？明天可以吗？

Answer 2

是不是这个意思：procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  //passiden:=self.edit1.text;
  //passwden:=self.edit2.text;
With Query1 Do
begin
  Close;
  Sql.Clear;
  Sql.Add('Select * From 表');
  Sql.Add('Where 表.登陆ID='''+Edit1.Text+'''');
  Sql.Add('And 表.登陆密码='''+Edit2.Text+'''');
  Open;
end;
If Query1.RecordCount<=0 Then
  ShowMessage('用户名或密码输入错误！')
else
  begin
     ShowMessage('成功！')
        //self.Hide;
        //主窗体.Showmodal;
        //本窗体.Close;
  end;