作者在 2013-06-08 13:00:22 发布以下内容
Private Sub cmd1_Click()
Dim MESSAGE As String
' Adodc1.RecordSource = "select * from ma where (ma.操作员 like " + Chr(34) + Combo1.Text + Chr(34) + ")"
' Adodc1.Refresh
Adodc1.RecordSource = "select * from ma where 操作员='" + Combo1.Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
If Combo1.Text <> "" And Trim(Text2.Text) = Trim(Text1.Text) Then
frm_main.StatusBar1.Panels(2).Text = "当前系统用户：" & Trim(Combo1.Text)
Name1 = Trim(Combo1.Text)
frm_main.Check1.Value = Adodc1.Recordset.Fields("基本信息管理")
frm_main.Check2.Value = Adodc1.Recordset.Fields("客户信息管理")
frm_main.Check3.Value = Adodc1.Recordset.Fields("客户信息查询")
frm_main.Check4.Value = Adodc1.Recordset.Fields("系统设置")
Load frm_main
frm_main.Show
Unload Me
Else
MsgBox "没有此操作员的信息或者输入的密码错误,请您确认后重新输入"
Text2.Text = ""
Text2.SetFocus
End If
Else
MsgBox "没有此操作员的信息或者输入的密码错误,请您确认后重新输入"
Combo1.Text = ""
Text2.Text = "'"
Combo1.SetFocus
End If
End Sub
大家帮忙看下这个代码的正确登录名和密码是什么？？