翻译代码分高分

来源：百度知道 编辑：UC知道 时间：2024/07/04 10:20:48
Dim sql As String
Dim rs As ADODB.Recordset

Private Sub cmdOK_Click()

End Sub

Private Sub cmdAdd_Click()
Set rs = New ADODB.Recordset
If Text1.Text = "" Then
MsgBox "请你输入要想添加的学生的学号以及相关的所有信息！", vbOKOnly + vbExclamation, "警告！"
Text1.SetFocus
Exit Sub
Else
sql = "select * from Student where Sno='" & Trim(Text1.Text)
sql = sql & "' and Sname='" & Trim(Text2.Text) & "' and Ssex='"
sql = sql & Trim(Text3.Text) & "' and Sage='" & Trim(Text4.Text)
sql = sql & "' and Splace='" & Trim(Text5.Text) & "' and Spolity='"
sql = sql & Trim(Text6.Text) & "' and Stime='" & Trim(Text7.Text)
sql = sql & "' and Steleph='" & Trim(Text8.Text) & "'"
Set rs = TransactSQL(sql)
If rs.EOF = False

Dim sql As String
Dim rs As ADODB.Recordset
;这是一个ok按钮单击事件，但是没有做处理
Private Sub cmdOK_Click()

End Sub

;这是一个增加操作的按钮单击事件
Private Sub cmdAdd_Click()
Set rs = New ADODB.Recordset
;如果没有输入想添加的学生的学号以及相关的所有信息则退出
If Text1.Text = "" Then
MsgBox "请你输入要想添加的学生的学号以及相关的所有信息！", vbOKOnly + vbExclamation, "警告！"
Text1.SetFocus
Exit Sub
Else
;如果信息已经输入则构造sql语句存放于定义好的全局变量sql中
;这个sql语句的意思是要从student表中查找符合先前输入的信息中所提条件的记录
sql = "select * from Student where Sno='" & Trim(Text1.Text)
sql = sql & "' and Sname='" & Trim(Text2.Text) & "' and Ssex='"
sql = sql & Trim(Text3.Text) & "' and Sage='" & Trim(Text4.Text)
sql = sql & "' and Splace='" & Trim(Text5.Text) & "' and Spolity='"
sql = sql & Trim(Text6.Text) & "' and Stime='" & Tr