📄 物业管理系统.frm
字号:
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin CSCommand.Command Command4
Height = 735
Index = 3
Left = 4320
TabIndex = 28
Top = 600
Width = 1935
_ExtentX = 3413
_ExtentY = 1296
Icon = "物业管理系统.frx":562A2
Caption = " 系统选项"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin CSCommand.Command Command4
Height = 735
Index = 4
Left = 4320
TabIndex = 29
Top = 2040
Width = 1935
_ExtentX = 3413
_ExtentY = 1296
Icon = "物业管理系统.frx":565BC
Caption = " 联机帮助"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin CSCommand.Command Command4
Height = 735
Index = 5
Left = 4320
TabIndex = 30
Top = 3360
Width = 1935
_ExtentX = 3413
_ExtentY = 1296
Icon = "物业管理系统.frx":568D6
Caption = " 关于本程序"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.PictureBox Picture2
BackColor = &H00E0E0E0&
Height = 5415
Left = 2760
Picture = "物业管理系统.frx":56D28
ScaleHeight = 5355
ScaleWidth = 7515
TabIndex = 1
Top = 840
Width = 7575
End
Begin VB.Image Image6
Height = 1065
Left = 10440
Picture = "物业管理系统.frx":6BBB5
Top = 960
Width = 1050
End
Begin VB.Image Image9
Height = 1065
Left = 10440
Picture = "物业管理系统.frx":6D1BE
Top = 3600
Width = 1050
End
Begin VB.Image Image8
Height = 1065
Left = 10440
Picture = "物业管理系统.frx":6E3DB
Top = 4920
Width = 1050
End
Begin VB.Image Image7
Height = 1065
Left = 10440
Picture = "物业管理系统.frx":6F327
Top = 2280
Width = 1050
End
Begin VB.Image Imgbottomright
Height = 645
Left = 10080
Picture = "物业管理系统.frx":701C6
Top = 6120
Width = 1485
End
Begin VB.Image Imgtopright
Height = 870
Left = 10080
Picture = "物业管理系统.frx":71456
Top = 0
Width = 1470
End
Begin VB.Image Imgtopmid
Height = 525
Left = 2880
Picture = "物业管理系统.frx":72DD6
Stretch = -1 'True
Top = 0
Width = 7695
End
Begin VB.Image Imgright1
Height = 5415
Left = 12000
Picture = "物业管理系统.frx":72F22
Stretch = -1 'True
Top = 840
Width = 60
End
Begin VB.Image Imgleft
Height = 5535
Left = -40
Picture = "物业管理系统.frx":72F7A
Stretch = -1 'True
Top = 600
Width = 570
End
Begin VB.Image Imgbottommid
Height = 645
Left = 2880
Picture = "物业管理系统.frx":73002
Stretch = -1 'True
Top = 6120
Width = 7695
End
Begin VB.Image Imgbottomleft
Height = 645
Left = 0
Picture = "物业管理系统.frx":7315E
Top = 6120
Width = 2880
End
Begin VB.Image Imgtopleft
Height = 600
Left = 0
Picture = "物业管理系统.frx":75376
Top = 0
Width = 2880
End
End
Attribute VB_Name = "物业管理系统"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmd_Click(Index As Integer)
费用查询.Show
End Sub
Private Sub Cmdadmin_Click(Index As Integer)
工作人员信息.Show
End Sub
Private Sub Cmdarea_Click(Index As Integer)
管理区信息.Show
End Sub
Private Sub Cmdcar_Click(Index As Integer)
停车场管理.Show
End Sub
'社区清洁
Private Sub CmdClean_Click(Index As Integer)
社区清洁安排.Show
End Sub
Private Sub Cmdcount_Click(Index As Integer)
费用计算.Show
End Sub
Private Sub Cmddata_Click(Index As Integer)
费用数据录入.Show
End Sub
Private Sub Cmdflor_Click(Index As Integer)
楼房信息.Show
End Sub
'小区绿化
Private Sub CmdGreen_Click(Index As Integer)
小区绿化.Show
End Sub
Private Sub Cmdhome_Click(Index As Integer)
房屋信息.Show
End Sub
Private Sub Cmdke_Click(Index As Integer)
客户投诉.Show
End Sub
Private Sub Cmdlight_Click(Index As Integer)
电费管理.Show
End Sub
Private Sub Cmdmessage_Click(Index As Integer)
客户信息.Show
End Sub
Private Sub Cmdobj_Click(Index As Integer)
费用计算.Show
End Sub
Private Sub Cmdpicture_Click(Index As Integer)
系统图片库.Show
End Sub
Private Sub Cmdredpwd_Click(Index As Integer)
管理员信息.Show
End Sub
Private Sub Cmdrep_Click(Index As Integer)
维修管理.Show
End Sub
'保安巡查
Private Sub CmdSecurity_Click(Index As Integer)
保安巡查安排.Show
End Sub
Private Sub Cmdwater_Click(Index As Integer)
水费管理.Show
End Sub
'总费用报表
Private Sub Command2_Click()
DRcount.Show
End Sub
'电费报表
Private Sub Command5_Click()
DRlight.Show
End Sub
'水费报表
Private Sub Command6_Click()
DRwater.Show
End Sub
Private Sub Form_Load()
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = False
End Sub
Private Sub Form_Resize() '改变窗体大小
' If Form1.WindowState = 1 Then '最小化时什么都不做
' Exit Sub
' ElseIf Form1.Width <= 11685 Then
'最小值
' Form1.Width = 11685
' Form1.Height = 7455
' ElseIf Form1.Width > 11685 Then
' End If
'横向变化
'Imgtopright.Left = Form1.ScaleWidth - Imgtopright.Width '上
'Imgtopmid.Left = Imgtopleft.Width
'Imgtopmid.Width = Form1.ScaleWidth - Imgtopleft.Width - Imgtopright.Width
'Imgright1.Left = Form1.ScaleWidth - Imgright1.Width + 10 '中
'Imgright.Left = Imgleft.Width
'Imgright.Width = Form1.ScaleWidth - Imgright.Left - Imgright1.Width
'Imgbottomright.Left = Form1.ScaleWidth - Imgbottomright.Width '下
'Imgbottommid.Left = Imgbottomleft.Width
'Imgbottommid.Width = Form1.ScaleWidth - Imgbottomleft.Width - Imgbottomright.Width
'纵向变化
'Imgbottomleft.Top = Form1.ScaleHeight - Imgbottomleft.Height '左
'Imgleft.Top = Imgtopleft.Height
'Imgleft.Height = Form1.ScaleHeight - Imgleft.Top - Imgbottomleft.Height
'Imgright.Height = Form1.ScaleHeight - Imgright.Top - Imgbottommid.Height '中
'Imgbottommid.Top = Form1.ScaleHeight - Imgbottommid.Height
'Imgright1.Height = Form1.ScaleHeight - Imgright1.Top - Imgbottomright.Height '右
'Imgbottomright.Top = Form1.ScaleHeight - Imgbottomright.Height
End Sub
'社区管理
Private Sub Image1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1(0).Picture = Image1(1).Picture
Picture4.Visible = True
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = False
Unload 系统图片库
End Sub
Private Sub Image1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1(0).Picture = Image1(2).Picture
End Sub
'资源管理
Private Sub Image2_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2(0).Picture = Image2(1).Picture
Picture4.Visible = False
Picture5.Visible = True
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = False
Unload 系统图片库
End Sub
Private Sub Image2_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2(0).Picture = Image2(2).Picture
End Sub
'收费管理
Private Sub Image3_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3(0).Picture = Image3(1).Picture
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = True
Picture7.Visible = False
Picture8.Visible = False
Unload 系统图片库
End Sub
Private Sub Image3_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3(0).Picture = Image3(2).Picture
End Sub
'报表查询
Private Sub Image4_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4(0).Picture = Image4(1).Picture
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = True
Unload 系统图片库
End Sub
Private Sub Image4_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4(0).Picture = Image4(2).Picture
End Sub
'系统管理
Private Sub Image5_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Image5(0).Picture = Image5(1).Picture
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = True
Picture8.Visible = False
Unload 系统图片库
End Sub
Private Sub Image5_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Image5(0).Picture = Image5(2).Picture
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -