VB编程工资管理系统(SQL版)PPT课件

1、本章介绍了如何在Visual Basic 2005环境下使用ADO.NET和SQL Server 2000设计一个工资管理系统。重点介绍了如何使用函数建立Visual Basic 2005应用程序与SQL Server 2000数据库的连接。,工资管理系统（SQL版）,本章学习目标,（1）熟练掌握使用SQL Server 2000创建数据库和数据表的方法和步骤。 （2）学会模块的添加和使用。 （3）熟练掌握使用代码编写SQL数据库连接函数、数据读取函数、数据更新函数的方法。 （4）掌握使用Visual Basic 2005和SQL Server 2000开发数据库应用程序的方法。,数据库设计,

2、如果仅将“员工编号”设为“工资表”的主键，则每个员工只有一条工资记录能存放在工资表中。为了保存员工工资的历史记录，应该将“工资表”的主键为“员工编号”“年份”“月份”。方法为：按住【Ctrl】键不放，使用鼠标单击选中“员工编号”、“年份”、和“月份”三个字段，在被选择的最左边的边框部分单击鼠标右键，在弹出菜单中选择【主键】命令，然后松开【Ctrl】键即可。,系统界面设计,编写代码,第13章介绍了使用OleDbConnection、OleDbDataAdapter控件来建立与Access数据库的连接、生成数据集。本章将不采用数据控件实现，而是使用代码编写数据库连接函数、数据读取函数和数据更新函数

3、，使用它们来实现对SQL数据库的操作。读者将能从中体会到两种方法从本质来说是一样的，只是具体的操作方法不同。在实际的编程过程中，应当选用合适的方法来实现。,dataBase模块代码,在dataBase模块的最上面引入访问SQL Server 2000数据库的命名空间，代码如下： Imports System.Data Imports System.Data.SqlClient 在模块中添加一些用于传递数据的公共变量，这些变量具有较长的生命周期和较大的使用范围，代码如下： Public dataConnection As SqlConnection Public dataAdapter As S

4、qlDataAdapter Public dataSet As dataSet 定义数据库连接字符串,需要根据数据库服务器的具体参数设定 Public connstr As String = workstation id=LIKER;packet size=4096;integrated security =SSPI;data source=LIKER;persist security info=False;initial catalog=工资管理系统,公共查询函数,Public Function getDataFromDB(ByVal sqlstr As String) As dataSet

5、 Try dataConnection = New SqlConnection 对象实例化 dataConnection.ConnectionString = connstr 设置连接字符串 实例化数据适配器，并设置查询字符串 dataAdapter = New SqlDataAdapter(sqlstr, dataConnection) dataSet = New dataSet dataSet.Clear() dataAdapter.Fill(dataSet) 填充数据集 dataConnection.Close() 关闭连接 Catch ex As Exception MsgBox(ex

6、.Message) dataConnection.Close() End Try If dataSet.Tables(0).Rows.Count 0 Then Return dataSet 若找到相应的数据，则返回数据集 Else Return Nothing 若没有找到相应的数据，返回空值 End If End Function,执行数据操作的函数,Public Function updateDB(ByVal sqlstr As String) As Boolean Dim sqlConn As New SqlConnection(connstr) Try Dim cmdTable As S

7、qlCommand = New SqlCommand(sqlstr, sqlConn) cmdTable.CommandType = CommandType.Text 设置Command对象的CommandType属性 sqlConn.Open() cmdTable.ExecuteNonQuery() 执行SQL语句 sqlConn.Close() Catch ex As Exception MsgBox(ex.Message) sqlConn.Close() Return False End Try Return True End Function,frmPay代码,具体源代码见：P197,小结,本章设计了一个工资管理系统，从中可以学到如何编写Visual Basic 2005应用程序与SQL Server 2000数据库的连接函数，如何使用公共函数操纵数据库等知识。 重点及难点： （1）使用SQL Ser