各位老铁们，大家好，今天由我来为大家分享vb写注册机代码，以及如何用vb做注册用户的相关问题知识，希望对大家有所帮助。
如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家了哈，下面我们开始吧！

本文目录

1. 如何用vb做注册用户
2. VB制作需要注册的软件
3. vb控件，类没有注册如何解决重装后还是不行

一、如何用vb做注册用户

VB编写一个可以注册帐号的登录系统步骤：

1）1）首先需要用数据库软件（如ACCESS软件）建立一个数据库，新建几个表，用以记录帐号密码的表、登录日志表和其他与此有关的所需要的表等。

2）VB新建数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

3）然后在FORM1窗体中添加ADO数据控件，右键-ADODC1控件属性页-使用连接字符串，选生成，在提供者选项中选合适的OLEDB连接数据库等。
在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。

ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。
该窗口的SQL语句可复制到程序代码用于编程。

4）可以将SQL查询语句赋值给ADO数据控件的RecordSource属性实现。

5）数据的输入、修改等可灵活应用文本框或数据表格控件与ADO数据控件通过代码绑定。

6）想使用ADO数据对象，也可将ADO数据控件所写的代码较方便的移植给ADO数据对象。

以下是用ADO数据对象编写的登录和注册的代码：

PubliccnAsNewADODB.Connection'定义数据库的连接存放数据和代码

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13AndText1<>""Then

sql="select*from用户管理where用户名='"&Text1.Text&"'"'and密码='"&Text2.Text&"'"

cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"datadata.mdb;PersistSecurityInfo=False"

rs.CursorLocation=adUseClient

rs.Opensql,cn,adOpenDynamic,adLockOptimistic

Ifrs.EOF=TrueThen'没有该用户名可以注册

MsgBox"该用户名已经存在，换名注册!"

PrivateSubText2_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13AndText2<>""Then

PrivateSubText3_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13AndText3.Text=Text2.TextThen

ElseIfKeyAscii=13AndText3.Text<>Text2.TextThen

cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"datadata.mdb;PersistSecurityInfo=False"

rs.CursorLocation=adUseClient

rs.Opensql,cn,adOpenDynamic,adLockOptimistic

OnErrorGoTofinish'防错代码，防止意外而导致的退出

sql="select*from用户管理where用户名='"&Text1.Text&"'and密码='"&Text2.Text&"'"

cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"datadata.mdb;PersistSecurityInfo=False"

rs.CursorLocation=adUseClient

rs.Opensql,cn,adOpenDynamic,adLockOptimistic

'以上使用最通用的方法来查询数据库中是否有匹配的记录

Ifrs.EOF=TrueThen'如果没有记录则说明用户或密码为错误的

Ifpnum<2Then'pnum就是密码验证次数，当次数超过3次，系统会自动保护退出

MsgBox"用户名或密码错误!",vbInformation,"错误次数："&pnum

MsgBox"用户名或密码错误超过三次,系统会自动退出",vbInformation,"提示"

PrivateSubText2_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then'获取按键，如果是回车就运行image_click按钮的内容

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

二、VB制作需要注册的软件

在VBE（就是office自带的原生编辑器）中编辑使用的代码简称vba。
环境简单方便易得，即写即用。
使用最简单。

将vba代码复制到vb6中修改加工开发成加载项的方式，我一般看作VB6TO。
一般需要注册后使用，使用较简单。

将vba代码复制到vs中，用vs开发加载项的方式称为VSTO，VSTO=VisualStudioToolsforOffice。
一般需要提前装.net环境，加载使用。

office加载项包含VB6TO、VSTO。
由于VSTO需要.net(需提前分别安装：vsto组件、.net框架)的支持，不同VS版本开发的VSTO对应支持相应版本的Office。

一般先用vba实现功能，再出于保护代码或便于移植等目的，再将代码复制到用vb6或vs中略加修改后，编译完成，注册加载使用。

三、vb控件，类没有注册如何解决重装后还是不行

你在打包的时候，要把这些控件设置为“共享不删除”，否则你在自己机器上卸载后，你的VB打开就找不到控件了。
这问题我遇到过的。

OK，本文到此结束，希望对大家有所帮助。