【正文】 設(shè)置每列寬度 (i) = 1400 Next i (12) = 2020 Set rs = transactSQL(sql) If = False Then 39。設(shè)置表頭 (0, 0) = 貨物 編碼 (0, 1) = 貨物 名稱 (0, 2) = 類別 (0, 3) = 型號(hào) (0, 4) = 單位 (0, 5) = 倉庫編碼 (0, 6) = 存放倉庫 (0, 7) = 入庫計(jì)劃單價(jià) (0, 8) = 出庫計(jì)劃單價(jià) (0, 9) = 原始 倉庫 (0, 10) = 默認(rèn)貨位 (0, 11) = 警戒底線 倉庫 (0, 12) = 警戒高線 倉庫 For i = 0 To 12 39。但它無法對(duì)數(shù)據(jù)進(jìn)行動(dòng)態(tài)輸入，只能提供瀏覽功能。 39。 sql = sql amp。 39。 amp。判斷兩次密碼是否相同 MsgBox 兩次密碼不同！ , vbOKOnly + vbExclamation, 警告 = = Else 39。判斷是否輸入舊密碼 MsgBox 請(qǐng)輸入舊密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If Trim() = Then 39。) transactSQL (sql) MsgBox 添加成功！ , vbOKOnly + vbExclamation, 添加結(jié)果 39。 PassWord amp。,39。 UserName sql = sql amp。添加用戶 sql = insert into 用戶 (UserID,UserPWD) values(39。判斷兩次密碼是否相同 MsgBox 兩次輸入的密碼不一致，請(qǐng)重新輸入密碼！ , vbOKOnly + vbExclamation, 警告 = = 購買設(shè)計(jì) ： 648888133 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 27 Exit Sub ElseIf Trim() = Then 39。 Set rs = transactSQL(sql) If = False Then 39。 UserName amp。判斷用戶名稱是否為空 MsgBox 請(qǐng)輸入用戶名稱 !, vbOKOnly + vbExclamation, 警告 Exit Sub Else sql = select * from 用戶 where UserID=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。 MsgBox 身份正確 , , 登陸信息 Unload Me 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。, my, adOpenKeyset, adLockOptimistic If = True And = True Then MsgBox 查無此人 , , 登陸信息 Else If myrs(userPWD) = denlu_pass Then 39。 SELECT * FROM [用戶 ] where userID=39。調(diào)入數(shù)據(jù)備份 a5_Click End Select End Sub Private Sub x_Click() End End Sub ● 登陸模塊的實(shí)現(xiàn) 購買設(shè)計(jì) ： 648888133 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 25 Private Sub cmdLogin_Click() denlu_name = denlu_pass = Dim my As New Dim myrs As New Set myrs = New Provider=。調(diào)入 倉庫 匯總 f1_Click Case Is = zhcx 39。調(diào) 入入庫登記 c1_Click Case Is = ck 39。 / amp。 / amp。 / amp。 / amp。調(diào)入數(shù)據(jù)備份 Load main_sjbf = False End Sub 圖 5－ 1 主窗體界 面 購買設(shè)計(jì) ： 648888133 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 21 Private Sub a6_Click() 39。執(zhí)行命令 iflag = 1 End If TransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit Function TransactSQL_Error: MsgBox 查詢錯(cuò)誤： amp。打開連接 If StrComp(UCase$(strArray(0)), select, vbTextCompare) = 0 Then Trim$(sql), con, adOpenKeyset, adLockOptimistic Set transactSQL = rs 39。創(chuàng)建記錄集 On Error GoTo TransactSQL_Error strConnection = Provider=。添加執(zhí)行 SQL語句的函數(shù) Public Function transactSQL(ByVal sql As String) As Dim con As Dim rs As Dim strConnection As String Dim strArray() As String Set con = New 39。 程序源代碼 程序?qū)崿F(xiàn)的部分代碼如下： ●公共模塊 Public date1 As String Public date2 As String Public gUserName As String 39。 通過運(yùn)行程序首先進(jìn)入歡迎界面和登陸窗體，通過輸入密碼，驗(yàn)證身份后進(jìn)入主窗體，在主窗體上有 10 個(gè)菜單項(xiàng)，分別對(duì)應(yīng)各自的功能模塊窗體，包括系統(tǒng)， 倉庫 管理，入庫管理，出庫管理，盤存管理，綜合管理，附項(xiàng)管理，歷史數(shù)據(jù)管理，打印和查詢。 ● 入庫登記統(tǒng)計(jì)表 入庫登記 _合計(jì) ● 貨物 入庫年度統(tǒng)計(jì)表 入庫登記 _n ● 供貨單位年度供貨金額統(tǒng)計(jì)表 入庫登記 _w ● 倉庫 匯總 表 倉庫 ● 出庫登記統(tǒng)計(jì)表 出庫登記 _合計(jì) ● 貨物 出庫年度統(tǒng)計(jì)表 出庫登記 _h ● 收貨單位年度收貨金額統(tǒng)計(jì)表 出庫登記 _d 入庫登記 _合計(jì)表與出庫登記 _合計(jì)分別是以入庫登記表和出庫登記表為基礎(chǔ)的，所以此處不再描述； 倉庫 匯總表主要由出庫表和入庫表建立關(guān)系獲得。 幫助：本系統(tǒng)的幫助信息，包括應(yīng)用程序的版本信息； 管理 貨物 信息管理：對(duì)倉庫里的 貨物 進(jìn)行登記； 貨物 倉庫 管理：管理倉庫的 倉庫 情況； 短線 貨物 管理：對(duì)倉庫里短線的 貨物 進(jìn)行登記，以便及時(shí)采購補(bǔ)貨； 超儲(chǔ) 貨物 管理：對(duì)倉庫里超儲(chǔ)的 貨物 進(jìn)行登記，控制 倉庫 量，減少進(jìn)貨； 入庫登記管理：能對(duì) 貨物 的入庫登記，刪除，更改等； 入庫期間統(tǒng)計(jì)： 貨物 入庫期間年度的統(tǒng)計(jì)； 供貨單位期間供貨金額統(tǒng)計(jì)：對(duì) 貨物 供應(yīng)的金額進(jìn)行統(tǒng)計(jì)； 對(duì) 貨物 出庫期間的年度統(tǒng)計(jì)，出庫登記，及收獲單位金額統(tǒng)計(jì)等； 對(duì)盤存 貨物 信息的盤存錄入； 可根據(jù)同一 貨物 的出入庫情況，對(duì) 倉庫 情況的匯總； 對(duì)供貨單位情況，經(jīng)辦人員，收貨單位情況，倉庫信息進(jìn)行登記管理，可進(jìn)行添加，刪除等操作； 對(duì)歷史 倉庫 ，歷史出庫，歷史出庫情況進(jìn)行管理； 可根據(jù)輸入的條件，對(duì) 貨物 的入庫信息， 倉庫 信息等進(jìn)行簡單查詢和組合查詢。系統(tǒng)集輸入、維護(hù)、查詢、統(tǒng)計(jì)和各種處理為一體，信息導(dǎo)入導(dǎo)出方便共享。操作快捷、方便。 ， 選用具有大型數(shù)據(jù)庫安全機(jī)制的 數(shù)據(jù)庫系統(tǒng) ，提供各種級(jí)別的數(shù)據(jù)保護(hù)和權(quán)限控制方式，確保數(shù)據(jù)的安全可靠。 ，業(yè)務(wù)操作簡單，進(jìn)入系統(tǒng)即能使用。 購買設(shè)計(jì) ： 648888133 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 12 本系統(tǒng)基本涵蓋了 倉庫 管理的主要需求， 具有完善細(xì)致的功能、友好的用戶界面、強(qiáng)大的數(shù)據(jù)處理功能和完備的安全機(jī)制；隨心所欲的查詢和所見即所得的打印功能，并全面支持分析和決策的功能。倉庫管理人員可以瀏覽 、查詢、添加、刪除等 貨物 的基本信息以及統(tǒng)計(jì)等，并可以對(duì)一些基本的信息生成報(bào)表形式，并打印輸出的功能。 倉庫 貨物 的信息量大，數(shù)據(jù)安全性和保密性要求高。 當(dāng)然，倉庫中 貨物 入庫也是常有的事，入庫管理操作就是對(duì)于 貨物 入庫情況的管理，用戶可以方便地輸入一些 貨物 的信息。 貨物進(jìn)出庫管理系統(tǒng) 需滿足倉庫管理員及工作人員的需求，他們具有登陸應(yīng)用系統(tǒng)的權(quán)限，所以需要對(duì)工作人員的登陸本模塊進(jìn)行更多的考慮，設(shè)計(jì)不同用戶的操作權(quán)限和登陸方法。 2 流程中的各個(gè)模塊是什么及其功能。 存在的問題 雖然知道這個(gè)系統(tǒng)的主要模塊是什么，但是要實(shí)現(xiàn)這些模塊的功能還需要知道該怎么樣才能實(shí)現(xiàn)各個(gè)模塊的功能 。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。 Access 也提供了數(shù)據(jù)存儲(chǔ)庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。 數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。 Access 2020 簡述 Access2020 是關(guān)系數(shù)據(jù)庫開發(fā)工具， 1992年， Microsoft Access 作為第一個(gè)面向 Windows操作平臺(tái)的桌面數(shù)據(jù)庫管理系統(tǒng)而誕生，它不但充分體現(xiàn)了面向?qū)ο蟮乃枷?，提供可視化的編程手段，而且充分利用?Windows操作平臺(tái)的優(yōu)越性，采用與 Windows完全一致的界面風(fēng)格，使界面非常友好。 AS為關(guān)鍵字表示，并定義了別名。 （ 2）如何設(shè)置 Data控件的 Recordsource屬性 設(shè)置 Datasource屬性的命令為： =”Setect Vss_code,voyage,Sum(weight)AS Weight20 from monthquery where ctn_size=?20?group by Vss_code,Voyage” 在這個(gè)命令中字段名 Vss_code為船名代碼， Voyage為航次， ctn_size為集裝箱號(hào)， weight為集裝箱重量。這里用到了 Setect Statement) 以后如果需要這樣的查詢，只需要引用查詢名 ”monthquery”即可。amp。這種改變基于數(shù)據(jù)庫關(guān)系視圖的記錄集，這里我們介紹提取記錄信息的有效方法。 ● Davg Function（求平均值）