spda窗体dxDBGrid1用来显示详细信息,通过DataSource1与ADOQuery1相连。现在我想在另一窗体spedit进行添加和修改数据库的记录,而且边修改,dxDBGrid1表马上就可以显示出来。我是这样写的:
spedit窗体的控件的datadource属性:spda.DataSource1
1、增加功能
procedure Tspda.Button2Click(Sender: TObject);
begin
ADOQuery1.Append;
Application.CreateForm(Tspedit, spedit);
spedit.show;
end;
2、修改功能
procedure Tspda.Button3Click(Sender: TObject);
begin
ADOQuery1.Edit;
Application.CreateForm(Tspedit, spedit);
spedit.show;
end;
最后在spedit窗体中拖一个按钮来保存数据
procedure Tspedit.BitBtn1Click(Sender: TObject);
begin
try
spda.ADOQuery1.Post;
except
Application.MessageBox('ÄúµÄ²Ù×÷²»ÕýÈ·,µ¼Öµ¥¾ÝÒì³£,²»Äܱ£´æ.', 'Ìáʾ', MB_OK + MB_ICONERROR);
end;
end;不知这样写有什么问题?呵呵,本人是不是很菜?请各位高手多多指点,谢谢!!
spedit窗体的控件的datadource属性:spda.DataSource1
1、增加功能
procedure Tspda.Button2Click(Sender: TObject);
begin
ADOQuery1.Append;
Application.CreateForm(Tspedit, spedit);
spedit.show;
end;
2、修改功能
procedure Tspda.Button3Click(Sender: TObject);
begin
ADOQuery1.Edit;
Application.CreateForm(Tspedit, spedit);
spedit.show;
end;
最后在spedit窗体中拖一个按钮来保存数据
procedure Tspedit.BitBtn1Click(Sender: TObject);
begin
try
spda.ADOQuery1.Post;
except
Application.MessageBox('ÄúµÄ²Ù×÷²»ÕýÈ·,µ¼Öµ¥¾ÝÒì³£,²»Äܱ£´æ.', 'Ìáʾ', MB_OK + MB_ICONERROR);
end;
end;不知这样写有什么问题?呵呵,本人是不是很菜?请各位高手多多指点,谢谢!!
1.有新增或修改、刪除數據時,要實時顯示出結果;此時得刷新一下數據庫的表連接;
2.當你對某筆數據有修改時,這時不小心點了其它的行,你得判斷一下狀態,不然會出錯;
3.數據感知控件直接操作數據庫時,要注意判斷語句,最好以權限管控