根据登录的用户名密码搜索出ACCESS数据库中这一列的信息并分别显示到4个Label的Caption中。 - VB6论坛

楼主

已结贴√ 问题点数：15 回复次数：9

根据登录的用户名密码搜索出ACCESS数据库中这一列的信息并分别显示到4个Label的Caption中。

图片附件: 游客没有浏览图片的权限，请登录或注册

程序代码：

Private Sub Command1_Click()
'将数据库里的信息显示到LABEL中，筛选条件是根据登录时的用户密码，获取它相应的这一列信息

Dim conn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Aging.mdb " 'a.mdb是ACCESS数据库保存在程序目录下
rs1.Open "Select * From 注册 Where 用户='" & Form1.Text1.Text & "' and 密码='" & Form1.Text2.Text & "'", cn, 2, 3

Form3.Label1.Caption = rs1!用户
Form3.Label2.Caption = rs1!权限
Form3.Label4.Caption = rs1!所属
Form3.Label3.Caption = rs1!SHIFT别



rs1.Close
conn1.Close
Set rs1 = Nothing
Set conn1 = Nothing

搜索更多相关主题的帖子: 密码　登录　 Caption　数据库　信息　

第 2 楼

得分:0

想要实现这样的功能，请教各位大神指教，

补充下：
当前界面是FORM3，
登录界面是FORM1,

[此贴子已经被作者于2020-4-23 11:21编辑过]

第 3 楼

得分:0

回复 3楼 ZHRXJR

有问题的那条该怎么修改啊？

图片附件: 游客没有浏览图片的权限，请登录或注册

[此贴子已经被作者于2020-4-23 11:53编辑过]

第 4 楼

得分:0

回复 5楼 ZHRXJR

刚刚试了，达不到效果，还是空白，而且提示语法错误，

图片附件: 游客没有浏览图片的权限，请登录或注册

[此贴子已经被作者于2020-4-23 13:24编辑过]

第 5 楼

得分:0

回复 7楼 ZHRXJR

程序代码：


Private Sub Form_Load()
Form3.Image4.Picture = Form2.Image7.Picture

Form3.Image1.Picture = Form2.Image8.Picture

Form3.Image2.Picture = Form2.Image10.Picture

Form3.Image3.Picture = Form2.Image12.Picture

Form3.Image5.Picture = Form2.Image14.Picture

Form3.Image6.Picture = Form2.Image16.Picture

Form3.Image7.Picture = Form2.Image18.Picture

Form3.Image8.Picture = Form2.Image20.Picture

Form3.Image9.Picture = Form2.Image20.Picture

Form3.Image10.Picture = Form2.Image22.Picture

Form3.Image11.Picture = Form2.Image24.Picture

Form3.Image12.Picture = Form2.Image26.Picture

Form3.Image13.Picture = Form2.Image28.Picture


Form3.Label5.Caption = Date

Form3.Label6.Caption = Time


rs1.Open "Select * From 注册 Where 用户='" & YHMC & "' and 密码='" & YHMM & "'", cn, 2, 3



End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form3.Image1.Picture = Form2.Image8.Picture

Form3.Image2.Picture = Form2.Image10.Picture

Form3.Image3.Picture = Form2.Image12.Picture

Form3.Image5.Picture = Form2.Image14.Picture

Form3.Image6.Picture = Form2.Image16.Picture

Form3.Image7.Picture = Form2.Image18.Picture

Form3.Image8.Picture = Form2.Image20.Picture

Form3.Image9.Picture = Form2.Image20.Picture

Form3.Image10.Picture = Form2.Image22.Picture

Form3.Image11.Picture = Form2.Image24.Picture

Form3.Image12.Picture = Form2.Image26.Picture

Form3.Image13.Picture = Form2.Image28.Picture


End Sub

Private Sub Image1_Click()
Form6.Show
Form3.Hide

End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form3.Image1.Picture = Form2.Image9.Picture
Form3.Image2.Picture = Form2.Image10.Picture



End Sub

Private Sub Image10_Click()
Form3.Hide

Form4.Show

End Sub

Private Sub Image10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form3.Image10.Picture = Form2.Image23.Picture

End Sub

Private Sub Image11_Click()
Form9.Show
Form3.Hide

End Sub

Private Sub Image11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form3.Image11.Picture = Form2.Image25.Picture

End Sub

Private Sub Image12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form3.Image12.Picture = Form2.Image27.Picture

End Sub

Private Sub Image13_Click()


Form3.Hide
Form1.Show
Form1.Text1.Text = ""
Form1.Text2.Text = ""
Form1.Text1.SetFocus



End Sub

Private Sub Image13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form3.Image13.Picture = Form2.Image29.Picture

End Sub

Private Sub Image2_Click()
Form7.Show
Form3.Hide

End Sub

Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form3.Image2.Picture = Form2.Image11.Picture
'Form3.Image1.Picture = Form2.Image8.Picture
End Sub

Private Sub Image3_Click()
Form5.Show
Form3.Hide


End Sub

Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form3.Image3.Picture = Form2.Image13.Picture
End Sub

Private Sub Image4_Click()
End

End Sub

Private Sub Image5_Click()
Form6.Show
Form3.Hide
End Sub

Private Sub Image5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form3.Image5.Picture = Form2.Image15.Picture

End Sub

Private Sub Image6_Click()
Form6.Show
Form3.Hide
End Sub

Private Sub Image6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form3.Image6.Picture = Form2.Image17.Picture

End Sub

Private Sub Image7_Click()
Form8.Show
Form3.Hide

End Sub

Private Sub Image7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form3.Image7.Picture = Form2.Image19.Picture

End Sub

Private Sub Image8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form3.Image8.Picture = Form2.Image21.Picture

End Sub

Private Sub Image9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form3.Image9.Picture = Form2.Image21.Picture

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

End Sub

Private Sub Timer1_Timer()
Form3.Label5.Caption = Date

Form3.Label6.Caption = Time
End Sub

第 6 楼

得分:0

回复 9楼 ZHRXJR

我觉得是不是我的思路就错了，
是不是可以这样，在RORM3里面建立一个隐藏的TEXT，在FORM1登录时，将FORM1.TEXT内容传给FORM3.TEXT，
在LOADING FOrmM时，再根据这个text内容进行查询并显示到LABEL里面，

这方案怎么样？

第 7 楼

得分:0

回复 9楼 ZHRXJR

程序代码：

Dim cn12 As New ADODB.Connection
Dim rs12 As New ADODB.Recordset
cn12.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Aging.mdb "

rs12.Open "Select * From 注册 Where 用户='" & Text1.Text & "', cn12, 2, 3"

   

 Form3.Label1.Caption = rs!用户

 Form3.Label2.Caption = rs!权限

 Form3.Label4.Caption = rs!班次

 Form3.Label3.Caption = rs!所属
    
            rs12.Close
            Set rs12 = Nothing
            cn12.Close
            Set cn12 = Nothing

 
            Exit Sub
     
rs12.Close
Set rs12 = Nothing
cn12.Close
Set cn12 = Nothing