★
★蓝天★
Unregistered / Unconfirmed
GUEST, unregistred user!
用了adoquery
procedure TFM_basedata.DBEdit6Exit(Sender: TObject);
begin
DATAMO1.QY_TEMP.Close;
DATAMO1.QY_TEMP.SQL.Clear;
DATAMO1.QY_TEMP.SQL.Add('select * from product where pro_name=:aad');
datamo1.QY_TEMP.Parameters.ParamByName('aad').Value:=dbedit6.Text;
//当执行上面一句时,出错提示arameter'add' not found 我感到很奇怪,以前我都是这样做
的啊
DATAMO1.QY_TEMP.Open;
IF NOT DATAMO1.QY_TEMP.IsEmpty THEN
SHOWMESSAGE('此品名已经存在');
end;
procedure TFM_basedata.DBEdit6Exit(Sender: TObject);
begin
DATAMO1.QY_TEMP.Close;
DATAMO1.QY_TEMP.SQL.Clear;
DATAMO1.QY_TEMP.SQL.Add('select * from product where pro_name=:aad');
datamo1.QY_TEMP.Parameters.ParamByName('aad').Value:=dbedit6.Text;
//当执行上面一句时,出错提示arameter'add' not found 我感到很奇怪,以前我都是这样做
的啊
DATAMO1.QY_TEMP.Open;
IF NOT DATAMO1.QY_TEMP.IsEmpty THEN
SHOWMESSAGE('此品名已经存在');
end;