《Visual Basic程序设计基础》习题参考答案(11)

Private Sub Text5_Validate(Cancel As Boolean) If vlt = True Then Cancel = False Else

MsgBox \课程号重号，重新输入！\输入验证！\Cancel = True End If End Sub

Private Sub Text11_KeyDown(KeyCode As Integer, Shift As Integer) Dim xh As String

If KeyCode = vbKeyReturn Then Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Find \学号='\ If Not Adodc1.Recordset.EOF Then

Adodc3.Recordset(\学号\= Text11.Text: SendKeys \vlt = True Else

MsgBox \学号不存在，重新输入！\输入验证！\

vlt = False: Text11.SelStart = 0: Text11.SelLength = Len(Text11.Text) End If

Adodc1.Recordset.MoveFirst End If End Sub

Private Sub Text11_Validate(Cancel As Boolean) If vlt = True Then Cancel = False Else

MsgBox \学号不存在，重新输入！\输入验证！\Cancel = True End If End Sub

Private Sub Text12_KeyDown(KeyCode As Integer, Shift As Integer) Dim kch As String

If KeyCode = vbKeyReturn Then Adodc2.Recordset.MoveFirst

Adodc2.Recordset.Find \课程号='\ If Not Adodc2.Recordset.EOF Then

Adodc3.Recordset(\课程号\= Text12.Text: SendKeys \vlt = True Else

MsgBox \课程号不存在，重新输入！\输入验证！\

vlt=False:Text12.SelStart=0:Text12.SelLength= Len(Text12.Text) End If

Adodc2.Recordset.MoveFirst End If End Sub

Private Sub Text12_Validate(Cancel As Boolean) If vlt = True Then Cancel = False Else

MsgBox \课程号不存在，重新输入！\输入验证！\End If End Sub