?? 主界面.frm
字號(hào):
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1
BackColor = &H8000000B&
Caption = "小區(qū)物業(yè)管理系統(tǒng)"
ClientHeight = 7515
ClientLeft = 165
ClientTop = 735
ClientWidth = 10890
Icon = "主界面.frx":0000
LinkTopic = "MDIForm1"
Picture = "主界面.frx":08CA
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 300
Left = 0
TabIndex = 0
Top = 7215
Width = 10890
_ExtentX = 19209
_ExtentY = 529
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 7056
MinWidth = 7056
Text = " 小區(qū)物業(yè)管理系統(tǒng)"
TextSave = " 小區(qū)物業(yè)管理系統(tǒng)"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Text = "周君"
TextSave = "周君"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 8819
MinWidth = 8819
Text = "淮安市廣播電視大學(xué)"
TextSave = "淮安市廣播電視大學(xué)"
EndProperty
EndProperty
End
Begin VB.Menu xqwyzlgl
Caption = "小區(qū)物業(yè)資料管理"
Begin VB.Menu kfszl
Caption = "開發(fā)商資料"
End
Begin VB.Menu jzszl
Caption = "建筑商資料"
End
Begin VB.Menu jlszl
Caption = "監(jiān)理商資料"
End
Begin VB.Menu line3
Caption = "-"
End
Begin VB.Menu fwjzhzl
Caption = "房屋及住戶資料"
End
Begin VB.Menu line1
Caption = "-"
End
Begin VB.Menu tc
Caption = "退出"
End
End
Begin VB.Menu xqwyjbgl
Caption = "小區(qū)物業(yè)基本管理"
Begin VB.Menu zhtsgl
Caption = "住戶投訴管理"
End
Begin VB.Menu zhbxgl
Caption = "住戶報(bào)修管理"
End
Begin VB.Menu sbwxgl
Caption = "設(shè)備維修管理"
End
Begin VB.Menu line4
Caption = "-"
End
Begin VB.Menu zhcwgl
Caption = "住戶停車車位管理"
End
Begin VB.Menu line5
Caption = "-"
End
Begin VB.Menu wyshxmgl
Caption = "物業(yè)收費(fèi)項(xiàng)目管理"
End
Begin VB.Menu qfgl
Caption = "住戶欠費(fèi)及預(yù)付費(fèi)管理"
End
Begin VB.Menu sfgl
Caption = "物業(yè)收費(fèi)管理"
End
End
Begin VB.Menu tjbb
Caption = "統(tǒng)計(jì)報(bào)表"
Begin VB.Menu tsbb
Caption = "住戶投訴統(tǒng)計(jì)報(bào)表"
End
Begin VB.Menu bxbb
Caption = "住戶報(bào)修統(tǒng)計(jì)報(bào)表"
End
Begin VB.Menu wxtjbb
Caption = "物業(yè)設(shè)備維修統(tǒng)計(jì)報(bào)表"
End
Begin VB.Menu line12
Caption = "-"
End
Begin VB.Menu bjhytjbb
Caption = "物料配件耗用統(tǒng)計(jì)報(bào)表"
End
Begin VB.Menu line6
Caption = "-"
End
Begin VB.Menu sfybb
Caption = "物業(yè)收費(fèi)月統(tǒng)計(jì)報(bào)表"
End
Begin VB.Menu sfnbb
Caption = "物業(yè)收費(fèi)年統(tǒng)計(jì)報(bào)表"
End
Begin VB.Menu jfbb
Caption = "住戶物業(yè)繳費(fèi)數(shù)據(jù)報(bào)表"
End
End
Begin VB.Menu xtgl
Caption = "系統(tǒng)管理"
Begin VB.Menu yhgl
Caption = "用戶管理"
End
Begin VB.Menu klxg
Caption = "用戶口令修改"
End
Begin VB.Menu line7
Caption = "-"
End
Begin VB.Menu sjbfhf
Caption = "數(shù)據(jù)備份"
End
Begin VB.Menu line
Caption = "-"
End
Begin VB.Menu exit
Caption = "退出"
End
End
Begin VB.Menu help
Caption = "幫助"
Begin VB.Menu help1
Caption = "幫助"
End
Begin VB.Menu line2
Caption = "-"
End
Begin VB.Menu about
Caption = "關(guān)于"
End
End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub about_Click()
gy.Show
End Sub
Private Sub bxbb_Click()
Form14.Show
End Sub
Private Sub exit_Click() '退出系統(tǒng)
End
End Sub
Private Sub fwjzhzl_Click()
form2.Show
End Sub
Private Sub help1_Click()
Form18.Show
End Sub
Private Sub jfbb_Click()
Form22.Show
End Sub
Private Sub jlszl_Click()
Form17.Show
End Sub
Private Sub jzszl_Click()
Form16.Show
End Sub
Private Sub kfszl_Click()
Form15.Show
End Sub
Private Sub klxg_Click()
Form19.Show
End Sub
Private Sub MDIForm_Load()
Form3.Show
End Sub
Private Sub qfgl_Click()
Form9.Show
End Sub
Private Sub sbwxgl_Click()
Form6.Show
End Sub
Private Sub sfgl_Click()
Form12.Show
End Sub
Private Sub tc_Click() '退出系統(tǒng)
End
End Sub
Private Sub tsbb_Click()
Form13.Show
End Sub
Private Sub wxtjbb_Click()
Form21.Show
End Sub
Private Sub wyshxmgl_Click()
Form8.Show
End Sub
Private Sub yhgl_Click()
Form20.Show
End Sub
Private Sub zhbxgl_Click()
Form5.Show
End Sub
Private Sub zhcwgl_Click()
Form7.Show
End Sub
Private Sub zhtsgl_Click()
Form4.Show
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -