标题: 实验室智能管理 [打印本页]

---

作者: 董DD    时间: 2017-5-25 21:41
标题: 实验室智能管理
实验室智能管理

Private Sub Command1_Click()

Dim MPassword As String

      Adodc1.RecordSource = "select * from user_info where user_id ='" & Combo1.Text & "'"

       Adodc1.Refresh

        If Adodc1.Recordset.RecordCount > 0 Then

            MPassword = Adodc1.Recordset.Fields("user_password")

            If Text1.Text = MPassword Then

            qy = Adodc1.Recordset.Fields("user_qx")

                Form1.Show

                Unload Me

            Else

                MsgBox "密码不正确,请您确认后重新输入", , "提示信息"

                Text1.Text = ""

                Text1.SetFocus

            End If

        Else

            MsgBox "对不起 没有此用户的信息", , "提示信息"

          Combo1.Text = ""

            Text1.Text = ""

        End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = PublicStr

    Adodc1.RecordSource = "select * from user_info"

    Adodc1.Refresh

    If Adodc1.Recordset.RecordCount > 0 Then

        Adodc1.Recordset.MoveFirst

      Combo1.Clear

        Do While Adodc1.Recordset.EOF = False

            Combo1.AddItem (Adodc1.Recordset.Fields("user_id"))

            Adodc1.Recordset.MoveNext

        Loop

    End If

End Sub

'Private Sub Text1_KeyPress(KeyAscii As Integer)

'If KeyAscii = 13 Then

'Call Command1_Click

'End If

'End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then

Call Command1_Click

End If

End Sub

---

欢迎光临 (http://www.51hei.com/bbs/)

Powered by Discuz! X3.1