vb工资管理系统(CCESS版).docVIP

Public Class Form1 Inherits System.Windows.Forms.Form #Region Windows 窗体设计器生成的代码 ........（省略了系统自动生成的代码） #End Region 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 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 BtAdd_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(False) 将其他按钮设为不可用,防止用户误操作 Else If BtAdd.Text 确定 Then 用户第二次按下按钮 Exit Sub End If Me.BindingContext(Ds1, 工资表).EndCurrentEdit() 把数据返回数据集 OleDbDataAdapter1.Update(Ds1.工资表) 更新数据集,调用添加语句 MsgBox(添加成功!) BtAdd.Text = 添加 Me.BtEnabled(True) 把按钮设为可用 Me.TxtLocationChange() 指示当前活动行的位置 Me.DataGrid1.Select(DataGrid1.CurrentRowIndex) 选择活动行 End If Catch ex As Exception If Err.Number = 5 Then MsgBox(已有相同记录存在!) Else MsgBox(ex.Message) End If E