【结贴】[问题]GraphicPageControl的一个小问题！**

rzport_wd · 发表于 2008-6-10 18:06:14

GraphicPageControl的一个小问题！
初始化运行一切正常。

rzport_wd · 发表于 2008-6-10 18:07:27

当点击其中任意一个标签后出现下图的状况

lixy · 发表于 2008-6-11 08:34:02

没看懂，好像是标签没切换？
没碰到这个情况，楼主控件是不是放置的不对啊。或者加了什么程序在这个控件的事件上、

rzport_wd · 发表于 2008-6-11 14:59:16

2楼中，我点击了库场详细标签，应该被激活，标签的颜色应该是渐变效果。现在不知道是什么原因。好像没有被激活。
onchange事件写了代码

lixy · 发表于 2008-6-11 16:06:49

去掉onchanger事件的程序看看。跟控件本身切换冲突了

lixy · 发表于 2008-6-11 16:07:13

去掉onchanger事件的程序看看。跟控件本身切换冲突了。这样的问题应该自己能搞定吧？
不能的话，贴代码看看

lixy · 发表于 2008-6-11 16:10:11

去掉onchanger事件的程序看看。跟控件本身切换冲突了。这样的问题应该自己能搞定吧？
不能的话，贴代码看看

lixy · 发表于 2008-6-11 16:10:13

去掉onchanger事件的程序看看。跟控件本身切换冲突了。这样的问题应该自己能搞定吧？
不能的话，贴代码看看

rzport_wd · 发表于 2008-6-12 13:34:13

代码去掉了。。。还是老样子！！！！！

rzport_wd · 发表于 2008-6-12 13:58:42

procedure TYSJHCXB.GraphicPageControl1Change(Sender: TObject);
var
v_czy:string;
begin
//计划查询初始化签名

if DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('jhbh').AsString<>'' then
begin
if (GraphicPageControl1.ActivePageIndex=1) or (GraphicPageControl1.ActivePageIndex=3) then
begin
   try
   begin
      v_czy:=DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('ddy').AsString;

      TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFilter:='FDISPLAYNAME='''+v_czy+'''';

      TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFiltered:=true;

      DataSetBrokerLLYSJHSJJgn.DataSet.Edit;

      DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('ddy_lsqm').Assign(DataSetBrokerRYDZQMCBgn.DataSet.FieldByName('EDZQM'));

      TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFiltered:=false;

      v_czy:=DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('ddzgid').AsString;
      TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFilter:='FDISPLAYNAME='''+v_czy+'''';

      TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFiltered:=true;

      DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('ddzg_lsqm').Assign(DataSetBrokerRYDZQMCBgn.DataSet.FieldByName('EDZQM'));

      TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFiltered:=false;

      DataSetBrokerLLYSJHSJJgn.DataSet.Post;

   end;
finally
   //
end;
end;
if GraphicPageControl1.ActivePageIndex=2 then
begin

   try
   begin
      v_czy:=DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('jhy').AsString;

      TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFilter:='FDISPLAYNAME='''+v_czy+'''';
      TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFiltered:=true;

      DataSetBrokerLLYSJHSJJgn.DataSet.Edit;
      DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('jhy_lsqm').Assign(DataSetBrokerRYDZQMCBgn.DataSet.FieldByName('EDZQM'));
      TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFiltered:=false;

      v_czy:=DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('sczgid').AsString;
      TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFilter:='FDISPLAYNAME='''+v_czy+'''';
      TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFiltered:=true;

      DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('sczg_lsqm').Assign(DataSetBrokerRYDZQMCBgn.DataSet.FieldByName('EDZQM'));
      TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFiltered:=false;
      DataSetBrokerLLYSJHSJJgn.DataSet.Post;
   end;
finally
   //
end;
end;
if GraphicPageControl1.ActivePageIndex=4 then
   begin
      try
   begin
      if (DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('ggr').AsString<>'') and (DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('jhbh').AsString<>'')

then
      begin
            v_czy:=DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('ggr').AsString;
            TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFilter:='FDISPLAYNAME='''+v_czy+'''';
            TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFiltered:=true;

            DataSetBrokerLLYSJHSJJgn.DataSet.Edit;
            DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('ggr_lsqm').Assign(DataSetBrokerRYDZQMCBgn.DataSet.FieldByName('EDZQM'));
            TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFiltered:=false;

      end;
      if (DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('scbzg').AsString<>'') and (DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('jhbh').AsString<>'')

then
      begin
            v_czy:=DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('scbzg').AsString;
            TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFilter:='FDISPLAYNAME='''+v_czy+'''';
            TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFiltered:=true;

            DataSetBrokerLLYSJHSJJgn.DataSet.Edit;
            DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('sczg_lsqm').Assign(DataSetBrokerRYDZQMCBgn.DataSet.FieldByName('EDZQM'));
            TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFiltered:=false;

      end;
      if (DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('ddy').AsString<>'') and (DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('jhbh').AsString<>'')

then
      begin
            v_czy:=DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('ddy').AsString;
            TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFilter:='FDISPLAYNAME='''+v_czy+'''';
            TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFiltered:=true;

            DataSetBrokerLLYSJHSJJgn.DataSet.Edit;
            DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('ddy_lsqm').Assign(DataSetBrokerRYDZQMCBgn.DataSet.FieldByName('EDZQM'));
            TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFiltered:=false;

      end;
      if (DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('ddbzg').AsString<>'') and (DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('jhbh').AsString<>'')

then
      begin
            v_czy:=DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('ddbzg').AsString;
            TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFilter:='FDISPLAYNAME='''+v_czy+'''';
            TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFiltered:=true;

            DataSetBrokerLLYSJHSJJgn.DataSet.Edit;
            DataSetBrokerLLYSJHSJJgn.DataSet.FieldByName('ddzg_lsqm').Assign(DataSetBrokerRYDZQMCBgn.DataSet.FieldByName('EDZQM'));
            TSQLDataSet(DataSetBrokerRYDZQMCBgn.DataSet).SQLFiltered:=false;

      end;
      DataSetBrokerLLYSJHSJJgn.DataSet.Post;
      end;
      finally
   //
      end;
   end;
end;

end;

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