注册 登录
编程论坛 Delphi论坛

[求助]dbgrideh组件弹窗

li57482053 发布于 2016-03-19 00:56, 6402 次点击
两个form
一个form1,一个form2
从第一个form1.dbgrideh从数据库查询出结果,赋值给 form2 里的dbgrideh。
总是会弹出一个框 点确认就赋值成功,点ok 赋值成功 点cancel 就赋值失败。
能不能不显示这个窗口。
只有本站会员才能查看附件,请 登录

代码如下
procedure TForm1.DBGridEh1EditButtonClick(Sender: TObject);
begin
    with Form2.sp1 do  
    begin
      // Close;
       ProcedureName := 'a2';  
       Parameters.Refresh;
       Parameters.ParamByName('@bm').Value := trim(DBGrideh1.Columns.Grid.fields[0].Value);
       ExecProc;
       Open;
      // Form2.Show;
end;

end;
更多 0
0 回复
1