最近在搞畢設，題目是機加工產品的質量追溯系統，追溯流程圖如下
求這個流程圖的編程。。。
uj5u.com熱心網友回復：
樓主有當老板的潛質。
uj5u.com熱心網友回復：
這個不需要什么演算法啊。只要知道哪幾個庫，表的關系，欄位是什么，直接不停地一步步查詢好了。
uj5u.com熱心網友回復：
恩 貌似我也想通了。。uj5u.com熱心網友回復：
我這是在搞畢業設計啊。。不是老板uj5u.com熱心網友回復：
老板通常拿著錢和流程圖找程式員編程。uj5u.com熱心網友回復：
趙4老師，幫我看下這個程式，為什么得不到k,l的值If rs1.RecordCount > 0 Then
Do While rs1.EOF = False
On Error Resume Next
If a = rs1.Fields(1) Then
b = rs1.Fields(2)
j = j + 1
End If
rs1.MoveNext '記錄下移
Loop
End If
If rs6.RecordCount > 0 Then
Do While rs6.EOF = False
On Error Resume Next
If b = rs6.Fields(1) Then c = rs6.Fields(2)
rs6.MoveNext '記錄下移
Loop
End If
If rs7.RecordCount > 0 Then
Do While rs7.EOF = False
On Error Resume Next
If c = rs7.Fields(7) Then
k = rs7.Fields(8)
l = rs7.Fields(4)
End If
rs7.MoveNext '記錄下移
Loop
End if
uj5u.com熱心網友回復：
Do While rs1.EOF = False and rs1.BOF = False……
先注釋掉
‘On Error Resume Next
方便在IDE里面運行出錯時彈出對話框，點除錯后游標自動定位到出錯的陳述句。
此時可以在立即視窗中使用
? 變數名
顯示當前變數的值輔助除錯。
uj5u.com熱心網友回復：
就是在Do While rs1.EOF = False后面加and rs1.BOF = False就可以了？為什么我試了還是不行uj5u.com熱心網友回復：
總的程式是這樣的，運行結果如下，
，后面的值讀取不到啊Private Sub Command2_Click()
a = Text2.Text
j = 0
With MS2
.Rows = 7
.Cols = 3
'定義MS1表格的列寬和表頭資訊
s = Array("600", "1400", "8000")
y = Array("序號", "資料庫", "查詢內容")
For i = 0 To 2
.ColWidth(i) = s(i) '定義表格的列寬
.TextMatrix(0, i) = y(i) '定義表頭資訊
Next i
'定義MS1表格的行號
For i = 1 To 6
.TextMatrix(i, 0) = i '為表格第0列賦值
Next i
End With
If rs1.RecordCount > 0 Then
Do While rs1.EOF = False And rs1.BOF = False
On Error Resume Next
If a = rs1.Fields(1) Then
b = rs1.Fields(2)
j = j + 1
End If
rs1.MoveNext '記錄下移
Loop
End If
If rs6.RecordCount > 0 Then
Do While rs6.EOF = False
On Error Resume Next
If b = rs6.Fields(1) Then c = rs6.Fields(2)
rs6.MoveNext '記錄下移
Loop
End If
If rs7.RecordCount > 0 Then
Do While rs7.EOF = False
On Error Resume Next
If c = rs7.Fields(7) Then
k = rs7.Fields(8)
l = rs7.Fields(4)
End If
rs7.MoveNext '記錄下移
Loop
End If
If rs8.RecordCount > 0 Then
Do While rs8.EOF = False
On Error Resume Next
If c = rs8.Fields(7) Then n = rs8.Fields(8) And p = rs8.Fields(4)
rs8.MoveNext '記錄下移
Loop
End If
If rs2.RecordCount > 0 Then
Do While rs2.EOF = False
On Error Resume Next
If c = rs2.Fields(7) Then m = rs2.Fields(4) And q = rs7.Fields(5) And e = rs2.Fields(8)
rs2.MoveNext '記錄下移
Loop
End If
If rs3.RecordCount > 0 Then
Do While rs3.EOF = False
On Error Resume Next
If c = rs3.Fields(7) Then f = rs3.Fields(4) And g = rs3.Fields(5) And h = rs3.Fields(8)
rs3.MoveNext '記錄下移
Loop
End If
If j = 1 Then
MS2.TextMatrix(1, 1) = "dgcphxtdglsjk"
MS2.TextMatrix(1, 2) = "相關聯的箱體編碼為" & b
MS2.TextMatrix(2, 1) = "xthddglsjk"
MS2.TextMatrix(2, 2) = "相關聯的垛的編碼為" & c
MS2.TextMatrix(3, 1) = "cgsjk"
MS2.TextMatrix(3, 2) = "供應商為" & l & "采購單為" & k
MS2.TextMatrix(4, 1) = "xssjk"
MS2.TextMatrix(4, 2) = "購買廠家為" & p & "銷售單為" & n
MS2.TextMatrix(5, 1) = "ccglsjk"
MS2.TextMatrix(5, 2) = "出倉倉庫為" & m & ",目的倉庫為" & q & ",出庫單為" & e
MS2.TextMatrix(6, 1) = "rcggsjk"
MS2.TextMatrix(6, 2) = "來源倉庫為" & f & ",入倉倉庫為" & g & ",入庫單為" & h
MsgBox "該產品為正品", , "提示"
Else
MS2.TextMatrix(1, 1) = "dgcphxtdglsjk"
MS2.TextMatrix(1, 2) = "該碼不存在或已被剔除"
MS2.TextMatrix(2, 1) = ""
MS2.TextMatrix(2, 2) = ""
MS2.TextMatrix(3, 1) = ""
MS2.TextMatrix(3, 2) = ""
MS2.TextMatrix(4, 1) = ""
MS2.TextMatrix(4, 2) = ""
MS2.TextMatrix(5, 1) = ""
MS2.TextMatrix(5, 2) = ""
MS2.TextMatrix(6, 1) = ""
MS2.TextMatrix(6, 2) = ""
MsgBox "該產品為假冒偽劣產品", , "提示"
End If
End Sub
uj5u.com熱心網友回復：
額。。錯把o當成0了。。uj5u.com熱心網友回復：
雖然在VB中，變數可以不宣告就使用。
但是：變數必須宣告才能使用才是編程的好習慣！
因此，每個模塊的代碼開頭，應該有 Option Explicit
這個可以在VB6的選項設定中設定，讓VB6在創建任意一個新模塊時，自動加上這句。
uj5u.com熱心網友回復：
額。。這個我已經申明了。。。謝謝。。我還有個問題，就是，為什么我第一次輸入查詢的時候，結果是對的。。第二次不改輸入內容，再按下command按鈕，結果就出錯。。怎么解決
uj5u.com熱心網友回復：
關于自己是否適合編程的很簡單的測驗：
在報紙或雜志上隨便找一段約1000字的文章，在Word中輸入一遍。輸完后再參考下面答案：
A里面有10處以上文字或標點錯誤
B里面沒有文字或標點錯誤并敢為此跟人打賭
C里面沒有文字或標點錯誤并且字體和排版完全與原稿一致
D列印在半透明的紙上和原稿重疊在一起檢查一模一樣，且自我感覺很有成就感
A不適合編程（理由：打字準確度偏低、粗心大意）
B初級程式員（理由：打字準確度很高、認真細致、自信、理解全角半角概念）
C高級程式員（理由：在B的基礎上理解字體和排版也是電腦列印的重要因素、但相比D還不夠偏執、精益求精、結果可驗證）
D軟體專案經理（理由：能針對專案給出令人信服的細致到極點的需求說明和典型測驗用例。用戶幾乎挑不出毛病。專業！）
如果想從A變成B的話，到我的資源http://download.csdn.net/detail/zhao4zhong1/4084259里面下載“適合程式員的鍵盤練習”
uj5u.com熱心網友回復：
請確定每次提交查詢時，都按照打開資料庫連接，打開資料集，提交查詢，獲取程式結果到記錄集，關閉記錄集，關閉資料庫連接的步驟。
uj5u.com熱心網友回復：
哦 好的 謝謝uj5u.com熱心網友回復：
貌似這樣的系統外邊已經存在了，uj5u.com熱心網友回復：
都成D了，我還有救嗎？
uj5u.com熱心網友回復：
去應聘軟體專案經理啊。
uj5u.com熱心網友回復：
老啦，沒人要啦~uj5u.com熱心網友回復：
那只好啃子孫了。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/72150.html
標籤：網絡編程