'初始化窗体
Private Sub MDIform_Load()
'根据登录用户不同,赋予不同的功能
If admin Then
MDIMainfrm.personinfomenu.Enabled = False
Else
With MDIMainfrm
.coursemenu.Enabled = False
.subjectrpmenu.Enabled = False
.resultmenu.Enabled = False
.Reportmenu.Enabled = False
End With
Mainfrm.MSFlexGirdl.ToolTipText = "双击鼠标填写选课表单"
End If
MDIMainfrm.WindowState = vbMaximized
Mainfrm.WindowState = vbMaximized
Mainfrm.Show
If admin = False Then
'学生登录显示个人信息以供确认
Infofrm.Show vbModal, Me
End If
End Sub
MSFlexGirdl未找到方法或数据成员
是怎么回事呀,我是刚学VB的,还请高人教我一下错在哪里了
这程序不是我写的,我现在是在用人家的谢谢了^^^^^^^^^