今天写一段程序,出现一点问题//增加记录
procedure Thyxxfrm.btn_addClick(Sender: TObject);
begin
datamodule1.ADOHyxxQuery.Append;
end;
//修改记录
procedure Thyxxfrm.btn_editClick(Sender: TObject);
begin
datamodule1.ADOHyxxQuery.Edit;
end;删除记录
procedure Thyxxfrm.btn_deleteClick(Sender: TObject);
begin
if Application.MessageBox('确定要删除吗','删除记录',MB_OKCANCEL)=MB_OK
then datamodule1.ADOHyxxQuery.Delete;
end;退出窗体
procedure Thyxxfrm.btn_exitClick(Sender: TObject);
begin
if datamodule1.adohyxxquery.state in[dsedit,daInsert]
then datamodule1.ADOHyxxQuery.Post;
end;编译之后出现错误,说dsedit 没有声明,当我把上面这个if语句去掉之后,直接post可以编译运行,但是出现一个警告,说模式不在edit或者insert下,但是也可以把结果写入数据库怎么解决这个问题,state属性值dsedit,dsinsert在什么地方设置,如何让后面的程序认识它?谢谢
procedure Thyxxfrm.btn_addClick(Sender: TObject);
begin
datamodule1.ADOHyxxQuery.Append;
end;
//修改记录
procedure Thyxxfrm.btn_editClick(Sender: TObject);
begin
datamodule1.ADOHyxxQuery.Edit;
end;删除记录
procedure Thyxxfrm.btn_deleteClick(Sender: TObject);
begin
if Application.MessageBox('确定要删除吗','删除记录',MB_OKCANCEL)=MB_OK
then datamodule1.ADOHyxxQuery.Delete;
end;退出窗体
procedure Thyxxfrm.btn_exitClick(Sender: TObject);
begin
if datamodule1.adohyxxquery.state in[dsedit,daInsert]
then datamodule1.ADOHyxxQuery.Post;
end;编译之后出现错误,说dsedit 没有声明,当我把上面这个if语句去掉之后,直接post可以编译运行,但是出现一个警告,说模式不在edit或者insert下,但是也可以把结果写入数据库怎么解决这个问题,state属性值dsedit,dsinsert在什么地方设置,如何让后面的程序认识它?谢谢
你要在Uses列表中加入 DB你可以按住Ctrl键,单击"datamodule1.adohyxxquery.state"中的state,Delphi会逐渐引导你去找到daInsert所在单元的
而是dsInsert