李洪丹

摘要：闡述了在VB程序設(shè)計(jì)中應(yīng)用ADO數(shù)據(jù)連接控件開(kāi)發(fā)“專(zhuān)業(yè)統(tǒng)計(jì)小程序”的關(guān)鍵技術(shù)與實(shí)現(xiàn)方法。

關(guān)鍵詞：Visual Basic6.0程序設(shè)計(jì)；Excel數(shù)據(jù)統(tǒng)計(jì)；工作效率

中圖分類(lèi)號(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é)生生源地和專(zhuān)業(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ù)專(zhuān)業(yè)名稱(chēng)統(tǒng)計(jì)專(zhuān)業(yè)學(xué)生數(shù)和根據(jù)身份證號(hào)字段判斷學(xué)生出生地來(lái)滿足工作的需要。如圖所示，EXCEL的文件名為55555.XLS，是從學(xué)信網(wǎng)中下載的學(xué)生基礎(chǔ)數(shù)據(jù)。

統(tǒng)計(jì)各專(zhuān)業(yè)的人數(shù)，以往的做法是利用EXCEL菜單欄中“數(shù)據(jù)”選項(xiàng)中的“自動(dòng)篩選”，分專(zhuān)業(yè)名稱(chēng)來(lái)篩選，找到一個(gè)手工記錄一個(gè)，費(fèi)時(shí)費(fèi)力。

二、算法描述

連接EXCEL數(shù)據(jù)庫(kù)文件后，定義兩個(gè)數(shù)據(jù)集對(duì)象RS和RST，篩選專(zhuān)業(yè)名稱(chēng)將結(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)| 專(zhuān)業(yè) | 專(zhuān)業(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ā)“專(zhuān)業(yè)統(tǒng)計(jì)小程序”的關(guān)鍵技術(shù)與實(shí)現(xiàn)方法。

關(guān)鍵詞：Visual Basic6.0程序設(shè)計(jì)；Excel數(shù)據(jù)統(tǒng)計(jì)；工作效率

中圖分類(lèi)號(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é)生生源地和專(zhuān)業(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ù)專(zhuān)業(yè)名稱(chēng)統(tǒng)計(jì)專(zhuān)業(yè)學(xué)生數(shù)和根據(jù)身份證號(hào)字段判斷學(xué)生出生地來(lái)滿足工作的需要。如圖所示，EXCEL的文件名為55555.XLS，是從學(xué)信網(wǎng)中下載的學(xué)生基礎(chǔ)數(shù)據(jù)。

統(tǒng)計(jì)各專(zhuān)業(yè)的人數(shù)，以往的做法是利用EXCEL菜單欄中“數(shù)據(jù)”選項(xiàng)中的“自動(dòng)篩選”，分專(zhuān)業(yè)名稱(chēng)來(lái)篩選，找到一個(gè)手工記錄一個(gè)，費(fèi)時(shí)費(fèi)力。

二、算法描述

連接EXCEL數(shù)據(jù)庫(kù)文件后，定義兩個(gè)數(shù)據(jù)集對(duì)象RS和RST，篩選專(zhuān)業(yè)名稱(chēng)將結(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)| 專(zhuān)業(yè) | 專(zhuān)業(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ā)“專(zhuān)業(yè)統(tǒng)計(jì)小程序”的關(guān)鍵技術(shù)與實(shí)現(xiàn)方法。

關(guān)鍵詞：Visual Basic6.0程序設(shè)計(jì)；Excel數(shù)據(jù)統(tǒng)計(jì)；工作效率

中圖分類(lèi)號(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é)生生源地和專(zhuān)業(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ù)專(zhuān)業(yè)名稱(chēng)統(tǒng)計(jì)專(zhuān)業(yè)學(xué)生數(shù)和根據(jù)身份證號(hào)字段判斷學(xué)生出生地來(lái)滿足工作的需要。如圖所示，EXCEL的文件名為55555.XLS，是從學(xué)信網(wǎng)中下載的學(xué)生基礎(chǔ)數(shù)據(jù)。

統(tǒng)計(jì)各專(zhuān)業(yè)的人數(shù)，以往的做法是利用EXCEL菜單欄中“數(shù)據(jù)”選項(xiàng)中的“自動(dòng)篩選”，分專(zhuān)業(yè)名稱(chēng)來(lái)篩選，找到一個(gè)手工記錄一個(gè)，費(fèi)時(shí)費(fèi)力。

二、算法描述

連接EXCEL數(shù)據(jù)庫(kù)文件后，定義兩個(gè)數(shù)據(jù)集對(duì)象RS和RST，篩選專(zhuān)業(yè)名稱(chēng)將結(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)| 專(zhuān)業(yè) | 專(zhuān)業(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é)任編輯：蘭欣卉］