StatusBar不显示作者和权限 - 编程论坛

#2

lowxiong2013-05-11 17:10

查查变量user111和sup是在哪儿赋值的，肯定是未赋值。一般是在登录窗口中赋值，估计是数据库未正确连接造成的。

#3

益西翁登2013-05-11 17:51

lowxiong老师说的肯定对

#4

lee重2013-05-14 12:13

谢谢啊，我自己再看一下

#5

lee重2013-05-14 12:36

回复 2楼 lowxiong

已经赋值了，下边是连接数据库的代码和登录按钮的代码，数据库连接是在模块里，麻烦帮我看一下
Public cnn As New ADODB.Connection '新建一个数据源
Public qy1 As New ADODB.Recordset '数据一个记录集
Public qy2 As New ADODB.Recordset '数据一个记录集
Sub Main()
    tkOpenAccessDB App.Path & "\MIS.mdb" '连接数据库
If qy1.State = adStateOpen Then '表状态
    qy1.Close
End If
    qy1.Open "select * from 密码表", cnn, adOpenStatic, adLockReadOnly, adCmdText '查询表内是否有数据
If qy1.RecordCount = 0 Then
    Set qy1 = cnn.Execute("insert into 密码表 values('admin','admin','经理')") '表内无数据执行此语句新建用户
End If
登录Frm.Show
End Sub
Private Sub tkOpenAccessDB( _
        tkFileName As String, _
        Optional tkUserID As String, _
        Optional tkPassword As String _
    ) '连接数据库参数
        On Error GoTo tkFinish
        cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & tkFileName & ";" & _
        "Mode=Share Deny None;" & _
        "Extended Properties=;" & _
        "Jet OLEDB:System database=;" & _
        "Jet OLEDB:Registry Path=;" & _
        "Jet OLEDB:Database Password=;" & _
        "Jet OLEDB:Engine Type=5;" & _
        "Jet OLEDB:Database Locking Mode=1;" & _
        "Jet OLEDB:Global Partial Bulk Ops=2;" & _
        "Jet OLEDB:Global Bulk Transactions=1;" & _
        "Jet OLEDB:New Database Password=;" & _
        "Jet OLEDB:Create System Database=False;" & _
        "Jet OLEDB:Encrypt Database=False;" & _
        "Jet OLEDB:Don't Copy Locale on Compact=False;" & _
        "Jet OLEDB:Compact Without Replica Repair=False;" & _
        "Jet OLEDB:SFP=False;" & _
        tkUserID, _
        tkPassword
        Exit Sub
tkFinish:
    MsgBox Err.Description
    End
   End Sub

这是登录按钮的程序

程序代码：

Private Sub Command1_Click()
    On Error GoTo finish
        User = Text1.Text
   Set mdbrs = cnn.Execute("select * from 密码表 where 用户名称='" & Text1.Text & "' and 密码='" & Text2.Text & "'")
    If mdbrs.EOF = True Then
        Text1.Text = ""
        Text2.Text = ""
        Text1.SetFocus
        MsgBox "用户名和密码不正确！！"
    Else
        user111 = mdbrs.Fields(0)
        sup = mdbrs.Fields(2)
        If mdbrs.Fields(2) = "经理" Then
            chair = True
        End If
        If mdbrs.Fields(2) = "管理员" Then
            workman = True
        End If
        If mdbrs.Fields(2) = "客户" Then
            cust = True
       End If
    Unload Me
    MDIForm1.Show
    End If
    Exit Sub
finish:
    MsgBox Err.Description
End Sub

#6

lowxiong2013-05-14 14:25

那你查查模块里有没有定义全局变量user111和sup，应该是下述语句：
Public user111 As String,sup As String
或者把MDIForm_Load事件中的语句移到“登录Frm”窗口中的“Command1_Click”事件中的MDIForm1.Show语句后执行，即
Private Sub Command1_Click()
    On Error GoTo finish
......   '此处省略部分语句
    MDIForm1.Show
    MDIForm1.StatusBar1.SimpleText = "  今天是" & Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日 , 欢迎您使用加油站客户信息管理系统 !" & "        当前操作者:" & user111 & "    权限:" & sup
    End If
    Exit Sub
finish:
    MsgBox Err.Description
End Sub

#7

lee重2013-05-14 14:55

回复 6楼 lowxiong

谢谢了，用你的方法解决了