frmmain.frm

SQL SERVER+ isual basic的数据库开发的漏洞管理系统

VERSION 5.00
Begin VB.MDIForm frmmain 
   BackColor       =   &H00FFC0C0&
   Caption         =   "学生住宿信息系统"
   ClientHeight    =   3510
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   5460
   LinkTopic       =   "MDIForm1"
   Picture         =   "frmmain.frx":0000
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu sysset 
      Caption         =   "系统设置"
      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