SQL-ver工资管理系统源代码

更新时间:2023-05-24 23:03:31 阅读: 评论:0

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

本文发布于:2023-05-24 23:03:31,感谢您对本站的认可!

本文链接:https://www.wtabcd.cn/fanwen/fan/89/927315.html

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。

标签:实现   功能   信息
相关文章
留言与评论(共有 0 条评论)
   
验证码:
推荐文章
排行榜
Copyright ©2019-2022 Comsenz Inc.Powered by © 专利检索| 网站地图