用DataGrid瀏覽數據
2024-07-21 02:22:59
供稿：網友
數據相關實例：
數據集
friend withevents ds1 as dgdataviewsample.dataset1
dataset1為項目中的數據集框架文件，結構包括兩個表：tableperson和tabletype
數據庫連接變量
friend withevents odc as system.data.oledb.oledbconnection
本例使用access數據庫，所以數據庫連接使用oledbconnection類型。針對不同3數據庫類型，.net提供不同的數據庫連接類。
例如sql server數據庫需要使用sqlconnection，odbc數據源使用odbcconnection，oracle數據庫需要使用oracleconnection。
數據適配器
friend withevents oddaperson as system.data.oledb.oledbdataadapter
friend withevents oddatype as system.data.oledb.oledbdataadapter
與數據庫連接類似，對于不同的數據庫類型，需要使用不同的數據適配器類。
例如sql server數據庫需要使用sqldataadapter，odbc數據源使用odbcdataadapter，oracle數據庫需要使用oracledataadapter。
數據適配器的屬性可以通過工具欄添加，按照向導提示完成即可；可以在設計時在屬性窗口中進行配置；可以在編程時用代碼設置。一個數據適配器相當于一個數據通道，負責將數據源中的數據填充到相應的數據集或數據表中，在完成對數據集或數據表的修改之后，再通過數據適配器將更新后的數據提交到數據庫的源表中。通過修改相應的sql語句，可以用編程控制數據適配器，使其匹配數據源中不同的表或視圖。
本例為方便起見，為每一個表使用了單獨的數據適配器和數據視圖。
數據視圖
friend withevents dvperson as system.data.dataview
friend withevents dvtype as system.data.dataview
本例中使用數據視圖作為datagrid的數據源。數據集和數據表也可以直接作為數據源使用。
數據初始化：
在初始化界面時，需要做兩件事情，一個是初始化數據（本例中為initdata過程），將數據源中的數據填充到數據實例中；另一個是適當設置窗口中的某些控件屬性（本例中為initctrl過程），以使數據能夠正確的顯示出來。
初始化數據
private sub initdata()
try
odc.open()
catch ex as exception
msgbox(ex.message)
application.exit()
end try
try
oddaperson.fill(ds1.tableperson)
oddatype.fill(ds1.tabletype)
catch ex as exception
msgbox(ex.message)
application.exit()
end try
end sub
初始化窗口控件
private sub initui()
lbtable.selectedindex = 0
dg.select(0)
end sub
數據瀏覽導航：
按鈕第一個
private sub bfirst_click(byval sender as system.object, byval e as system.eventargs) handles bfirst.click
dg.unselect(dg.currentrowindex)
dim dv as dataview
dv = dg.datasource
if dv.table.rows.count > 0 then
dg.currentrowindex = 0
dg.select(dg.currentrowindex)
end if
end sub
按鈕上一個
private sub bprev_click(byval sender as system.object, byval e as system.eventargs) handles bprev.click
dg.unselect(dg.currentrowindex)
dim dv as dataview
dv = dg.datasource
if dg.currentrowindex - 1 <= 0 then
dg.currentrowindex = 0
else
dg.currentrowindex = dg.currentrowindex - 1
end if
dg.select(dg.currentrowindex)
end sub
按鈕下一個
private sub bnext_click(byval sender as system.object, byval e as system.eventargs) handles bnext.click
dg.unselect(dg.currentrowindex)
dim dv as dataview
dv = dg.datasource
if dg.currentrowindex + 1 >= dv.table.rows.count then
dg.currentrowindex = dv.table.rows.count - 1
else
dg.currentrowindex = dg.currentrowindex + 1
end if
dg.select(dg.currentrowindex)
end sub
按鈕最后一個
private sub blast_click(byval sender as system.object, byval e as system.eventargs) handles blast.click
dg.unselect(dg.currentrowindex)
dim dv as dataview
dv = dg.datasource
dg.currentrowindex = dv.table.rows.count - 1
dg.select(dg.currentrowindex)
end sub
數據操作
按鈕添加
private sub badd_click(byval sender as system.object, byval e as system.eventargs) handles badd.click
dim dv as dataview
dim rownew as datarowview
dv = dg.datasource
rownew = dv.addnew()
rownew.endedit()
dg.currentrowindex = dv.table.rows.count - 1
dg.select(dg.currentrowindex)
end sub
在調用addnew添加一條新記錄之后，緊接著調用了endedit，這樣是表明這個添加操作已經完成，可以對這個新記錄進行其它任何操作了。在此調用之前，新記錄被認為是正在編輯的記錄，會被鎖定，這時對其進行刪除操作就會引發錯誤，而且這條記錄并不會真正的存入表中。在endedit調用之后，新記錄存入表中，但是行狀態被標志為新增記錄。
這一步完成后，用戶一般會通過表格輸入新記錄的各個字段值。在程序中，實際上是將這個過程視做對新增記錄的修改。
按鈕刪除
private sub bdel_click(byval sender as system.object, byval e as system.eventargs) handles bdel.click
dim dv as dataview
dv = dg.datasource
dv.delete(dg.currentrowindex)
dg.select(dg.currentrowindex)
end sub
按鈕保存
private sub bsave_click(byval sender as system.object, byval e as system.eventargs) handles bsave.click
me.updatedata()
end sub
保存子過程
private sub updatedata()
dim addds as dataset
dim delds as dataset
dim updateds as dataset
try
addds = ds1.getchanges(datarowstate.added)
delds = ds1.getchanges(datarowstate.deleted)
updateds = ds1.getchanges(datarowstate.modified)
if addds is nothing then
else
oddaperson.update(addds)
oddatype.update(addds)
end if
if updateds is nothing then
else
oddaperson.update(updateds)
oddatype.update(updateds)
end if
if delds is nothing then
else
oddaperson.update(delds)
oddatype.update(delds)
end if
catch ex as exception
msgbox(ex.message)
exit sub
end try
try
dvperson.table.acceptchanges()
dvtype.table.acceptchanges()
ds1.acceptchanges()
catch ex as exception
msgbox(ex.message)
exit sub
end try
end sub
* 在為datatable調用acceptchanges之后，將清除所有行的狀態標志，也就是說，程序將無法再區分哪些是新添加的，哪些是被修改后的。所以所有利用行狀態標志對數據源進行修改的操作都放在了此調用之前。
* 將各種修改存回數據源的順序為：添加的行--被修改的行--被刪除的行。以免在操作時發生邏輯錯誤。
