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

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

更新时间:2010-3-29:  来源:毕业论文
VB学生学籍管理系统(论文+源程序) 第5页
Sub Main()
If App.PrevInstance = True Then
    MsgBox "注意程序已经运行,不能再次装载!", vbOKOnly
    Exit Sub
Else
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&App.Path+"\student.mdb"
      Frmlogin.Show
End If
End Sub 
在module2中添加代码(MD5算法)
  详细代码见程序中module2.bas
3.3 用户界面实现
3.3.1 登陆界面(frmlogin)
因为本系统是按学籍管理的思想设计的,故而登陆部分主要完成密码校验、确定管理员等功能,对于密码本系统采用的是MD5算法。这里附上本程序的登陆界面,见图3.1。
 
图3.1 用户登陆界面
在代码窗口的“通用”部分,定义一个模块级的公共变量loginno用来记录当前密码输入错误的次数
Dim loginno As Integer

在Form的Load事件中,将txtuser设置为焦点,初始化loginno。
Private Sub Form_Load()
   loginno = 0
   Me.Show
   txtuser.SetFocus
End Sub
这里将“确定”和“取消”两个按钮作为一个按钮数组cmdOkCancel:确定按钮的index属性为0,取消按钮的index属性为1。
利用SQL语句,在数据库中查询,如果查到相应的记录,则调用Case 0事件,用户的登陆获得通过,此时可以退出登陆窗口,并进入MDI主窗口,同时将用户类型和用户名分别传递到MDI主窗口和frmmanage中;如果没有相应的记录,则给出提示错误信息,同时将用户输入错误密码次数增加1,如果错误超过3次,则退出整个系统;若次数还没有超过3次,则提示用户重新输入。
根据以上的设计,cmdOkCancel的Click事件的代码如下:
Private Sub cmdOkCancel_Click(Index As Integer)
   Select Case Index
      Case 0
        ……

        Userid = Trim(txtuser.Text)
        Userpwd = MD5(Trim(txtPassword.Text))
   
        sqlstr = "select * from UserInfo where UserID='" & Userid & "'"
        rs.Open sqlstr, con, 1, 1
   
    If Not rs.EOF Then
        If rs("UserPWD") <> Userpwd Then
           '密码错误时
            MsgBox "您输入的密码不正确!", vbQuestion
            Me.Caption = "请输入用户名和密码:"

            loginno = loginno + 1
           
            '当错误的密码次数达到3次时,不能登陆,退出!
            If loginno = 3 Then
      MsgBox "对不起,您不能使用该系统!请与管理员联系。", vbInformation
                Unload Me
                Exit Sub
            End If
            ……
         Else
           LoginUser = Userid       '保存当前登陆用户名
           LoginPower = rs.Fields(3)
 '将当前登陆用户的权限保存到LoginPower中
           Unload Me
           frmflash.Show
         End If
    Else
        MsgBox "没有您输入的用户名!", 32
        ……
    End If
    rs.Close: Set rs = Nothing
     Case 1
        ‘退出整个程序
        Unload Me
   End Select
End Sub
3.3.2 MDI主窗口(frmmain)
本系统采取多文档界面(MultiDocument Interface)。多文档界面是一种Windows用户界面标准。它有一个父窗口,在典型情况下,父窗口用来显示程序菜单以及包含子窗口。
在工程中添加一个MDI窗口,取名为“frmmain.frm”,并为MDI窗体进行菜单和代码的设计,其运行界面如图3.2:
图3.2 主界面
3.3.2.1 菜单设计
MDI主窗体是整个系统的容器,为了方便用户的使用,应设计相应的菜单和代码。
3.3.2.2 窗体代码设计
1.在代码窗口的通用部分,声明一个API函数用于打开帮助文件和调用Outlook发送邮件。
Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
2.判断用户权限
如果登陆的为普通用户类型的用户,则用户不能使用“用户管理”这一功能,而对于管理员类型的用户,则没有此限制。所以在MDIForm的Load事件中需要判断用户类型。
Private Sub MDIForm_Load()
   StatusBar.Panels(2).Text = "当前操作员:"

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

VB学生学籍管理系统(论文+源程序) 第5页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

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