求助注册程序

应用程序的注册程序,不知道怎么写？请高手支招！谢谢！ 问题点数：20、回复次数：1Top

1 楼jxm505（一鸣惊人）回复于 2006-03-06 16:26:20 得分 20

Private   Sub   Command1_Click()       '用户重复检测按钮代码：  
  Dim   a,   b  
  Dim   re4   As   New   ADODB.Recordset  
  re4.Open   "select   用户名   from   yhm   where   用户名='"   &   Text1.Text   &   "'",   cnn,   adOpenStatic,   adLockPessimistic  
  If   re4.EOF   Then  
  a   =   MsgBox("恭喜你，你可以使用该用户名！",   vbExclamation,   "提示")  
  Else  
  b   =   MsgBox("对不起，该用户名已经存在！",   vbExclamation,   "提示")  
  End   If  
  End   Sub  
   
  Private   Sub   Command2_Click()           ‘注册按钮代码  
  Dim   a,   b  
  If   Text2.Text   <>   Text3.Text   Then  
  a   =   MsgBox("两次输入的密码不一致，请重新输入！",   vbExclamation,   "提示")  
  Else  
  b   =   MsgBox("注册成功！",   vbExclamation,   "提示")  
  re4.Open   "yhm",   cnn,   adOpenStatic,   adLockPessimistic  
  re4.AddNew  
  re4.Fields("用户名").Value   =   Text1.Text  
  re4.Fields("密码").Value   =   Text2.Text  
  re4.Update  
  xglyzc.Hide  
  End   If  
  End   SubTop

相关问题

• 用户
• 注册
• vbexclamation
• 提示
• msgbox
• 用户名
• re
• sub
• text

• 帖主：zimei
• jxm505

• Visual Basic类图书
• Visual Basic类源码下载