frmAddsinfo.Show
End Sub
Private Sub adduserMenu_Click()
frmAdduser.Show
sbStatusBar.Panels(1).Text = "添加用户"
End Sub
Private Sub exitMenu_Click()
End
End Sub
Private Sub exitsinfoMenu_Click()
Unload frminquireinfo
End Sub
Private Sub gradecourseMenu_Click()
frmSetcourseinfo.Show
End Sub
Private Sub inquireresultMenu_Click()
frmInquireresult.Show
End Sub
Private Sub inquiresinfoMenu_Click()
frmInquiresinfo.Show
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)
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
<< 上一页 [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] ... 下一页 >>