裁床打飛系統(tǒng)（山寨手記1）

Trynew

別人拿了一個MDE文件來，問了一些問題。對于什么打飛之類的流程我是一瞧不通，不過這個程序倒是做的簡明易懂，在網(wǎng)友的請求之下，選了兩個模塊幾個窗體，花了幾個小時模仿著做了幾個窗體。在這里談?wù)勥@幾個“山寨”窗體的制作過程，或許對一些初學(xué)者有幫助。
我是分開三次來做的，正好分作三個階段文件。
首先是導(dǎo)入表和查詢，這是山寨的第一步。原程序的明明原則做的不錯，對象名稱各功能之間用下劃線作為分割，各個表急查詢的功能一目了然，也為我的山寨操作生了不少力氣。只需倒入了“裁床打飛”打頭的表和查詢和“共同”打頭的幾個公用信息表和查詢就行了。
第二步，建窗體。由于是mde文件，窗體是無法導(dǎo)入的，只好自行新建了（當(dāng)然國外有一個mde轉(zhuǎn)mdb的程序，由于是抱著學(xué)習(xí)的態(tài)度，導(dǎo)入窗體這一步就免了，只是用編輯視圖打開mde窗體，復(fù)制一下控件而已：）。
1、第一個是“裁床打飛_裁床單_主”窗體，與這個名稱相關(guān)的還有三個子窗體和其中兩個的編輯窗體，總共有六個窗體。操作和分析了一下各窗體的數(shù)據(jù)的關(guān)系，發(fā)現(xiàn)這個主窗體與其中的“款號”子窗體，其實就是論壇中流傳已久的“劉小軍查詢窗體”，再操作一下查詢按鈕和看看窗體的數(shù)據(jù)源，判斷是修改子窗體的“數(shù)據(jù)來源”來進(jìn)行查詢的。這里就使用“通用查詢窗體”的方法搞定那個查詢按鈕的功能。
2、接下來，看“款號”子窗體和另外兩個子窗體：“床次”和“工序”分別都是一對多的關(guān)系：這就是“多個子窗體之間的關(guān)聯(lián)顯示”的關(guān)系和方法了。這有多個方法可以出現(xiàn)：可以在主窗體中使用一個公式文本框做主關(guān)聯(lián)字段，然后設(shè)置兩個子窗體的主、子關(guān)聯(lián)字段屬性就可以了，不需要編程。操作原程序發(fā)現(xiàn)，單獨打開子窗體要求輸入?yún)��?shù)，“款號”子窗體的成為當(dāng)前事件有代碼，那就是采用窗體參數(shù)來進(jìn)行關(guān)聯(lián)的篩選顯示了，這里就按找他的做法來完成吧。在“款號”子窗體的成為當(dāng)前事件刷新一下“床次”和“工序”子窗體就是了。
3、把三個子窗體分別建好，默認(rèn)設(shè)為數(shù)據(jù)表視圖模式，打開來一看，跟原來的窗體還是有點不大一樣。對了，是窗體的底色、表格線的顏色和字段的隱藏和寬度不同。單獨打開個子窗體，用格式菜單中功能進(jìn)行設(shè)置一下，隱藏了id等字段，調(diào)整了字段的寬度和順序，保存退出。對子窗體數(shù)據(jù)表格式調(diào)整完后，現(xiàn)在就是一模一樣了，山寨也要有點職業(yè)精神嘛。
4、主窗體上的“款號”和“床次”子窗體分別有增加和修改的編輯按鈕，雙擊兩個子窗體的各字段都會彈出一個編輯窗體。這就是通常所說的“彈出式編輯窗體”了，經(jīng)常會用在數(shù)據(jù)表是子窗體和ListView表格控件顯示的數(shù)據(jù)進(jìn)行編輯。這兩個編輯窗體很簡單，就是用向?qū)�生成幾個窗體記錄的操作按鈕就行了。新增記錄和修改記錄調(diào)用的是同一窗體，只是窗體打開的參數(shù)不同罷了。另外要記得的就是在窗體數(shù)據(jù)保存或刪除的時候，重更新一下調(diào)用他的子窗體的數(shù)據(jù)就行了。我把這兩個編輯窗體設(shè)置成彈出和模式，原來的程序好像沒有設(shè)成彈出，這樣原來最大化的主窗體和編輯窗體的最大化和還原操作時，會有閃動的感覺。還有一點值得一提的是，“床次”子窗體是款號的子記錄，他的款號ID字段是要求賦值的（關(guān)聯(lián)子窗體會自動賦值），彈出式的就要用代碼進(jìn)行賦值了，我偷了一下懶，在ID文本框中，新增記錄利用默認(rèn)值屬性引用其他窗體值自動賦值。
5、最后還有一個按鈕就是“設(shè)置工序”。原來這個按鈕的功能就是根據(jù)輸入的工序總數(shù)，在工序表中“自動生成多條記錄”。這個功能有多個方法實現(xiàn)，最簡單的就是使用追加查詢進(jìn)行插入記錄，也可以用循環(huán)語句對窗體的記錄和字段進(jìn)行操作，當(dāng)然也可以用ADO等對表進(jìn)行操作。觀察原程序，看他記錄是一條條增加的，估計就是采用循環(huán)語句對窗體的記錄和字段進(jìn)行操作了。我想用SQL語句操作更加簡單，就增加了一個序號表，用作追加序號記錄的記錄源，改為追加查詢語句操作了，當(dāng)然追加記錄前別忘了用SQL語句直接操作記錄——刪除掉當(dāng)前“款號”下的工序記錄。

Trynew

占位

Trynew

還占

tmtony

天啊，老兄太快了。這個打飛系統(tǒng)我開發(fā)了幾個月。
你幾天就搞掂了

tmtony

山寨就是山寨

t小寶

期待更多山寨作品

5988143

謝謝不錯,學(xué)習(xí)一下打飛哦~

caih2000

當(dāng)山寨遇見官軍，
呵呵版主度量令人敬佩
天大事總平常事 煩惱心皆貪欲心

Trynew

天啊，老兄太快了。這個打飛系統(tǒng)我開發(fā)了幾個月。
你幾天就搞掂了
tmtony 發(fā)表于 2009-4-3 15:53

天啊，老兄太巧了。
我看了論壇中的那個，想不到這個還是老大的作品
我做這個放在這里，其實就是想說說那幾個最常用的編程技巧，做個范例而已。山寨整個軟件，我就算有這個水平，也沒有這個閑心
說實在，你后來那個系統(tǒng)，是比現(xiàn)在這個上了一個檔次的！
又說實在，山寨了人家的作品還干這么明目張膽的還真不多吧？被人抓住，真的要被“打非”了：）

ui

呵呵,真是"打非", 一語雙關(guān).
其它這個打非程序 功能 實現(xiàn)并不是很復(fù)雜,主要是了解這個裁床的流程,我是花了幾天時間才明白.