帮我详细解释下面的每一个语句,VB编程

来源:百度知道 编辑:UC知道 时间:2024/09/23 02:21:57
lse
Command1.Caption = "添加"
If Trim(Text1.Text) = "" Then
Text1.SetFocus
Exit Sub
End If
Adodc1.Recordset.Update
Adodc1.Refresh
Adodc1.RecordSource = ss
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
End If
End Sub

Command1.Caption = "添加" //按钮为添加
If Trim(Text1.Text) = "" Then //以下为如果text1的内容为空,光标停在text1
Text1.SetFocus
Exit Sub //退出过程
End If
Adodc1.Recordset.Update //更新记录
Adodc1.Refresh //刷新记录
Adodc1.RecordSource = ss
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1 //DataGrid1的数据源为adodc1
DataGrid1.Refresh //刷新
Text1.Enabled = False //text1、2...不可用,下同
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
End If
End Sub

Command1.Caption = "添加" //按钮为添加
If Trim(Text1.Text) = "" Then //以下为如果text1的内容为空text1
Text1.SetFocus //关标停留在text1
Exit Sub //退出过程
End If
Adodc1.Recordset.Update //更新记录
Adodc1.Refresh //刷新记录
Adodc1.RecordSource = ss //设置Adodc1的RecordSource属性为ss
Adodc1.Refresh //刷新记录 <