2,498
社区成员
发帖
与我相关
我的任务
分享
[/
with qry1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from employee where fname like'+ ':fname');
Parameters.AddParameter;
Parameters[0].DataType:=ftString;
Parameters[0].Direction:=pdInput;
Parameters[0].Size:=20;
Parameters[0].Value:='p';
Open;
end;[code=Delphi(Pascal)]
with ADOQuery2 do begin
close;
sql.Text:='select [count] from xxzb where kpr=:a';
Parameters.ParamByName('A').Value:=DBComboBox1.Text;
open;
Label5.Caption:=Fields[0].Value;
end;
with ADOQuery2 do begin
close;
sql.Text:='select [count] from xxzb where x_a=:a';
Parameters.ParamByName('A').Value:=DBComboBox1.Text;
open;
Label5.Caption:=Fields[0].Value;
end;