vb編程工資管理系統(tǒng)（sql版）

1、本章介紹了如何在Visual Basic 2005環(huán)境下使用ADO.NET和SQL Server 2000設(shè)計(jì)一個(gè)工資管理系統(tǒng)。重點(diǎn)介紹了如何使用函數(shù)建立Visual Basic 2005應(yīng)用程序與SQL Server 2000數(shù)據(jù)庫(kù)的連接。,工資管理系統(tǒng)（SQL版）,本章學(xué)習(xí)目標(biāo),（1）熟練掌握使用SQL Server 2000創(chuàng)建數(shù)據(jù)庫(kù)和數(shù)據(jù)表的方法和步驟。（2）學(xué)會(huì)模塊的添加和使用。（3）熟練掌握使用代碼編寫SQL數(shù)據(jù)庫(kù)連接函

2、數(shù)、數(shù)據(jù)讀取函數(shù)、數(shù)據(jù)更新函數(shù)的方法。（4）掌握使用Visual Basic 2005和SQL Server 2000開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序的方法。,數(shù)據(jù)庫(kù)設(shè)計(jì),如果僅將“員工編號(hào)”設(shè)為“工資表”的主鍵，則每個(gè)員工只有一條工資記錄能存放在工資表中。為了保存員工工資的歷史記錄，應(yīng)該將“工資表”的主鍵為“員工編號(hào)”＋“年份”＋“月份”。方法為：按住【Ctrl】鍵不放，使用鼠標(biāo)單擊選中“員工編號(hào)”、“年份”、和“月份”三個(gè)字段，在被選擇的最左邊

3、的邊框部分單擊鼠標(biāo)右鍵，在彈出菜單中選擇【主鍵】命令，然后松開(kāi)【Ctrl】鍵即可。,系統(tǒng)界面設(shè)計(jì),編寫代碼,第13章介紹了使用OleDbConnection、OleDbDataAdapter控件來(lái)建立與Access數(shù)據(jù)庫(kù)的連接、生成數(shù)據(jù)集。本章將不采用數(shù)據(jù)控件實(shí)現(xiàn)，而是使用代碼編寫數(shù)據(jù)庫(kù)連接函數(shù)、數(shù)據(jù)讀取函數(shù)和數(shù)據(jù)更新函數(shù)，使用它們來(lái)實(shí)現(xiàn)對(duì)SQL數(shù)據(jù)庫(kù)的操作。讀者將能從中體會(huì)到兩種方法從本質(zhì)來(lái)說(shuō)是一樣的，只是具體的操作方法不同。在實(shí)際的

4、編程過(guò)程中，應(yīng)當(dāng)選用合適的方法來(lái)實(shí)現(xiàn)。,dataBase模塊代碼,,在dataBase模塊的最上面引入訪問(wèn)SQL Server 2000數(shù)據(jù)庫(kù)的命名空間，代碼如下：Imports System.DataImports System.Data.SqlClient在模塊中添加一些用于傳遞數(shù)據(jù)的公共變量，這些變量具有較長(zhǎng)的生命周期和較大的使用范圍，代碼如下：Public dataConnection As SqlConnection

5、Public dataAdapter As SqlDataAdapterPublic dataSet As dataSet' 定義數(shù)據(jù)庫(kù)連接字符串,需要根據(jù)數(shù)據(jù)庫(kù)服務(wù)器的具體參數(shù)設(shè)定Public connstr As String = "workstation id=LIKER;packet size=4096;integrated security =SSPI;data source=LIKER;persist

6、 security info=False;initial catalog=工資管理系統(tǒng)",公共查詢函數(shù),Public Function getDataFromDB(ByVal sqlstr As String) As dataSet Try dataConnection = New SqlConnection ' 對(duì)象實(shí)例化 dataConnection.Conn

7、ectionString = connstr ' 設(shè)置連接字符串 ' 實(shí)例化數(shù)據(jù)適配器，并設(shè)置查詢字符串 dataAdapter = New SqlDataAdapter(sqlstr, dataConnection) dataSet = New dataSet dataSet.Clear() dataAdapter.Fill(data

8、Set) ' 填充數(shù)據(jù)集 dataConnection.Close() ' 關(guān)閉連接 Catch ex As Exception MsgBox(ex.Message) dataConnection.Close() End Try If dataSet.Tables(0).Rows.Count > 0 Then

9、 Return dataSet ' 若找到相應(yīng)的數(shù)據(jù)，則返回?cái)?shù)據(jù)集 Else Return Nothing ' 若沒(méi)有找到相應(yīng)的數(shù)據(jù)，返回空值 End IfEnd Function,執(zhí)行數(shù)據(jù)操作的函數(shù),Public Function updateDB(ByVal sqlstr As String) As B

10、oolean Dim sqlConn As New SqlConnection(connstr) Try Dim cmdTable As SqlCommand = New SqlCommand(sqlstr, sqlConn) cmdTable.CommandType = CommandType.Text ' 設(shè)置Command對(duì)象的CommandType屬性

11、 sqlConn.Open() cmdTable.ExecuteNonQuery() ' 執(zhí)行SQL語(yǔ)句 sqlConn.Close() Catch ex As Exception MsgBox(ex.Message) sqlConn.Close() Return False End Try Return Tru

12、eEnd Function,frmPay代碼,具體源代碼見(jiàn)：P197,小結(jié),本章設(shè)計(jì)了一個(gè)工資管理系統(tǒng)，從中可以學(xué)到如何編寫Visual Basic 2005應(yīng)用程序與SQL Server 2000數(shù)據(jù)庫(kù)的連接函數(shù)，如何使用公共函數(shù)操縱數(shù)據(jù)庫(kù)等知識(shí)。重點(diǎn)及難點(diǎn)：（1）使用SQL Server 2000創(chuàng)建數(shù)據(jù)庫(kù)和數(shù)據(jù)表；（2）模塊的添加和使用；（3）使用代碼編寫SQL數(shù)據(jù)庫(kù)連接函數(shù)、數(shù)據(jù)讀取函數(shù)、數(shù)據(jù)更新函數(shù)；（4）使用Vi