公司倉庫管理系統(tǒng)[001](參考版)
2025-04-10 20:16本頁面
【正文】 最后，我還要感謝多方面的支持以及幫助過我的人，尤其是我的指導老師，她仔細認真的態(tài)度，對我的幫助是非常大的，使得我更完善地完成了次管理系統(tǒng)。當然這次的管理系統(tǒng)也一定存在著許多不足之處，但可以適合與如佳雪公司這樣的小型銷售型公司，但為將來的升級提供了更多的方便的途徑。在編譯過程中，最讓我印象深刻的是用DATA控件訪問數(shù)據(jù)，由于DATA控件的局限性，因此在查詢時，碰到了一些不能查詢數(shù)據(jù)的麻煩，可以直接通過此控件來訪問數(shù)據(jù)庫，當我找到此方法時，那么所完成的查詢就更為完善了。在從中曾出現(xiàn)過以下幾個具體問題：1. MSDN不存在2. 524數(shù)據(jù)轉(zhuǎn)換錯誤3. 當單擊“上一個”和“下一個”按鈕時會出現(xiàn)數(shù)據(jù)不存在而退出程序4. DBLIST控件不能正確引入數(shù)據(jù)當出現(xiàn)以上問題是，經(jīng)過嚴密與反復(fù)的調(diào)試同樣用了一些方法來解決1. 改變數(shù)據(jù)原來的設(shè)計方法，改用文本型的數(shù)據(jù)為多2. 仔細表明正確的日期輸入法3. 當進行數(shù)據(jù)更新時，沒有確定或取消，系統(tǒng)將提示以下對話框， “型號”沒有輸入時，系統(tǒng)也將提示以下對話框， ，為了保證不誤操作，系統(tǒng)也將提出一個對話框， ，還將程序打包，進行安裝，在打包過程中，也出現(xiàn)以下對話框，第四章 思想小結(jié)在短短的兩個月內(nèi)，通過參考各種VB編程書籍、網(wǎng)上查找信息以及老師的耐心知道下，完成了這次畢業(yè)設(shè)計——浙江佳雪倉庫管理系統(tǒng)。l 再回到登陸主窗口，（），單擊“退出”按鈕，系統(tǒng)將退出程序，顯示以下窗口（），單擊圖中的“再見”，此程序也將結(jié)束。l 再回到查詢界面，單擊“按單位”按鈕，此時系統(tǒng)將進入按單位查詢的截面，216。 單擊Dblist框中的型號，F(xiàn)rame中將自動顯示記錄，以供用戶查詢。216。 單擊“按型號”，系統(tǒng)將進入以型號為關(guān)鍵字段的查詢。l 當用戶單擊“查詢”按鈕時，系統(tǒng)將出現(xiàn)密碼登陸框，因為查詢的是內(nèi)部資料，因此，需身份驗證，l 隨后將進入查詢功能，l 用戶可根據(jù)不同需要進行“按型號”和“按單位”的查詢。其主要程序如下：39。為了在“入庫情況”表中建立一個有效的記錄，就必須要有主關(guān)鍵字段“型號”的值。216。 用CancelUpdata方法放棄增加和修改如果用戶修改了約束控件里的數(shù)據(jù)后，在沒有單擊“確定”命令按鈕之前，想放棄剛才的增加或修改，則可以單擊“取消”命令。單擊“確定”按鈕時，記錄將被記如數(shù)據(jù)庫。 用Updata方法確認增加和修改當用戶修改和增加完一個記錄的數(shù)據(jù)后，需要將數(shù)據(jù)保存到數(shù)據(jù)庫中。如果是第一個記錄，BOF屬性為TRUEIf Then = FalseElse = True = TrueEnd IfEnd SubPrivate Sub Command2_Click()xg = False39。同樣，當記錄集的BOF屬性為True時，置“下一個”命令按鈕為非激活狀態(tài)。如果單擊“上一個”和“下一個”命令按鈕將導致記錄指針指向空指針，則分別調(diào)用Movefirst和Movelast方法，這是防止“NO Current Record”錯誤出現(xiàn)的最簡單和最有效的方法。 移動數(shù)據(jù)當用戶單擊“上一個”和“下一個”按鈕是，系統(tǒng)將自動轉(zhuǎn)換數(shù)據(jù)，但注意，當移至第一個記錄時，“下一個”按鈕將失效；移至最后一個記錄是，“上一個”按鈕也將失效。對記錄進行編輯End SubPrivate Sub Command7_Click()ss = MsgBox(真的要刪除嗎？, vbYesNo + vbInformation, 刪除記錄)39。其主要程序如下：Private Sub Command6_Click()xg = True = True = True39。如果用戶單擊對話框上的“確定”按鈕，程序調(diào)用記錄集的Delete方法，將記錄集的當前記錄設(shè)置為空
公司管理相關(guān)推薦
鄂ICP備17016276號-1