亚洲春色中文字幕久久久-三上亚,一吻二脱三床四吻胸,国产真实伦对白视频全集,在线毛片观看,精品成品入口黄网,国产毛aⅴ片久久久,亚洲AV色香蕉一区二区三区老师,萧皇后A级艳片,色情日本视频更新,99久久亚洲精品日本无码

<nav id="ou8qa"></nav>

標題: 實驗室智能管理 [打印本頁]

作者: 董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/)