久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

標題: 實驗室智能管理 [打印本頁]
作者: 董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://m.zg4o1577.cn/bbs/) Powered by Discuz! X3.1
主站蜘蛛池模板： 亚洲欧美日韩一区二区三区四区 | 黄色成人在线视频 | 亚洲黄色免费 | 欧美日韩毛片 | 国内精品偷拍 | 亚洲高清视频在线 | 中文字幕www| 天天爽天天操 | 欧美日韩免费在线 | 午夜一级视频 | 午夜亚洲精品 | 天天操天天干天天 | 久久精品av | 中文字字幕| 色婷婷av一区二区三区之e本道 | 亚洲成年人在线观看 | 久久精品视频网 | 黄色三级在线观看 | 成人黄性视频 | 国产欧美在线观看 | 成人小网站 | 一区二区三区不卡视频 | 精品久久一区二区三区 | 黄色片免费观看 | 正在播放国产精品 | 婷婷视频在线 | 欧美日韩在线免费 | 国产一区中文字幕 | 国产精品久久久久久久成人午夜 | 国产三级黄色片 | 日韩理论视频 | 久久精品小视频 | 久久久婷婷 | 午夜国产福利 | 久久一区 | 日韩一区二区在线播放 | 国产成人精品一区 | 欧美顶级黄色大片免费 | 亚洲一级二级三级 | 我要看一级黄色片 | 黄色三级免费 |