企業(yè)倉庫管理信息系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)(編輯修改稿)
2025-03-08 00:44 本頁面
【文章內(nèi)容簡介】 ion=?電話? Lable10 Caption=?結(jié)帳情況? Text Text1 Caption=?序號? Datasource=? data1? Text2 Caption=?型號? Datasource=? data1? Text3 Caption=?產(chǎn)品名稱? Datasource=? data1? Text4 Caption=?數(shù)量? Datasource=? data1? Text5 Caption=?單價(jià)? Datasource=? data1? Text6 Caption=?入庫時(shí)間? Datasource=? data1? Text7 Caption=?發(fā)票名稱? Datasource=? data1? Text8 Caption=?供應(yīng)商名稱? Datasource=? data1? Text9 Caption=?電話? Datasource=? data1? Text10 Caption=?結(jié)帳情況? Datasource=? data1? 表 控件說明 1) 增加新記錄 當(dāng)單擊?確定?按鈕后，?確定?和?取消?兩個(gè)按鈕顯示，同時(shí)使其他的按鈕不可見，這樣做是為了防止用戶的誤操作。 其主要程序如下： Private Sub Command5_Click() xg = True 39。顯示?確定?和?取消?兩個(gè) 按鈕 = True = True 39。取消其他按鈕功能 = False = False = False = False = False = False 39。添加一個(gè)新記錄 39。光標(biāo)在 TEXT1 處 end sub 2) 修改記錄 在調(diào)用 EDIT 方法之前，約束控件中的數(shù)據(jù)是只讀的，用戶無法對其進(jìn)行修改。調(diào)用了EDIT 方法后，用戶可以在約束控件中修改記錄的值。如果在對當(dāng)前記錄進(jìn)行修改之前修改，未使用 EDIT 方法，將發(fā)生運(yùn)行時(shí)錯(cuò)誤。 其主要程序如下： Private Sub Command6_Click() xg = True = True = True 39。取消其他按鈕功能 = False = False = False = False = False = False 39。對記錄進(jìn)行編輯 End Sub 3) 刪除記錄 當(dāng)用戶單擊?刪除?命令按鈕時(shí)，為了防止用戶誤刪除數(shù)據(jù)，程序?qū)⒄{(diào)用 Msgbox（）函數(shù)以彈出對話框，詢問用戶是否真的要?jiǎng)h除該記錄。如果用 戶單擊對話框上的?確定?按鈕，程序調(diào)用記錄集的 Delete 方法，將記錄集的當(dāng)前記錄設(shè)置為空，并從原始的表中刪掉當(dāng)前記錄。但是刪除的記錄仍然是當(dāng)前記錄，只是將其變?yōu)榱藷o效的記錄，任何對其的引用都會(huì)產(chǎn)生錯(cuò)誤。 其主要程序如下： Private Sub Command6_Click() xg = True = True = True 39。取消其他按鈕功能 = False = False = False = False = False = False 39。對記錄進(jìn)行編輯 End Sub Private Sub Command7_Click() ss = MsgBox(真的要?jiǎng)h除嗎？ , vbYesNo + vbInformation, 刪除記錄 ) 39。如果要?jiǎng)h除 If (ss = vbYes) Then If Then = False End If End If End Sub 4) 移動(dòng)數(shù)據(jù) 當(dāng)用戶單擊?上一個(gè)?和?下一個(gè)?按鈕是，系統(tǒng)將自動(dòng)轉(zhuǎn)換數(shù)據(jù)，但注意，當(dāng)移至第一個(gè)記錄時(shí)，?下一個(gè)?按鈕將失效；移至最后一個(gè)記錄是，?上一個(gè)?按鈕也將失效。 其中在設(shè)計(jì)程序時(shí)，為了 防止? NO Current Record?這樣的錯(cuò)誤，在移動(dòng)記錄指針時(shí)測試記錄集的 BOF 和 EOF屬性。如果單擊?上一個(gè)?和?下一個(gè)?命令按鈕將導(dǎo)致記錄指針指向空指針，則分別調(diào)用 Movefirst 和 Movelast 方法，這是防止? NO Current Record?錯(cuò)誤出現(xiàn)的最簡單和最有效的方法。與此同時(shí)，如果記錄集的 BOF 屬性為 True,則置?上一個(gè)?命令按鈕為非激活狀態(tài)，是用戶無法再單擊該按鈕。同樣，當(dāng)記錄集的 BOF 屬性為 True 時(shí)，置?下一個(gè)?命令按鈕為非激活狀態(tài)。 其主要程序如下： Private Sub Command1_Click() xg = False 39。如果是第一個(gè)記錄， BOF 屬性為 TRUE If Then = False Else = True = True End If End Sub Private Sub Command2_Click()
公司管理相關(guān)推薦
鄂ICP備17016276號-1