1 數(shù)據(jù)庫基本錄入界面的設(shè)計(jì)
首先用vb中的數(shù)據(jù)管理器創(chuàng)建一個(gè)access數(shù)據(jù)庫“c:\my.mdb”,在表“worker”中加入一個(gè)字段“name”,然后在vb的缺省表單中拖入一個(gè)數(shù)據(jù)控件、一個(gè)文本框、一個(gè)表簽、一個(gè)命令按鈕組,合理設(shè)計(jì)界面布局,并設(shè)置各個(gè)控件的屬性,如表1。
加入下列代碼即可得到一個(gè)數(shù)據(jù)庫基本輸入窗口:
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 "新增""編輯""放棄""保存""刪除""退出"
首先用vb中的數(shù)據(jù)管理器創(chuàng)建一個(gè)access數(shù)據(jù)庫“c:\my.mdb”,在表“worker”中加入一個(gè)字段“name”,然后在vb的缺省表單中拖入一個(gè)數(shù)據(jù)控件、一個(gè)文本框、一個(gè)表簽、一個(gè)命令按鈕組,合理設(shè)計(jì)界面布局,并設(shè)置各個(gè)控件的屬性,如表1。
加入下列代碼即可得到一個(gè)數(shù)據(jù)庫基本輸入窗口:
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 "新增""編輯""放棄""保存""刪除""退出"

