求高人代码注释

显示全部楼层 · 2011-6-26 04:10:42

PrivateSubCmdCancel_Click()
UnloadMe
EndSub

PrivateSubCmdOK_Click()
IfTxtAccount.Text\"\"Then
DimBAsBoolean
AdoAccountAdd.Recordset.MoveFirst
DoWhileAdoAccountAdd.Recordset.EOF=False
IfTxtAccount.Text=AdoAccountAdd.Recordset(0).ValueThen
B=True
ExitDo
EndIf
AdoAccountAdd.Recordset.MoveNext
Loop
IfB=FalseThen
IfTxtPassword.Text=TxtPasswordAgain.TextThen
AdoAccountAdd.Recordset.AddNew
AdoAccountAdd.Recordset(0).Value=TxtAccount.Text
AdoAccountAdd.Recordset(1).Value=TxtPassword.Text
AdoAccountAdd.Recordset.Update
MsgBox\"帐户“\"TxtPasswordAgain.TextThen
MsgBox\"两次输入的密码不相同，请重新输入。\",vbExclamation,\"密码\"
TxtPassword.Text=\"\"
TxtPasswordAgain.Text=\"\"
TxtPassword.SetFocus
EndIf
ElseIfB=TrueThen
MsgBox\"此帐户已经存在，请重新选择帐户。\",vbExclamation,\"新帐户\"
EndIf
ElseIfTxtAccount.Text=\"\"Then
MsgBox\"请输入新帐户。\",vbExclamation,\"新帐户\"
TxtAccount.SetFocus
EndIf
EndSub

PrivateSubForm_Load()
AdoAccountAdd.ConnectionString=\"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=\"PersistSecurityInfo=False;JetOLEDB:DataBasePassword=172693620\"
AdoAccountAdd.RecordSource=\"Select*From帐户\"
AdoAccountAdd.Refresh
EndSub

千问 · 2011-6-26 04:10:42

PrivateSubCmdCancel_Click()
UnloadMe\'关闭本窗体
EndSub

PrivateSubCmdOK_Click()
IfTxtAccount.Text\"\"Then\'验证TxtAccount填写的值是否为空
DimBAsBoolean\'定义一个布朗型变量B，存储用户名是否存在的结果
AdoAccountAdd.Recordset.MoveFirst\'数据集游标指向开始的第一条记录
DoWhileAdoAccountAdd.Recordset.EOF=False\'当数据集的游标不在最后一条之后，运行dowhile循环
IfTxtAccount.Text=AdoAccountAdd.Recordset(0).ValueThen\'判断TxtAccount填写的值是否与数据集中对应行的第1字段的值相同
B=True\'用户名在数据集中存在，置True
ExitDo\'退出dowhile循环
EndIf\'结束if语句
AdoAccountAdd.Recordset.MoveNext\'未退出循环时，数据集游标指向下一条记录
Loop\'跳到dowhile运行下一次循环
IfB=FalseThen\'如果用户名不在数据集里
IfTxtPassword.Text=TxtPasswordAgain.TextThen\'如果两次输入的密码相同
AdoAccountAdd.Recordset.AddNew\'数据集添加一行记录
AdoAccountAdd.Recordset(0).Value=TxtAccount.Text\'新增行的第1字段值设为TxtAccount的值
AdoAccountAdd.Recordset(1).Value=TxtPassword.Text\'新增行的第2字段值设为TxtPassword的值
AdoAccountAdd.Recordset.Update\'更新数据集，如果数据集进行并AddNew，但没进行Update，那么数据集内容最终不会改变
MsgBox\"帐户“\"TxtPasswordAgain.TextThen\'如果两次输入的密码不相同
MsgBox\"两次输入的密码不相同，请重新输入。\",vbExclamation,\"密码\"\'弹出一个对话框，提示密码错误信息
TxtPassword.Text=\"\"\'置空字符串值
TxtPasswordAgain.Text=\"\"\'置空字符串值
TxtPassword.SetFocus\'把光标放到TxtPassword上
EndIf\'结束if语句
ElseIfB=TrueThen\'如果用户名已存在数据集里
MsgBox\"此帐户已经存在，请重新选择帐户。\",vbExclamation,\"新帐户\"\'弹出一个对话框，提示用户名错误信息
EndIf\'结束if语句
ElseIfTxtAccount.Text=\"\"Then\'如果TxtAccount填写的值为空
MsgBox\"请输入新帐户。\",vbExclamation,\"新帐户\"\'弹出一个对话框，提示用户名错误信息
TxtAccount.SetFocus\'把光标放到TxtAccount上
EndIf\'结束if语句
EndSub

PrivateSubForm_Load()
AdoAccountAdd.ConnectionString=\"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=\"PersistSecurityInfo=False;JetOLEDB:DataBasePassword=172693620\"\'定义数据连接串
AdoAccountAdd.RecordSource=\"Select*From帐户\"\'定义数据集数据来源
AdoAccountAdd.Refresh\'刷新数据集控件
EndSub