【正文】 New frmAddUser 0 End Sub Private Sub a3_Click() Dim fChangePWD As New frmChangePWD End Sub Private Sub a4_Click() End Sub Private Sub a5_Click() 39。調(diào)入數(shù)據(jù)恢復(fù) Load main_sjhf End Sub Private Sub b1_Click() frm貨物 信息 .Show End Sub Private Sub b12_Click() sql = select * from 貨物 信息 order by 貨物 編碼 (sql) End Sub Private Sub b2_Click() frm貨物 倉(cāng)庫(kù) .Show End Sub Private Sub B3_Click() frm超儲(chǔ) 貨物 .Show End Sub Private Sub b4_Click() frm短線 貨物 .Show End Sub Private Sub c1_Click() frm入庫(kù)登記 .Show End Sub Private Sub c2_Click() frm貨物 入庫(kù)年度統(tǒng)計(jì) .Show End Sub Private Sub c3_Click() frm供貨單位供貨分類金額統(tǒng)計(jì) .Show End Sub Private Sub c4_Click() frm供貨單位年 度供貨金額統(tǒng)計(jì) .Show 購(gòu)買設(shè)計(jì) ： 648888133 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 22 End Sub Private Sub Command1_Click() date1 = amp。 amp。 date2 = amp。 amp。 = date1 End Sub Private Sub d1_Click() frm出庫(kù)登記 .Show End Sub Private Sub d2_Click() frm貨物 出庫(kù)年度統(tǒng)計(jì) .Show End Sub Private Sub d3_Click() frm收貨單位期間收貨統(tǒng)計(jì) .Show End Sub Private Sub d4_Click() frm收貨單位年度收貨金額統(tǒng)計(jì) .Show End Sub Private Sub e1_Click() frm盤存錄入 .Show End Sub Private Sub e2_Click() frm盤存表 .Show End Sub Private Sub f1_Click() frm貨物 出入?yún)R總表 .Show End Sub 購(gòu)買設(shè)計(jì) ： 648888133 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 23 Private Sub g1_Click() frm經(jīng)辦人員 .Show End Sub Private Sub g2_Click() frm供貨單位 .Show End Sub Private Sub g3_Click() frm倉(cāng)庫(kù)信息 .Show End Sub Private Sub g5_Click() End Sub Private Sub h1_Click() frm歷史 倉(cāng)庫(kù) .Show End Sub Private Sub h2_Click() frm歷史入庫(kù) .Show End Sub Private Sub h3_Click() frm歷史出庫(kù) .Show End Sub Private Sub i1_Click() End Sub Private Sub i2_Click() End Sub Private Sub i3_Click() End Sub Private Sub j1_Click() 購(gòu)買設(shè)計(jì) ： 648888133 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 24 End Sub Private Sub j2_Click() End Sub Private Sub j3_Click() End Sub Private Sub j4_Click() End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case Is = rk 39。調(diào)入出庫(kù)登記 d1_Click Case Is = kchz 39。調(diào)入組合查詢 j4_Click Case Is = sjbf 39。Data Source=。 + denlu_name + 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 Else MsgBox 密碼不正確 , , 登陸信息 End If End If End Sub 購(gòu)買設(shè)計(jì) ： 648888133 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 26 ● 添加用戶模塊的實(shí)現(xiàn) Option Explicit Private Sub Command1_Click() Dim sql As String Dim rs As If Trim() = Then 39。 amp。 39。判斷是否已經(jīng)存在用戶 MsgBox 這個(gè)用戶已經(jīng)存在！請(qǐng)重新輸入用戶名稱！ , vbOKOnly + vbExclamation, 警告 = = = Exit Sub Else If Trim() Trim() Then 39。判斷密碼是 否為空 MsgBox 密碼不能為空！ , vbOKOnly + vbExclamation, 警告 = ConfirmPWD = Else 39。 amp。 39。 amp。 39。重新設(shè)置初始化為空 = = = End If End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = = = End Sub ● 修改用戶密碼的實(shí)現(xiàn) 購(gòu)買設(shè)計(jì) ： 648888133 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 28 Option Explicit Public gUserName As String Private Sub Command1_Click() Dim sql As String Dim rs As If Trim() = Then 39。判斷是否輸入新密碼 MsgBox 請(qǐng)輸入新密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub ElseIf Trim() Trim() Then 39。修改密碼 sql = update 用戶 set UserPWD = 39。 NewPWD amp。where UserID=39。 gUserName amp。 transactSQL (sql) MsgBox 密碼已經(jīng)修改！ , vbOKOnly + vbExclamation, 修改結(jié)果 Unload Me End If End If End Sub 購(gòu)買設(shè)計(jì) ： 648888133 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 29 Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = = = End Sub 對(duì)于 貨物 信息的瀏覽，主要采用了 MSFlexGrid 控件，它是一種 Active 控件，該控件提供了表格式界面，處理數(shù)據(jù)相當(dāng)靈活，具有只讀數(shù)據(jù)綁定、對(duì) 表格數(shù)據(jù)進(jìn)行顯示和操作、數(shù)據(jù)分組排序、 Data 控件賦值、文本自動(dòng)換行等功能。 具體代碼如下： Option Explicit Private Sub Command1_Click() End Sub Private Sub Form_Load() Dim sql As String sql = select * from 貨物 信息 order by 貨物 編碼 createList (sql) End Sub Public Sub createList(sql As String) Dim rs As New Dim i As Integer Dim rsGird As MSFlexGrid 圖 5－ 2 貨 物 信息界面 購(gòu)買設(shè)計(jì) ： 648888133 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 30 39。設(shè)置所有表格對(duì)齊方式 (i) = 4 Next i For i = 0 To 11 39。顯示信息內(nèi)容 = 1 While Not = + 1 ( 1, 0) = rs(0) ( 1, 1) = rs(1) ( 1, 2) = rs(2) ( 1, 3) = rs(3) ( 1, 4) = rs(4) ( 1, 5) = rs(5) ( 1, 6) = rs(6) ( 1, 7) = rs(7) ( 1, 8) = rs(8) ( 1, 9) = rs(9) ( 1, 10) = rs(10) ( 1, 11) = rs(11) ( 1, 12) = rs(12) 購(gòu)買設(shè)計(jì) ： 648888133 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 31 Wend End If End Sub ● 貨物 入庫(kù)登記模塊的實(shí)現(xiàn) Private Sub Form_Unload(Cancel As Int