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