Question

delphi 写一个SQL 查询结果判定过程。

循环检测
第1行 FOR 总行-1
取第I行 Fields(6).Value和Fields(7).Value值 //
A:=Fields(7).Value;
B:=Fields(6).Value
IF （pos（‘列名’），Fields（I），Fieldname>0） and Fields(i).Value<B.Value OR >A then
BEGIN
S:=NG;
exit;
end;

意思是 SQL 结果有N行数据 每行 Fields(6).Value和Fields(7).Value值 为范围值
然后检测第1行的 每一列数据 检测完毕以后
开始第N+1行数据 取N+1行的 Fields(6).Value和Fields(7).Value值，直到全部检测完毕

Answer 1

while not ADOQuery1.Eof do
begin
A:=ADOQuery1.FieldByName('数据库里面的字段').AsString;
B:=ADOQuery1.FieldByName('数据库里面的字段').AsString;
IF pos('列名',A)>0 and pos('列名',B) then //你自己写的什么飞机看不懂自己填
BEGIN
S:=NG;
exit;
end
ADOQuery1.next;
end;

Answer 2

adoquery1.first;

while not adoquery1.eof do
begin
A:=adoquery1.Fields[7].Value;
B:=adoquery1.Fields[6].Value;
//看不懂你if条件是什么意思

adoquery1.next;

end;

追问

现在需要增加从每一行 数据中先提取MIN max数据，然后改变判断范围A B值。

追答

还是没说明白
留Q吧

追问

15182834 非常感谢！