淺析Visual Basic程序設(shè)計(jì)在工作中的應(yīng)用
2014-09-19 20:47:21李洪丹
北方經(jīng)貿(mào) 2014年7期
李洪丹
摘要：闡述了在VB程序設(shè)計(jì)中應(yīng)用ADO數(shù)據(jù)連接控件開(kāi)發(fā)“專業(yè)統(tǒng)計(jì)小程序”的關(guān)鍵技術(shù)與實(shí)現(xiàn)方法。
關(guān)鍵詞：Visual Basic6.0程序設(shè)計(jì)；Excel數(shù)據(jù)統(tǒng)計(jì)；工作效率
中圖分類號(hào)：TP311.11文獻(xiàn)標(biāo)識(shí)碼：A
文章編號(hào)：1005-913X（2014）07-0212-02
一、正文
在日常的工作中，經(jīng)常要根據(jù)Office辦公軟件Excel電子表格統(tǒng)計(jì)本學(xué)院學(xué)生生源地和專業(yè)人數(shù)，有的時(shí)候Excel本身提供的一些數(shù)據(jù)統(tǒng)計(jì)分析基礎(chǔ)功能并不能滿足我們的需求，基于此應(yīng)用，筆者利用Microsoft Visual Basic 6.0 企業(yè)版作為開(kāi)發(fā)平臺(tái)，設(shè)計(jì)出一款應(yīng)用小程序用于根據(jù)專業(yè)名稱統(tǒng)計(jì)專業(yè)學(xué)生數(shù)和根據(jù)身份證號(hào)字段判斷學(xué)生出生地來(lái)滿足工作的需要。如圖所示，EXCEL的文件名為55555.XLS，是從學(xué)信網(wǎng)中下載的學(xué)生基礎(chǔ)數(shù)據(jù)。
統(tǒng)計(jì)各專業(yè)的人數(shù)，以往的做法是利用EXCEL菜單欄中“數(shù)據(jù)”選項(xiàng)中的“自動(dòng)篩選”，分專業(yè)名稱來(lái)篩選，找到一個(gè)手工記錄一個(gè)，費(fèi)時(shí)費(fèi)力。
二、算法描述
連接EXCEL數(shù)據(jù)庫(kù)文件后，定義兩個(gè)數(shù)據(jù)集對(duì)象RS和RST，篩選專業(yè)名稱將結(jié)果存儲(chǔ)到數(shù)據(jù)集對(duì)象RS中。利用兩層嵌套循環(huán)語(yǔ)句，用MSFLEXGRUD控件綁定數(shù)據(jù)集，顯示結(jié)果。將結(jié)果導(dǎo)出含有三個(gè)字段的EXCEL中。
三、具體實(shí)現(xiàn)
在Microsoft Visual Basic 6.0 企業(yè)版開(kāi)發(fā)平臺(tái)中，新建一個(gè)工程，添加一個(gè)窗體，將“工具箱”中MSFLEXGRUD控件和按鈕控件拖入窗體中。因?yàn)閿?shù)據(jù)庫(kù)文件是EXCEL，所以要勾選工程的引用“Microsoft Excel 11.0 Objects 2.0 Library”在窗體裝載的事件中，添加連接數(shù)據(jù)庫(kù)EXCEL字符串。
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=55555.xls;Extended Properties='Excel 8.0;HDR=Yes'"
四、主要實(shí)現(xiàn)代碼
Dim Con As New ADODB.Connection//定義Con為數(shù)據(jù)庫(kù)連接對(duì)象
Dim RS As New ADODB.Recordset//定義RS為記錄集對(duì)象
DIM RST AS NEW ADODB.Recordst//定義RST為記錄集對(duì)象
Dim i As Integer//定義整形變量i
Dim j As Integer //定義整形變量j
Dim hlj As String//定義字符串變量hlj
Private Sub Form_Load()
//連接數(shù)據(jù)庫(kù)
Grid.FormatString = "序號(hào)| 專業(yè) | 專業(yè)人數(shù) "
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=55555.xls;Extended Properties='Excel 8.0;HDR=Yes'"
Con.Open
RS.Open "select distinct ZYMC from [sheet1$]", Con, adOpenKeyset, adLockOptimistic
j = RS.RecordCount
RS.MoveFirst
For i = 0 To j - 1
Dim rowi As Integer
Do While Not RS.EO
rowi = rowi + 1
hlj = "select count(*) from [sheet1$] where ZYMC = '" & RS.Fields("ZYMC") & "'"
Set RST = Con.Execute(hlj)
Grid.ColAlignment(0) = 4 '字段數(shù)據(jù)居中顯示
Grid.ColAlignment(1) = 4
Grid.ColAlignment(2) = 4
Grid.TextMatrix(rowi, 0) = rowi
Grid.TextMatrix(rowi, 1) = RS.Fields("ZYMC")
If RST(0) <> 0 Then Grid.TextMatrix(rowi, 2) = RST(0) Else Grid.TextMatrix(rowi, 2) = 0
RS.MoveNext
Grid.Rows = Grid.Rows + 1
Loop
Next i
Label1.Caption = "學(xué)生總數(shù)：" & RS.RecordCount
Set RST = Nothing //將記錄集RST對(duì)象置空
Set RS = Nothing //將記錄集RS對(duì)象置空
Con.Close
End Sub
單擊導(dǎo)出EXCEL按鈕，導(dǎo)出新的EXCEL。
Private Sub Command1_Click()
Dim ii As Long
Dim jj As Long
'創(chuàng)建一個(gè)Application對(duì)象
Dim liexcel As Excel.Application
Set liexcel = New Excel.Application
'綁定
Set liexcel = CreateObject("Excel.Application")
'向Excel中寫(xiě)入數(shù)據(jù)
Dim libookAs Excel.Workbook
Dim lisheetAs Excel.Worksheet
Set libook = liexcel.Workbooks.Add
liexcel.SheetsInNewWorkbook = 1
'設(shè)置為可見(jiàn)
liexcel.Visible = True
'將控件MSHFlexGrid顯示的內(nèi)容寫(xiě)入Excel中
With liexcel.ActiveSheet
For ii = 1 To Grid.Rows
For jj = 1 To Grid.Cols
.Cells(ii, jj).Value = "" & Format$(Grid.TextMatrix(ii - 1, jj - 1))
Next jj
End With
'清空并關(guān)閉
Set lisheet = Nothing
Set libook = Nothing
Set liexcel = Nothing
End Sub
實(shí)現(xiàn)效果如圖
五、結(jié)束語(yǔ)
通過(guò)開(kāi)發(fā)這個(gè)小程序提高了工作人員的工作效率，避免了繁重的手工統(tǒng)計(jì)費(fèi)時(shí)費(fèi)力，減輕了工作人員的工作量，并且提高了數(shù)據(jù)的準(zhǔn)確性，也提高了工作效率，但不足之處是程序算法的復(fù)雜度比較高。
參考文獻(xiàn)：
[1] 姜彥偉.Excel中的VBA程序設(shè)計(jì)[J] .2012.
[2] 崔五子.界面設(shè)計(jì)與Visual Basic（第2版）[M].北京：清華大學(xué)出社，2011.
［責(zé)任編輯：蘭欣卉］
摘要：闡述了在VB程序設(shè)計(jì)中應(yīng)用ADO數(shù)據(jù)連接控件開(kāi)發(fā)“專業(yè)統(tǒng)計(jì)小程序”的關(guān)鍵技術(shù)與實(shí)現(xiàn)方法。
關(guān)鍵詞：Visual Basic6.0程序設(shè)計(jì)；Excel數(shù)據(jù)統(tǒng)計(jì)；工作效率
中圖分類號(hào)：TP311.11文獻(xiàn)標(biāo)識(shí)碼：A
文章編號(hào)：1005-913X（2014）07-0212-02
一、正文
在日常的工作中，經(jīng)常要根據(jù)Office辦公軟件Excel電子表格統(tǒng)計(jì)本學(xué)院學(xué)生生源地和專業(yè)人數(shù)，有的時(shí)候Excel本身提供的一些數(shù)據(jù)統(tǒng)計(jì)分析基礎(chǔ)功能并不能滿足我們的需求，基于此應(yīng)用，筆者利用Microsoft Visual Basic 6.0 企業(yè)版作為開(kāi)發(fā)平臺(tái)，設(shè)計(jì)出一款應(yīng)用小程序用于根據(jù)專業(yè)名稱統(tǒng)計(jì)專業(yè)學(xué)生數(shù)和根據(jù)身份證號(hào)字段判斷學(xué)生出生地來(lái)滿足工作的需要。如圖所示，EXCEL的文件名為55555.XLS，是從學(xué)信網(wǎng)中下載的學(xué)生基礎(chǔ)數(shù)據(jù)。
統(tǒng)計(jì)各專業(yè)的人數(shù)，以往的做法是利用EXCEL菜單欄中“數(shù)據(jù)”選項(xiàng)中的“自動(dòng)篩選”，分專業(yè)名稱來(lái)篩選，找到一個(gè)手工記錄一個(gè)，費(fèi)時(shí)費(fèi)力。
二、算法描述
連接EXCEL數(shù)據(jù)庫(kù)文件后，定義兩個(gè)數(shù)據(jù)集對(duì)象RS和RST，篩選專業(yè)名稱將結(jié)果存儲(chǔ)到數(shù)據(jù)集對(duì)象RS中。利用兩層嵌套循環(huán)語(yǔ)句，用MSFLEXGRUD控件綁定數(shù)據(jù)集，顯示結(jié)果。將結(jié)果導(dǎo)出含有三個(gè)字段的EXCEL中。
三、具體實(shí)現(xiàn)
在Microsoft Visual Basic 6.0 企業(yè)版開(kāi)發(fā)平臺(tái)中，新建一個(gè)工程，添加一個(gè)窗體，將“工具箱”中MSFLEXGRUD控件和按鈕控件拖入窗體中。因?yàn)閿?shù)據(jù)庫(kù)文件是EXCEL，所以要勾選工程的引用“Microsoft Excel 11.0 Objects 2.0 Library”在窗體裝載的事件中，添加連接數(shù)據(jù)庫(kù)EXCEL字符串。
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=55555.xls;Extended Properties='Excel 8.0;HDR=Yes'"
四、主要實(shí)現(xiàn)代碼
Dim Con As New ADODB.Connection//定義Con為數(shù)據(jù)庫(kù)連接對(duì)象
Dim RS As New ADODB.Recordset//定義RS為記錄集對(duì)象
DIM RST AS NEW ADODB.Recordst//定義RST為記錄集對(duì)象
Dim i As Integer//定義整形變量i
Dim j As Integer //定義整形變量j
Dim hlj As String//定義字符串變量hlj
Private Sub Form_Load()
//連接數(shù)據(jù)庫(kù)
Grid.FormatString = "序號(hào)| 專業(yè) | 專業(yè)人數(shù) "
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=55555.xls;Extended Properties='Excel 8.0;HDR=Yes'"
Con.Open
RS.Open "select distinct ZYMC from [sheet1$]", Con, adOpenKeyset, adLockOptimistic
j = RS.RecordCount
RS.MoveFirst
For i = 0 To j - 1
Dim rowi As Integer
Do While Not RS.EO
rowi = rowi + 1
hlj = "select count(*) from [sheet1$] where ZYMC = '" & RS.Fields("ZYMC") & "'"
Set RST = Con.Execute(hlj)
Grid.ColAlignment(0) = 4 '字段數(shù)據(jù)居中顯示
Grid.ColAlignment(1) = 4
Grid.ColAlignment(2) = 4
Grid.TextMatrix(rowi, 0) = rowi
Grid.TextMatrix(rowi, 1) = RS.Fields("ZYMC")
If RST(0) <> 0 Then Grid.TextMatrix(rowi, 2) = RST(0) Else Grid.TextMatrix(rowi, 2) = 0
RS.MoveNext
Grid.Rows = Grid.Rows + 1
Loop
Next i
Label1.Caption = "學(xué)生總數(shù)：" & RS.RecordCount
Set RST = Nothing //將記錄集RST對(duì)象置空
Set RS = Nothing //將記錄集RS對(duì)象置空
Con.Close
End Sub
單擊導(dǎo)出EXCEL按鈕，導(dǎo)出新的EXCEL。
Private Sub Command1_Click()
Dim ii As Long
Dim jj As Long
'創(chuàng)建一個(gè)Application對(duì)象
Dim liexcel As Excel.Application
Set liexcel = New Excel.Application
'綁定
Set liexcel = CreateObject("Excel.Application")
'向Excel中寫(xiě)入數(shù)據(jù)
Dim libookAs Excel.Workbook
Dim lisheetAs Excel.Worksheet
Set libook = liexcel.Workbooks.Add
liexcel.SheetsInNewWorkbook = 1
'設(shè)置為可見(jiàn)
liexcel.Visible = True
'將控件MSHFlexGrid顯示的內(nèi)容寫(xiě)入Excel中
With liexcel.ActiveSheet
For ii = 1 To Grid.Rows
For jj = 1 To Grid.Cols
.Cells(ii, jj).Value = "" & Format$(Grid.TextMatrix(ii - 1, jj - 1))
Next jj
End With
'清空并關(guān)閉
Set lisheet = Nothing
Set libook = Nothing
Set liexcel = Nothing
End Sub
實(shí)現(xiàn)效果如圖
五、結(jié)束語(yǔ)
通過(guò)開(kāi)發(fā)這個(gè)小程序提高了工作人員的工作效率，避免了繁重的手工統(tǒng)計(jì)費(fèi)時(shí)費(fèi)力，減輕了工作人員的工作量，并且提高了數(shù)據(jù)的準(zhǔn)確性，也提高了工作效率，但不足之處是程序算法的復(fù)雜度比較高。
參考文獻(xiàn)：
[1] 姜彥偉.Excel中的VBA程序設(shè)計(jì)[J] .2012.
[2] 崔五子.界面設(shè)計(jì)與Visual Basic（第2版）[M].北京：清華大學(xué)出社，2011.
［責(zé)任編輯：蘭欣卉］
摘要：闡述了在VB程序設(shè)計(jì)中應(yīng)用ADO數(shù)據(jù)連接控件開(kāi)發(fā)“專業(yè)統(tǒng)計(jì)小程序”的關(guān)鍵技術(shù)與實(shí)現(xiàn)方法。
關(guān)鍵詞：Visual Basic6.0程序設(shè)計(jì)；Excel數(shù)據(jù)統(tǒng)計(jì)；工作效率
中圖分類號(hào)：TP311.11文獻(xiàn)標(biāo)識(shí)碼：A
文章編號(hào)：1005-913X（2014）07-0212-02
一、正文
在日常的工作中，經(jīng)常要根據(jù)Office辦公軟件Excel電子表格統(tǒng)計(jì)本學(xué)院學(xué)生生源地和專業(yè)人數(shù)，有的時(shí)候Excel本身提供的一些數(shù)據(jù)統(tǒng)計(jì)分析基礎(chǔ)功能并不能滿足我們的需求，基于此應(yīng)用，筆者利用Microsoft Visual Basic 6.0 企業(yè)版作為開(kāi)發(fā)平臺(tái)，設(shè)計(jì)出一款應(yīng)用小程序用于根據(jù)專業(yè)名稱統(tǒng)計(jì)專業(yè)學(xué)生數(shù)和根據(jù)身份證號(hào)字段判斷學(xué)生出生地來(lái)滿足工作的需要。如圖所示，EXCEL的文件名為55555.XLS，是從學(xué)信網(wǎng)中下載的學(xué)生基礎(chǔ)數(shù)據(jù)。
統(tǒng)計(jì)各專業(yè)的人數(shù)，以往的做法是利用EXCEL菜單欄中“數(shù)據(jù)”選項(xiàng)中的“自動(dòng)篩選”，分專業(yè)名稱來(lái)篩選，找到一個(gè)手工記錄一個(gè)，費(fèi)時(shí)費(fèi)力。
二、算法描述
連接EXCEL數(shù)據(jù)庫(kù)文件后，定義兩個(gè)數(shù)據(jù)集對(duì)象RS和RST，篩選專業(yè)名稱將結(jié)果存儲(chǔ)到數(shù)據(jù)集對(duì)象RS中。利用兩層嵌套循環(huán)語(yǔ)句，用MSFLEXGRUD控件綁定數(shù)據(jù)集，顯示結(jié)果。將結(jié)果導(dǎo)出含有三個(gè)字段的EXCEL中。
三、具體實(shí)現(xiàn)
在Microsoft Visual Basic 6.0 企業(yè)版開(kāi)發(fā)平臺(tái)中，新建一個(gè)工程，添加一個(gè)窗體，將“工具箱”中MSFLEXGRUD控件和按鈕控件拖入窗體中。因?yàn)閿?shù)據(jù)庫(kù)文件是EXCEL，所以要勾選工程的引用“Microsoft Excel 11.0 Objects 2.0 Library”在窗體裝載的事件中，添加連接數(shù)據(jù)庫(kù)EXCEL字符串。
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=55555.xls;Extended Properties='Excel 8.0;HDR=Yes'"
四、主要實(shí)現(xiàn)代碼
Dim Con As New ADODB.Connection//定義Con為數(shù)據(jù)庫(kù)連接對(duì)象
Dim RS As New ADODB.Recordset//定義RS為記錄集對(duì)象
DIM RST AS NEW ADODB.Recordst//定義RST為記錄集對(duì)象
Dim i As Integer//定義整形變量i
Dim j As Integer //定義整形變量j
Dim hlj As String//定義字符串變量hlj
Private Sub Form_Load()
//連接數(shù)據(jù)庫(kù)
Grid.FormatString = "序號(hào)| 專業(yè) | 專業(yè)人數(shù) "
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=55555.xls;Extended Properties='Excel 8.0;HDR=Yes'"
Con.Open
RS.Open "select distinct ZYMC from [sheet1$]", Con, adOpenKeyset, adLockOptimistic
j = RS.RecordCount
RS.MoveFirst
For i = 0 To j - 1
Dim rowi As Integer
Do While Not RS.EO
rowi = rowi + 1
hlj = "select count(*) from [sheet1$] where ZYMC = '" & RS.Fields("ZYMC") & "'"
Set RST = Con.Execute(hlj)
Grid.ColAlignment(0) = 4 '字段數(shù)據(jù)居中顯示
Grid.ColAlignment(1) = 4
Grid.ColAlignment(2) = 4
Grid.TextMatrix(rowi, 0) = rowi
Grid.TextMatrix(rowi, 1) = RS.Fields("ZYMC")
If RST(0) <> 0 Then Grid.TextMatrix(rowi, 2) = RST(0) Else Grid.TextMatrix(rowi, 2) = 0
RS.MoveNext
Grid.Rows = Grid.Rows + 1
Loop
Next i
Label1.Caption = "學(xué)生總數(shù)：" & RS.RecordCount
Set RST = Nothing //將記錄集RST對(duì)象置空
Set RS = Nothing //將記錄集RS對(duì)象置空
Con.Close
End Sub
單擊導(dǎo)出EXCEL按鈕，導(dǎo)出新的EXCEL。
Private Sub Command1_Click()
Dim ii As Long
Dim jj As Long
'創(chuàng)建一個(gè)Application對(duì)象
Dim liexcel As Excel.Application
Set liexcel = New Excel.Application
'綁定
Set liexcel = CreateObject("Excel.Application")
'向Excel中寫(xiě)入數(shù)據(jù)
Dim libookAs Excel.Workbook
Dim lisheetAs Excel.Worksheet
Set libook = liexcel.Workbooks.Add
liexcel.SheetsInNewWorkbook = 1
'設(shè)置為可見(jiàn)
liexcel.Visible = True
'將控件MSHFlexGrid顯示的內(nèi)容寫(xiě)入Excel中
With liexcel.ActiveSheet
For ii = 1 To Grid.Rows
For jj = 1 To Grid.Cols
.Cells(ii, jj).Value = "" & Format$(Grid.TextMatrix(ii - 1, jj - 1))
Next jj
End With
'清空并關(guān)閉
Set lisheet = Nothing
Set libook = Nothing
Set liexcel = Nothing
End Sub
實(shí)現(xiàn)效果如圖
五、結(jié)束語(yǔ)
通過(guò)開(kāi)發(fā)這個(gè)小程序提高了工作人員的工作效率，避免了繁重的手工統(tǒng)計(jì)費(fèi)時(shí)費(fèi)力，減輕了工作人員的工作量，并且提高了數(shù)據(jù)的準(zhǔn)確性，也提高了工作效率，但不足之處是程序算法的復(fù)雜度比較高。
參考文獻(xiàn)：
[1] 姜彥偉.Excel中的VBA程序設(shè)計(jì)[J] .2012.
[2] 崔五子.界面設(shè)計(jì)與Visual Basic（第2版）[M].北京：清華大學(xué)出社，2011.
［責(zé)任編輯：蘭欣卉］
猜你喜歡
計(jì)算機(jī)教育(2020年5期)2020-07-24 08:52:56
檔案天地(2019年5期)2019-06-12 05:12:02
電子制作(2019年9期)2019-05-30 09:42:04
軟件(2018年7期)2018-08-13 09:44:42
山東工業(yè)技術(shù)(2016年15期)2016-12-01 05:31:45
制造技術(shù)與機(jī)床(2015年10期)2015-04-09 07:06:16
中文信息(2014年2期)2014-03-06 23:49:14
計(jì)算機(jī)與網(wǎng)絡(luò)(2013年6期)2013-10-16 12:01:12
電腦迷(2012年24期)2012-04-29 00:44:03
智能計(jì)算機(jī)與應(yīng)用(2007年4期)2007-08-25 01:30:42
