form2.vb

一个工资管理系统

        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText = "DELETE FROM 工资表 WHERE (工号 = ?) AND (加班费 = ? OR ? IS NULL AND 加班费 IS NULL) AND (基本" & _
        "工资 = ? OR ? IS NULL AND 基本工资 IS NULL) AND (备注 = ? OR ? IS NULL AND 备注 IS NULL) A" & _
        "ND (奖金 = ? OR ? IS NULL AND 奖金 IS NULL) AND (姓名 = ? OR ? IS NULL AND 姓名 IS NULL)" & _
        " AND (性别 = ? OR ? IS NULL AND 性别 IS NULL) AND (总额 = ? OR ? IS NULL AND 总额 IS NUL" & _
        "L) AND (津贴 = ? OR ? IS NULL AND 津贴 IS NULL)"
        Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_工号", System.Data.OleDb.OleDbType.SmallInt, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "工号", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_加班费", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "加班费", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_加班费1", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "加班费", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_基本工资", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "基本工资", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_基本工资1", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "基本工资", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_备注", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "备注", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_备注1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "备注", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_奖金", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "奖金", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_奖金1", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "奖金", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_姓名", System.Data.OleDb.OleDbType.VarWChar, 12, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_姓名1", System.Data.OleDb.OleDbType.VarWChar, 12, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_性别", System.Data.OleDb.OleDbType.VarWChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "性别", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_性别1", System.Data.OleDb.OleDbType.VarWChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "性别", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_总额", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "总额", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_总额1", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "总额", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_津贴", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "津贴", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_津贴1", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "津贴", 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=""C:\Documents and Settings\hp\桌面\WindowsApplication1\w" & _
        "ork1.mdb"";Jet OLEDB:Engine Type=5;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:S" & _
        "ystem database=;Jet OLEDB:SFP=False;persist security info=False;Extended Propert" & _
        "ies=;Mode=Share Deny None;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Create Syst" & _
        "em Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact" & _
        " Without Replica Repair=False;User ID=Admin;Jet OLEDB:Global Bulk Transactions=1" & _
        ""
        '
        'Ds1
        '
        Me.Ds1.DataSetName = "ds1"
        Me.Ds1.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'Form2
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(552, 422)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.GroupBox2)
        Me.Name = "Form2"
        Me.Text = "Form2"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Ds1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Application.Exit()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btadd.Click
        Try
            If btadd.Text = "添加" Then
                Me.BindingContext(ds1, "工资表").addnew()
                btadd.Text = "确定"
                Me.btenabled(True)
            Else
                If btadd.Text <> "确定" Then
                    Exit Sub
                End If
                Me.BindingContext(Ds1, "工资表").EndCurrentEdit()
                OleDbDataAdapter1.Update(Ds1.工资表)
                MsgBox("添加成功")
                btadd.Text = "添加"
                Me.btenabled(True)
                Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub btview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btview.Click
        Try
            OleDbDataAdapter1.SelectCommand.CommandText = "select * from 工资表"
            Ds1.Clear()
            OleDbDataAdapter1.Fill(Ds1)
            Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
            Me.txtlocationchange()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub btdelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btdelete.Click
        Try
            If MsgBox("真的要删除此记录?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                ds1.工资表.rows(Me.BindingContext(ds1, "工资表").position).delete()
                OleDbDataAdapter1.Update(Ds1)
                Me.txtlocationchange()
                Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)

        End Try
    End Sub

    Private Sub btcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcancel.Click
        Me.BindingContext(ds1, "工资表").cancelcurrentedit()
        btadd.Text = "添加"
        Me.btenabled(True)
    End Sub

    Private Sub btfind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btfind.Click
        Try
            If Trim(txtfind.Text) = "" Then
                Exit Sub
            End If
            OleDbDataAdapter1.SelectCommand.CommandText = "select *from 工资表 where 工号 like '" & txtfind.Text & "%'"
            Ds1.Clear()
            OleDbDataAdapter1.Fill(Ds1)
            Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
            Me.txtlocationchange()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub SqlDataAdapter1_RowUpdated(ByVal sender As System.Object, ByVal e As System.Data.SqlClient.SqlRowUpdatedEventArgs)

    End Sub

    Private Sub btupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btupdate.Click
        Try
            Me.BindingContext(Ds1, "工资表").EndCurrentEdit()
            If Ds1.HasChanges(DataRowState.Modified) Then
                OleDbDataAdapter1.Update(Ds1)
                MsgBox("更改成功!")
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub btnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnext.Click
        If Me.BindingContext(ds1, "工资表").count = 0 Then
            Exit Sub
        End If
        Dim i As Integer
        i = Me.BindingContext(ds1, "工资表").count - 1
        If Me.BindingContext(ds1, "工资表").position < i Then
            Me.BindingContext(ds1, "工资表").position += 1
            Me.txtlocationchange()
        End If
        DataGrid1.UnSelect(DataGrid1.CurrentRowIndex - 1)
        Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)

    End Sub

    Private Sub bttop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttop.Click
        If Me.BindingContext(ds1, "工资表").count = 0 Then
            Exit Sub
        End If
        Me.DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)
        Me.BindingContext(ds1, "工资表").position = 0
        Me.txtlocationchange()
        Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)

    End Sub

    Private Sub btlast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btlast.Click
        If Me.BindingContext(ds1, "工资表").count = 0 Then
            Exit Sub
        End If
        Me.DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)
        Me.BindingContext(ds1, "工资表").position = Me.BindingContext(ds1, "工资表").count - 1
        Me.txtlocationchange()
        Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
    End Sub

    Private Sub DataGrid1_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs)

    End Sub

    Private Sub DataGrid1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        Try
            DataGrid1.Select(DataGrid1.CurrentRowIndex)
            Me.txtlocationchange()
        Catch ex As Exception
            If Err.Number = 9 Then
                MsgBox("表中没有数据")
            End If
        End Try
    End Sub

    Private Sub btprev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btprev.Click
        If Me.BindingContext(ds1, "工资表").Count = 0 Then
            Exit Sub
        End If
        If Me.BindingContext(ds1, "工资表").Position > 0 Then
            Me.BindingContext(ds1, "工资表").Position = (Me.BindingContext(ds1, "工资表").Position - 1)
            Me.txtlocationchange()
        End If
        DataGrid1.UnSelect(DataGrid1.CurrentRowIndex + 1)
        Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
    End Sub

    Private Sub btenabled(ByVal bool As Boolean)
        btview.Enabled = bool
        btdelete.Enabled = bool
        btupdate.Enabled = bool
        btprev.Enabled = bool
        btlast.Enabled = bool
        btnext.Enabled = bool
        bttop.Enabled = bool
        btfind.Enabled = bool


    End Sub

    Private Sub txtlocationchange()
        Me.txtlocation.Text = (((Me.BindingContext(Ds1, "工资表").Position + 1).ToString + "的") + Me.BindingContext(Ds1, "工资表").Count.ToString)
    End Sub

    Private Sub OleDbDataAdapter1_RowUpdated(ByVal sender As System.Object, ByVal e As System.Data.OleDb.OleDbRowUpdatedEventArgs)

    End Sub

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

    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub
End Class