企業(yè)庫(kù)存管理系統(tǒng)設(shè)計(jì)-資料下載頁(yè)
2025-04-15 22:00本頁(yè)面
【正文】 rice algorithms. Academic Journal,2007,(3):348364[15] George,Dallery, Base stock versus WIP cap in singlestage maketostock productioninventory ,(6):254298附錄：Private Sub Command1_Click()Dim sjy As txtsql = select * from admin where yhm=39。 amp。 Trim() amp。 39。Set sjy = exeSql(txtsql)If = 0 ThenMsgBox 沒(méi)有這個(gè)用戶, vbOKOnly + vbExclamation, 信息提示 = = Exit SubEnd IfIf Trim() Trim((mm)) ThenMsgBox 密碼不正確！, vbOKOnly + vbExclamation, 信息提示 = Exit SubEnd IfUnload MeEnd Sub:響應(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ù)信息查詢】按鈕單擊事件 Private Sub LblStoreQury_Click() 1End Sub響應(yīng)【入庫(kù)清單查詢】按鈕單擊事件 Private Sub LblStoreinQury_Click()End Sub響應(yīng)【出庫(kù)清單查詢】按鈕單擊事件 Private Sub LblTakeoutQury_Click()End Sub響應(yīng)【庫(kù)存信息查詢】按鈕單擊事件Private Sub LblStoreQury_Click() 1End Sub窗體加載過(guò)程Private Sub Form_Load()39。 = driver={SQL Server}。server= + Trim(Server) + 。uid= + Trim(User) + 。pwd= + Trim(Password) + 。database=ERP39。 = select * from StoreRoom39。Set = Adodc1Set = Adodc1Refresh_StoreRoomEnd Sub【添加】按鈕單擊事件：Private Sub LblAdd_Click() = 添加庫(kù)位 = False 1Refresh_StoreRoomEnd Sub【修改】按鈕單擊事件：Private Sub LblModify_Click()39。保存待修改記錄的原始ID = Trim((0))39。把待修改信息添加到編輯窗口 = Trim((0)) = Trim((1)) = Trim((2)) = Trim((3)) = False = 修改庫(kù)位信息 = True 1Refresh_StoreRoomEnd Sub【刪除】按鈕單擊事件：Private Sub LblDelete_Click()Dim TempStoreRoomID As String39。保存待刪除記錄的ID TempStoreRoomID = (0)39。彈出刪除確認(rèn)對(duì)話框 If MsgBox(是否刪除 + (1) + ?, vbYesNo, 確認(rèn)) = vbYes Then (TempStoreRoomID) MsgBox 刪除成功 End IfRefresh_StoreRoomEnd Sub刷新窗口的函數(shù)：Private Sub Refresh_StoreRoom() If = 0 Then = False = False Else = True = True End IfEnd Sub【返回】按鈕事件Private Sub LblBack_Click()Unload MeEnd Sub【確定】按鈕單擊事件Private Sub LblOK_Click() 39。判斷要編輯信息是否完整 If Check = False Then Exit Sub End If With MyStoreRoom .StoreID = .StoreRoom = .Location = .Description = 39。判斷操作是添加還是修改 If Modify = False Then 39。判斷為添加操作 39。判斷采購(gòu)員ID是否已經(jīng)存在 If .In_DB() = True Then MsgBox 庫(kù)位ID重復(fù)，請(qǐng)重新設(shè)置 = 0 = Len(TxtBuyerID) Exit Sub Else .Insert 39。添加 MsgBox 添加成功 End If Else 39。判斷為修改操作 .Update (OriStoreID) MsgBox 修改成功 End If End With Unload MeEnd Sub【取消】按鈕單擊事件Private Sub LblCancel_Click()Unload MeEnd Sub 【填寫入庫(kù)單】按鈕單擊事件Private Sub LblOK_Click() = = = = + 產(chǎn)品選擇———從下表中選出入庫(kù)產(chǎn)品 1 Refresh_StoreinEnd Sub【選擇日期】按鈕單擊事件Private Sub DTDate_Change() Refresh_StoreinEnd Sub【選擇類型】按鈕單擊事件Private Sub ComboType_Click()Refresh_StoreinEnd Sub【取消】按鈕單擊事件Private Sub LblCancel_Click() Unload MeEnd Su
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1