VB数据库数据的选项录入及增减与编辑之四

3选项输入、选项增减和选项数据编辑

有些字段的取值范围很小，相对固定，但是会有一些变化。比如“省市”字段会发生变化，比如增加一个省或市，撤县设市等。该计划应允许用户添加，减去或编辑这个基本选项框，除了提供一个合法的基本选项框，供用户选择。下面的程序实现了这个功能。用户可以双击表单对选项框进行加减编辑，然后双击表单关闭编辑功能。

建立一个数据库“c:myrand.mdb”，在其表“rank”中添加一个字段“name”；然后从工具箱中拖动一个数据控件data2、一个数据绑定组合框dbcombol和一个数据绑定网格控件dbgrid1。属性设置如下:(1)data2控件的:databasename属性设置为“c:\myrand.mdb”，recordsource为“Rank”；(2)dbcombo控件:name设置为dbcombo1，rowsource设置为data2，listfiele设置为“name”，datasource设置为data1。Datafield设置为“名称”；(3)3)dbgrid控件的:name设置为dbgrid1，allowaddnew，allowdelete和allowupdate都设置为true，而true，datasource设置为data2。

程序代码如下:

选项显式

将最后一个变暗为字符串

将dd标注为布尔值

私有子窗体-激活()

作为变体的模糊标记

mark=data1.recordset.bookmark

data1.recordset.movelast

last=data1.recordset("name ")

data1.recordset.bookmark=mark

text1.visible=true

dbcombol.visible=false

dbgrid1.visible=false

末端接头