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

　　首先用vb中的数据管理器创建一个access数据库“c:\my.mdb”，在表“worker”中加入一个字段“name”，然后在vb的缺省表单中拖入一个数据控件、一个文本框、一个表签、一个命令按钮组，合理设计界面布局，并设置各个控件的属性，如表1。

　　加入下列代码即可得到一个数据库基本输入窗口：

private sub command1-click(index as integer)

select case index

case0’addnew

data1.recordset.addnew

text1.setfocus

case1’edit

data1.recordset.edit

text1.setfocus

case2’giveup

data1.recordset.cance1update

data1.refresh

case3’save

data1.recordset. update

data1.refresh

case4’delete

data1.recordset.delete

data1.refresh

case5’end

end

end select

end sub

表一

控件名 属性名 属性值

name data1

data databasename "c:\my.mdb"

recordsource "worker"

name text1

text text ""

datasource "data1"

datafield name

label caption "姓名" 　

name command1

commandbutton index 0 1 2 3 4 5

caption "新增""编辑""放弃""保存""删除""退出"