delphi中如何修改和删除数据! 20
现在有一个窗体用DBGird读数据,一个按钮单击出现一子窗体!子窗体用来写入数据让第一个窗体读取并显示现在要在第一个窗体写2个按钮!要求一个是修改,一个是删除这两个按钮的...
现在有一个窗体用DBGird读数据,一个按钮单击出现一子窗体!子窗体用来写入数据让第一个窗体读取并显示
现在要在第一个窗体写2个按钮!要求一个是修改,一个是删除这两个按钮的代码要怎么写啊?大哥写详细点谢谢拉!
我晕!
大哥拉!不是这个意思!
这个我也知道
我就是不知道怎么写!能详细点吗 展开
现在要在第一个窗体写2个按钮!要求一个是修改,一个是删除这两个按钮的代码要怎么写啊?大哥写详细点谢谢拉!
我晕!
大哥拉!不是这个意思!
这个我也知道
我就是不知道怎么写!能详细点吗 展开
2个回答
展开全部
在主窗体引用子窗体所在单元:
uses unit2;
在修改那个按钮里面加上:
query1.edit;
form2.show;
在子窗体上引用主窗体:
uses
unit1;
然后在子窗体的确定按钮里面添上:(假设query控件在form1上)
form1.query1.fieldbyname('name').asstring := trim(edit1.text);
form1.query1.fieldbyname('age').asstring := trim(edit2.text);
...
form1.query1.post;
self.close;
在删除那个按钮上添上:
if MessageBox(Handle,'是否真的要删除本记录', '确认',mb_iconinformation + mb_yesno) = mryes then
query1.delete;
uses unit2;
在修改那个按钮里面加上:
query1.edit;
form2.show;
在子窗体上引用主窗体:
uses
unit1;
然后在子窗体的确定按钮里面添上:(假设query控件在form1上)
form1.query1.fieldbyname('name').asstring := trim(edit1.text);
form1.query1.fieldbyname('age').asstring := trim(edit2.text);
...
form1.query1.post;
self.close;
在删除那个按钮上添上:
if MessageBox(Handle,'是否真的要删除本记录', '确认',mb_iconinformation + mb_yesno) = mryes then
query1.delete;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询