單連接,非綁定窗體,同時涉及多基表數據處理,高深探討

HG

各位朋友：有沒有想過這樣一個問題：(這是一個物流運作的完整運用，即有參考價值)
在一個物流運作系統中,有六個表，功能分別如下：
先是采購后存倉分為表trade_wh_ins(存倉單)和trade_wh_ins_line(存倉單祥情)
然后在存倉的同時,備份存倉祥情的存倉項號和存倉數量為表trade_wh_ins_line_bak
接著是調貨處理分為表trade_request(調貨單)和trade_request_line(調貨單祥情)
其中只有表trade_request_line表中的部分列比如：
request_pt(須求量),wh_ins_line_no(預調整的存倉項號)參于運算.
其運算原理如下：在調貨的過程中,要事實的從存倉祥情中扣除須求量,這樣就保証了存倉表中的永遠都是真實的存倉數值.
然后,由于調貨單,在每次調貨的時候，都可以多提貨,以防萬一,
由此表trade_request_line_more(多貨返倉)表，就產生了，在每次交易后,都把多出的產品，重新返倉,在原真實存倉的基礎上，再次累加上返倉數，即得總的真實庫存。
-----------------------------------------------------------------------------
原本小弟是用SQL的觸發口器和存儲過程來處理的，
但現在遇到一個很難解決的問題:請見
http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&RootID=5877&ID=5877
所以小弟，預更改程式,用VBA+ADO來處理，各個表之間規則的運算，
但小弟水乎太差，望高手指點。
_____________________________________________________
思路如下：
先建立一個窗表，(非邦定)內容為存倉祥情，
然來編程來決定數據來源，但弟初次試用。
代碼如下：

Private Sub Form_Open(Cancel As Integer)
On Error GoTo err_this
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strsql As String

Set rst = New ADODB.Recordset
Set conn = CurrentProject.Connection
strsql = "select * from trade_request_line"

rst.Open strsql, conn

Do Until rst.EOF
  Me.request_line_no = rst!request_line_no
  Me.request_no = rst!request_no
  Me.wh_ins_line_no = rst!wh_ins_line_no
  Me.request_line_pt = rst!request_line_pt
  rst.MoveNext
Loop

rst.Close
Set rst = Nothing

exit_sub:
Exit Sub
err_this:
MsgBox Err.Description
Resume exit_sub

End Sub
用此來決定數據源。
但是不知為何不能想邦定窗體哪樣，總是出現的是數據源的最后一條記錄。
而不是出現數據清單。如：
---------------------
col1   col2         col3      col4
1      2             3         4
2      2             2          1
3      3             1          2
。。。。。。。。。。。。
而現在的情況是每次都只一條記錄出現，即最后一條
-----------------------------------------
col1       col2       col3      col4
3           3          1         2
前几條為何，不可出現，如上面列表
望各位版主指點。
----------------------------------
末完待續，有各計算處理
-------------------------------------------------------------------------
                                             同各位高手共同進步HG

sdlhlsd

你是否要动态跟踪库存,若如此,你可以有一个库存余额表,当你在采购入库时,自动增加库存,当你在出货时自动扣减库存,你应有一个表存放有需求量,可分配量、库存量、已分配量等信息的临时表.我不太明白你现在的需求,可否说详细点!可能可给你提供一个好的解决方案!

HG

sdlhlsd
您好!
您說的哪么表，我都有，只不過名稱不同吧了
trade_wh_ins和trade_wh_ins_line合在一塊是一個完整的入庫清單。
當在彩購時，有一個新的彩購表.stock_order和stcok_order_line(彩購單和彩購祥情)
當在彩購完后，可以入庫，即可編程轉彩購量加上現有庫存為總庫存。
表trade_request和trade_request_line則為出庫表,和調整庫存用的基表.
如果已分配，則直接從庫存扣除須求量或調整量.
如果多出庫的可以返庫有表trade_request_line_more
如果返庫，則在現有庫存的基礎上增加返庫量.
----------------------------------------------------------------------------
因本不想在物流上涉及太多的表，所以就采用實時動態操作。
但現在的問題是，我如何彩用非邦定窗體，來操縱出庫祥情.
即每次在出庫或調整時，從入庫祥情中實時扣除所出數量，
即然我可以用存儲過程和觸發器達到效果，但解決方案不理想。
所以想用VBA+ADO編程來同步處理這兩個表，且在出庫時，若庫存不足，則給出提示，同時取消此操作。
---------------------------------------
有關物流的并非如此簡單，但我應一點一點解決方可，
所以請先指點指點目前所面對的問題，而大的方案我們可慢慢磋切。
多謝!

[此贴子已经被作者于2002-6-13 15:10:53编辑过]

HG

其實我的是個最精簡物流系統.
因本人的設計習慣,用最大的代碼，換最大的功能。
決償數據冗余,又打破長規，但是就要高度編程了。

sdlhlsd

能否把你的窗体发过来,我看一下!
应该没有问题的!我们经常这样做!

HG

我不會貼圖，也不會上傳文檔.
可不可以教我一下。
然后我就帖上去。？

sdlhlsd

将你的程序压缩后上传即可

HG

可不可以告訴我怎么貼圖，我把窗體貼上去。
因為我用的是ADP，上傳前端 是沒有用的。
只能貼圖了。
可以嗎？

sdlhlsd

你去下载一个抓图软件,去华军软件园

HG

還是上傳不上去，
窗體目標如上所示，別無他法。
我正想辦法哩，現在為此很困和。