vb工资管理系统(access版)82529

《vb工资管理系统(access版)82529》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、vb工资管理系统(ACCESS版)82529vb工资管理系统(ACCESS版).txt年轻的时候拍下许多照片，摆在客厅给别人看;等到老了，才明白照片事拍给自己看的。当大部分的人都在关注你飞得高不高时，只有少部分人关心你飞得累不累，这就是友情！PublicClassForm1InheritsSystem.Windows.Forms.Form#Region"Windows窗体设计器生成的代码"........（省略了系统自动生成的代码）#EndRegionPrivateSubBtEnabled(ByValboolAsB

2、oolean)'把一个布尔型的参数作为按钮的属性BtView.Enabled=boolBtDelete.Enabled=boolBtUpdate.Enabled=boolBtPrev.Enabled=boolBtLast.Enabled=boolBtNext.Enabled=boolBtTop.Enabled=boolBtFind.Enabled=boolEndSubPrivateSubBtView_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)

3、HandlesBtView.ClickTry'设定查询语句OleDbDataAdapter1.SelectCommand.CommandText="select*from工资表"Ds1.Clear()'清空数据集OleDbDataAdapter1.Fill(Ds1)'填充数据Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)'选择当前活动行Me.TxtLocationChange()'指示当前活动行的位置CatchexAsExceptionMsgBox(ex.Message

4、)EndTryEndSubPrivateSubBtAdd_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtAdd.ClickTryIfBtAdd.Text="添加"Then'判断是否第一次按下按钮Me.BindingContext(Ds1,"工资表").AddNew()'增加一行新行BtAdd.Text="确定"Me.BtEnabled(False)'将其他按钮设为不可用,防止用户误操作ElseIfBtAdd.Text<>"确定"

5、Then'用户第二次按下按钮ExitSubEndIfMe.BindingContext(Ds1,"工资表").EndCurrentEdit()'把数据返回数据集OleDbDataAdapter1.Update(Ds1.工资表)'更新数据集,调用添加语句MsgBox("添加成功!")BtAdd.Text="添加"Me.BtEnabled(True)'把按钮设为可用Me.TxtLocationChange()'指示当前活动行的位置Me.DataGrid1.Select(DataGrid1.CurrentRowIndex

6、)'选择活动行EndIfCatchexAsExceptionIfErr.Number=5ThenMsgBox("已有相同记录存在!")ElseMsgBox(ex.Message)EndIfEndTryEndSubPrivateSubBtDelete_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtDelete.ClickTry'确定是否要删除数据IfMsgBox("真的要删除此记录?",MsgBoxStyle.YesNo)=Msg

7、BoxResult.YesThen'删除数据集中当前的活动行Ds1.工资表.Rows(Me.BindingContext(Ds1,"工资表").Position).Delete()OleDbDataAdapter1.Update(Ds1)'更新数据集,调用删除语句Me.TxtLocationChange()'指示当前活动行的位置Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)'选择当前活动行EndIfCatchexAsExceptionMsgBox(ex.Message)

8、EndTryEndSubPrivateSubBtUpdate_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtUpdate.ClickTryMe.BindingContext(Ds1,"工资表").EndCurrentEdit()'把数据返回数据集IfDs1.HasChan