4.1登陆界面功能实现
Private Sub Button1_Click(ByVal nder As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mysql As String
mysql = "lect * from [ur] where urname ='" & 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, "ur")
If mydb.Tables("ur").Rows.Count = 0 Then
MsgBox("用户名或密码错误!")
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
El
Me.Hide()
Form2.Show()
End If
End Sub
4.2员工信息查询功能实现
Public Class Form3
Private Sub Button1_Click(ByVal nder As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mycoon As New SqlConnection("integrated curity=SSPI;data source=.;initial catalog=工资管理系统")
Dim mysql As String
mysql = "lect * 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 nder As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mycoon As New SqlConnection("integrated curity=SSPI;data source=.;initial catalog=工资管理系统")
Dim mysql As String
mysql = "inrt 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.Clo()
Me.Clo()
Form1.Show()
MsgBox("添加成功!")End Sub
4.4员工信息删除功能实现
Public Class Form5
Private Sub Button1_Click(ByVal nder As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mycoon As New SqlConnection("integrated curity=SSPI;data source=.;initial catalog=pay")
Dim mysql As String
mysql = "delete from work where wnum='" & Me.TextBox1.Text & "'"
Dim mycmd As New SqlClient.SqlCommand(mysql, mycoon)
mycoon.Open()
Try
mycmd.ExecuteNonQuery()
Catch ex As Exception
君王后 MsgBox(ex.Message)
End Try
诗经取名女 mycoon.Clo()
Me.Clo()
Form1.Show()
MsgBox("删除成功!")
End Sub
4.5员工信息修改功能实现
Public Class Form6
Private Sub Button1_Click(ByVal nder As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mycoon As New SqlConnection("integrated curity=SSPI;data source=.;initial catalog=pay")
Dim mysql As String
mysql = "update work t wnum='" & Me.TextBox2.Text & "',wname='" & Me.TextBox3.Text & "',x='" & Me.TextBox4.Text & "',birthday='" & Me.TextBox5.Text & "',branch='" & Me.TextBox6.Text & "',title='" & Me.TextBox7.Text & "' where wnum='" & Me.TextBox1.Text & "'"
Dim myadapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(mysql, mycoon)
Dim mydb As New DataSet
呼兰河传感悟 Dim mycmd As New SqlClient.SqlCommand(mysql, mycoon)
mycoon.Open()
Try
mycmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
End Try
mycoon.Clo()
Me.Clo()水果拼盘制作
Form1.Show()
MsgBox("修改成功!")
End Sub
4.6工资信息查询功能实现
Public Class Form7
Private Sub Button1_Click(ByVal nder As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
上古神话人物 Dim mycoon As New SqlConnection("integrated curity=SSPI;data source=.;initial catalog=工资管理系统")
Dim mysql As String
mysql = "lect * from wages where wnum='" & Me.TextBox1.Text & "'"
Dim myadapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(mysql, mycoon)
Dim mydb As New DataSet
myadapter.Fill(mydb, "wages")
DataGridView1.DataSource = mydb.Tables(0)
End Sub
4.7工资信息添加功能实现
Public Class Form8
Private Sub Button1_Click(ByVal nder As System.Object, ByVal e As System.EventArgs) Handles Button1.Click