⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frm_main.frm

📁 主要是实现物业管理功能！可以帮助了解该区的相关物业情况
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
      Begin VB.Menu gzff 
         Caption         =   "工资发放"
      End
   End
   Begin VB.Menu XW 
      Caption         =   "系统维护"
      Begin VB.Menu r 
         Caption         =   "权限管理"
      End
      Begin VB.Menu C 
         Caption         =   "-"
      End
      Begin VB.Menu SJBF 
         Caption         =   "数据备份"
      End
      Begin VB.Menu SJHF 
         Caption         =   "数据恢复"
      End
      Begin VB.Menu v 
         Caption         =   "-"
      End
   End
   Begin VB.Menu TCXT 
      Caption         =   "退出系统"
      Begin VB.Menu GBXT 
         Caption         =   "关闭系统"
      End
      Begin VB.Menu f 
         Caption         =   "-"
      End
      Begin VB.Menu CXDL 
         Caption         =   "重新登陆"
      End
   End
   Begin VB.Menu t 
      Caption         =   "帮助？"
   End
End
Attribute VB_Name = "Frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Const INFINITE = -1&
Private Const SYNCHRONIZE = &H100000



Private Sub BMX_Click()
Frm_bminfocu.Show

End Sub

Private Sub CXDL_Click()
Frm_load.Show

End Sub

Private Sub Form_Load()

Picture9.Top = 1590
Picture9.Left = 3420
Picture8.Top = 1590
Picture8.Left = 3420
Picture7.Top = 1590
Picture7.Left = 3420
Picture6.Top = 1590
Picture6.Left = 3420
Picture5.Top = 1590
Picture5.Left = 3420
Picture4.Top = 1590
Picture4.Left = 3420

 If Frm_load.group = "2" Then
   Call user
 End If
   If Frm_load.group = "3" Then
   Call guest
   End If
 StatusBar1.Panels.Item(2).Text = Format(Now, "yyyy年mm月dd日")



 
End Sub

Private Sub FWSFB_Click()
Frm_fwxm.Show
End Sub

Private Sub FX_Click()
Frm_bsinfocu.Show

End Sub

Private Sub GBXT_Click()
Dim ex As Integer
ex = MsgBox("确实要退出系统吗?", vbExclamation + vbYesNo + vbDefaultButton2)
If ex = vbYes Then
End
End If
End Sub

Private Sub GurhanButton11_Click()
Frm_bainfo.Show

End Sub

Private Sub GurhanButton12_Click()
Frm_bacqcu.Show

End Sub

Private Sub GurhanButton17_Click()
Frm_wxinfocu.Show

End Sub

Private Sub GurhanButton19_Click()
Frm_tyinfocu.Show

End Sub

Private Sub GurhanButton20_Click()
Frm_tsinfocu.Show

End Sub

Private Sub GurhanButton21_Click()
Dim iTask, Ret, pHandle As Long
iTask = Shell("notepad.exe", vbNormalFocus)
pHandle = OpenProcess(SYNCHRONIZE, False, iTask)
Ret = WaitForSingleObject(pHandle, INFINITE)

End Sub

Private Sub GurhanButton23_Click()
Frm_xqinfocu.Show

End Sub

Private Sub GurhanButton24_Click()
Frm_wyinfocu.Show

End Sub

Private Sub GurhanButton25_Click()
Frm_bsinfocu.Show

End Sub

Private Sub GurhanButton26_Click()
Frm_yzinfocu.Show

End Sub

Private Sub GurhanButton27_Click()
Frm_zhinfo.Show

End Sub

Private Sub GurhanButton28_Click()
Frm_bminfocu.Show

End Sub

Private Sub GurhanButton29_Click()
Frm_zyinfocu.Show
End Sub

Private Sub GurhanButton32_Click()
Frm_fwxm.Show

End Sub

Private Sub GurhanButton33_Click()
Frm_fydscu.Show

End Sub

Private Sub GurhanButton34_Click()
Frm_gzffinfo.Show

End Sub

Private Sub GurhanButton4_Click()
Frm_userinfo.Show

End Sub

Private Sub GurhanButton5_Click()


End Sub

Private Sub GurhanButton6_Click()
Frm_zhsqb.Show

End Sub

Private Sub GurhanButton7_Click()
Frm_spwxinfo.Show
End Sub

Private Sub GurhanButton8_Click()
Frm_sbinfocu.Show

End Sub

Private Sub GurhanButton9_Click()
Frm_zhsqinfocu.Show
End Sub

Private Sub GurhanCoolButton1_CLICKED()
Picture3.Visible = True
Picture3.Top = 1590
Picture3.Left = 3420
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = False
Picture9.Visible = False
End Sub

Private Sub GurhanCoolButton10_CLICKED()
Frm_wyinfocu.Show

End Sub

Private Sub GurhanCoolButton11_CLICKED()
Frm_bsinfocu.Show

End Sub

Private Sub GurhanCoolButton12_CLICKED()
Frm_yzinfocu.Show
End Sub

Private Sub GurhanCoolButton13_CLICKED()
Frm_zhinfocu.Show
End Sub

Private Sub GurhanCoolButton14_CLICKED()
Frm_bminfocu.Show
End Sub

Private Sub GurhanCoolButton15_CLICKED()
Frm_zyinfocu.Show

End Sub

Private Sub GurhanCoolButton16_CLICKED()
Frm_wxinfocu.Show

End Sub

Private Sub GurhanCoolButton6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels.Item(3).Text = "请单击   " + GurhanCoolButton6.CaptionTitle + "进行系统维护、权限的设定，只有管理员组的用户可以进行此项操作！"
End Sub

Private Sub GurhanCoolButton2_CLICKED()
Picture3.Visible = False
Picture4.Visible = True
Picture4.Top = 1590
Picture4.Left = 3420
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = False
Picture9.Visible = False
End Sub

Private Sub GurhanCoolButton27_CLICKED()
Frm_sbinfocu.Show

End Sub

Private Sub GurhanCoolButton1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels.Item(3).Text = "请单击   " + GurhanCoolButton2.CaptionTitle + "进行信息的查询、添加、和修改！"
End Sub

Private Sub GurhanCoolButton3_CLICKED()
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = True
Picture5.Top = 1590
Picture5.Left = 3420
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = False
Picture9.Visible = False
End Sub

Private Sub GurhanCoolButton2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels.Item(3).Text = "请单击 " + GurhanCoolButton2.CaptionTitle + "开始客户的前台服务工作！"
End Sub

Private Sub GurhanCoolButton4_CLICKED()
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = True
Picture6.Top = 1590
Picture6.Left = 3420
Picture7.Visible = False
Picture8.Visible = False
Picture9.Visible = False
End Sub

Private Sub GurhanCoolButton3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels.Item(3).Text = "请单击    " + GurhanCoolButton3.CaptionTitle + "进行保安的排班设定和排班查询！"
End Sub

Private Sub GurhanCoolButton5_CLICKED()
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = True
Picture7.Top = 1590
Picture7.Left = 3420
Picture8.Visible = False
Picture9.Visible = False
End Sub

Private Sub GurhanCoolButton4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels.Item(3).Text = "请单击    " + GurhanCoolButton4.CaptionTitle + "管理工程维修的相关工作！"
End Sub

Private Sub GurhanCoolButton6_CLICKED()
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = True
Picture8.Top = 1590
Picture8.Left = 3420
Picture9.Visible = False
End Sub

Private Sub GurhanCoolButton5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels.Item(3).Text = "请单击   " + GurhanCoolButton5.CaptionTitle + "进行费用的收取和职工工资的发放！"
End Sub

Private Sub GurhanCoolButton7_CLICKED()
Dim ex As Integer
ex = MsgBox("确实要退出系统吗?", vbExclamation + vbYesNo + vbDefaultButton2)
If ex = vbYes Then
End
End If
End Sub

Private Sub GurhanCoolButton7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels.Item(3).Text = "单击   " + GurhanCoolButton7.CaptionTitle + "将要关闭系统、请确定当前工作的保存！"
End Sub

Private Sub GurhanCoolButton8_CLICKED()
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = False
Picture9.Visible = True
Picture9.Top = 1590
Picture9.Left = 3420
End Sub

Private Sub GurhanCoolButton9_CLICKED()
Frm_xqinfocu.Show
End Sub

Private Sub GurhanCoolButton8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 StatusBar1.Panels.Item(3).Text = "单击   " + GurhanCoolButton8.CaptionTitle + "恢复主界面！"
End Sub

Private Sub gzff_Click()
Frm_gzffinfo.Show

End Sub

Private Sub r_Click()
Frm_userinfo.Show

End Sub

Private Sub SDQF_Click()
Frm_fydscu.Show

End Sub

Private Sub ST_Click()
Frm_tsinfocu.Show

End Sub

Private Sub WK_Click()
Frm_wyinfocu.Show

End Sub

Private Sub XG_Click()
Frm_xqinfocu.Show

End Sub

Private Sub YB_Click()
Frm_wxinfocu.Show

End Sub

Private Sub YTY_Click()
Frm_tyinfocu.Show
End Sub

Private Sub ZX_Click()
Frm_zyinfocu.Show

End Sub
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -