有许多朋友都看了这代码说没问题，但就是无法实现代码的功能，坛主你可以帮忙看看么？？？(0分)

unit Unit1;

interface

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

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
Table1: TADOTable;
Edit1: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;
Button1: TButton;
ADODataSet1: TADODataSet;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
try
ADODataSet1.Close;
ADODataSet1.CommandText:='select * from pws';
adodataset1.CommandType:=cmdtext;
if ((edit1.Text<>'')and(edit2.Text<>''))then
begin
adodataset1.Filtered:=false;
ADODataSet1.Filter:='ID='+quotedstr(Edit1.Text);
ADODataSet1.Filtered:=true;
end;
ADODataSet1.Open;
except
application.Terminate;
end;
if ADODataSet1.RecordCount=1 then
begin
case form1.ComboBox1.ItemIndex of
0:
begin
if ADODataSet1.FieldValues['pws']=quotedstr(Edit2.Text) then
begin
if ADODataSet1.FieldValues['auto']='1' then
begin
form1.Hide;
form2.show;
end;
end
else
application.MessageBox('sss','sss',mb_ok);
end;
end;
end;
end;
end.
我在sql server中建立一个table为pws,有id、pws、auto等三个项目，可就是不能通过点击按钮实现form2的show!!!

ADODataSet1.Close;
ADODataSet1.CommandText:='select * from pws';
adodataset1.CommandType:=cmdtext;
if ((edit1.Text<>'')and(edit2.Text<>''))then
begin
adodataset1.Filtered:=false;
ADODataSet1.Filter:='ID='+quotedstr(Edit1.Text);
ADODataSet1.Filtered:=true;
end;
ADODataSet1.Open;

先數據集Open 再 Filter

只要在
if ADODataSet1.RecordCount=1 then
上设一个断点然后跟踪一下就知道问题出在哪了。

sayforerver,我按你的提示仍然无效，谢谢你啦！
another_eyes,我不会设断点，能详细告诉我么？？？
难道就没有人能回答了么？？？

设断点很简单呀：
就在代码编辑窗左边有一条灰色的边界， 你用鼠标在你需要断点那行的灰色边界上点一下就会出现一个红色圆点， 表明程序运行到这里会停下来。 再点一次是取消断点。
程序中断后就可以察看各个变量运行到当前时的值。 然后可以单步执行或继续执行。 当然也可以再设断点。

是这里出问题了，ADODataSet1.FieldValues['pws']=quotedstr(Edit2.Text)，但我不知道怎么修改！！！
我用sql server建立的table:
ID PWS AUTO
char char char

问题得到解决！
修改如下：
trim(ADODataSet1.FieldValues['pws']):=trim(quotedstr(Edit2.Text))
是大而肥的总坛主告诉我的！

接受答案了.