在VFP中实现跟变式组合框及椭圆图形菜单

目前，VisualFoxPro已经广泛应用于数据库应用系统的开发中，系统的开发技巧和注意事项也引起了人们的关注。文中介绍的两种编程技巧实现起来非常简单，但在实际应用中起到了很好的作用。

1.跟随变体组合框

在实际应用系统中，经常使用下拉列表框来实现字符字段数据的规范化输入，一个数据表中往往会有很多这样的数据字段，这些字段对应的规范化数据作为枚举数据表中的枚举数据来管理。有一个问题。不同字段对应的枚举数据有宽有窄。为了存储所有这些数据，枚举数据表的数据字段应该足够宽。但是，对于目标数据库的控制字段，显然应该根据业务对数据的要求以及保存空的考虑，将字段设计成合适的宽度。对于VFP来说，如果列表数据的宽度超过了控件字段的宽度，所选择的数据就无法显示在文本框中，这一点往往被程序员忽略，导致提交给用户的程序失败。其实在设计下拉列表框时只需要几行代码就可以解决这个问题，下拉列表框和文本框可以自动跟随控件字段宽度的变化，使对象的宽度始终与字段的宽度保持一致。

假设控制数据表的控制字段为KZB。DBF被命名为A1。在实际应用系统中，A1相当于不同数据表中的不同枚举字段。枚举表MJB。DBF集中管理应用系统的所有枚举数据。枚举表包括至少两个字段:枚举数据和枚举字段标志，其中枚举数据字段命名为CC，枚举字段标志为MJBZ。图1示出了控制表字段A1的宽度为10的情况，图2示出了控制表字段A1的宽度被调整为26的情况。实现方法如下:首先在表单的数据环境中添加控制表和枚举表，并在组合框的InitEvent方法中添加以下代码:

KD =伦(KZB。A1)

这个。宽度=31+6.3*KD

SELEMJB

CREATCURSORLS(CCC(KD))

Appromjbformjbz = "测试"

& &完成该字段的枚举数据筛选。

一般一个系统的枚举字段的枚举数据总共只有几百个，在INIT中创建一个游标不会影响速度。设计列表时，需要在组合框的RowSource处标记光标名称LS。这个功能的实现只需要添加一点代码，但是在实际应用中起到了非常好的作用。