展开全部
在新窗口form2里,比如有一个adoquery2数据的条目供选择,用户选择好后按‘增加’按钮,可以这样设定:
procedure TForm2.okBtnclick(Sender: TObject);
begin
mainform1.query1.insert; // 在query1里增加
mainform1.query1.fieldbyname('field1').asstring := query2.fieldbyname('field1').asstring;
mainform1.query1.fieldbyname('field2').asstring := query2.fieldbyname('field2').asstring;
mainform1.query1.fieldbyname('field3').asstring := query2.fieldbyname('field3').asstring;
// ... 根据query2设定增加的数据值
mainform1.query1.post; // 写数据库
close; // 把当前的form2关闭
end;
procedure TForm2.okBtnclick(Sender: TObject);
begin
mainform1.query1.insert; // 在query1里增加
mainform1.query1.fieldbyname('field1').asstring := query2.fieldbyname('field1').asstring;
mainform1.query1.fieldbyname('field2').asstring := query2.fieldbyname('field2').asstring;
mainform1.query1.fieldbyname('field3').asstring := query2.fieldbyname('field3').asstring;
// ... 根据query2设定增加的数据值
mainform1.query1.post; // 写数据库
close; // 把当前的form2关闭
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
使用ehlib第三方控件,dbgrideh,你可以在dbgrideh里的某一列增加editbuttons
然后在button写click事件就可以了,如果有多列数据要显示,用逗号分开。
然后在button写click事件就可以了,如果有多列数据要显示,用逗号分开。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
使用ehlib,dbgrideh控件可以实现,你可以在dbgrideh里的某一列增加editbuttons
然后在button写click事件就可以了
然后在button写click事件就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询