SQL-sever工资管理系统源代码.doc

4.1登陆界面功能实现 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim mysql As String mysql = select * from [user] where username = Me.TextBox1.Text and passwd= Me.TextBox2.Text Dim myadapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(mysql, mycoon) Dim mydb As New DataSet myadapter.Fill(mydb, user) If mydb.Tables(user).Rows.Count = 0 Then MsgBox(用户名或密码错误！) Me.TextBox1.Text = Me.TextBox2.Text = Else Me.Hide() Form2.Show() End If End Sub 4.2员工信息查询功能实现 Public Class Form3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim mycoon As New SqlConnection(integrated security=SSPI;data source=.;initial catalog=工资管理系统) Dim mysql As String mysql = select * from work where wnum= Me.TextBox1.Text Dim myadapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(mysql, mycoon) Dim mydb As New DataSet myadapter.Fill(mydb, work) DataGridView1.DataSource = mydb.Tables(0) End Sub 4.3员工信息添加功能实现 Public Class Form4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim mycoon As New SqlConnection(integrated security=SSPI;data source=.;initial catalog=工资管理系统) Dim mysql As String mysql = insert into work values( Me.TextBox1.Text , Me.TextBox2.Text , Me.TextBox3.Text , Me.TextBox4.Text , Me.TextBox5.Text , Me.TextBox6.Text ) Dim mycmd As New SqlClient.SqlCommand(mysql, mycoon) mycoon.Open() Try mycmd.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) End Try mycoon.Close() Me.Close() Form1.Show() MsgBox(添加成功！)End Sub 4.4员工信息删除功能实现 Public Class Form5 Private Sub Button1_C