frm_main.frm

小型医院管理

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Begin VB.Form frm_main 
   Caption         =   "金龙大厦-------写字间信息管理系统"
   ClientHeight    =   8025
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   11790
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MousePointer    =   99  'Custom
   PaletteMode     =   2  'Custom
   ScaleHeight     =   8025
   ScaleWidth      =   11790
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   600
      Left            =   5370
      Top             =   2940
   End
   Begin VB.Frame Frame3 
      Height          =   465
      Left            =   60
      TabIndex        =   0
      Top             =   7740
      Width           =   11625
   End
   Begin MSComctlLib.ImageList imgLstFaces 
      Left            =   600
      Top             =   5010
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   1
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":0000
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu htglgl 
      Caption         =   "合同管理(&C)"
      Begin VB.Menu htglzck 
         Caption         =   "合同管理"
      End
   End
   Begin VB.Menu czgl 
      Caption         =   "承租管理"
      Visible         =   0   'False
      Begin VB.Menu htqd 
         Caption         =   "合同签定"
      End
      Begin VB.Menu htxq 
         Caption         =   "合同续签"
      End
      Begin VB.Menu htyq 
         Caption         =   "合同延期"
      End
      Begin VB.Menu htgl 
         Caption         =   "合同管理"
      End
      Begin VB.Menu htdqyb 
         Caption         =   "合同到期预报"
      End
      Begin VB.Menu htcx 
         Caption         =   "合同查询"
      End
   End
   Begin VB.Menu skgl 
      Caption         =   "收费管理(&M)"
      Begin VB.Menu glzck 
         Caption         =   "收费管理"
      End
      Begin VB.Menu zfdy 
         Caption         =   "杂费定义"
         Visible         =   0   'False
      End
      Begin VB.Menu eeeeeee 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu zfsq 
         Caption         =   "杂费收取"
         Visible         =   0   'False
      End
      Begin VB.Menu zjsq 
         Caption         =   "租金收取"
         Visible         =   0   'False
      End
      Begin VB.Menu uuuu 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu jkqkcx 
         Caption         =   "交款情况查询"
         Visible         =   0   'False
      End
   End
   Begin VB.Menu lll 
      Caption         =   "出入物品管理(&G)"
      Begin VB.Menu brwp 
         Caption         =   "进入物品"
      End
      Begin VB.Menu bcwp 
         Caption         =   "搬出物品"
      End
      Begin VB.Menu wpcx 
         Caption         =   "物品查询"
      End
   End
   Begin VB.Menu xzjzl 
      Caption         =   "基本资料(&B)"
      Begin VB.Menu xzjxx 
         Caption         =   "写字间信息管理"
      End
      Begin VB.Menu dwxxdj 
         Caption         =   "单位信息管理"
      End
   End
   Begin VB.Menu tjbb 
      Caption         =   "统计报表(&R)"
      Begin VB.Menu fwzlqktj 
         Caption         =   "房间租赁情况统计"
      End
      Begin VB.Menu skqktj 
         Caption         =   "收款情况统计"
      End
      Begin VB.Menu crwptj 
         Caption         =   "出入物品统计"
      End
   End
   Begin VB.Menu xtsz 
      Caption         =   "系统设置(&S)"
      Begin VB.Menu yhgl 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mmgg 
         Caption         =   "密码更改"
      End
      Begin VB.Menu hfhgfhgf 
         Caption         =   "-"
      End
      Begin VB.Menu xtzk 
         Caption         =   "系统注册"
      End
      Begin VB.Menu ddgfdg 
         Caption         =   "-"
      End
      Begin VB.Menu sydwzc 
         Caption         =   "使用单位注册"
      End
   End
   Begin VB.Menu jmst 
      Caption         =   "界面视图(&V)"
      Begin VB.Menu w 
         Caption         =   "主界面"
         Checked         =   -1  'True
      End
      Begin VB.Menu e 
         Caption         =   "列表视图"
      End
   End
   Begin VB.Menu xtbz 
      Caption         =   "系统帮助(&H)"
      Begin VB.Menu gy 
         Caption         =   "关于"
      End
      Begin VB.Menu bz 
         Caption         =   "帮助"
      End
      Begin VB.Menu gggggggg 
         Caption         =   "-"
      End
      Begin VB.Menu jszc 
         Caption         =   "技术支持"
      End
      Begin VB.Menu lxwm 
         Caption         =   "公司网站"
      End
   End
   Begin VB.Menu fh 
      Caption         =   "返回主界面"
   End
   Begin VB.Menu tcxt 
      Caption         =   "退出系统(&Q)"
   End
   Begin VB.Menu ffff 
      Caption         =   "fff"
      Visible         =   0   'False
      Begin VB.Menu czdj 
         Caption         =   "承租登记"
      End
   End
   Begin VB.Menu kk 
      Caption         =   "kk"
      Visible         =   0   'False
      Begin VB.Menu jgtxs 
         Caption         =   "结构图显示"
      End
   End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim SW_HIDE
Dim strtemp As String
Dim ks As String
Dim newclr As Long
Private moSelectedNode  As MSComctlLib.Node


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'退出模块
 Dim SureQ As Integer
             SureQ = MsgBox("真的退出该系统吗(Y/N)？    ", vbYesNo + 32, "请确认...")
              If SureQ = 6 Then
                
                 Cancel = False
                 Else
                Cancel = True
              End If
End Sub