form5.vb

一个工资管理系统

        'OleDbDataAdapter1
        '
        Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1
        Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
        Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
        Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "用户表", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("密码", "密码"), New System.Data.Common.DataColumnMapping("用户名", "用户名")})})
        Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT 密码, 用户名 FROM 用户表"
        Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO 用户表(密码, 用户名) VALUES (?, ?)"
        Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("密码", System.Data.OleDb.OleDbType.VarWChar, 12, "密码"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("用户名", System.Data.OleDb.OleDbType.VarWChar, 12, "用户名"))
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE 用户表 SET 密码 = ?, 用户名 = ? WHERE (用户名 = ?) AND (密码 = ? OR ? IS NULL AND 密码 IS" & _
        " NULL)"
        Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("密码", System.Data.OleDb.OleDbType.VarWChar, 12, "密码"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("用户名", System.Data.OleDb.OleDbType.VarWChar, 12, "用户名"))
        Me.OleDbUpdateCommand1.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.OleDbUpdateCommand1.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.OleDbUpdateCommand1.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))
        '
        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText = "DELETE FROM 用户表 WHERE (用户名 = ?) 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.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, 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))
        '
        'OleDbConnection1
        '
        Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
        "ocking Mode=1;Jet OLEDB:Database Password=;Data Source=""C:\Documents and Setting" & _
        "s\hp\桌面\WindowsApplication1\work1.mdb"";Password=;Jet OLEDB:Engine Type=5;Jet OLE" & _
        "DB:Global Bulk Transactions=1;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:Syste" & _
        "m database=;Jet OLEDB:SFP=False;Extended Properties=;Mode=Share Deny None;Jet OL" & _
        "EDB:New Database Password=;Jet OLEDB:Create System Database=False;Jet OLEDB:Don'" & _
        "t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Us" & _
        "er ID=Admin;Jet OLEDB:Encrypt Database=False"
        '
        'Ds3
        '
        Me.Ds3.DataSetName = "ds3"
        Me.Ds3.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'Form5
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(480, 309)
        Me.Controls.Add(Me.txtlocation)
        Me.Controls.Add(Me.btexit)
        Me.Controls.Add(Me.btcancel)
        Me.Controls.Add(Me.btupdate)
        Me.Controls.Add(Me.btdelete)
        Me.Controls.Add(Me.btadd)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label1)
        Me.Name = "Form5"
        Me.Text = "Form5"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Ds3, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Try
        ' Me.BindingContext(ds1, "用户表").EndCurrentEdit()
        ' If ds1.HasChanges(DataRowState.Modified) Then
        'SqlDataAdapter1.Update(ds1)
        'MsgBox("更改成功!")
        ' End If
        'Catch ex As Exception

        'End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Try
        'If MsgBox("真的要删除此记录?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
        'ds1.用户表.rows(Me.BindingContext(ds1, "用户表").position).delete()
        ' sqldataadapter1.update(ds1)
        ' Me.txtlocationchange()
        ' Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
        ' End If
        ' Catch ex As Exception
        ' MsgBox(ex.Message)

        ' End Try
    End Sub
    Private Sub txtlocationchange()
        Me.txtlocation.Text = (((Me.BindingContext(Ds3, "工资表").Position + 1).ToString + "的") + Me.BindingContext(Ds3, "工资表").Count.ToString)
    End Sub
    Private Sub btenabled(ByVal bool As Boolean)

        btdelete.Enabled = bool
        btupdate.Enabled = bool
    End Sub

    Private Sub btadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btadd.Click
        Try
            If btadd.Text = "添加" Then
                Me.BindingContext(Ds3, "用户表").AddNew()
                btadd.Text = "确定"
                Me.btenabled(True)
            Else
                If btadd.Text <> "确定" Then
                    Exit Sub
                End If
                Me.BindingContext(Ds3, "用户表").EndCurrentEdit()
                OleDbDataAdapter1.Update(Ds3, "用户表")
                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 btdelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btdelete.Click
        Try
            If MsgBox("真的要删除此记录?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                Ds3.用户表.Rows(Me.BindingContext(Ds3, "用户表").Position).Delete()
                OleDbDataAdapter1.Update(Ds3)
                Me.txtlocationchange()
                Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)

        End Try
    End Sub

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

        End Try
    End Sub

    Private Sub btcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcancel.Click
        Me.BindingContext(Ds3, "用户表").CancelCurrentEdit()
        btadd.Text = "添加"
        Me.btenabled(True)
    End Sub

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