【文章內容簡介】 LoginState = True Unload Me: 39。使mdiform1主窗口菜單和工具欄按鈕有效 (1).Visible = True For i = 2 To 6 (i).Enabled = True NextElse MsgBox 用戶名或密碼錯誤,請重新輸入。, vbOKOnly, 用戶登錄 LoginState = FalseEnd IfEnd SubPublic Function MyXor(str1 As String)Dim i As IntegerDim one As String, newstr As StringFor i = 1 To Len(str1)newstr = newstr amp。 Chr$(Asc(Mid(str1, i, 1)) Xor amp。H3)NextMyXor = newstrEnd Function[6] 修改密碼模塊 “用戶”→“修改密碼”菜單項，然后彈出“用戶賬號密碼修改”窗口，： 用戶帳號密碼修改窗口 ，輸入要修改的密碼，再確認一遍，單擊“確定”即可，可以保證用戶的安全性。修改密碼模塊主要代碼如下：If = Then MsgBox 賬號不能為空。, vbOKOnly, 信息修改: Exit SubIf Then MsgBox 兩次密碼輸入不一致。, vbOKOnly, 信息修改: Exit SubCurrUserName = CurrUserPwd = Update 用戶表 Set 賬號=39。 amp。 amp。 39。,密碼=39。 amp。 amp。 39。 Where ID= amp。 CurrUserIDMsgBox 帳號修改成功。, vbOKOnly, 帳號修改[7] 生成BOM模塊 “產品信息”→“BOM管理”菜單項 ，或單擊標準工具欄中的“產品信息”按鈕，軟件調出“BOM”窗口，： 產品裝配明細管理窗口 ，點擊產品BOM組中各項，在BOM單和當前BOM兩個表中顯示相應的信息，從中可以清晰的看出產品的詳細情況，能很容易的看出產品所需的材料的代碼、名稱、規(guī)格型號等各項信息，還能一目了然的看出產品構件的上下級關系，： 產品裝配明細管理窗口生成BOM模塊主要代碼如下：Private Sub Cmd_Save_Click()On Error GoTo Err_Cmd_Save_ClickDim NewCode As BooleanNewCode = FalseIf Is Nothing Then Exit SubIf CurrCodeFromK3 Then NewCode = Falsesql = Update 組別表圖紙BOM Set 名稱=39。 amp。 amp。 39。,規(guī)格型號=39。 amp。 amp。 39。,序號= amp。 Val() amp。 ,單位=39。 amp。 amp。 39。,數量=39。 amp。 _ amp。 39。,工位=39。 amp。 amp。 39。,倉庫代碼=39。 amp。 amp。 39。,倉庫=39。 amp。 amp。 39。,備注=39。 amp。 amp。 39。 Where ID = amp。 sql = (1) = (2) = (3) = (4) = (5) = (6) = (7) = (8) = (9) = Exit SubErr_Cmd_Save_Click: MsgBox End SubXXXX物料代碼如下：Private Sub Cmd_SaveBOMNum_Click()On Error GoTo Err_Cmd_SaveBOMNum_ClickIf txtBOM名稱 = Then MsgBox BOM名稱不能為空。, vbOKOnly, 信息提示: Exit SubIf txtBOM代碼 = Then MsgBox BOM代碼不能為空。, vbOKOnly, 信息提示: Exit SubIf = txtBOM代碼 And = txtBOM名稱 Then Exit SubIf Then sql = Update 組別表K3物料 set 物料名稱=39。 amp。 amp。 39。 Where ID = amp。 sql (2) = = End If39。如果物料代碼不存在，則提示需在 K3 中創(chuàng)建If txtBOM代碼 Then sql = Update 組別表K3物料 set 代碼=39。 amp。 amp。 39。 Where ID = amp。 sql (1) = = End IfExit SubErr_Cmd_SaveBOMNum_Click: MsgBox End Sub[9]組別名稱修改代碼如下:Private Sub Cmd_SaveGroupInfo_Click()On Error GoTo Err_Cmd_SaveGroupInfo_ClickIf txt組別代碼 = Then MsgBox 組別代碼不能為空。, vbOKOnly, 信息提示: Exit SubIf txt組別名稱 = Then MsgBox 組別名稱不能為空。, vbOKOnly, 信息提示: Exit SubIf = txt組別代碼 And = txt組別名稱 Then Exit SubIf txt組別代碼 Then 39。如果組別代碼進行修改，則判斷其有效性。 39。首先判斷新組別代碼 在 本地 組別表K3 是否存在 If Then Select ID From 組別表K3 where 組別代碼1 =39。 amp。 amp。 39。, Conn, adOpenForwardOnly, adLockReadOnly If Not Then MsgBox 組別代碼： amp。 txt組別代碼 amp。 vbCrLf amp。 在本地組別中已經存在，請進行修改。, vbOKOnly, 信息提示: Exit Sub sql = Update 組別表K3 set 組別代碼1 =39。 amp。 txt組別代碼 amp。 39。 Where 組別代碼 =39。 amp。 amp。 39。 sql 39。更改當前節(jié)點的text屬性值 = txt組別代碼 amp。 ( amp。 txt組別名稱 amp。 ) = txt組別代碼 = txt組別代碼End IfIf txt組別名稱 Then 39。更新關聯 字段只有 一個 物料 ，則 更新其 代號 和物料名稱 If = 1 Then Set = (1) sql = Update 組別表K3物料 set 物料名稱 =39。 amp。 txt組別名稱 amp。 39。 Where ID= amp。 sql (2) = txt組別名稱 txtBOM名稱 = txt組別名稱 End If 39。更改當前節(jié)點的text屬性值 Update 組別表K3 set 組別名稱 =39。 amp。 txt組別名稱 amp。 39。 Where 組別代碼 =39。 amp。 amp。 39。 = txt組別代碼 amp。 ( amp。 txt組別名稱 amp。 ) = txt組別名稱End IfExit Sub 生產計劃模塊 “計劃管理”→“生產計劃”菜單項，或單擊標準工具欄中的“生產計劃”按鈕，就能看到關于MRP的界面，： 產品生產計劃窗口 ，單擊“生產計劃”按鈕，就可以手動在批次輸入“2011年第一季度”計劃數量2。得出生產該產品所需的材料的代碼、名稱、規(guī)格型號、數量等信息，關鍵是能得出出所需各種材料，便于后續(xù)的采購預算。先在“BOM組”選中“ LBQ500型強拌”，然后單擊“采購計劃“： 產品采購計劃窗口 然后單擊“計劃匯總”按鈕，單擊“確定”就顯示計劃該批次：2011年第一季度匯總完成。 采購計劃確認窗口 采購計劃模塊主要代碼如下