vb编程软件怎么写

㈠ 怎样用VB编写一个登陆系统，可以注册账号的那种

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

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

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

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

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

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

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

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

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

1）标准模块代码：

OptionExplicit
PublicloginnameAsString
PubliccnAsNewADODB.Connection'定义数据库的连接存放数据和代码
PublicrsAsNewADODB.Recordset
PublicsqlAsString
PublicNewnameAsString

2）注册窗体代码：

OptionExplicit
DimPasswordAsString

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"
cn.Open
rs.CursorLocation=adUseClient
rs.Opensql,cn,adOpenDynamic,adLockOptimistic
Ifrs.EOF=TrueThen'没有该用户名可以注册
MsgBox"用户名可以注册!"
rs.Close
cn.Close
Newname=Text1.Text
Text4=Newname
Text2.SetFocus
Else
MsgBox"该用户名已经存在，换名注册!"
Text1.Text=""
Text1.SetFocus
EndIf
EndIf
ExitSub
finish:
MsgBoxErr.Description
EndSub

PrivateSubText2_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13AndText2<>""Then
Password=Text2.Text
Text5=Password
Text3.SetFocus
EndIf
EndSub

PrivateSubText3_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13AndText3.Text=Text2.TextThen
Command3.Enabled=True
Command3.SetFocus
ElseIfKeyAscii=13AndText3.Text<>Text2.TextThen
Text3=""
Text3.SetFocus
EndIf
EndSub

PrivateSubCommand1_Click()
UnloadMe
EndSub

PrivateSubCommand3_Click()
sql="select*from用户管理"
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"datadata.mdb;PersistSecurityInfo=False"
cn.Open
rs.CursorLocation=adUseClient
rs.Opensql,cn,adOpenDynamic,adLockOptimistic
rs.AddNew
rs.Fields(0)=Newname
rs.Fields(1)=Password
rs.Update
rs.Close
cn.Close
Command3.Enabled=False
EndSub

3）登录窗体代码：

OptionExplicit
DimpnumAsInteger

PrivateSubCommand1_Click()
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"
cn.Open
rs.CursorLocation=adUseClient
rs.Opensql,cn,adOpenDynamic,adLockOptimistic
'以上使用最通用的方法来查询数据库中是否有匹配的记录
Ifrs.EOF=TrueThen'如果没有记录则说明用户或密码为错误的
Ifpnum<2Then'pnum就是密码验证次数，当次数超过3次，系统会自动保护退出
pnum=pnum+1
MsgBox"用户名或密码错误!",vbInformation,"错误次数："&pnum
rs.Close
cn.Close
Text1.Text=""
Text2.Text=""
Text1.SetFocus
ExitSub
Else
MsgBox"用户名或密码错误超过三次,系统会自动退出",vbInformation,"提示"
End
EndIf
Else
loginname=rs.Fields(0)
Form1.Show
rs.Close
cn.Close
EndIf
ExitSub
finish:
MsgBoxErr.Description
rs.Close
cn.Close
EndSub

PrivateSubText2_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then'获取按键，如果是回车就运行image_click按钮的内容
CallCommand1_Click
EndIf
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Text2.SetFocus
EndIf
EndSub

PrivateSubCommand2_Click()
End
EndSub

PrivateSubCommand3_Click()
frmZhuce.Show
EndSub

㈡ 怎么通过VB设计一款数据库软件

数据库用VB6编程语言，对新手而言，如何用好ADODC控件和DATAGRID控件相当重要。
具体做法：
新建数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件和引用。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
SQL查询语言主要结构为：
Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]
查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。
SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。
一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮控件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1控件，再添加ADODC1控件再添其他内容。
SQL查询语言多写多用就会熟练，以上供提问者参考。

㈢ 怎么用VB编程

对于初学者来说,先选择一种比较好入门的高级编程语言是极为关键的,否则就会如一头雾水,兴趣会被打消,方法如下:
1、选择VB，比较好入门，且是世界上80%的编e程人员在使用;
2、在电脑上安装VB
6.0的软件;
3、到书店买一本比较容易看懂的(图文并茂),有关VB基本操作与入门的书;
4、对VB有了一定了解后，再到书店买一本比较深入的书，学一些基本的编程;
5、深入提高:自己可以按特定的方面试编写一些比较感兴趣的小或中等编程;
学编程是要有一定的意志方可成大器，相信你定会学好的!

㈣ 我是VB初学者，但是现在有个程序需要用MICROSOFT VISUAL BASIC 2010软件编程。 紧急求教该怎么编谢谢

首先我们观察一下这个变换规则。二进制0000就是十进制0，二进制0001就是十进制1，二进制0010就是十进制2……总之，把字符串的前半段和后半段各看为一个2进制数，则每经过一次迭代，这两个数分别加1。迭代三次，加三次1就可以了。但1111接下来是0000，也就是说这两个二进制数不能大于15。如出现大于十五的情况应减十五。
先来一个Textbox(假定为Textbox1)和一个Button(假定为Button1)，定义如下五个变量:a,b,i,j为整数，Tempstr为字符串。然后双击按钮，在按钮中的Click事件下写如下代码：
1.读取字符串
a=0
b=0
For i = 1 To 4
a = a * 2 + Val(GetChar(Textbox1.Text, i))
Next
For i = 5 To 8
b = b * 2 + Val(GetChar(Textbox1.Text, i))
Next
2.处理
tempstr=""
For j=1 To 3
tempstr=tempstr+" 迭代"+str(j)+"次："
a=a+1
b=b+1
if a>15 then a=a-15
if b>15 then b=b-15
For i = 1 To 4
Tempstr = Str(b Mod 2) + Tempstr
b = b \ 2
Next
For i = 1 To 4
Tempstr = Str(a Mod 2) + Tempstr
a = a \ 2
Next
Next
textbox1.text=tempstr