VB财务管理系统

 该模块是系统运行的第一个界面,必需先进行身份验证才能进入系统,该模块主要由两个文本框和两个按钮组成。其实现的代码主要如下所示：

If username.Text.ToString.Trim = "" Or pwd.Text.ToString.Trim = "" Then

            MsgBox("请填写完整")

        Else

            Dim sql As String

            sql = "select * from allusers where username=''" + username.Text.ToString().Trim() + "'' and pwd=''" + pwd.Text.ToString().Trim + "''"

            result = GetDataFromDB(sql)

            If result.Tables(0).Rows.Count > 0 Then

                nUserName = username.Text.ToString.Trim

                shenfen = result.Tables(0).Rows(0)("cx").ToString.Trim

                MsgBox("登陆成功")

                zjm.Show()

                Me.Hide()

            End If

        End If

如果用户名或密码为空则系统会给出相应提示；正常登陆后，系统会通过两个全局变量（nusername和shenfen）来记录当前的用户名和权限。

本文选自http://myeducs.cn

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167