VERSION 5.00
Begin VB.MDIForm frmmain
BackColor = &H00FFC0C0&
Caption = "學生住宿信息系統(tǒng)"
ClientHeight = 3510
ClientLeft = 165
ClientTop = 855
ClientWidth = 5460
LinkTopic = "MDIForm1"
Picture = "frmmain.frx":0000
StartUpPosition = 3 '窗口缺省
Begin VB.Menu sysset
Caption = "系統(tǒng)設置"
NegotiatePosition= 3 'Right
Begin VB.Menu changemm
Caption = "更改密碼"
WindowList = -1 'True
End
Begin VB.Menu exit
Caption = "退出"
End
End
Begin VB.Menu infoquery
Caption = "住宿信息查詢"
Begin VB.Menu inroomno
Caption = "按宿舍號查詢"
End
Begin VB.Menu inname
Caption = "按姓名查詢"
End
Begin VB.Menu snoin
Caption = "按學號查詢"
End
Begin VB.Menu inpaynone
Caption = "查詢未交宿舍費的學生"
End
End
Begin VB.Menu infoedit
Caption = "住宿信息管理"
End
Begin VB.Menu about
Caption = "關于"
End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public ok As Boolean
Private Sub ABOUT_Click()
ABOUTfrm.Show
End Sub
Private Sub changemm_Click()
mmchange.Show
End Sub
Private Sub exit_Click()
End
End Sub
Private Sub infoedit_Click()
addnewfrm.Show
End Sub
Private Sub inname_Click()
snamefrm.Show
End Sub
Private Sub inpaynone_Click()
ifpayfrm.Show
End Sub
Private Sub inroomno_Click()
roomnofrm.Show
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
End If
End Sub
Private Sub MDIForm_Load()
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
frmlogin.Show vbModal
End Sub
Private Sub snoin_Click()
snofrm.Show
End Sub