VB倉庫管理系統(tǒng)源代碼

暈，樓上的回答怎么沒有一個寫代碼的啊，我代碼寫好了dim myConn as object

為虹口等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù)，及虹口網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為做網(wǎng)站、網(wǎng)站建設(shè)、虹口網(wǎng)站設(shè)計，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達到每一位用戶的要求，就會得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

dim myRecord aS OBJECT

Dim mySQL As String

Dim strSQL As String

SET myConn CreateObject("ADODB.Connection") '創(chuàng)建對象

SET myConn CreateObject("ADODB.Connection") '創(chuàng)建對象

Private Sub Form_Load()

Dim mySQL As String

Dim strSQL As String

'設(shè)定連接字符串

mySQL = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"

mySQL = mySQL + "Data Source=" App.Path "\Product.mdb"

myConn.ConnectionString = mySQL '設(shè)定連接字符串

'MsgBox mySQL

myConn.Open '打開連接

myRecord.ActiveConnection = myConn '設(shè)定RecordSeet的連接對象為Connection

strSQL = "select * from Products" '設(shè)定查詢字符串

'打開myRecord

myRecord.Open strSQL, , adOpenDynamic, adLockOptimistic

'顯示數(shù)據(jù)

ShowData

End Sub

Private Sub ShowData()

On Error Resume Next

'產(chǎn)品編號

Text1.Text = myRecord.Fields("ProductID").Value

'產(chǎn)品名稱

Text2.Text = myRecord.Fields("ProductName").Value

'供應(yīng)商編號

Text3.Text = myRecord.Fields("SupplierID").Value

'類別編號

Text4.Text = myRecord.Fields("CategoryID").Value

'單位數(shù)量

Text5.Text = myRecord.Fields("QuantityPerUnit").Value

'單價

Text6.Text = myRecord.Fields("UnitPrice").Value

'庫存數(shù)量

Text7.Text = myRecord.Fields("UnitsInStock").Value

'訂單數(shù)量

Text8.Text = myRecord.Fields("UnitsOnOrder").Value

'重訂等級

Text9.Text = myRecord.Fields("ReorderLevel").Value

End Sub

'后一條按鈕單擊事件

Private Sub Command8_Click()

'移動記錄到下一條的方法是MoveNext

'在調(diào)用MoveNext方法之前，首先需要判斷，當(dāng)前是不是已經(jīng)超出尾紀(jì)錄

'若超出尾記錄，再執(zhí)行MoveNext會出錯

If Not myRecord.EOF Then

myRecord.MoveNext

Else

'超出尾記錄，使用MoveLast恢復(fù)指向尾記錄

myRecord.MoveLast

End If

'顯示數(shù)據(jù)

ShowData

End Sub

'前一條按鈕單擊事件

Private Sub Command7_Click()

'判斷是否超出頭記錄

'若超出頭記錄，再執(zhí)行MovePrevious會出錯

If Not myRecord.BOF Then

myRecord.MovePrevious

Else

'超出頭記錄

'使用MoveFirst恢復(fù)到指向第一條記錄

myRecord.MoveFirst

End If

'顯示數(shù)據(jù)

ShowData

End Sub

'尾記錄按鈕單擊事件

Private Sub Command9_Click()

'調(diào)用MoveLast

myRecord.MoveLast

'顯示記錄

ShowData

End Sub

Private Sub Command5_Click()

'調(diào)用Recordset對象cancelUpdate方法取消數(shù)據(jù)保存

myRecord.CancelUpdate

myRecord.MoveFirst

'顯示數(shù)據(jù)

ShowData

End Sub

'首記錄按鈕單擊事件

Private Sub Command6_Click()

'調(diào)用MoveFirst移動

myRecord.MoveFirst

'顯示記錄

ShowData

End Sub

Private Sub Command4_Click()

On Error Resume Next

'保存數(shù)據(jù)，這里需要通過編程來實現(xiàn)

'產(chǎn)品編號

'產(chǎn)品編號不能為空

If Text1.Text = "" Then

MsgBox "產(chǎn)品編號不能為空!"

Text1.SetFocus

Exit Sub

End If

'其他文本框的判斷類似，這里省略

'保存產(chǎn)品編號

myRecord.Fields("ProductID").Value = Val(Text1.Text)

'保存產(chǎn)品名稱

myRecord.Fields("ProductName").Value = Text2.Text

'保存供應(yīng)商編號

myRecord.Fields("SupplierID").Value = Val(Text3.Text)

'保存類別編號

myRecord.Fields("CategoryID").Value = Val(Text4.Text)

'保存單位數(shù)量

myRecord.Fields("QuantityPerUnit").Value = Text5.Text

'保存單價

myRecord.Fields("UnitPrice").Value = Val(Text6.Text)

'保存庫存數(shù)量

myRecord.Fields("UnitsInStock").Value = Text7.Text

'保存訂單數(shù)量

myRecord.Fields("UnitsOnOrder").Value = Val(Text8.Text)

'保存重訂等級

myRecord.Fields("ReorderLevel").Value = Val(Text9.Text)

'調(diào)用Recordset對象Update方法保存數(shù)據(jù)

myRecord.Update

'顯示數(shù)據(jù)

ShowData

End Sub

誰有vb.net+sqlserver開發(fā)的《庫存管理系統(tǒng)》的源碼和源文件？？

1.顯示直觀，點擊“名稱”中的“加號”展開下拉菜單，顯示裝備的詳細(xì)情況和維修情況，簡潔清楚；

2.更為實用的搜索功能；

3.數(shù)據(jù)庫防遠程下載；

4.后臺操作簡簡潔，信息錄入非常方便；

5.管理員分為三個等級；

6.出于好玩，添加了萬年歷、手機號碼查詢、郵編查詢功能；

7.所有在系統(tǒng)中使用到的廣告圖片的源文件（png格式，fireworks制作）均保存于（fire文件夾中）。

求vb.net的源代碼，最好說明其解決問題，越多越好，滿意加50分。

下面這段代碼，是我用來計算每個月存500元進銀行，連續(xù)30年，最后連本帶利能有多少錢。這里面涉及復(fù)利計算。界面中右邊的文本框用來輸出每一次計算的結(jié)果。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

? Dim nianxian As Integer '年限變量

? Dim dingcun As Integer '定存變量

? Dim fuli_big As Long '大復(fù)利

? Dim fuli_small As Long '小復(fù)利

? Dim i As Integer '循環(huán)變量

? Dim DATAstring As String '數(shù)據(jù)字符串

? nianxian = Val(年限_TextBox.Text)

? dingcun = Val(定存_TextBox.Text)

? DATAstring = ""

? For i = 1 To nianxian

? ? ? fuli_small = dingcun * (1 + 0.1875)

? ? ? dingcun = fuli_small

? ? ? fuli_big = fuli_big + fuli_small

? ? ? DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)

? ? ? 'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)

? Next

? 'fuli_big = fuli_small

? TextBox1.Text = DATAstring

? 結(jié)果_TextBox.Text = Str(fuli_big) + "元"

End Sub

網(wǎng)站名稱：vb.net倉儲系統(tǒng)源碼 vb倉庫管理系統(tǒng)
標(biāo)題鏈接：http://vcdvsql.cn/article18/ddcdddp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供全網(wǎng)營銷推廣、網(wǎng)站內(nèi)鏈、靜態(tài)網(wǎng)站、外貿(mào)建站、搜索引擎優(yōu)化、定制開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)