某个油田的区块做横坐标，井口数做纵坐
标而形成的“井口数统计图”为例，如图
１所示。
图１ 井口数统计图
在此图中，由于区块过多，显示得不清楚，完全分不出哪个区块
对应的数值。解决这样的问
题，操作步骤为：
（１）将区块用编码表
示，如图２所示。
（２）用ＣｏｍｍａｎｄＢｕｔｔｏｎ
按钮，显示编码所表示的区
图２ 井口数统计数据编码图
Ｉｆ Ｎｏｔ ＩｓＮｕｌｌ（ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（１）．Ｖａｌｕｅ） Ｔｈｅｎ
ｊｓ ＝ ｊｓ ＋ ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（１）．Ｖａｌｕｅ
Ｅｎｄ Ｉｆ
ＭＲｅｃｏｒｄｓｅｔ１．Ｃｌｏｓｅ
ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ．ＭｏｖｅＮｅｘｔ
Ｗｅｎｄ
Ｅｎｄ Ｗｉｔｈ
（２）区块大于１０个时的具体代码：
．ＲｏｗＬａｂｅｌ ＝ ＂＂
Ｅｌｓｅ
．ＲｏｗＬａｂｅｌ ＝ ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ！ｑｋ
＇行显示的内容（油田区块）
Ｅｎｄ Ｉｆ
Ｉｆ Ｎｏｔ ＩｓＮｕｌｌ（ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（０）．Ｖａｌｕｅ） Ｔｈｅｎ
ｋ ＝ ｋ ＋ ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（０）．Ｖａｌｕｅ
Ｅｎｄ Ｉｆ
网络纵横
２００８年第９期 146
ＶＢ环境下ＭＳＣｈａｒｔ控件的应用与研究
李旭东
（山东胜利职业学院）
摘 要 在Ｖｉｓｕａｌ Ｂａｓｉｃ ６．０环境下，ＭＳＣｈａｒｔ控件还有些不能实现的功能，如横坐标的内容显示不清楚，ＭＳＣｈａｒｔ控件的宽度如何自 动调整以及调整后如何显示看不见的部分。本文主要针对以上问题，就如何改进及应用ＭＳＣｈａｒｔ控件进行了探讨。
＇行数 （总共有
多少行）
147
２ ０ ０ ８年第９期
网络纵横
Ｗｈｉｌｅ Ｎｏｔ ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ．ＥＯＦ ｊ＝ｊ＋１ ｓｑｌ１ ＝ ＂ｓｅｌｅｃｔ ｃｏｕｎｔ（ｊｈ），ｓｕｍ（ｓｊｊｓ） ｆｒｏｍ ｐ＿ｃｘ＿ｔｊ ｗｈｅｒｅ ｑｋ＝＇＂ ＆ ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ！ｑｋ ＆ ＂＇＂ ｍＲｅｃｏｒｄｓｅｔ１．Ｏｐｅｎ ｓｑｌ１， ｍｏｂｊＣｎｎ ．ｒｏｗ ＝ ｊ ｉｆ ＩｓＮｕｌｌ（ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（０）．Ｖａｌｕｅ） Ｔｈｅｎ ．Ｄａｔａ ＝ ０ Ｅｌｓｅ ．Ｄａｔａ ＝ ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（０）．Ｖａｌｕｅ ＇行数据值（总记录个数） Ｅｎｄ Ｉｆ ．ＲｏｗＬａｂｅｌ ＝ ｊ ｉｆ ＩｓＮｕｌｌ（ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ！ｑｋ） Ｔｈｅｎ Ｍｍｓｇｂｏｘ ＝ Ｍｍｓｇｂｏｘ ＆ ＂ ＂ ＆ ｊ ＆ ＂ ＂ ＆ ＂＂ Ｅｌｓｅ Ｍｍｓｇｂｏｘ ＝ Ｍｍｓｇｂｏｘ ＆ ＂ ＂ ＆ ｊ ＆ ＂ ＂ ＆ ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ！ｑｋ ＇行显示的内 容（区块） Ｅｎｄ Ｉｆ Ｉｆ Ｎｏｔ ＩｓＮｕｌｌ（ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（０）．Ｖａｌｕｅ） Ｔｈｅｎ ｋ ＝ ｋ ＋ ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（０）．Ｖａｌｕｅ Ｅｎｄ Ｉｆ Ｉｆ Ｎｏｔ ＩｓＮｕｌｌ（ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（１）．Ｖａｌｕｅ） Ｔｈｅｎ ｊｓ ＝ ｊｓ ＋ ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（１）．Ｖａｌｕｅ Ｅｎｄ Ｉｆ ｍＲｅｃｏｒｄｓｅｔ１．Ｃｌｏｓｅ ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ．ＭｏｖｅＮｅｘｔ Ｗｅｎｄ Ｅｎｄ Ｗｉｔｈ ４．２ 将ＭＳＣｈａｒｔ控件与Ｈｓｃｒｏｌｌ控件绑定具体代码 Ｐｒｉｖａｔｅ Ｓｕｂ ＨＳｃｒｏｌｌ１＿Ｃｈａｎｇｅ（） Ｄｉｍ ｊ Ａｓ Ｌｏｎｇ， ｉｓｎ Ａｓ Ｉｎｔｅｇｅｒ
（收稿日期：２００８·０６·２４）
（接１１９页）周期内（设其最小周期为Ｎ）实现相位与要求的脉冲完 全吻合。改进后的小数分频第Ｋ＋１次脉冲相位差可以表示为：
将频率合成器的输出脉冲可能引起的最大时偏从原有Ｆ－ＮＰＬＬ结构的 一个基准时钟 降低到０．５ 。这种电路具有结构简单、易于实现 和集成、非常适合ＡＳＩＣ设计等优点。
ＨＳｃｒｏｌｌ１．Ｖｉｓｉｂｌｅ ＝ Ｆａｌｓｅ
Ｅｌｓｅ
ＭＳＣｈａｒｔＴＪ．Ｗｉｄｔｈ ＝ ２８０ ＊ ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ．ＲｅｃｏｒｄＣｏｕｎｔ
ＨＳｃｒｏｌｌ１．Ｖｉｓｉｂｌｅ ＝ Ｔｒｕｅ
Ｅｎｄ Ｉｆ
Ｗｉｔｈ ＭＳＣｈａｒｔＴＪ
＇井口数直方图
．ＲｏｗＣｏｕｎｔ ＝ ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ．ＲｅｃｏｒｄＣｏｕｎｔ
由（２）式￣（６）式的推导可知，改进的小数分频器的最大时偏
小于等于０．５ ，即相位差始终满足
，相位杂散获得很大
程度的减小。
３ 结论
小数分频在不改变降低基准频率的情况下提高频率分辨力，解决 了转换速率和频率分辨率之间的矛盾，改进的小数分频进一步减小了 相位杂散，提高了小数分频的瞬时脉冲频率的精度。本文作者创新 点：采用以比较器和常数寄存器为主的电路结构改进的小数分频技术
５ 结论
ＭＳＣｈａｒｔ控件是一个比较复杂的技术。对ＶＢ中的控件而言，除了 前面自身内置的几个属性，一些功能也可以借助其它控件来辅助实 现。另外，在具体的编程过程中，可能还要根据自己具体的要求来做 某些此控件本身无法完成的事情。该方法已经成功应用于胜利企业版 ＩＤＤＳ软件中，取得了良好的效果。
参考文献
２００５．４
（收稿日期：２００８·０７·０９）
（接１１６页）分析产量下降的主要原因应是洗井造成地层污染。由于 距注水井只有１５０ｍ左右，不宜实施水力压裂，２００７年１２月４６日对该 井实施冲击波解堵，在机采参数不变的情况下，产液量达１７．４ｍ３／ｄ， 产油量从０．７ｔ／ｄ上升到３．７ｔ／ｄ。该井自２００７年１２月实施冲击波解堵以 后，没有采取其它措施，已累计增油２１９９．７ｔ。
＇行数 （总共有
多少行）
Ｗｈｉｌｅ Ｎｏｔ ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ．ＥＯＦ
ｊ＝ｊ＋１
ｓｑｌ１ ＝ ＂ｓｅｌｅｃｔ ｃｏｕｎｔ（ｊｈ），ｓｕｍ（ｓｊｊｓ） ｆｒｏｍ ｐ＿ｃｘ＿ｔｊ ｗｈｅｒｅ ｑｋ＝＇＂ ＆
ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ！ｑｋ ＆ ＂＇＂
ｍＲｅｃｏｒｄｓｅｔ１．Ｏｐｅｎ ｓｑｌ１， ｍｏｂｊＣｎｎ
首先新建一个窗体，选择“工程”菜单中的“部件”，在弹出的 对话框中找到“Ｍｉｃｒｏｓｏｆｔ Ｃｈａｒｔ Ｃｏｎｔｒｏｌ ６．０（ＯＬＥＤＢ）”，将其前面的 复选框选中点击“应用”，后“确定”，那么在“工具箱”中就显示 此控件了。这样就可以将ＭＳＣｈａｒｔ控件放到窗体合适的位置了，同时 就可以对它做任意的操作了。
５ 结论与认识
（１）冲击波解堵工艺现场应用成功率较高，为物理法解堵的首 选工艺。
（２）选井过程中，要找出油井产量下降的主要原因，如属于钻 井泥浆污染、油井结垢、洗井堵塞等机械杂质及有机垢造成的油水井 近井地带污染，其实施效果更好。
（３）选层过程中，要分析和考虑储集层的孔／渗／饱特性，同时要 充分利用油水井的动态监测资料，科学合理的选井选层，做到有的放 矢。
块即“区块与编码的对照表”，如图３所示。
图３ 区块与编码的对照表
３ ＭＳＣｈａｒｔ控件自动调整的实现方法
对应数据很多时，可以将ＭＳＣｈａｒｔ控件本身的宽度改变。同时为 了能看到变宽后的内容还使用了Ｈｓｃｒｏｌｌ控件来控制，Ｈｓｃｒｏｌｌ控件是水 平滚动条，完全可以和ＭＤＩ 窗体上的滚动条一样的使用。实现方法 操作步骤为：①将ＭＳＣｈａｒｔ控件的宽度（Ｗｉｄｔｈ）属性随数据改变；②将 ＭＳＣｈａｒｔ控件与Ｈｓｃｒｏｌｌ控件绑定。
Ｉｆ ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ．ＲｅｃｏｒｄＣｏｕｎｔ ＞ １０ Ｔｈｅｎ ＇防止行数多了时，显示不开
ＣｏｍｍａｎｄＪＫＳ．Ｖｉｓｉｂｌｅ ＝ Ｔｒｕｅ ＇按钮能用
Ｉｆ ２８０ ＊ ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ．ＲｅｃｏｒｄＣｏｕｎｔ ＜ １０４２５ Ｔｈｅｎ
ＭＳＣｈａｒｔＴＪ．Ｗｉｄｔｈ ＝ １０４２５
．ｒｏｗ ＝ ｊ
Ｉｆ ＩｓＮｕｌｌ（ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（０）．Ｖａｌｕｅ） Ｔｈｅｎ
．Ｄａｔａ ＝ ０
Ｅｌｓｅ
．Ｄａｔａ ＝ ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（０）．Ｖａｌｕｅ
＇行数据值（总记录个数）
Ｅｎｄ Ｉｆ
Ｉｆ ＩｓＮｕｌｌ（ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ！ｑｋ） Ｔｈｅｎ
［１］ Ｓｔｅｖｅｎ Ｈｏｌｚｎｅｒ．ＶｉｓｕａｌＢａｓｉｃ ６技术内幕［Ｍ］．北京：机械工业出版
社，１９９９
［２］ 丁爱萍 ． ＶｉｓｕａｌＢａｓｉｃ 程序设计 ．西安：西安电子科技大学出版
社， ２００４－０６－０１
［３］ 高春艳等． Ｖｉｓｕａｌ Ｂａｓｉｃ开发技术大全 ． 北京：人民邮电出版社，
４ 经济效益分析
从２００５年６月至２００７年６月底，在ＧＪ、ＭＴＺ、ＷＺＴ等３个油田实施 冲击波解堵，共１５井次，其中Ｚ２－２２、Ｇ６－５５两口井基本无效，有效 １２井次，措施有效率８０％，累计增产７６万元，投入产出比约为１：３２．５，经 济效益十分显著。
ｉｓｎ ＝ ＨＳｃｒｏｌｌ１．Ｍａｘ ｊ ＝ ＨＳｃｒｏｌｌ１．Ｖａｌｕｅ ＋ ＭＳＣｈａｒｔＴＪ．Ｌｅｆｔ ＭＳＣｈａｒｔＴＪ．Ｌｅｆｔ ＝ ＭＳＣｈａｒｔＴＪ．Ｌｅｆｔ － ｊ Ｅｎｄ Ｓｕｂ Ｐｒｉｖａｔｅ Ｓｕｂ ＨＳｃｒｏｌｌ１＿Ｓｃｒｏｌｌ（） ＭＳＣｈａｒｔＴＪ．Ｌｅｆｔ ＝ ０ － ＨＳｃｒｏｌｌ１．Ｖａｌｕｅ Ｅｎｄ Ｓｕｂ ４．３ 用ＣｏｍｍａｎｄＢｕｔｔｏｎ按钮，显示编码所表示的区块即“区块与编码 的对照表” 在给ＭＳＣｈａｒｔ控件赋值时，已经将Ｍｍｓｇｂｏｘ做成一个字符串，并 且是Ｐｕｂｌｉｃ类型的。具体代码如下： Ｐｒｉｖａｔｅ Ｓｕｂ ＣｏｍｍａｎｄＪＫＳ＿Ｃｌｉｃｋ（） ＭｓｇＢｏｘ Ｍｍｓｇｂｏｘ， ｖｂＯＫＯｎｌｙ， ＂区块与编号的对比＂ Ｅｎｄ Ｓｕｂ
的，直接显示区块真正的名称，不需要对区块进行编码表示。 设当前ＭＳＣｈａｒｔ控件的ｎａｍｅ为ＭＳＣｈａｒｔＴＪ；用到的数据记录集为