1 数据库基本录入界面的设计 

　　首先用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 "新增""编辑""放弃""保存""删除""退出"