版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、VB(倉(cāng)庫(kù)管理系統(tǒng)源代碼)VB(倉(cāng)庫(kù)管理系統(tǒng)源代碼)VB(倉(cāng)庫(kù)管理系統(tǒng)源代碼)VB(倉(cāng)庫(kù)管理系統(tǒng)源代碼)編制僅供參考審核批準(zhǔn)生效日期地址: 電話:傳真: 郵編:1.請(qǐng)購(gòu)作業(yè)程序Private Sub ComCX_Click()查詢?cè)诰幪?hào)文本框中輸入編號(hào),連接數(shù)據(jù)庫(kù),查詢編號(hào),并將編號(hào),品名,規(guī)格,單位,單價(jià)的數(shù)據(jù)分別導(dǎo)入到相應(yīng)文本框。Set CN = New Set Rs = New Provider= Source= & F:VB設(shè)計(jì)專用倉(cāng)庫(kù)數(shù)據(jù)資料倉(cāng)庫(kù)數(shù)據(jù)資料.mdb;Persist Security Info=False打開數(shù)據(jù)庫(kù) = adOpenStatic 制定一個(gè)靜態(tài)游標(biāo) = ad
2、LockOptimistic 設(shè)置鎖定模式為開放式 select * from JLBH where FtextBHSJ Like & % & Trim & % & , CN DoEvents Do Until = True If = False Then (0) (1) (2) (3) (4) End If LoopEnd SubPrivate Sub comFHZY_Click()返回上頁End SubPrivate Sub comQD_Click()錄入數(shù)據(jù)If = Or = Or = Or = Or = Or = Then MsgBox 請(qǐng)將數(shù)據(jù)補(bǔ)充完整! = = = = = = El
3、se Dim cnn As New Connection, rst As New Recordset, fid As Field Dim strSql As String, strconn As String strSql = Select textBHSJ From qgzy where textBHSJ= & Trim & strconn = Provider= Source= strconn = strconn & F:VB設(shè)計(jì)專用倉(cāng)庫(kù)數(shù)據(jù)資料倉(cāng)庫(kù)數(shù)據(jù)資料.mdb = strconn Set rst = (strSql) str1 = Insert Into qgzy (textBHSJ
4、,textPMSJ,textGGSJ,textDWSJ,textDJSJ,textQGSJ) str1 = str1 + Values( & Trim & , & Trim & , & Trim & , & Trim & , & Trim & , & Trim & ) str1 (Trim) (Trim) (Trim) (Trim) (Trim) (Trim) MsgBox 數(shù)據(jù)輸入成功! Set Rs = Nothing Set CN = Nothing = = = = = = End IfEnd SubPrivate Sub comsc_Click()刪除If 0 Then For i =
5、 - 1 To 0 Step -1 If (i) Then = (i) = (i) = (i) = (i) = (i) = (i) End If NextEnd IfDim cnn As New Connection, rst As New Recordset, fid As FieldDim strSql As String, strconn As String strSql = Select FtextBHSJ From jlbh where FtextBHSJ= & Trim & strconn = Provider= Source= strconn = strconn & F:VB設(shè)計(jì)
6、專用倉(cāng)庫(kù)數(shù)據(jù)資料倉(cāng)庫(kù)數(shù)據(jù)資料.mdb = strconn Set rst = (strSql) If = False Then str1 = Delete from qgzy where FtextBHSJ= & Trim & str1 = = = = = = If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) (i) (i) (i) (i) (i) End If Next End If MsgBox 數(shù)據(jù)已刪除! Else MsgBox 無此數(shù)據(jù)! = = = = = = End IfSet Rs = NothingSet CN = Noth
7、ingEnd Sub以下是listbox串連顯示Private Sub listBHSJ1_Click() If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub listDJSJ1_Click() If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub listDWSJ1_Click() If 0 Then For i = -
8、1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub listGGSJ1_Click() If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub listPMSJ1_Click() If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub
9、 listQGSLSJ1_Click() If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd Sub2.增加料號(hào)程序Private Sub comFHZY_Click()返回上頁 End SubPrivate Sub comSCBH_Click()刪除If 0 Then For i = - 1 To 0 Step -1 If (i) Then = (i) = (i) = (i) = (i) = (i) End If NextEnd IfDim cnn As New Connection,
10、 rst As New Recordset, fid As FieldDim strSql As String, strconn As String strSql = Select FtextBHSJ From jlbh where FtextBHSJ= & Trim & strconn = Provider= Source= strconn = strconn & F:VB設(shè)計(jì)專用倉(cāng)庫(kù)數(shù)據(jù)資料倉(cāng)庫(kù)數(shù)據(jù)資料.mdb = strconn Set rst = (strSql) If = False Then str1 = Delete * from jlbh where FtextBHSJ= &
11、Trim & str1 = = = = = If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) (i) (i) (i) (i) End If Next End If MsgBox 編號(hào)已刪除! Else MsgBox 無此編號(hào)!請(qǐng)確認(rèn)后重新輸入 = = = = = End IfSet Rs = NothingSet CN = NothingEnd SubPrivate Sub comZJBH_Click()新增料號(hào)If = Or = Or = Or = Or = Then MsgBox 請(qǐng)將數(shù)據(jù)補(bǔ)充完整! = = = = = Else Dim
12、cnn As New Connection, rst As New Recordset, fid As Field Dim strSql As String, strconn As String strSql = Select FtextBHSJ From jlbh where FtextBHSJ= & Trim & strconn = Provider= Source= strconn = strconn & F:VB設(shè)計(jì)專用倉(cāng)庫(kù)數(shù)據(jù)資料倉(cāng)庫(kù)數(shù)據(jù)資料.mdb = strconn Set rst = (strSql) If = False Then MsgBox 該編號(hào)已存在,不能追加! El
13、se str1 = Insert Into jlbh (FtextBHSJ,FtextPMSJ,FtextGGSJ,FtextDWSJ,FtextDJSJ) str1 = str1 + Values( & Trim & , & Trim & , & Trim & , & Trim & , & Trim & ) str1 (Trim) (Trim) (Trim) (Trim) (Trim) MsgBox 恭喜您,添加成功!End If Set Rs = Nothing Set CN = Nothing = = = = = End IfEnd Sub以下是listbox循環(huán)選中程序Private
14、Sub listBHSJ1_Click() If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub listDJSJ1_Click() If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub listDWSJ1_Click() If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd SubPriv
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 耳機(jī)插座行業(yè)商業(yè)計(jì)劃書
- (廣東專用)高考?xì)v史大一輪復(fù)習(xí) 第10講 現(xiàn)代中國(guó)的政治建設(shè)與祖國(guó)統(tǒng)一(含解析)新人教
- Unit 3 Animals Lesson 2(教學(xué)設(shè)計(jì))-2024-2025學(xué)年人教新起點(diǎn)版英語五年級(jí)上冊(cè)
- 九年級(jí)化學(xué)人教版上冊(cè) 7.1 燃燒與滅火 (第1課時(shí)) 教案
- 人美版義務(wù)教育教科書《美術(shù)》八年級(jí)上冊(cè)第三課 用裝飾色彩來表達(dá) 教案
- 2024年度河南省安全員之C證(專職安全員)考前沖刺試卷B卷含答案
- 2024年度海南省安全員之C證(專職安全員)通關(guān)提分題庫(kù)(考點(diǎn)梳理)
- “雙減”背景下小學(xué)數(shù)學(xué)作業(yè)的創(chuàng)新設(shè)計(jì)方案六篇樣本
- 北師大版生物八年級(jí)上冊(cè) 第18章 第1節(jié) 微生物在生物圈中的作用(3)(教案)
- 三年級(jí)數(shù)學(xué)計(jì)算題專項(xiàng)練習(xí)匯編及答案
- 教育系統(tǒng)中小學(xué)校辦學(xué)負(fù)面清單
- 小學(xué)英語三年級(jí)上冊(cè) Unit5 Let's eat A Let's learn說課稿 反思 人教PEP版
- 物業(yè)項(xiàng)目經(jīng)理理論知識(shí)競(jìng)賽考試題庫(kù)(600題)
- 關(guān)于素養(yǎng)與科技素養(yǎng)【六篇】
- 北京市房屋建筑工程施工圖設(shè)計(jì)文件綜合審查告知書(模板)
- 財(cái)政支出概述
- 二進(jìn)制與十進(jìn)制的轉(zhuǎn)換
- 艾滋病培訓(xùn)試卷與答案2023年
- 書評(píng)題目格式及模板8篇
- 新能源汽車行業(yè)關(guān)鍵人才需求分析報(bào)告
- (英文)行業(yè)資料 T-REC-G.9804.2:Higher speed passive optical networks - Common transmission convergence layer specification
評(píng)論
0/150
提交評(píng)論