【结】不知道为什么如下代码会一次性插入两条记录

huixiangtao

procedure TMainForm.FrameButton1Click(Sender: TObject);
var
bh:string;
khlb,khkssj,khjssj,KQSZBL,GZJLSZBL,ZGPJSZBL,ESFZKFBL,BXSKFBL,YXSKFBL,QTKFBL,MTCERWJFS,BM,bckhmc:String;
begin
query1.Close;
query1.ConnectionString:='DATABASEURL=Biz:\KHXT\KHSJK.Database';
query1.CommandText:='select * from khcspzb where khlb='''+combobox1.Text+''' and KHKSSJ=to_date('''+DataEdit1.Text+''',''yyyy-mm-dd'') and KHJSSJ=to_date('''+DataEdit4.Text+
                     ''',''yyyy-mm-dd'') and KQSZBL='+DataEdit2.text+' and GZJLSZBL='+DataEdit5.Text+' and ZGPJSZBL='+DataEdit3.Text+' and ESFZKFBL='+DataEdit17.Text+' and BXSKFBL='+
                     DataEdit19.Text+' and YXSKFBL='+DataEdit20.text+' and QTKFBL='+DataEdit21.Text+' and MTCERWJFS='+DataEdit25.Text+' and BM='''+dept+''' and bckhmc='''+DataEdit27.Text+'''';
query1.Execute;
query1.Open;
if query1.RecordCount>0 then
begin
//并且要指向那条记录
Tsqldataset(DataSetKHCSPZ.DataSet).UserFilter:='bh='''+ query1.FieldByName('bh').AsString+'''';
dialogs.ShowMessage('设置成功！');
exit;
end;
//如果没有这样的记录就要插入一条了
khlb:=combobox1.Text;
KHKSSJ:=DataEdit1.Text;
KHJSSJ:=DataEdit4.Text;
KQSZBL:=DataEdit2.text;
GZJLSZBL:=DataEdit5.Text;
ZGPJSZBL:=DataEdit3.Text;
ESFZKFBL:=DataEdit17.Text;
BXSKFBL:=DataEdit19.Text;
YXSKFBL:=DataEdit20.text;
QTKFBL:=DataEdit21.Text;
MTCERWJFS:=DataEdit25.Text;
bckhmc:=DataEdit27.Text;
DataSetKHCSPZ.DataSet.Append;
// DataSetKHCSPZ.DataSet.ApplyUpdates;
DataSetKHCSPZ.DataSet.FieldByName('KHKSSJ').AsDateTime:=sysutils.StrToDate(KHKSSJ);
DataSetKHCSPZ.DataSet.FieldByName('KHKSSJ').AsDateTime:=sysutils.StrToDate(KHJSSJ);
DataSetKHCSPZ.DataSet.FieldByName('KQSZBL').AsFloat:=sysutils.StrToFloat(KQSZBL);
DataSetKHCSPZ.DataSet.FieldByName('GZJLSZBL').AsFloat:=sysutils.StrToFloat(GZJLSZBL);
DataSetKHCSPZ.DataSet.FieldByName('ZGPJSZBL').AsFloat:=sysutils.StrToFloat(ZGPJSZBL);
DataSetKHCSPZ.DataSet.FieldByName('ESFZKFBL').AsFloat:=sysutils.StrToFloat(ESFZKFBL);
DataSetKHCSPZ.DataSet.FieldByName('BXSKFBL').AsFloat:=sysutils.StrToFloat(BXSKFBL);
DataSetKHCSPZ.DataSet.FieldByName('YXSKFBL').AsFloat:=sysutils.StrToFloat(YXSKFBL);
DataSetKHCSPZ.DataSet.FieldByName('QTKFBL').AsFloat:=sysutils.StrToFloat(QTKFBL);
DataSetKHCSPZ.DataSet.FieldByName('khlb').AsString:=khlb;
DataSetKHCSPZ.DataSet.FieldByName('bckhmc').AsString:=bckhmc;
// DataSetKHCSPZ.DataSet.Post;
DataSetKHCSPZ.DataSet.ApplyUpdates;
dialogs.ShowMessage('设置成功！');
end;
本来想利用上述代码插入一条记录的，不知道为什么每次都一次性插入两条，这两条中只有KHKSSJ和KHJSSJ是不一样的。

atiger

你跟踪代码看看，是否执行两次了？

huixiangtao

我跟踪了，只执行了一次。

FBO

楼主，本身DataEdit上已经有数据，然后又用代码新增插入一条，保存时候，保存的是两条。

huixiangtao

难道中间的
DataSetKHCSPZ.DataSet.Append; 这句话不会把dataedit上关联的数据都冲掉？
况且我插入的两条数据中的KHKSSJ和KHJSSJ字段，有一条是正确的，另一条都不知道从哪儿来的数据。

huixiangtao

哦，我想明白了，你解释的有道理，谢谢啊，我再想别的办法。

FBO

Append是新增记录，如果你在前面写上CancelUpdates会把你填写的数据给冲掉，确切说把数据撤销。

huixiangtao

我果然用这个方法解决了,多谢，结贴吧