P
phil911
Unregistered / Unconfirmed
GUEST, unregistred user!
我在写一个小程序时，想对修改的数据库进行保存，可是我的程序不能通过，
我的代码是：
procedure TMainForm.Button1Click(Sender: TObject);
var Save:integer;
begin
if myclass.state=dsEdit then
begin
Save:=MessageDlg('Save Changes?',confirmation,[mbyes,mbno],0);
if Save=mrYes then
table1.post
else table1.cancel
end
else showmessage('Not in Edit Mode!');
end;
总是不能识别myclass.state=dsEdit 为什么，如何解决？我的数据库名为myclass。
我的代码是：
procedure TMainForm.Button1Click(Sender: TObject);
var Save:integer;
begin
if myclass.state=dsEdit then
begin
Save:=MessageDlg('Save Changes?',confirmation,[mbyes,mbno],0);
if Save=mrYes then
table1.post
else table1.cancel
end
else showmessage('Not in Edit Mode!');
end;
总是不能识别myclass.state=dsEdit 为什么，如何解决？我的数据库名为myclass。