VB工资管理系统(五)

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

VB工资管理系统(五) d1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = True
Command10.Enabled = True
Text1.Locked = False
Text2.Locked = False
Text3.Locked = False
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
bz1 = 222
End Sub

Private Sub Command8_Click()
k = MsgBox("您确认要删除名称为：" & Text2.Text & "的操作员吗？", vbYesNo + 32)
If k = 6 Then
     If Text1.Text <> "00" Then
        Data1.Recordset.Delete
        Data1.Refresh
        Call disp4
     Else
        MsgBox "管理员记录不能删除"
        Exit Sub
     End If
Else
     Call disp4
End If
End Sub

Private Sub Command9_Click()
If bz1 = 111 Then
   Data1.Recordset.Edit
   Data1.Recordset.Fields(0) = Text1.Text
   Data1.Recordset.Fields(1) = Text2.Text
   Data1.Recordset.Fields(2) = Text3.Text
   Data1.Recordset.Update
End If
If bz1 = 222 Then
   Data1.Recordset.FindFirst "czydm=" + "'" + Text1.Text + "'"
   If Data1.Recordset.NoMatch = False Then
      MsgBox "操作员代码重复，请重新输入"
      Exit Sub
   Else
      Data1.Recordset.AddNew
      Data1.Recordset.Fields(0) = Text1.Text
      Data1.Recordset.Fields(1) = Text2.Text
      Data1.Recordset.Fields(2) = Text3.Text
      Data1.Recordset.Update
   End If
End If
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = False
Command1.SetFocus
Data1.Refresh
End Sub

Private Sub Form_Activate()
Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
Command1.SetFocus
Call disp4
Command9.Enabled = False
End Sub

Private Sub Form_Load()
Me.Top = 600
Me.Left = 1100
Data1.DatabaseName = App.Path + "\gzglxt.mdb"
Data1.RecordSource = "mmk"
Data1.Refresh
End Sub

3主界面设计:

主界面代码设计:
Private Sub bmgl_Click()
Form6.Show
End Sub

Private Sub dgzb_Click()
Dr2.Show
End Sub

Private Sub dgzt_Click()
Dr1.Show
End Sub

Private Sub dhzb_Click()
Form7.Show
End Sub

Private Sub ggdx_Click()
Form3.Show
End Sub

Private Sub gldx_Click()
Form4.Show
End Sub

Private Sub lgdx_Click()
Form2.Show
End Sub

Private Sub lrbm_Click()
Form1.Show
End Sub

Private Sub MDIForm_Activate()
sb1.Panels(2).Text = "操作员：" + czy
If bz > 0 And bz <> 0 Then
&n

首页上一页 2 3 4 5 6 下一页尾页 5/6/6

VB工资管理系统(五)由毕业论文网（www.huoyuandh.com）会员上传。