阿
阿虫
Unregistered / Unconfirmed
GUEST, unregistred user!
我想保存数据时,进行验证是否输入数据和原来值重复。可遇到一个小问题,
位置我在下面程序中指出:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
query1.SQL.clear;
query1.sql.add('select * from chaobo1 where bh=:key_0');//BH是主键,也是我要判断
//是否重复的值。
query1.requestlive:=true;
query1.Params[0].asstring:=edit2.text;//EDIT2是我用来输入BH的文本框,其它字段记录
//也有相应的EDIT输入其值。
query1.active:=true;
if query1.recordcount=0 then
begin
query1.append;
end
else
begin
if application.messagebox(pchar('数据重复'),'error',mb_yesno+mb_iconquestion)=idyes then
query1.Edit;
end;
if query1.state in [dsedit,dsinsert] then
begin
insert into chaobo(xuh,jh); //我想在这里输入其它的字段内容,其中的字段XUH,JH,
//输入值是:'22','供电',问题就出在这里,运行时老提示
此处应是‘(’可是INTO被发现。为什么,我不因该这样输入
其它字段内容吗?
values('22','供电');
QUERY1.POST;
end;
在线等候答案,人情后补!!!!
位置我在下面程序中指出:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
query1.SQL.clear;
query1.sql.add('select * from chaobo1 where bh=:key_0');//BH是主键,也是我要判断
//是否重复的值。
query1.requestlive:=true;
query1.Params[0].asstring:=edit2.text;//EDIT2是我用来输入BH的文本框,其它字段记录
//也有相应的EDIT输入其值。
query1.active:=true;
if query1.recordcount=0 then
begin
query1.append;
end
else
begin
if application.messagebox(pchar('数据重复'),'error',mb_yesno+mb_iconquestion)=idyes then
query1.Edit;
end;
if query1.state in [dsedit,dsinsert] then
begin
insert into chaobo(xuh,jh); //我想在这里输入其它的字段内容,其中的字段XUH,JH,
//输入值是:'22','供电',问题就出在这里,运行时老提示
此处应是‘(’可是INTO被发现。为什么,我不因该这样输入
其它字段内容吗?
values('22','供电');
QUERY1.POST;
end;
在线等候答案,人情后补!!!!