【结贴】更多**

atiger · 发表于 2008-2-25 13:46:54

9楼和10楼都不是我要的

我要的是在设计环境下，就是Studio中打开企业文化这个功能的主窗体，见附件

zhjkill · 发表于 2008-2-25 13:47:50

图

zhjkill · 发表于 2008-2-25 13:49:48

这个？

atiger · 发表于 2008-2-25 14:08:12

哦，你直接运行这个企业文化功能，界面啥样子的，是3楼还是2楼？
你跟一下你的代码或者设置看看，是否哪里设置了一些参数

zhjkill · 发表于 2008-2-25 14:15:04

2楼

zhjkill · 发表于 2008-2-25 14:15:47

主要代码写着这样的
constructor TCorpCulIssuanceForm.Create(Acontext:Tcontext);
begin
  inherited;
  //TDataSetSmartFilter(FilterBar.ToolBarModule).DataSet := TSQLDataSet(dsbMaster.DataSet);
  //(dvCorpCulList.Doc as TCORPCULLIST).OnGridDBClick := DoGridDoubleClick;
  (dvCorpCulList.Doc as TCORPCULLIST).DataGrid.OnDblClick := DoGridDoubleClick;
//  dsbMaster.DataSet.Order := 'APPLYDATE desc';
  dvCorpCulIssuance.Align := TAlign.alClient;
  dvCorpCulList.Align := TAlign.alClient;
//  FilterBar.Left := GraphicTab.Width - 175;
  dvCorpCulIssuance.Visible := True;
  dvCorpCulList.Visible := False;
  DataSetBroker.DataSet.Filter:=FuncBroker.func.Parameters;
  DataSetBroker.DataSet.Filtered:=true;
  GraphicTab1.Index := 1;
end;

atiger · 发表于 2008-2-25 14:27:28

把
  dvCorpCulIssuance.Visible := True;
  dvCorpCulList.Visible := False;
修改为
  dvCorpCulIssuance.Visible := False;
  dvCorpCulList.Visible := True;
然后看看

zhjkill · 发表于 2008-2-25 14:44:11

你这样改的话，点更多没问题，但是点击2007年杭锅集团大事回顾的记录条时，显示如图。

zhjkill · 发表于 2008-2-25 14:48:04

要求点记录条时候，显示的是2楼的图，就是直接显示内容

atiger · 发表于 2008-2-25 14:48:21

对，应该激活企业文化一览这页。

我问一下，你直接在设计环境下，运行企业文化，是否看到的是企业文化一览这页，就是3楼，如果是，看看更多连接的文档是否连接差了

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