實驗室智能管理
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
| 
