VB数据代码翻译

来源：百度知道 编辑：UC知道 时间：2024/06/07 20:50:17
Private Sub Command1_Click()
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "帐号='" & Trim(Text1.Text) & "'"
If Data1.Recordset.NoMatch Then
MsgBox "没有此用户", 48, "提示"
Else
Data1.Recordset.FindFirst "密码='" & Trim(Text2.Text) & "'"
If Data1.Recordset.NoMatch Then
MsgBox "密码错误", 48, "提示"
Text2.SetFocus
Else
Form1.Hide
Form2.Show
End If
End If
End Sub

帮忙翻译下.

Private Sub Command1_Click()
Data1.Recordset.MoveFirst '移动到第一条记录
Data1.Recordset.FindFirst "帐号='" & Trim(Text1.Text) & "'" '从记录集中查找满足条件的第一条记录
If Data1.Recordset.NoMatch Then '当nomatch=true 就是没找到匹配记录则

MsgBox "没有此用户", 48, "提示" '弹出对话框
Else
Data1.Recordset.FindFirst "密码='" & Trim(Text2.Text) & "'" '如果有匹配就查找密码记录集第一条记录
If Data1.Recordset.NoMatch Then '同上。
MsgBox "密码错误", 48, "提示" '弹出 “密码错误”对话框
Text2.SetFocus '文本框2 设置焦点
Else '条件为假 执行以下代码
Form1.Hide '窗体1隐藏
Form2.Show '窗体2显示
End If
End If
End Sub

DATA这个东西太古老了
要不你去参考MSDN 那个比较实用