frmmanage.frm

该系统的最终用户是访问本系统的工作人员

      Begin VB.Menu menu_txg 
         Caption         =   "添加工作人员信息"
         Shortcut        =   +^{F3}
      End
      Begin VB.Menu menu_14 
         Caption         =   "-"
      End
      Begin VB.Menu menu_reward_punish 
         Caption         =   "寝室奖励与违纪信息(X)"
         Shortcut        =   ^E
      End
      Begin VB.Menu menu_txqjf 
         Caption         =   "修改和添加寝室奖罚信息"
         Shortcut        =   +^{F4}
      End
      Begin VB.Menu menu4 
         Caption         =   "-"
         Index           =   4
      End
   End
   Begin VB.Menu users_manage 
      Caption         =   "辅助工具(T)"
      Begin VB.Menu menu_word 
         Caption         =   "Word文档"
         Shortcut        =   +{F9}
      End
      Begin VB.Menu menu_excel 
         Caption         =   "Excel图表"
         Shortcut        =   +{F11}
      End
      Begin VB.Menu menu5 
         Caption         =   "-"
         Index           =   5
      End
      Begin VB.Menu menu_jisuan 
         Caption         =   "计算器"
         Shortcut        =   {F12}
      End
      Begin VB.Menu menu_datetime 
         Caption         =   "日历"
         Shortcut        =   {F11}
      End
      Begin VB.Menu menu17 
         Caption         =   "-"
      End
      Begin VB.Menu menu_printt 
         Caption         =   "打印机设置"
         Shortcut        =   ^Q
      End
      Begin VB.Menu menu6 
         Caption         =   "-"
         Index           =   6
      End
   End
   Begin VB.Menu menu_yonghu 
      Caption         =   "用户管理(Y)"
      Begin VB.Menu menu_modify 
         Caption         =   "修改密码"
         Shortcut        =   ^M
      End
      Begin VB.Menu menu_jia 
         Caption         =   "添加用户"
         Shortcut        =   ^J
      End
      Begin VB.Menu menu7 
         Caption         =   "-"
         Index           =   7
      End
      Begin VB.Menu menu_del 
         Caption         =   "删除"
         Shortcut        =   ^D
      End
      Begin VB.Menu menu_alldel 
         Caption         =   "全部删除"
         Shortcut        =   +^{F5}
      End
      Begin VB.Menu menu8 
         Caption         =   "-"
         Index           =   8
      End
      Begin VB.Menu menu_tongxun 
         Caption         =   "通讯薄"
         Shortcut        =   ^T
      End
      Begin VB.Menu menu_zhu 
         Caption         =   "注销"
         Shortcut        =   ^Z
      End
   End
   Begin VB.Menu print1 
      Caption         =   "报表打印管理(P)"
      Begin VB.Menu print_check 
         Caption         =   "打印检查信息"
         Shortcut        =   +^{F6}
      End
      Begin VB.Menu print_room 
         Caption         =   "打印寝室信息"
         Shortcut        =   +^{F7}
      End
      Begin VB.Menu print_staff 
         Caption         =   "打印工作人员信息"
         Shortcut        =   +^{F8}
      End
   End
   Begin VB.Menu menu_help 
      Caption         =   "帮助(H)"
      Begin VB.Menu munu_authory 
         Caption         =   "关于"
         Shortcut        =   ^A
      End
   End
   Begin VB.Menu menu_exit 
      Caption         =   "退出(E)"
   End
End
Attribute VB_Name = "frmmanage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub exit_system_Click()
   Dim OK As Integer
   OK = MsgBox("你真的要退出系统吗？", vbOKCancel + vbExclamation, "警告")
   If OK = 1 Then End

  End Sub

Private Sub managecount_Click()
frmscorestatistic.Show
End Sub

Private Sub Form_Load()
 '打开文件
ShockwaveFlash1.Movie = App.Path + "\封面管理系统.swf "

 ShockwaveFlash1.Playing = True    '开始播放动画。
ShockwaveFlash1.Top = 380
ShockwaveFlash1.Left = 0


ShockwaveFlash1.Height = Me.Height
ShockwaveFlash1.Width = Me.Width + 3500

End Sub

Private Sub menu_alldel_Click()
MsgBox "对不起！您无法删除其他用户信息，要想删除全部用户，请与数据库管理员联系！", vbOKOnly + vbExclamation, "警告"
End Sub

Private Sub menu_check_staff_Click()
frmstaff.Show

End Sub

Private Sub menu_datetime_Click()
frmdatetime.Show

End Sub

Private Sub menu_del_Click()
MsgBox "确认要删除此用户吗？删除后将无法登录！", vbOKCancel + vbExclamation, "警告"
End Sub

Private Sub menu_excel_Click()
x = Shell("c:\Program Files\Microsoft Office\Office\excel.exe", 1)

End Sub

Private Sub menu_exit_Click()
   Dim OK As Integer
   OK = MsgBox("你真的要退出系统吗？", vbOKCancel + vbExclamation, "警告")
   If OK = 1 Then End


End Sub

Private Sub menu_int_Click()
frmadduser.Show
End Sub

Private Sub menu_jia_Click()
frmadduser.Show

End Sub

Private Sub menu_jisuan_Click()
x = Shell("C:\WINDOWS\System32\calc.exe", 1)
End Sub

Private Sub menu_manage_Click()

frmduty.Show


End Sub

Private Sub users_query_Click()
frmword.Show

End Sub

Private Sub menu_modify_Click()
frmadduser.Show

End Sub



Private Sub menu_print_Click()

End Sub

Private Sub menu_printt_Click()
MsgBox "请增加打印机硬件！", vbOKOnly + vbInformation, "通知"
End Sub

Private Sub menu_reward_punish_Click()
frmrewpun.Show

End Sub

Private Sub menu_roomname_Click()
frmroommum.Show

End Sub

Private Sub menu_roomnum_Click()
frmcount.Show

End Sub

Private Sub menu_tongxun_Click()
x = Shell("C:\Program Files\Outlook Express\wab.exe", 1)

End Sub

Private Sub menu_tx_Click()
frmmodifycheck.Show
End Sub

Private Sub menu_txg_Click()
frmaddstaff.Show

End Sub

Private Sub menu_txq_Click()
frmmodifyroom.Show
End Sub

Private Sub menu_txqjf_Click()
frmmodifyreward.Show

End Sub
Private Sub waittime(xt As Single)
    Dim starttime As Single
    starttime = Timer
    Do Until (Timer - starttime) > xt
    Loop
End Sub

Private Sub menu_word_Click()

x = Shell("c:\Program Files\Microsoft Office\Office\winword.exe", 1)  '//启动Word
    SendKeys "{Enter}", 1
    waittime (1)  '停留1秒
    SendKeys "welcome to visit{Enter}", 1
    waittime (1)
    SendKeys "Designer : Wangchonghai&Ouyangliang{Enter}", 1
    waittime (1)
    SendKeys "School : JX Normal University{Enter}", 1
    waittime (1)
    SendKeys "Phone : [phone]{Enter}", 1
End Sub

Private Sub menu_zhu_Click()
Dim OK As Integer
OK = MsgBox("是否真的想注销此用户？“是”点击“确定”，“否”点击“取消”", vbOKCancel + vbExclamation, "警告")

  If OK = 1 Then
  Unload Me
  frmlegoin.Show
  End If
  
  End Sub





Private Sub munu_authory_Click()
frmhelp.Show

End Sub

Private Sub print_check_Click()
   DataReport1.Show
End Sub

Private Sub print_room_Click()
   DataReport2.Show
End Sub

Private Sub print_staff_Click()
  DataReport3.Show
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 20
If Label1.Left < 0 Then Label1.Left = Label1.Left + 9000
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim OK As Integer
If Button.Key = "open" Then
CommonDialog1.CancelError = True
On Error GoTo errhandler
CommonDialog1.Filter = "All Files(*.*)|*.*|Flash Files(*.swf,*.spl)|*.SWF|"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
errhandler:
Exit Sub

End If
If Button.Key = "save" Then
 Dim k As String
    
    If CommonDialog1.FileName <> "" Then
    ShockwaveFlash1.Movie = CommonDialog1.FileName  '打开文件
    
    End If
   
    ShockwaveFlash1.Playing = True    '开始播放动画。
End If

If Button.Key = "inquire" Then frmduty.Show
If Button.Key = "inquireroom" Then frmroommum.Show
If Button.Key = "staff" Then frmstaff.Show
If Button.Key = "reward" Then frmrewpun.Show
If Button.Key = "addcheck" Then frmmodifycheck.Show
If Button.Key = "ccon" Then frmscorestatistic.Show
If Button.Key = "count" Then frmcount.Show
If Button.Key = "addstaff" Then frmaddstaff.Show
If Button.Key = "addroom" Then frmmodifyroom.Show


If Button.Key = "del" Then

   OK = MsgBox("你真的要退出系统吗？", vbOKCancel + vbExclamation, "警告")
   If OK = 1 Then End
End If
If Button.Key = "yongh" Then frmadduser.Show

End Sub