VB代码翻译

Question

由于要答辩,请帮我详细解释下面这段代码,最好能够逐行解释,多谢了,大家帮帮忙啊!
Private Sub ComdQuery_Click()
Dim SqlStr As String
Dim rsCheck As New Recordset
Dim sRoomID As String
Dim sMemberID As String
Dim dOTime As String

sRoomID = Trim(Me.CombRoomID.Text)
sMemberID = Trim(Me.CombMemberID.Text)

dOTime = Trim(Me.DTPicker1.Value)

SqlStr = "select CheckID as 帐单编号,OpenDate as 开房日期" & ",MemberID as 会员编号,ClientName as 客户姓名" & ",RoomID as 房间编号,RoomType as 房间类型" & ",RoomPrice as 房间价格,OpenRoomTime as 开房时间" & ",EndTime as 结束时间,Prepay as 预付金额" & ",Agio as 折扣,PayMode as 付款方式,RoomMoney as 消费金额 " & "from CheckInfo where RoomID like " & "" & " '%" & sRoomID & "%'" & "and MemberID like " & "'%" & sMemberID & "%'" & "and OpenDate ='" & dOTime & "'"

Set rsCheck = Conn.Execute(SqlStr)

Set DataGrid1.DataSource = rsCheck

Set rsCheck = Nothing
End Sub

Private Sub Form_Load()
Me.Top = (Screen.Height - Me.Height) / 2 '垂直方向居中
Me.Left = (Screen.Width - Me.Height) / 2 '水平方向居中

With Conn
Conn.CursorLocation = adUseClient
Conn.CommandTimeout = 10
Conn.ConnectionString = g_ConnStr
Conn.Open

End With

Dim SqlStr As String
Dim rsDestine As New Recordset

SqlStr = "select CheckID as 帐单编号,OpenDate as 开房日期" & ",MemberID as 会员编号,ClientName as 客户姓名" & ",RoomID as 房间编号,RoomType as 房间类型" & ",RoomPrice as 房间价格,OpenRoomTime as 开房时间" & ",EndTime as 结束时间,Agio as 折扣,Prepay as 预付金额" & ",PayMode as 付款方式,RoomMoney as 消费金额 from CheckInfo"
Set rsDestine = Conn.Execute(SqlStr)
Me.DataGrid1.ColumnHeaders = True
Set DataGrid1.DataSource = rsDestine
Set rsDestine = Nothing

'从数据库中读取数据写入房间编号下拉列表框
Dim adoRs As New ADODB.Recordset
Dim DBStr As String
DBStr = "select RoomID from RoomInfo "
adoRs.Open DBStr, Conn, adOpenStatic, adLockReadOnly

If adoRs.RecordCount > 0 Then
adoRs.MoveFirst

Do While Not adoRs.EOF
CombRoomID.AddItem adoRs.Fields(0).Value
adoRs.MoveNext
Loop

End If

adoRs.Close
Set adoRs = Nothing

'从数据库中读取数据写入会员编号下拉列表框
Dim adoMemIDRs As New ADODB.Recordset
DBStr = "select MemberID from MemberInfo"
adoMemIDRs.Open DBStr, Conn, adOpenStatic, adLockReadOnly

If adoMemIDRs.RecordCount > 0 Then
adoMemIDRs.MoveFirst

Do While Not adoMemIDRs.EOF
CombMemberID.AddItem adoMemIDRs.Fields(0).Value
adoMemIDRs.MoveNext
Loop

End If

adoMemIDRs.Close
Set adoMemIDRs = Nothing

End Sub

Answer 1

Private Sub ComdQuery_Click() '查询 数据库表格 然后显示在 DataGrid1的 表格控件上
Dim SqlStr As String
Dim rsCheck As New Recordset
Dim sRoomID As String
Dim sMemberID As String
Dim dOTime As String '变量声明

sRoomID = Trim(Me.CombRoomID.Text)
sMemberID = Trim(Me.CombMemberID.Text) '变量=窗体控件上的数据 （赋值）
dOTime = Trim(Me.DTPicker1.Value)

'这个数据库表格字段名 是英文写的，因此 查询显示时需要将其变为中文 这样才直观看。 这些臭长臭长 As 都是变换呢 后面的 Where 后面的句子 是条件语句 按照 房间号 啊 日期啊等等做条件来查的。
SqlStr = "select CheckID as 帐单编号,OpenDate as 开房日期" & ",MemberID as 会员编号,ClientName as 客户姓名" & ",RoomID as 房间编号,RoomType as 房间类型" & ",RoomPrice as 房间价格,OpenRoomTime as 开房时间" & ",EndTime as 结束时间,Prepay as 预付金额" & ",Agio as 折扣,PayMode as 付款方式,RoomMoney as 消费金额 " & "from CheckInfo where RoomID like " & "" & " '%" & sRoomID & "%'" & "and MemberID like " & "'%" & sMemberID & "%'" & "and OpenDate ='" & dOTime & "'"

Set rsCheck = Conn.Execute(SqlStr) '让SQL 连接执行刚才的语句。

Set DataGrid1.DataSource = rsCheck '让DataGrid1表格控件绑定检索返回 来显示到界面上。

Set rsCheck = Nothing '注销刚才的连接

End Sub

Private Sub Form_Load()
Me.Top = (Screen.Height - Me.Height) / 2 '垂直方向居中
Me.Left = (Screen.Width - Me.Height) / 2 '水平方向居中

With Conn
Conn.CursorLocation = adUseClient
Conn.CommandTimeout = 10
Conn.ConnectionString = g_ConnStr '打开数据库连接
Conn.Open

End With

Dim SqlStr As String
Dim rsDestine As New Recordset '和上面的一样

SqlStr = "select CheckID as 帐单编号,OpenDate as 开房日期" & ",MemberID as 会员编号,ClientName as 客户姓名" & ",RoomID as 房间编号,RoomType as 房间类型" & ",RoomPrice as 房间价格,OpenRoomTime as 开房时间" & ",EndTime as 结束时间,Agio as 折扣,Prepay as 预付金额" & ",PayMode as 付款方式,RoomMoney as 消费金额 from CheckInfo"
Set rsDestine = Conn.Execute(SqlStr)
Me.DataGrid1.ColumnHeaders = True
Set DataGrid1.DataSource = rsDestine
Set rsDestine = Nothing

'从数据库中读取数据写入房间编号下拉列表框
Dim adoRs As New ADODB.Recordset '不知道这代码谁写，一个连接就行了搞这么多
Dim DBStr As String '上面的查询完毕 关闭再连接就是了 这样搞 还要重新
DBStr = "select RoomID from RoomInfo " '声明变量 再连接， 吃饱了撑的。
adoRs.Open DBStr, Conn, adOpenStatic, adLockReadOnly
'如果需要我给你重写一下 这么长 其实都是一样的
If adoRs.RecordCount > 0 Then '只是查询的表不同吧了。
adoRs.MoveFirst

Do While Not adoRs.EOF '循环读取所有数据 然后添加到 名字叫 CombRoomID 的 ComboBox中
CombRoomID.AddItem adoRs.Fields(0).Value
adoRs.MoveNext '下一条 直道没有 就不Loop了
Loop

End If

adoRs.Close
Set adoRs = Nothing

'从数据库中读取数据写入会员编号下拉列表框
Dim adoMemIDRs As New ADODB.Recordset
DBStr = "select MemberID from MemberInfo" '这和前面的一样 变量名变变吧了。
adoMemIDRs.Open DBStr, Conn, adOpenStatic, adLockReadOnly

If adoMemIDRs.RecordCount > 0 Then
adoMemIDRs.MoveFirst

Do While Not adoMemIDRs.EOF
CombMemberID.AddItem adoMemIDRs.Fields(0).Value
adoMemIDRs.MoveNext
Loop

End If

adoMemIDRs.Close
Set adoMemIDRs = Nothing

End Sub