VB学生学籍管理系统(论文+源程序) 第6页

VB学生学籍管理系统(论文+源程序) 第6页
  filemenu11.Enabled = False
      Toolbar1.Buttons.Item(5).Enabled = False
   End If
End Sub
3．Form的QueryUnload事件
当用户要退出MDI窗体时，需要在 QueryUnload事件中询问用户是否真的要退出本系统；如果用户不要退出，则将Cancel置为1，取消整个退出过程。
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If MsgBox("确定要退出学生档案管理系统吗？是/否",
vbYesNo+vbQuestion+ vbDefaultButton1) = vbNo Then
     Cancel = 1
  End If
End Sub
QueryUnload和Unload事件
当一个子窗体或一个Form对象关闭时，在那个窗体中的QueryUnload事件先于该窗体的Unload事件发生，Unload事件在Terminate事件之前发生。
当一个应用程序关闭时，可使用QueryUnload或Unload事件过程将Cancel属性设置为True来阻止关闭过程。但是，QueryUnload事件是在任一个卸载之前在所有窗体中发生，而Unload是在每个窗体卸载时发生。
在这两个事件中，均可将Cancel设置为任何非零的值来防止窗体被删除。但Unload不能阻止其他事件，诸如从Microsoft Windows操作环境中退出等；而QueryUnload事件则可以阻止从Windows中的退出。有介于此，通常来说都是在QueryUnload中询问用户是否要退出当前窗体。
4．“重新登陆”子菜单的代码
当单击了“重新登陆”或者按下了“F2”键时，将会给出提示，如果用户在提示框中按下了“确定”按钮，则退出整个MDI主窗体，并显示登陆窗体。

Private Sub filemenu15_Click()
If MsgBox("若重新登陆，所有窗体都将关闭！是否重新登陆？", vbYesNo + vbQuestion,   "重新登陆") = vbYes Then
      Unload Me
      Frmlogin.Show
   End If
End Sub
5．“帮助主题”子菜单的代码
调用Windows API函数，打开help.chm帮助文件。
Private Sub filemenu21_Click()
   ShellExecute 0, "open", App.Path & "\help.chm", "", "", 1
End Sub
6．“给我发邮件”子菜单的代码
如果用户单击了“给我发邮件”子菜单，则会调用API函数，调用Outlook。
Private Sub filemenu22_Click()
   ShellExecute Me.hwnd, "open", "mailto:datou158@etang.com", "", App.Path, 1
End Sub
7．当用户单击查询学生资料菜单项或者按下F3键时，将会出现“查找学生”窗体，供用户查找满足特定要求的学生信息。
Private Sub filemenu45_Click()
   '查找学生
   frmstusearch.Show 1
End Sub
3．3．3 用户管理窗体（frmmanage）
向项目中添加窗体，并命名为frmmanage.frm。窗体的控件设计如图3.3所示
   图3.3 用户管理界面
如果登陆的用户类型是管理员，用户管理一项是可用的，当单击该子菜单时，将会出现用户管理窗口，管理员可以对系统用户进行添加和删除操作。
3．3．3．1 窗体代码设计
1．定义一个整型变量DelNO用来存储当前系统用户的数目，当DelNO<=1时提示用户不能再删除用户。在该窗体的通用部分写如下代码：
    Dim DelNO As Integer
2．窗体加载时，初始化Listview用以显示系统用户列表，代码如下
Private Sub Form_Load()
'初始化ListView
Dim clmX As ColumnHeader
Set clmX = ListView.ColumnHeaders.Add(, , "用户名", ListView.Width / 3)
Set clmX = ListView.ColumnHeaders.Add(, , "密码", ListView.Width / 6, 2)
Set clmX = ListView.ColumnHeaders.Add(, , "姓名", ListView.Width / 4, 2)
Set clmX = ListView.ColumnHeaders.Add(, , "用户权限", ListView.Width / 4, 2)
Combo1.Clear
Combo1.AddItem "普通用户"
Combo1.AddItem "超级用户"
Combo1.ListIndex = 0
LoadOperator
End Sub
其中调用了LoadOperator函数，该函数用来显示和刷新Listview中的数据
Private Sub LoadOperator()
 On Error Resume Next
Dim Listit As ListItem
ListView.ListItems.Clear
ListView.LabelEdit = lvwAuto
ListView.View = 3
Dim ef As New ADODB.Recordset
sqlstr = "select * from UserInfo"
ef.Open sqlstr, con, 1, 1
DelNO = ef.RecordCount
    Do While Not ef.EOF

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

VB学生学籍管理系统(论文+源程序) 第6页下载如图片无法显示或论文不完整，请联系qq752018766