?? mdiform1.frm
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1
BackColor = &H8000000C&
Caption = "MDIForm1"
ClientHeight = 5625
ClientLeft = 165
ClientTop = 735
ClientWidth = 8010
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.ImageList ImageList1
Left = 2880
Top = 2520
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":0194
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":0328
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":04BC
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 615
Left = 0
TabIndex = 0
Top = 0
Width = 8010
_ExtentX = 14129
_ExtentY = 1085
ButtonWidth = 3043
ButtonHeight = 926
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 4
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查詢寢室情況"
Object.ToolTipText = "查詢寢室人員情況"
ImageIndex = 1
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 1
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查詢衛生或用電情況"
ImageIndex = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "人員報表"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "用電報表"
ImageIndex = 4
EndProperty
EndProperty
End
Begin VB.Menu xt
Caption = "系統"
Begin VB.Menu b
Caption = "注銷用戶"
End
Begin VB.Menu x
Caption = "修改密碼"
End
Begin VB.Menu 媽媽
Caption = "退出"
End
End
Begin VB.Menu aa
Caption = "瀏覽與錄入系統"
Begin VB.Menu a1
Caption = "錄入寢室情況"
End
Begin VB.Menu 暗暗啊
Caption = "錄入衛生與電費情況"
End
End
Begin VB.Menu 地方
Caption = "查詢系統"
Begin VB.Menu 查詢侵蝕
Caption = "查詢寢室人員情況"
End
Begin VB.Menu 查詢衛生與用電情況
Caption = "查詢衛生與用電情況"
End
End
Begin VB.Menu 暗暗是
Caption = "報表系統"
Begin VB.Menu 寢室人員情況報表
Caption = "寢室人員情況報表"
End
Begin VB.Menu 寢室用電報表
Caption = "寢室用電報表"
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 a1_Click()
qsform.Show
qsform.ZOrder
End Sub
Private Sub b_Click()
Unload MDIForm1
frmLogin.Show
frmLogin.ZOrder
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1: querryform.Show: querryform.ZOrder
Case 2: weishengform.Show: weishengform.ZOrder
Case 3: DataReport2.Show: DataReport2.ZOrder
Case 4: DataReport1.Show: DataReport1.ZOrder
End Select
End Sub
Private Sub x_Click()
changeform.Show
changeform.ZOrder
End Sub
Private Sub 暗暗啊_Click()
wsform.Show
wsform.ZOrder
End Sub
Private Sub 查詢侵蝕_Click()
querryform.Show
querryform.ZOrder
End Sub
Private Sub 查詢衛生與用電情況_Click()
weishengform.Show
weishengform.ZOrder
End Sub
Private Sub 媽媽_Click()
Unload Me
End Sub
Private Sub 寢室人員情況報表_Click()
DataReport2.Show
DataReport2.ZOrder
End Sub
Private Sub 寢室用電報表_Click()
DataReport1.Show
DataReport1.ZOrder
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -