frmbumen.vb

一个实际的商业项目

        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Bmmc", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Bmmc", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Jbgz", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Jbgz", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Lao", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Lao", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Sfzh", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sfzh", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Sfzh1", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sfzh", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Xb", System.Data.OleDb.OleDbType.VarWChar, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Xb", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Xb1", System.Data.OleDb.OleDbType.VarWChar, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Xb", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Xm", System.Data.OleDb.OleDbType.VarWChar, 16, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Xm", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Ye", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Ye", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Yi", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Yi", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbConnection1
        '
        Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
        "ocking Mode=1;Data Source=""E:\vb\FengZhiAccess\JiJianGongZi\bin\gongzi.mdb"";Jet " & _
        "OLEDB:Engine Type=5;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System database" & _
        "=;Jet OLEDB:SFP=False;persist security info=False;Extended Properties=;Mode=Shar" & _
        "e Deny None;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Create System Database=Fa" & _
        "lse;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Repli" & _
        "ca Repair=False;User ID=Admin;Jet OLEDB:Global Bulk Transactions=1"
        '
        'DsRyzl1
        '
        Me.DsRyzl1.DataSetName = "dsRyzl"
        Me.DsRyzl1.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'frmBuMen
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(770, 406)
        Me.Controls.Add(Me.btnUpData)
        Me.Controls.Add(Me.txtName)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.btnFind)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.Splitter1)
        Me.Controls.Add(Me.Panel1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmBuMen"
        Me.ShowInTaskbar = False
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.Text = "部门人员设置"
        Me.Panel1.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DsRyzl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub frmBuMen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        dv = New DataView(DsRyzl1.Tables(0))



        Dim tb As New DataGridTableStyle(CType(Me.BindingContext(dv), CurrencyManager))
        'Me.daRyzl.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Ryzl", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Bmmc", "Bmmc"), New System.Data.Common.DataColumnMapping("Gh", "Gh"), New System.Data.Common.DataColumnMapping("Jbgz", "Jbgz"), New System.Data.Common.DataColumnMapping("Sfzh", "Sfzh"), New System.Data.Common.DataColumnMapping("Xb", "Xb"), New System.Data.Common.DataColumnMapping("Xm", "Xm")})})
        'Me.daRyzl.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Ryzl", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Bmmc", "Bmmc"), New System.Data.Common.DataColumnMapping("Gh", "Gh"), New System.Data.Common.DataColumnMapping("Xm", "Xm"), New System.Data.Common.DataColumnMapping("Xb", "Xb"), New System.Data.Common.DataColumnMapping("Sfzh", "Sfzh"), New System.Data.Common.DataColumnMapping("Jbgz", "Jbgz")})})


        '修改第一列
        Dim column1 As DataGridTextBoxColumn = CType(tb.GridColumnStyles(0), DataGridTextBoxColumn)
        column1.MappingName = "Bmmc"
        column1.HeaderText = "部门"
        Dim column2 As DataGridTextBoxColumn = CType(tb.GridColumnStyles(1), DataGridTextBoxColumn)
        column2.MappingName = "Gh"
        column2.HeaderText = "工号"
        Dim column3 As DataGridTextBoxColumn = CType(tb.GridColumnStyles(2), DataGridTextBoxColumn)
        column3.MappingName = "Xm"
        column3.HeaderText = "姓名"
        Dim column4 As DataGridTextBoxColumn = CType(tb.GridColumnStyles(3), DataGridTextBoxColumn)
        column4.MappingName = "Xb"
        column4.HeaderText = "性别"
        column4.Width = 36
        Dim column5 As DataGridTextBoxColumn = CType(tb.GridColumnStyles(4), DataGridTextBoxColumn)
        column5.MappingName = "Sfzh"
        column5.HeaderText = "身份证号码"
        column5.Width = 110
        Dim column6 As DataGridTextBoxColumn = CType(tb.GridColumnStyles(5), DataGridTextBoxColumn)
        column6.MappingName = "Jbgz"
        column6.HeaderText = "基本工资"
        column6.Width = 70
        Dim column7 As DataGridTextBoxColumn = CType(tb.GridColumnStyles(6), DataGridTextBoxColumn)
        column7.MappingName = "Lao"
        column7.HeaderText = "养老金"
        column7.Width = 50
        Dim column8 As DataGridTextBoxColumn = CType(tb.GridColumnStyles(7), DataGridTextBoxColumn)
        column8.MappingName = "Yi"
        column8.HeaderText = "医疗金"
        column8.Width = 50
        Dim column9 As DataGridTextBoxColumn = CType(tb.GridColumnStyles(8), DataGridTextBoxColumn)
        column9.MappingName = "Ye"
        column9.HeaderText = "失业金"
        column9.Width = 50

        DataGrid1.TableStyles.Add(tb)


        DataGrid1.CaptionText = "人员资料"


        Me.OleDbSelectCommand1.Connection = cnData
        Me.OleDbInsertCommand1.Connection = cnData
        Me.OleDbUpdateCommand1.Connection = cnData
        Me.OleDbDeleteCommand1.Connection = cnData

        cnData.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=power;;Data Source= " & Application.StartupPath & "\gongzi.mdb;Persist Security Info=False"
        Try
            cnData.Open()
            daBm.Connection = cnData
            daBm.CommandText = "SELECT Bmmc " & _
                                 "FROM Bm "
            rd = daBm.ExecuteReader(CommandBehavior.CloseConnection)
            Do While rd.Read()
                tv.Nodes(0).Nodes.Add(Trim(rd.GetString(0)))
            Loop


        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally

            rd.Close()
        End Try

        tv.Nodes(0).ExpandAll()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim boolAdd As Boolean = True

        Dim fmAdd As New frmAdd
        fmAdd.ShowDialog()
        strAdd = fmAdd.txtBuMen.Text
        fmAdd.Dispose()

        For Each ndTemp In tv.Nodes(0).Nodes
            If ndTemp.Text = strAdd Then
                boolAdd = False
            End If
        Next
        If strAdd = "" Then
            boolAdd = False
        End If

        If boolAdd Then
            cnData.Open()
            daAdd.Connection = cnData
            daAdd.CommandText = "INSERT INTO Bm(Bmmc) " & _
                                 "VALUES ( '" & strAdd & "')"
            daAdd.ExecuteNonQuery()
            cnData.Close()

            tv.Nodes(0).Nodes.Add(strAdd)

        Else
            MessageBox.Show("部门已存在或名称非法！", "增加失败！", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If
    End Sub

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

    Private Sub tv_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tv.AfterSelect
        daRyzl.Fill(DsRyzl1)


        If e.Node.Text <> "宁波北仑润轴" Then
            dv.RowFilter = "Bmmc = '" & e.Node.Text & "'"
        Else
            dv.RowFilter = ""
        End If
        DataGrid1.DataSource = dv

    End Sub

    Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
        Dim rowIndex As Integer
        dv.Sort = "Xm DESC"
        rowIndex = dv.Find(txtName.Text)
        If rowIndex = -1 Then
            MessageBox.Show("找不到此人！", "查找姓名！", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            DataGrid1.CurrentRowIndex = rowIndex
            DataGrid1.Select(rowIndex)
        End If

    End Sub

    Private Sub btnUpData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpData.Click

        If DialogResult.Yes = MessageBox.Show("确实要更新数据吗？", "系统信息", MessageBoxButtons.YesNo, MessageBoxIcon.Question) Then
            Try
                daRyzl.Update(DsRyzl1)
            Catch ex As Exception
                MessageBox.Show("请检查数据！", "存在非法数据")
            End Try
        End If



    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim strTemp As String = ""
        Dim boolDel As Boolean

        For Each ndTemp In tv.Nodes(0).Nodes
            If ndTemp.IsSelected Then
                strTemp = ndTemp.Text
                Exit For
            End If
        Next
        If strTemp = "" Then
            MessageBox.Show("请点取需要删除的部门")
        Else

            Dim fmDel As New frmDel
            fmDel.ShowDialog()
            boolDel = fmDel.boolDel
            fmDel.Dispose()

            If boolDel Then

                cnData.Open()
                daDel.Connection = cnData
                daDel.CommandText = "DELETE FROM Ryzl " & _
                                     "WHERE Bmmc = '" & strTemp & "'"
                daDel.ExecuteNonQuery()

                daDel.CommandText = "DELETE FROM Bm " & _
                                     "WHERE Bmmc = '" & strTemp & "'"
                daDel.ExecuteNonQuery()

                cnData.Close()

                tv.Nodes(0).Nodes.Remove(ndTemp)
                DsRyzl1.Clear()
                daRyzl.Fill(DsRyzl1)

            End If
        End If
    End Sub
End Class