VB工资管理系统(六)

Private Sub qxgl_Click()
  Form11.Show
End Sub

Private Sub rygl_Click()
  Form5.Show
End Sub

Private Sub sjbf_Click()
  Form9.Show
End Sub

Private Sub sjhf_Click()
  Form10.Show
End Sub

Private Sub szbj_Click()
Cd1.FileName = ""
Cd1.ShowOpen
Me.Picture = LoadPicture(Cd1.FileName)
End Sub

Private Sub tcxt_Click()
  End
End Sub

Private Sub Timer1_Timer()
  sb1.Panels(5).Text = "日期：" & Date & " 时间：" & Time()
End Sub

Private Sub tkfa_Click()
   MsgBox "此模块为选做模块，如果需要使用此模块的功能，请与作者联系"
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
       Case 1
          Form1.Show
       Case 2
          Form2.Show
       Case 3
          Form3.Show
       Case 4
          Form4.Show
       Case 5
          Form5.Show
       Case 6
          Form6.Show
       Case 7
          Dr1.Show
       Case 8
          Dr2.Show
       Case 9
          Form7.Show
       Case 10
          Form8.Show
       Case 11
          Form9.Show
       Case 12
          Form10.Show
       Case 13
          Form11.Show
       Case 14
          Call szbj_Click
End Select
End Sub

Private Sub xtcs_Click()
  Form8.Show
End Sub

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