毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

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

更新时间:2010-3-29:  来源:毕业论文
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
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。