【正文】 添加 MsgBox 添加成功 End If Else 39。判斷為添加操作 39。判斷要編輯信息是否 完整 If Check = False Then Exit Sub End If With MyStoreRoom .StoreID = .StoreRoom = .Location = .Description = 39。保存待刪除記錄的 ID TempStoreRoomID = (0) 39。保存待修改記錄的原始 ID = Trim((0)) 39。 = select * from StoreRoom 39。pwd= + Trim(Password) + 。server= + Trim(Server) + 。 Set sjy = exeSql(txtsql) If = 0 Then MsgBox 沒(méi)有這個(gè)用戶(hù) , vbOKOnly + vbExclamation, 信息提示 = = Exit Sub End I f If Trim() Trim((mm)) Then MsgBox 密碼不正確！ , vbOKOnly + vbExclamation, 信息提示 = Exit Sub End If Unload Me End Sub 第八組 庫(kù)存管理系統(tǒng)設(shè)計(jì) 24 為系統(tǒng)主界面 : 響應(yīng)【倉(cāng)庫(kù)管理】按鈕單擊事件 : Private Sub LblStoreRoomSet_Click() End Sub 響應(yīng)【入庫(kù)管理】 按鈕單擊事件 : Private Sub LblStoreinSet_Click() End Sub 響應(yīng)【出庫(kù)管理】按鈕單擊事件 : Private Sub LblTakeoutSet_Click() End Sub 響應(yīng)【庫(kù)存管理】按鈕單擊事件 : Private Sub LblStoreRoomSet_Click() End Sub 響應(yīng)【倉(cāng)庫(kù)信息查詢(xún)】按鈕單擊事件 Private Sub LblStoreQury_Click() 1 End Sub 響應(yīng)【入庫(kù)清單查詢(xún)】按鈕單擊事件 Private Sub LblStoreinQury_Click() End Sub 響應(yīng)【出庫(kù)清單查詢(xún)】按鈕單擊事件 Private Sub LblTakeoutQury_Click() End Sub 玉林師范學(xué)院信管 07 課程設(shè)計(jì) 25 響應(yīng)【庫(kù)存信息查詢(xún)】按鈕單擊事件 Private Sub LblStoreQury_Click() 1 End Sub 窗體加載過(guò)程 Private Sub Form_Load() 39。 Trim() amp。vez, Ernesto a. policy design for spiny lobster (panulirus argus) management at the mesoamerican barrier reef system. Academic Journal,2021,(2):236256 [14] Wolfe, Joseph, A study of business game stock price algorithms. Academic Journal,2021,(3):348364 [15] Gee,Dallery, Base stock versus WIP cap in singlestage maketostock productioninventory ,(6):254298 玉林師范學(xué)院信管 07 課程設(shè)計(jì) 23 附錄 ： Private Sub Command1_Click() Dim sjy As txtsql = select * from admin where yhm=39。 其中，無(wú)論在理論上還是實(shí)踐中，都給予我們 組員 很大的收獲，使我們得到不小的提高。但是由于經(jīng)驗(yàn)方面的原因，以及對(duì)庫(kù)存方面的操作流程了解不足，該系統(tǒng)還有許多不盡如人意的地 方和功能上的缺陷，這些都有待于進(jìn)一步改善。但是 各部門(mén)使用的管理信息系統(tǒng)各不相同，在數(shù)據(jù)共享方面的業(yè)務(wù)上出現(xiàn)很多復(fù)雜性的工作，所以在這一方面還有開(kāi)發(fā)的空間。至此，經(jīng)過(guò)系統(tǒng)分析，設(shè)計(jì)和編碼等過(guò)程，整個(gè)庫(kù)存管理系統(tǒng)的開(kāi)發(fā)已經(jīng)完成。通過(guò)多次系統(tǒng)調(diào)試處理一些錯(cuò)誤命令后才可使系統(tǒng)正常運(yùn)行 。進(jìn)入庫(kù)位轉(zhuǎn)移界面，如圖 所示 所使用到的主要控件有 Label， Adodc， ComboBox， TextBox， Image 圖 庫(kù)存轉(zhuǎn)移 Fig Stock Transfer 倉(cāng)庫(kù)信息查詢(xún) 在主界面上單擊【倉(cāng)庫(kù)信息查詢(xún)】按鈕進(jìn)入倉(cāng)庫(kù)信息報(bào)表，如圖 所第八組 庫(kù)存管理系統(tǒng)設(shè)計(jì) 18 示 ， 倉(cāng)庫(kù)查詢(xún)報(bào)表是通過(guò)數(shù)據(jù)環(huán)境設(shè)計(jì)來(lái)實(shí)現(xiàn)的，添加一個(gè) Data Environment 圖 倉(cāng)庫(kù)清單 Fig warehouse inventory 入庫(kù)清單查詢(xún) 在主界面上單擊【入庫(kù)清單查詢(xún)】按鈕進(jìn)入入庫(kù)信息查詢(xún)選擇界面，如圖 所示 使用到的主要控件有 Label， DTPicker， ComboBox， DataGrid， Image， 圖 入庫(kù)查詢(xún) Fig Query storage 確定選擇項(xiàng)目后單擊【確定】按鈕進(jìn)入入庫(kù)清單，如圖 所示 玉林師范學(xué)院信管 07 課程設(shè)計(jì) 19 圖 倉(cāng)庫(kù)清單界面 Warehouse inventory interface 出庫(kù)清單查詢(xún) 在主 界面單擊【出庫(kù)清單查詢(xún)】按鈕進(jìn)入出庫(kù)查詢(xún)選擇界面，如圖 所示 ，所使用到的主要控件有 Label， DTPicker， ComboBox， DataGrid， Image， 圖 出庫(kù)查詢(xún) Figure Library check 確定選擇項(xiàng)目后單擊【確定】按鈕進(jìn)入出庫(kù) 清單，如圖 所示 第八組 庫(kù)存管理系統(tǒng)設(shè)計(jì) 20 圖 出庫(kù)清單 Figure Library List 庫(kù)位信息查詢(xún) 在主界面上單擊【庫(kù)存信息查詢(xún)】按鈕進(jìn)入清單。 玉林師范學(xué)院信管 07 課程設(shè)計(jì) 15 入庫(kù)管理相關(guān)界面： 在主界面上單擊【入庫(kù)管理】按鈕進(jìn)入入庫(kù)管理界面，如下圖 所示 使用到的主要控件有 Label， DTPicker， ComboBox， DataGrid， Image， Adodc1 DTPicker 是顯示要選擇的日期， ComboBox 是用于選擇入庫(kù)類(lèi)型， Adodc1 控件連接數(shù)據(jù)庫(kù)，所連接到的數(shù)據(jù)庫(kù)將在 DataGrid 中顯示出來(lái) 圖 入庫(kù)管理 界面 Storage management interface 在入庫(kù)界面上單擊【填寫(xiě)入庫(kù)清單】按鈕將 進(jìn)入入庫(kù)編輯界面，如圖 所示 主要控件有 Label， DataGrid， Adodc， ComboBox， TextBox 入庫(kù)記錄通過(guò) DataGrid 顯示 圖 入庫(kù)清單界面 Warehouse inventory interface 第八組 庫(kù)存管理系統(tǒng)設(shè)計(jì) 16 出庫(kù)管 理相關(guān)界面： 在主界面上單擊【出庫(kù)管理】按鈕進(jìn)入出庫(kù)管理界面，如圖 所示 所使用到的主要控件有 Label， DTPicker， ComboBox， DataGrid， Image，Adodc1 圖 出庫(kù)管理 TakeoutManage diagram 在出庫(kù)管理界面上單擊【填寫(xiě)出庫(kù)單】按鈕將進(jìn)入出庫(kù)單編輯界面，如圖 所示 使用到的主要控件有 Label， DataGrid， Adodc， ComboBox， TextBox 圖 填寫(xiě) 出庫(kù)單 Figure Fill Chu Kudan 庫(kù)存管理相關(guān)界面 在 主 界面上單擊【 庫(kù)存管理 】按鈕將進(jìn)入 庫(kù)存管理 界面，如圖 所示 玉林師范學(xué)院信管 07 課