Question

VB中密码修改代码解释

Private Sub ShowMSH()

Dim rs As New ADODB.Recordset
rs.Open "select * from 用户", Cnn

Set MSH.DataSource = rs

MSH.ColWidth(0) = 1100
MSH.ColWidth(1) = 0
MSH.ColWidth(2) = 1100

rs.Close
Set rs = Nothing

End Sub

Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
ADDYH
Case 1
UPTYH
Case 2
DELYH

Case 4
Unload Me
End Select
End Sub

Private Sub Form_Load()
ShowMSH

请逐一分析，谢谢

Answer 1

没啥好分析的，你给出的代码不是核心代码；
第一段ShowMSH过程那里是查询数据显示到MSH；
第二段就是根据你点击的按钮执行相应的过程；
ADDYH UPTYH DELYH 这些过程才是核心。

追问

第二段代码中能帮我逐一分析一下？就是每段代码的注释，这段代码看不懂，case是什么意思，Select Case Index这是固定用法？

追答

嗯，固定用法。

select case 条件
    case 条件1
        '做某事
    case 条件2
        '做某事
    。。。
    case else(可以省略)
        ’
end select

相当于
if 条件=条件1 then

elseif 条件=条件2 then

...
else(可以省略)

end if

 如果条件很多，用select  case语句看起来清晰一点，代码也少