雁
雁孤行
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Edit;
Table1.FieldByName('Startdate').AsDateTime:=Date;
Table1.FieldByName('StartTime').AsDateTime:=Time;
Table1.Post;
end;
上面这段程序,Button1Click之后如果重启(注销也一样),
则所有新写入的数据都会丢失,但将程序正常关闭就没事,
我估计是Post之后,数据事实上还在缓存,没有实际上写到
数据库中,请问怎么解决。
begin
Table1.Edit;
Table1.FieldByName('Startdate').AsDateTime:=Date;
Table1.FieldByName('StartTime').AsDateTime:=Time;
Table1.Post;
end;
上面这段程序,Button1Click之后如果重启(注销也一样),
则所有新写入的数据都会丢失,但将程序正常关闭就没事,
我估计是Post之后,数据事实上还在缓存,没有实际上写到
数据库中,请问怎么解决。