在线等候,高手请进

Question

procedure TForm7.Button1Click(Sender: TObject);
begin
if (edit1.Text='')and(edit2.Text='')then
begin
showMessage('没有需要查询的记录，请重新确认');
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from stockin');
adoquery1.SQL.Add('where rq='''+edit1.text+'''');
adoquery1.Open;
if adoQuery1.RecordCount=0  then
    begin
    showmessage('没有需要查询的记录，请重新确认');
    End;
这段查询语句中的Where语句我想要他在满足rq这个条件的同时也满足sqbh应该如何来写

Answer 1

adoquery1.SQL.Add(' and sqbh='''+edit2.text+'''');

Answer 2

能写完整来吗
就是在adoquery1.SQL.Add('where rq='''+edit1.text+'''')中写完整来吗怎么来连上你写的and

Answer 3

就是把vpoor的那句添在你主句下面啊！

Answer 4

adoquery1.SQL.Add('where rq='''+edit1.text+'''');
修改为：
adoquery1.SQL.Add('where rq='''+edit1.text+'''+ and sqbh=.....');
省略号处加上你自己的条件就可以啦

Answer 5

procedure TForm7.Button1Click(Sender: TObject);
begin
if (edit1.Text='')and(edit2.Text='')then
begin
showMessage('没有需要查询的记录，请重新确认');
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from stockin');
adoquery1.SQL.Add('where rq='''+edit1.text+'''');
adoquery1.SQL.Add(' and sqbh='''+edit2.text+'''');  //这里
adoquery1.Open;
if adoQuery1.RecordCount=0  then
    begin
    showmessage('没有需要查询的记录，请重新确认');
    End;

Answer 6

这要就可以了.呵呵..用AND连一下
procedure TForm7.Button1Click(Sender: TObject);
begin
if (edit1.Text='')and(edit2.Text='')then
begin
showMessage('没有需要查询的记录，请重新确认');
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from stockin');
adoquery1.SQL.Add('where rq='''+edit1.text+'''');
adoquery1.SQL.Add(' and sqbh='''+edit2.text+'''');
adoquery1.Open;
if adoQuery1.RecordCount=0  then
    begin
    showmessage('没有需要查询的记录，请重新确认');
    End;