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] ... 下一页 >>