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

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

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

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

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

5、Public dataAdapter As SqlDataAdapterPublic dataSet As dataSet' 定義數(shù)據(jù)庫連接字符串,需要根據(jù)數(shù)據(jù)庫服務器的具體參數(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 ' 對象實例化 dataConnection.Conn

7、ectionString = connstr ' 設置連接字符串 ' 實例化數(shù)據(jù)適配器，并設置查詢字符串 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 ' 若找到相應的數(shù)據(jù)，則返回數(shù)據(jù)集 Else Return Nothing ' 若沒有找到相應的數(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 ' 設置Command對象的CommandType屬性

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

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