【搞定】[请求]数据网格还是实现不了**

songyun · 发表于 2007-4-5 09:11:48

本来不该重新发贴的，怕看不见，所以见谅。
unit RCXXGL;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data;

type
  TRCXXGL = class(TForm)
FuncBroker: TFuncBroker;
InfoBrokerXGDRCYWXX: TInfoBroker;
ControlBar: TControlBar;
DataNavigator: TDataNavigator;
DocViewBar: TDocViewBar;
PageControl: TPageControl;
TabSheet: TTabSheet;
TabSheet1: TTabSheet;
DataGrid1: TDataGrid;
DataSource1: TDataSource;
DataSetBZSJJ1: TSQLDataSet;
DataGrid1BH: TDataGridColumn;
DataGrid1XGDMC: TDataGridColumn;
DataGrid1XM: TDataGridColumn;
DataGrid1ZC: TDataGridColumn;
DataGrid1MZ: TDataGridColumn;
DataGrid1XB: TDataGridColumn;
DataGrid1XL: TDataGridColumn;
DataGrid1JG: TDataGridColumn;
DataGrid1ZZMM: TDataGridColumn;
DataGrid1GZZW: TDataGridColumn;
DocView1: TDocView;
InfoBroker1: TInfoBroker;
Button1: TButton;
procedure button1click(Sender: TObject);
procedure BizFormShow(Sender: TObject);
  private
{private declarations}
  public
{public declarations}
  end;

implementation

procedure TRCXXGL.button1click(Sender: TObject);
begin
  pagecontrol.activepage:=tabsheet1;
end;

procedure TRCXXGL.BizFormShow(Sender: TObject);
begin
  Inherited;
DataGrid1.OnDblClick:=button1click;
end;

end.

编译成功，可是运行的时候，窗体什么都没有。郁闷，

songyun · 发表于 2007-4-5 09:13:55

传错了。。这个是我窗体的布局。

songyun · 发表于 2007-4-5 12:01:38

unit RCXXGL;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data;

type
  TRCXXGL = class(TForm)
FuncBroker: TFuncBroker;
InfoBrokerXGDRCYWXX: TInfoBroker;
ControlBar: TControlBar;
DataNavigator: TDataNavigator;
DocViewBar: TDocViewBar;
PageControl: TPageControl;
TabSheet: TTabSheet;
TabSheet1: TTabSheet;
DataGrid1: TDataGrid;
DataSource1: TDataSource;
DataSetBZSJJ1: TSQLDataSet;
DataGrid1BH: TDataGridColumn;
DataGrid1XGDMC: TDataGridColumn;
DataGrid1XM: TDataGridColumn;
DataGrid1ZC: TDataGridColumn;
DataGrid1MZ: TDataGridColumn;
DataGrid1XB: TDataGridColumn;
DataGrid1XL: TDataGridColumn;
DataGrid1JG: TDataGridColumn;
DataGrid1ZZMM: TDataGridColumn;
DataGrid1GZZW: TDataGridColumn;
DocView1: TDocView;
InfoBroker1: TInfoBroker;
Button1: TButton;
//procedure button1click(Sender: TObject);
//procedure BizFormShow(Sender: TObject);
procedure DataGrid1DblClick(Sender: TObject);
  private
{private declarations}
  public
{public declarations}
  end;

implementation

procedure TRCXXGL.DataGrid1DblClick(Sender: TObject);
begin
pagecontrol.activepage:=tabsheet1;
end;

end.

cxxwz123 · 发表于 2007-4-5 12:32:09

功能里可能没有设置主窗体。

jiahaiminghr · 发表于 2007-4-5 12:53:01

最初由 cxxwz123 发布
[B]功能里可能没有设置主窗体。 [/B]

:confused:
强！

jiahaiminghr · 发表于 2007-4-5 12:53:18

已经电话沟通，结贴！

songyun · 发表于 2007-4-5 13:02:20

真的非常谢谢，我喜欢这个平台，只是自己还不够水平，没有真正发挥出来。

songyun · 发表于 2007-4-5 16:53:02

我已上传，等待您的指导。

jiahaiminghr · 发表于 2007-4-5 17:27:22

在主窗体的DataGrid应该关联一个DatasetBroker数据源
而不是DataSource

你在窗体上放一个datasetbroker，设置它的InfoBroker为infobroker1， DataSetID为详细数据集[XXSJJ]

songyun · 发表于 2007-4-6 11:32:35

已经搞定了，是我自己不清楚代理组件那么鬼好用，呵呵，万分感谢。

		自动登录	找回密码
密码			立即注册