var strname:string;beginquery.first; while not query.eof do begin strname:=query.fieldbyname('name').Astring;////下面假设用户输入的数据是在edit1中,进行比较的过程如下if Trim(edit1.text)=trim(strname) then /////如果相等,就如何操作具体根据你的需要去写代码begin .... end else ////////如果不等又如何如何操作,具体根据你的需要去写代码 begin ....end; end;end;
strname:string;beginquery.first;
while not query.eof do
begin
strname:=query.fieldbyname('name').Astring;////下面假设用户输入的数据是在edit1中,进行比较的过程如下if Trim(edit1.text)=trim(strname) then /////如果相等,就如何操作具体根据你的需要去写代码begin
....
end else ////////如果不等又如何如何操作,具体根据你的需要去写代码
begin
....end;
end;end;
并赋予一字符串数组
adoconnection1.GetTableNames(字符串变量名,false);
把所有表明放在listbox框中