frmgxxm.vb

一个实际的商业项目

        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(144, 23)
        Me.Label5.TabIndex = 0
        Me.Label5.Text = "应发工资 = 税前小计 + "
        '
        'txtYz3
        '
        Me.txtYz3.Location = New System.Drawing.Point(160, 40)
        Me.txtYz3.Name = "txtYz3"
        Me.txtYz3.TabIndex = 1
        Me.txtYz3.Text = ""
        '
        'btnSave3
        '
        Me.btnSave3.Location = New System.Drawing.Point(304, 48)
        Me.btnSave3.Name = "btnSave3"
        Me.btnSave3.Size = New System.Drawing.Size(56, 23)
        Me.btnSave3.TabIndex = 2
        Me.btnSave3.Text = "保存"
        '
        'frmGxxm
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(426, 512)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmGxxm"
        Me.ShowInTaskbar = False
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.Tag = "　"
        Me.Text = "工资项目设置"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub List1()
        Dim rd As OleDbDataReader
        cmdSQL.CommandText = "select Xmmc from Gzxm where Type = 'SQ'"
        cnData.Open()
        rd = cmdSQL.ExecuteReader(CommandBehavior.CloseConnection)
        Do While rd.Read
            ListBox1.Items.Add(Trim(rd.GetString(0)))
        Loop
        rd.Close()
    End Sub
    Private Sub list2()
        Dim rd As OleDbDataReader
        cmdSQL.CommandText = "select Xmmc from Gzxm where Type = 'SH'"
        cnData.Open()
        rd = cmdSQL.ExecuteReader(CommandBehavior.CloseConnection)
        Do While rd.Read
            ListBox2.Items.Add(Trim(rd.GetString(0)))
        Loop
        rd.Close()
    End Sub
    Private Sub list3()
        Dim rd As OleDbDataReader
        cmdSQL.CommandText = "select Yzsz from Gzxm where Xmmc = '应发工资'"
        cnData.Open()
        rd = cmdSQL.ExecuteReader(CommandBehavior.CloseConnection)
        If rd.Read Then
            txtYz3.Text = rd.GetDecimal(0).ToString
        End If
        rd.Close()
    End Sub

    Private Sub frmGxxm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cnData.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=power;;Data Source= " & Application.StartupPath & "\gongzi.mdb;Persist Security Info=False"
        cmdSQL.Connection = cnData
        List1()
        list2()
        list3()
        btnCancel1.Enabled = False
        btnCancel2.Enabled = False
        btnSave1.Enabled = False
        btnSave2.Enabled = False

    End Sub

    Private Sub btnAdd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd1.Click
        btnCancel1.Enabled = True
        btnSave1.Enabled = True
        btnAdd1.Enabled = False
        btnDel1.Enabled = False
        btnModi1.Enabled = False
        ListBox1.Enabled = False
        txtXmmc1.Text = ""
        txtYz1.Text = "0"
    End Sub

    Private Sub btnCancel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel1.Click
        btnCancel1.Enabled = False
        btnSave1.Enabled = False
        btnAdd1.Enabled = True
        btnDel1.Enabled = True
        btnModi1.Enabled = True
        ListBox1.Enabled = True
    End Sub

    Private Sub btnAdd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd2.Click
        btnCancel2.Enabled = True
        btnSave2.Enabled = True
        btnAdd2.Enabled = False
        btnDel2.Enabled = False
        btnModi2.Enabled = False
        ListBox2.Enabled = False
        txtXmmc2.Text = ""
        txtYz2.Text = "0"
    End Sub

    Private Sub btnCancel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel2.Click
        btnCancel2.Enabled = False
        btnSave2.Enabled = False
        btnAdd2.Enabled = True
        btnDel2.Enabled = True
        btnModi2.Enabled = True
        ListBox2.Enabled = True
    End Sub

    Private Sub btnSave1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave1.Click
        If txtXmmc1.Text = "" Or txtYz1.Text = "" Then
            MessageBox.Show("项目名称和预置数值不能为空！")
            Exit Sub
        End If
        If Not IsNumeric(txtYz1.Text) Then
            MessageBox.Show("预置数值必须是数字！")
            Exit Sub
        End If
        Try
            cnData.Open()
            cmdSQL.CommandText = "insert into Gzxm(Xmmc,Yzsz,Type) values ('" & txtXmmc1.Text & "', " & txtYz1.Text & ", 'SQ')"
            cmdSQL.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show("不允许有相同的项目名称")
        Finally
            cnData.Close()
        End Try
        btnCancel1.Enabled = False
        btnSave1.Enabled = False
        btnAdd1.Enabled = True
        btnDel1.Enabled = True
        btnModi1.Enabled = True
        ListBox1.Enabled = True

        ListBox1.Items.Clear()
        List1()
    End Sub

    Private Sub btnSave2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave2.Click
        If txtXmmc2.Text = "" Or txtYz2.Text = "" Then
            MessageBox.Show("项目名称和预置数值不能为空！")
            Exit Sub
        End If
        If Not IsNumeric(txtYz2.Text) Then
            MessageBox.Show("预置数值必须是数字！")
            Exit Sub
        End If
        Try
            cnData.Open()
            cmdSQL.CommandText = "insert into Gzxm(Xmmc,Yzsz,Type) values ('" & txtXmmc2.Text & "', " & txtYz2.Text & ", 'SH')"
            cmdSQL.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show("不允许有相同的项目名称")
        Finally
            cnData.Close()
        End Try
        btnCancel2.Enabled = False
        btnSave2.Enabled = False
        btnAdd2.Enabled = True
        btnDel2.Enabled = True
        btnModi2.Enabled = True
        ListBox2.Enabled = True

        ListBox2.Items.Clear()
        list2()
    End Sub

    Private Sub btnDel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel1.Click
        If ListBox1.SelectedIndex = -1 Then
            MessageBox.Show("请选择需要删除的工资项目！")
            Exit Sub
        End If
        Dim Result As DialogResult
        Result = MessageBox.Show("确实要删除此工资项目吗？", "警告！", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
        If Result = DialogResult.Yes Then
            cmdSQL.CommandText = "delete from Gzxm where Xmmc = '" & Trim(ListBox1.SelectedItem.ToString) & "'"
            cnData.Open()
            cmdSQL.ExecuteNonQuery()
            cnData.Close()

            ListBox1.Items.Clear()
            List1()
        End If
    End Sub

    Private Sub btnDel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel2.Click
        If ListBox2.SelectedIndex = -1 Then
            MessageBox.Show("请选择需要删除的工资项目！")
            Exit Sub
        End If
        Dim Result As DialogResult
        Result = MessageBox.Show("确实要删除此工资项目吗？", "警告！", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
        If Result = DialogResult.Yes Then
            cmdSQL.CommandText = "delete from Gzxm where Xmmc = '" & Trim(ListBox2.SelectedItem.ToString) & "'"
            cnData.Open()
            cmdSQL.ExecuteNonQuery()
            cnData.Close()

            ListBox2.Items.Clear()
            list2()
        End If
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedIndex <> -1 Then
            cmdSQL.CommandText = "select Yzsz from Gzxm where Xmmc = '" & Trim(ListBox1.SelectedItem.ToString) & "'"
            txtXmmc1.Text = Trim(ListBox1.SelectedItem.ToString)
            cnData.Open()
            txtYz1.Text = Trim(cmdSQL.ExecuteScalar.ToString)
            cnData.Close()
        End If
    End Sub

    Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
        If ListBox2.SelectedIndex <> -1 Then
            cmdSQL.CommandText = "select Yzsz from Gzxm where Xmmc = '" & Trim(ListBox2.SelectedItem.ToString) & "'"
            txtXmmc2.Text = Trim(ListBox2.SelectedItem.ToString)
            cnData.Open()
            txtYz2.Text = Trim(cmdSQL.ExecuteScalar.ToString)
            cnData.Close()
        End If
    End Sub

    Private Sub btnModi1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModi1.Click
        If ListBox1.SelectedIndex = -1 Then
            MessageBox.Show("请选择需要修改的工资项目！")
            Exit Sub
        End If
        If txtXmmc1.Text = "" Or txtYz1.Text = "" Then
            MessageBox.Show("项目名称和预置数值不能为空！")
            Exit Sub
        End If
        If Not IsNumeric(txtYz1.Text) Then
            MessageBox.Show("预置数值必须是数字！")
            Exit Sub
        End If
        Try
            cnData.Open()
            cmdSQL.CommandText = "update Gzxm set Xmmc ='" & txtXmmc1.Text & "' ,Yzsz ='" & txtYz1.Text & "' where Xmmc ='" & Trim(ListBox1.SelectedItem.ToString) & "'"
            cmdSQL.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show("不允许有相同的项目名称")
        Finally
            cnData.Close()
        End Try
    End Sub

    Private Sub btnModi2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModi2.Click
        If ListBox2.SelectedIndex = -1 Then
            MessageBox.Show("请选择需要修改的工资项目！")
            Exit Sub
        End If
        If txtXmmc2.Text = "" Or txtYz2.Text = "" Then
            MessageBox.Show("项目名称和预置数值不能为空！")
            Exit Sub
        End If
        If Not IsNumeric(txtYz2.Text) Then
            MessageBox.Show("预置数值必须是数字！")
            Exit Sub
        End If
        Try
            cnData.Open()
            cmdSQL.CommandText = "update Gzxm set Xmmc ='" & txtXmmc2.Text & "' ,Yzsz ='" & txtYz2.Text & "' where Xmmc ='" & Trim(ListBox2.SelectedItem.ToString) & "'"
            cmdSQL.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show("不允许有相同的项目名称")
        Finally
            cnData.Close()
        End Try
    End Sub

    Private Sub btnSave3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave3.Click
        If txtYz3.Text = "" Or Not IsNumeric(txtYz3.Text) Then
            txtYz3.Text = "0"
        End If
        cnData.Open()
        cmdSQL.CommandText = "update Gzxm set Yzsz ='" & txtYz3.Text & "' where Xmmc = '应发工资'"
        cmdSQL.ExecuteNonQuery()
        cnData.Close()
    End Sub
End Class