亚洲春色中文字幕久久久-三上亚,91精品国产亚一区二区三区,久久久九色综合亚洲成色777,涩涩视频下载,国产午夜亚洲精品午夜鲁丝片,国产精品A一区二区三区腾讯导航,影音先锋色情AV在线看片,蜜臀国产在线视频,极品少妇高潮啪啪无码吴梦梦 ,精品人妻无码一区二区三区手机版

標題: 實驗室智能管理 [打印本頁]
作者: 董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.denmoz.com/bbs/) Powered by Discuz! X3.1