【導(dǎo)讀】前言……………………系統(tǒng)實(shí)現(xiàn)目標(biāo)……………系統(tǒng)開發(fā)進(jìn)度安排………第二章產(chǎn)品進(jìn)銷存管理系統(tǒng)軟件的定義……………如何在MSFlexGrid中靈活地輸入數(shù)據(jù)…………………隨著目前市場(chǎng)經(jīng)濟(jì)的高速發(fā)展，特別是在產(chǎn)品的供銷方面，產(chǎn)品進(jìn)銷存管理系統(tǒng)是對(duì)產(chǎn)品進(jìn)行合理化、信息化管理。對(duì)系統(tǒng)進(jìn)行分析，并創(chuàng)建系統(tǒng)業(yè)務(wù)流程圖。通過密碼登陸系統(tǒng)、用戶權(quán)限設(shè)置、進(jìn)貨單、客。系統(tǒng)并確立系統(tǒng)的開發(fā)環(huán)境，為更好的使用這套系統(tǒng)提供指導(dǎo)。

　　

【正文】 ew Dim rs1 As New Private Sub Form_Load() = amp。 \ 39。自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 End Sub Private Sub Form_Activate() End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If KeyCode = vbKeyUp Then End Sub 產(chǎn)品進(jìn)銷存管理系統(tǒng) 36 Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If KeyCode = vbKeyUp Then End Sub Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If KeyCode = vbKeyUp Then End Sub Private Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If KeyCode = vbKeyUp Then End Sub Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then = True Else If KeyCode = vbKeyUp Then End If End Sub Private Sub Command1_Click() Set = New Set rs = New Set rs1 = New Provider=。Data Source= amp。 amp。 \ = select * from quanxianshezhi where 用 戶 名 =39。 amp。 amp。 39。 If Trim() = Then MsgBox 請(qǐng)輸入用戶名稱 , vbOKOnly + vbExclamation, 警告 Else select * from login where 用戶名 =39。 amp。 amp。 39。, , adOpenStatic, adLockOptimistic If = True Then MsgBox 這個(gè)用戶不存在 ,請(qǐng)重新輸入用戶名 , vbOKOnly + vbExclamation, 產(chǎn)品進(jìn)銷存管理系統(tǒng) 37 警告 = = Else If = Then MsgBox 密碼不能為空 , vbOKOnly + vbExclamation, 警告 = Else If (1) Then MsgBox 密碼不正確 ,請(qǐng)重新輸入 !, vbOKOnly + vbExclamation, 警告 = = Else If Then MsgBox 兩次輸入密碼不一致 ,請(qǐng)重新輸入密碼 , vbOKOnly + vbExclamation, 警告 = = Else If Trim() = Then MsgBox 請(qǐng)輸入新用戶名 , vbOKOnly + vbExclamation, 警告 Else If = Then MsgBox 密碼不能為空 , vbOKOnly + vbExclamation, 警告 = Else If = Then MsgBox 請(qǐng)確認(rèn)新密碼 , vbOKOnly + vbExclamation, 警告 = 產(chǎn)品進(jìn)銷存管理系統(tǒng) 38 Else If Then MsgBox 兩次輸入密碼不一致 ,請(qǐng)重新輸入密碼 , vbOKOnly + vbExclamation, 警告 = = Else select * from login where 用戶名 =39。 amp。 amp。 39。, , adOpenDynamic, adLockOptimistic (0).Value = (1).Value = (用戶名 ) = (密碼 ) = 39。修改權(quán)限設(shè)置的紀(jì)錄 MsgBox (用戶名及密碼修改成功 !) = True Unload Me End If End If End If End If End If End If End If End If End If End Sub Private Sub Command2_Click() = = = 產(chǎn)品進(jìn)銷存管理系統(tǒng) 39 = = = End Sub Private Sub Command3_Click() = True Unload Me End Sub 167。 刪除用戶模塊設(shè)計(jì) 1. 實(shí)現(xiàn)目標(biāo) 程序啟動(dòng)后，選擇“系統(tǒng)設(shè)置”菜單下的“用戶管理”下的“刪除用戶”項(xiàng)，將進(jìn)入刪除用戶模塊。該模塊主要實(shí)現(xiàn)如下功能： ① 完成刪除用戶和密碼的設(shè)置。 ② 支持鼠標(biāo)和鍵盤操作。 刪除用戶界面如圖 。 圖 刪除用戶界面 2. 程序代碼 Dim As New Dim rs As New Dim rs1 As New Private Sub Form_Load() = amp。 \ End Sub 產(chǎn)品進(jìn)銷存管理系統(tǒng) 40 Private Sub Form_Activate() End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If KeyCode = vbKeyUp Then End Sub Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then = True Else If KeyCode = vbKeyUp Then End If End Sub Private Sub Command1_Click() Set = New Set rs = New Set rs1 = New Provider=。Data Source= amp。 amp。 \ = select * from quanxianshezhi where 用 戶 名 =39。 amp。 amp。 39。 If Trim() = Then MsgBox 請(qǐng)輸入用戶名稱 , vbOKOnly + vbExclamation, 警告 Else select * from login where 用戶名 =39。 amp。 amp。 39。, , adOpenStatic, adLockOptimistic If = True Then MsgBox 這個(gè)用戶不存在 ,請(qǐng)重新輸入用戶名 , vbOKOnly + vbExclamation, 警告 產(chǎn)品進(jìn)銷存管理系統(tǒng) 41 = = = Else If = Then MsgBox 密碼不能為空 , vbOKOnly + vbExclamation, 警告 = Else If (1) Then MsgBox 密碼不正確 ,請(qǐng)重新輸入 !, vbOKOnly + vbExclamation, 警告 = = Else If = Then MsgBox 請(qǐng)確認(rèn)密碼 , vbOKOnly + vbExclamation, 警告 = Else If Then MsgBox 兩次輸入密碼不一致 ,請(qǐng)重新輸入密碼 , vbOKOnly + vbExclamation, 警告 = = Else select * from login where 用戶名 =39。 amp。 amp。 39。, , adOpenDynamic, adLockOptimistic 39。刪除權(quán)限設(shè)置的紀(jì)錄 MsgBox 刪 除成功 , vbOKOnly + vbExclamation, 刪除結(jié)果 = True Unload Me 產(chǎn)品進(jìn)銷存管理系統(tǒng) 42 End If End If End If End If