vb语句翻译

Question

VB小白，需要使用如下代码，跪求高手逐句解释下，感谢。代码出自微软access的罗斯文数据库订单明细窗体。

Option Compare Database
Option Explicit

Sub SetDefaultShippingAddress()
If IsNull(Me![客户 ID]) Then
ClearShippingAddress
Else

Dim rsw As New 记录集封装程序
If rsw.OpenRecordset("客户扩展信息", "[ID] = " & Me.Customer_ID) Then
With rsw.Recordset
Me![发货名称] = ![联系人姓名]
Me![发货地址] = ![地址]
Me![发货城市] = ![城市]
Me![发货省/市/自治区] = ![省/市/自治区]
Me![发货邮政编码] = ![邮政编码]
Me![发货国家/地区] = ![国家/地区]
End With
End If
End If
End Sub

Private Sub cmdDeleteOrder_Click()
If IsNull(Me![订单 ID]) Then
Beep
ElseIf Me![状态 ID] = Shipped_CustomerOrder Or Me![状态 ID] = Closed_CustomerOrder Then
MsgBoxOKOnly CannotCancelShippedOrder
ElseIf MsgBoxYesNo(CancelOrderConfirmPrompt) Then
If 客户订单.Delete(Me![订单 ID]) Then
MsgBoxOKOnly CancelOrderSuccess
eh.TryToCloseObject
Else
MsgBoxOKOnly CancelOrderFailure
End If
End If
End Sub

Private Sub cmdCompleteOrder_Click()
If Me![状态 ID] <> Shipped_CustomerOrder Then
MsgBoxOKOnly OrderMustBeShippedToClose
ElseIf ValidateOrder(Closed_CustomerOrder) Then
Me![状态 ID] = Closed_CustomerOrder
eh.TryToSaveRecord
MsgBoxOKOnly OrderMarkedClosed
SetFormState
End If
End Sub

Private Sub cmdCreateInvoice_Click()
Dim OrderID As Long
Dim InvoiceID As Long

OrderID = Nz(Me![订单 ID], 0)

' 如果已创建了发票，则优雅地退出
If 客户订单.IsInvoiced(OrderID) Then
If MsgBoxYesNo(OrderAlreadyInvoiced) Then
客户订单.PrintInvoice OrderID
End If
ElseIf ValidateOrder(Invoiced_CustomerOrder) Then

' 创建发票记录
If 客户订单.CreateInvoice(OrderID, 0, InvoiceID) Then
' 将所有订单项目标记为已开票
' 需要将库存状态从“已售”更改为“现有”
Dim rsw As New 记录集封装程序
With rsw.GetRecordsetClone(Me.sbfOrderDetails.Form.Recordset)
While Not .EOF
If Not IsNull(![库存 ID]) And ![状态 ID] = OnHold_OrderItemStatus Then
rsw.Edit
![状态 ID] = Invoiced_OrderItemStatus
rsw.Update
库存.HoldToSold ![库存 ID]
End If
rsw.MoveNext
Wend
End With

' 打印发票
客户订单.PrintInvoice OrderID

SetFormState
End If
End If
End Sub

Answer 1

选择比较数据库
　　选项显式
　　
　　子SetDefaultShippingAddress()
　　如果IsNull(我!(客户ID])
　　ClearShippingAddress
　　其他的
　　
　　昏暗的rsw新记录集封装程序
　　如果rsw。OpenRecordset(“客户扩展信息”,“[ID]= " & Me.Customer_ID)
　　与rsw.Recordset
　　我!(发的货名称]= ![联系人姓名)
　　我!(发货地址]= ![地址)
　　我!(发货城市]= ![城市)
　　我!(发货省/市/自治区)= !(省/市/自治区)
　　我!(发货邮政编码]= ![邮政编码)
　　我!(发货国家/地区]= ![国家/地区)
　　结尾
　　如果结束
　　如果结束
　　终止子
　　
　　私人潜艇cmdDeleteOrder_Click()
　　如果IsNull(我!(订单ID])
　　哔哔的声音
　　ElseIf我![状态ID]= Shipped_CustomerOrder或我