企業(yè)倉庫管理信息系統(tǒng)的設(shè)計與實現(xiàn)-文庫吧資料
2025-02-08 00:44本頁面
【正文】 ctionunload Or Action = data_actionclose Then Save = True End If End Sub 當(dāng)單擊?出庫?按鈕的時候，系統(tǒng)將進入出庫信息輸入界面，如（圖 ）所示，其基本情況與入庫相類似，依次不做具體介紹。因此，對已經(jīng)存在和新增加的舊路都要先測試其?型號?字段之后才可以執(zhí)行更新操作。 7) 定義 Data_Validata 事件過程 對于一個新記錄或編輯的記錄，如果不能維護引用完整性或不能反映該舊路的實體原型，那么它就是無效的，并且破壞了數(shù)據(jù)庫的完整性。 其主要程序如下： Private Sub Command3_Click() On Error GoTo error1 xg = True = False = False = True = True = True = True = True = True = True Exit Sub error1: MsgBox , vbOKOnly, 錯誤提示 End Sub 6) 用 CancelUpdata 方法放棄增加和修改 如果用戶修改了約束控件里的數(shù)據(jù)后，在沒有單擊?確定?命令按鈕之前，想放棄剛才的增加或修改，則可以 單擊?取消?命令?？梢酝ㄟ^調(diào)用記錄集的 Updata 方法把數(shù)據(jù)保存到數(shù)據(jù)庫中。如果是第一個記錄， BOF 屬性為 TRUE If Then = False Else = True = True End If End Sub Private Sub Command2_Click() xg = False 39。同樣，當(dāng)記錄集的 BOF 屬性為 True 時，置?下一個?命令按鈕為非激活狀態(tài)。如果單擊?上一個?和?下一個?命令按鈕將導(dǎo)致記錄指針指向空指針，則分別調(diào)用 Movefirst 和 Movelast 方法，這是防止? NO Current Record?錯誤出現(xiàn)的最簡單和最有效的方法。如果要刪除 If (ss = vbYes) Then If Then = False End If End If End Sub 4) 移動數(shù)據(jù) 當(dāng)用戶單擊?上一個?和?下一個?按鈕是，系統(tǒng)將自動轉(zhuǎn)換數(shù)據(jù)，但注意，當(dāng)移至第一個記錄時，?下一個?按鈕將失效；移至最后一個記錄是，?上一個?按鈕也將失效。取消其他按鈕功能 = False = False = False = False = False = False 39。但是刪除的記錄仍然是當(dāng)前記錄，只是將其變?yōu)榱藷o效的記錄，任何對其的引用都會產(chǎn)生錯誤。對記錄進行編輯 End Sub 3) 刪除記錄 當(dāng)用戶單擊?刪除?命令按鈕時，為了防止用戶誤刪除數(shù)據(jù)，程序?qū)⒄{(diào)用 Msgbox（）函數(shù)以彈出對話框，詢問用戶是否真的要刪除該記錄。 其主要程序如下： Private Sub Command6_Click() xg = True = True = True 39。調(diào)用了EDIT 方法后，用戶可以在約束控件中修改記錄的值。添加一個新記錄 39。顯示?確定?和?取消?兩個 按鈕 = True = True 39。 具體的系統(tǒng)情況如圖 所示： 圖 圖 當(dāng)激活入庫按鈕時將出現(xiàn)以下的界面（圖 ） 圖 入庫窗體（圖 ）及其各個控件的主要屬性 控件類型 控件名 主要屬性 Form Frmrsg1 Caption=?入庫情況? Data Data1 Databasename=? A\? Recordsettype=1’ Dynaset Caption=?入庫情況? CommandDialog Command1 Caption=?上一個? Command2 Caption=?下一個? Command3 Caption=?確定? Command4 Caption=?取消? Command5 Caption=?退出? Command6 Caption=?增加? Command7 Caption=?修改? Command8 Caption=?刪除? Lable Lable1 Caption=?序號 ? Lable2 Caption=?型號? Lable3 Caption=?產(chǎn)品名稱? Lable4 Caption=?數(shù)量? Lable5 Caption=?單價? Lable6 Caption=?入庫時間? Lable7 Caption=?發(fā)票名稱? Lable8 Caption=?供應(yīng)商名稱? Lable9 Caption=?電
公司管理相關(guān)推薦
鄂ICP備17016276號-1