formfuli.vb

详细介绍了系统的设计过程,对于初学者是一个不错的参考资料

        Me.ygmc.Name = "ygmc"
        Me.ygmc.ReadOnly = True
        Me.ygmc.Size = New System.Drawing.Size(80, 21)
        Me.ygmc.TabIndex = 5
        Me.ygmc.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 83)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(64, 17)
        Me.Label3.TabIndex = 4
        Me.Label3.Text = "员工编号:"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 59)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(64, 14)
        Me.Label2.TabIndex = 2
        Me.Label2.Text = "部门名称:"
        '
        'bmmc
        '
        Me.bmmc.Location = New System.Drawing.Point(80, 56)
        Me.bmmc.Name = "bmmc"
        Me.bmmc.ReadOnly = True
        Me.bmmc.Size = New System.Drawing.Size(80, 21)
        Me.bmmc.TabIndex = 1
        Me.bmmc.Text = ""
        '
        'label1
        '
        Me.label1.Location = New System.Drawing.Point(8, 36)
        Me.label1.Name = "label1"
        Me.label1.Size = New System.Drawing.Size(64, 11)
        Me.label1.TabIndex = 0
        Me.label1.Text = "部门编号:"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(232, 176)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(56, 23)
        Me.Button1.TabIndex = 4
        Me.Button1.Text = "设置"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(288, 176)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(56, 23)
        Me.Button2.TabIndex = 5
        Me.Button2.Text = "退出"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(8, 130)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(96, 12)
        Me.Label5.TabIndex = 38
        Me.Label5.Text = "工资发放时间："
        '
        'gzffsj
        '
        Me.gzffsj.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.gzffsj.Location = New System.Drawing.Point(107, 126)
        Me.gzffsj.Name = "gzffsj"
        Me.gzffsj.Size = New System.Drawing.Size(80, 20)
        Me.gzffsj.TabIndex = 39
        '
        'Frmfuli
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(552, 270)
        Me.Controls.Add(Me.货物信息)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "Frmfuli"
        Me.Text = "福利状况"
        Me.货物信息.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connstr As New String("provider=SQLOLEDB.1;User ID=sa;PassWord=110;Persist Security Info=false;Initial Catalog=wage;Data Source=.;")
        Dim Cn As New OleDbConnection
        Dim cmd As OleDbCommand
        Dim SQLString As String

        Try
            GZCount = GZCount + CInt(zfbt.Text) + CInt(hsbt.Text) + CInt(qtbt.Text) - CInt(ylbx.Text) - CInt(zfgjj.Text) - CInt(yanglao.Text)
            SQLString = "UpDate 工资福利表 Set 住房补贴=" & CInt(zfbt.Text) & ",伙食补贴=" & _
            CInt(hsbt.Text) & ",其他补贴=" & CInt(qtbt.Text) & ",医疗保险=" & _
            CInt(ylbx.Text) & ",住房公积金=" & CInt(zfgjj.Text) & ",养老保险=" & _
            CInt(ylbx.Text) & ",实发工资=" & GZCount & " where 员工编号 = " & CInt(ygbh.Text) & _
            " and 发放时间='" & gzffsj.SelectedItem & "'"

            Cn.ConnectionString = connstr
            Cn.Open()

            cmd = New OleDbCommand(SQLString, Cn)
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        cmd.Dispose()
        Cn.Dispose()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Frmfuli_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim connstr As New String("provider=SQLOLEDB.1;User ID=sa;PassWord=110;Persist Security Info=false;Initial Catalog=wage;Data Source=.;")
        Dim Cn As New OleDbConnection
        Dim searchSql As String
        Dim cmd As OleDbCommand
        Dim dr As OleDbDataReader

        searchSql = "select 部门编号 from 部门信息表"
        Try
            Cn.ConnectionString = connstr
            Cn.Open()
            cmd = New OleDbCommand(searchSql, Cn)
            dr = cmd.ExecuteReader()
            Dim i As Integer = 0
            Do While dr.Read()
                Me.Ybm.Items.Add(dr.GetInt32(0))
            Loop
            dr.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Cn.Dispose()
        cmd.Dispose()
    End Sub

    Private Sub Ybm_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles Ybm.SelectionChangeCommitted
        Dim connstr As New String("provider=SQLOLEDB.1;User ID=sa;PassWord=110;Persist Security Info=false;Initial Catalog=wage;Data Source=.;")
        Dim Cn As New OleDbConnection
        Dim searchSql As String
        Dim cmd As OleDbCommand
        Dim dr As OleDbDataReader

        searchSql = "select 部门名称 from 部门信息表 where 部门编号=" & CInt(Ybm.SelectedItem)
        Try
            Cn.ConnectionString = connstr
            Cn.Open()
            cmd = New OleDbCommand(searchSql, Cn)
            dr = cmd.ExecuteReader()
            Do While dr.Read()
                Me.bmmc.Text = dr.GetString(0)
            Loop
            dr.Close()

            searchSql = "select 员工编号 from 员工信息表 where 部门编号=" & CInt(Ybm.SelectedItem)
            cmd = New OleDbCommand(searchSql, Cn)
            dr = cmd.ExecuteReader()
            ygbh.Items.Clear()
            Do While dr.Read()
                Me.ygbh.Items.Add(dr.GetValue(0))
            Loop
            dr.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Cn.Dispose()
        cmd.Dispose()
    End Sub

    Private Sub ygbh_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles ygbh.SelectionChangeCommitted
        Dim connstr As New String("provider=SQLOLEDB.1;User ID=sa;PassWord=110;Persist Security Info=false;Initial Catalog=wage;Data Source=.;")
        Dim Cn As New OleDbConnection
        Dim searchSql As String
        Dim cmd As OleDbCommand
        Dim dr As OleDbDataReader

        searchSql = "select 员工姓名 from 员工信息表 where 员工编号=" & CInt(ygbh.SelectedItem)
        Try
            Cn.ConnectionString = connstr
            Cn.Open()
            cmd = New OleDbCommand(searchSql, Cn)
            dr = cmd.ExecuteReader()
            Dim i As Integer = 0
            Do While dr.Read()
                Me.ygmc.Text = dr.GetString(0)
            Loop
            dr.Close()

            searchSql = "select 发放时间 from 工资福利表 where 员工编号=" & _
            CInt(ygbh.SelectedItem)
            cmd = New OleDbCommand(searchSql, Cn)
            dr = cmd.ExecuteReader()
            Do While dr.Read()
                gzffsj.Items.Add(dr.GetString(0))
            Loop
            dr.Close()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Cn.Dispose()
        cmd.Dispose()
    End Sub

    Private Sub gzffsj_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles gzffsj.SelectionChangeCommitted
        Dim connstr As New String("provider=SQLOLEDB.1;User ID=sa;PassWord=110;Persist Security Info=false;Initial Catalog=wage;Data Source=.;")
        Dim Cn As New OleDbConnection
        Dim searchSql As String
        Dim cmd As OleDbCommand
        Dim dr As OleDbDataReader

        Try
            Cn.ConnectionString = connstr
            Cn.Open()
            searchSql = "select 住房补贴,伙食补贴,其他补贴,医疗保险,住房公积金," & _
             "养老保险,基本工资,岗位工资 from 工资福利表 where 员工编号=" & _
             CInt(ygbh.SelectedItem) & " and 发放时间='" & gzffsj.SelectedItem & "'"
            cmd = New OleDbCommand(searchSql, Cn)
            dr = cmd.ExecuteReader()
            Do While dr.Read()
                Me.zfbt.Text = dr.GetValue(0)
                Me.hsbt.Text = dr.GetValue(1)
                Me.qtbt.Text = dr.GetValue(2)
                Me.ylbx.Text = dr.GetValue(3)
                Me.zfgjj.Text = dr.GetValue(4)
                Me.yanglao.Text = dr.GetValue(5)
                GZCount = dr.GetValue(6) + dr.GetValue(7)
            Loop
            dr.Close()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Cn.Dispose()
        cmd.Dispose()
    End Sub
End Class