【正文】 ror strConnection = Provider=。執(zhí)行命令 iflag = 1 End If TransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit Function TransactSQL_Error: MsgBox 查詢錯誤： amp。 / amp。 / amp。調(diào) 入入庫登記 c1_Click Case Is = ck 39。調(diào)入數(shù)據(jù)備份 a5_Click End Select End Sub Private Sub x_Click() End End Sub ● 登陸模塊的實現(xiàn) 購買設(shè)計 ： 648888133 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 25 Private Sub cmdLogin_Click() denlu_name = denlu_pass = Dim my As New Dim myrs As New Set myrs = New Provider=。, my, adOpenKeyset, adLockOptimistic If = True And = True Then MsgBox 查無此人 , , 登陸信息 Else If myrs(userPWD) = denlu_pass Then 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 UserName amp。判斷兩次密碼是否相同 MsgBox 兩次輸入的密碼不一致，請重新輸入密碼！ , vbOKOnly + vbExclamation, 警告 = = 購買設(shè)計 ： 648888133 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 27 Exit Sub ElseIf Trim() = Then 39。 UserName sql = sql amp。 PassWord amp。判斷是否輸入舊密碼 MsgBox 請輸入舊密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If Trim() = Then 39。 amp。 sql = sql amp。但它無法對數(shù)據(jù)進行動態(tài)輸入，只能提供瀏覽功能。設(shè)置每列寬度 (i) = 1400 Next i (12) = 2020 Set rs = transactSQL(sql) If = False Then 39。設(shè)置表頭 (0, 0) = 貨物 編碼 (0, 1) = 貨物 名稱 (0, 2) = 類別 (0, 3) = 型號 (0, 4) = 單位 (0, 5) = 倉庫編碼 (0, 6) = 存放倉庫 (0, 7) = 入庫計劃單價 (0, 8) = 出庫計劃單價 (0, 9) = 原始 倉庫 (0, 10) = 默認(rèn)貨位 (0, 11) = 警戒底線 倉庫 (0, 12) = 警戒高線 倉庫 For i = 0 To 12 39。 39。 39。判斷兩次密碼是否相同 MsgBox 兩次密碼不同！ , vbOKOnly + vbExclamation, 警告 = = Else 39。) transactSQL (sql) MsgBox 添加成功！ , vbOKOnly + vbExclamation, 添加結(jié)果 39。,39。添加用戶 sql = insert into 用戶 (UserID,UserPWD) values(39。 Set rs = transactSQL(sql) If = False Then 39。判斷用戶名稱是否為空 MsgBox 請輸入用戶名稱 !, vbOKOnly + vbExclamation, 警告 Exit Sub Else sql = select * from 用戶 where UserID=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。 SELECT * FROM [用戶 ] where userID=39。調(diào)入 倉庫 匯總 f1_Click Case Is = zhcx 39。 / amp。 / amp。調(diào)入數(shù)據(jù)備份 Load main_sjbf = False End Sub 圖 5－ 1 主窗體界 面 購買設(shè)計 ： 648888133 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 21 Private Sub a6_Click() 39。打開連接 If StrComp(UCase$(strArray(0)), select, vbTextCompare) = 0 Then Trim$(sql), con, adOpenKeyset, adLockOptimistic Set transactSQL = rs 39。添加執(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。 通過運行程序首先進入歡迎界面和登陸窗體，通過輸入密碼，驗證身份后進入主窗體，在主窗體上有 10 個菜單項，分別對應(yīng)各自的功能模塊窗體，包括系統(tǒng)， 倉庫 管理，入庫管理，出庫管理，盤存管理，綜合管理，附項管理，歷史數(shù)據(jù)管理，打印和查詢。 幫助：本系統(tǒng)的幫助信息，包括應(yīng)用程序的版本信息； 管理 貨物 信息管理：對倉庫里的 貨物 進行登記； 貨物 倉庫 管理：管理倉庫的 倉庫 情況； 短線 貨物 管理：對倉庫里短線的 貨物 進行登記，以便及時采購補貨； 超儲 貨物 管理：對倉庫里超儲的 貨物 進行登記，控制 倉庫 量，減少進貨； 入庫登記管理：能對 貨物 的入庫登記，刪除，更改等； 入庫期間統(tǒng)計： 貨物 入庫期間年度的統(tǒng)計； 供貨單位期間供貨金額統(tǒng)計：對 貨物 供應(yīng)的金額進行統(tǒng)計； 對 貨物 出庫期間的年度統(tǒng)計，出庫登記，及收獲單位金額統(tǒng)計等； 對盤存 貨物 信息的盤存錄入； 可根據(jù)同一 貨物 的出入庫情況，對 倉庫 情況的匯總； 對供貨單位情況，經(jīng)辦人員，收貨單位情況，倉庫信息進行登記管理，可進行添加，刪除等操作； 對歷史 倉庫 ，歷史出庫，歷史出庫情況進行管理； 可根據(jù)輸入的條件，對 貨物 的入庫信息， 倉庫 信息等進行簡單查詢和組合查詢。操作快捷、方便。 ，業(yè)務(wù)操作簡單，進入系統(tǒng)即能使用。倉庫管理人員可以瀏覽 、查詢、添加、刪除等 貨物 的基本信息以及統(tǒng)計等，并可以對一些基本的信息生成報表形式，并打印輸出的功能。 當(dāng)然，倉庫中 貨物 入庫也是常有的事，入庫管理操作就是對于 貨物 入庫情況的管理，用戶可以方便地輸入一些 貨物 的信息。 2 流程中的各個模塊是什么及其功能。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功能。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。 Access 2020 簡述 Access2020 是關(guān)系數(shù)據(jù)庫開發(fā)工具， 1992年， Microsoft Access 作為第一個面向 Windows操作平臺的桌面數(shù)據(jù)庫管理系統(tǒng)而誕生，它不但充分體現(xiàn)了面向?qū)ο蟮乃枷耄峁┛梢暬木幊淌侄?，而且充分利用?Windows操作平臺的優(yōu)越性，采用與 Windows完全一致的界面風(fēng)格，使界面非常友好。 （ 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” 在這個命令中字段名 Vss_code為船名代碼， Voyage為航次， ctn_size為集裝箱號， weight為集裝箱重量。amp。 ● Davg Function（求平均值） ● Dcount Function（計算滿足條件的記錄數(shù)） ● Dfirst Function（返回記錄集的第一個記錄的某個域值） ● Dlast Function（返回記錄集的最后一個記錄的某個域值） ● Dlookup Function（返回記錄集中滿足待定條件的記錄的域值） ● Dsum Function（求和計算） ● Dmax Function（求最大值） ● Dmin Function（求最小值） 利用以上的 SQL 函數(shù)能夠方便地進行數(shù)據(jù)庫文件記錄地查詢和統(tǒng)計工作，以 Dsum 為例，語法如下： 購買設(shè)計 ： 648888133 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 10 Dsum(expr,clomain[,criteria]) 例：計算目的港為英國地所有訂單地運費總和。 MSChart控件 MSChart 控件的功能是以圖形方式顯示數(shù)據(jù)的圖表。 DataGrid控件 在許多情況下，需要使用表格形式來顯示數(shù)據(jù)庫中的數(shù)據(jù)。 ADO Data控件 ADO Data控件與內(nèi) 部 Data控件以及 Remote Data控件（ RDC）相似。當(dāng) Data控件中當(dāng)前記錄發(fā)生變化時，數(shù)據(jù)覺察控件的內(nèi)容也會隨之發(fā)生變化。 購買設(shè)計 ： 648888133 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 9 Data 控件可以執(zhí)行大部分?jǐn)?shù)據(jù)庫訪問操作，但是它并不能顯示數(shù)據(jù)庫中數(shù)據(jù)的內(nèi)容。 Data控件 Data控件是 Visual Basic中最基本的數(shù)據(jù)庫操作控件。例如幾個窗體上的添加、刪除、返回按鈕的作用，就是通過在 各個相應(yīng)按鈕的代碼窗口中輸入相應(yīng)的代碼，來達到當(dāng)在幾個按鈕上出現(xiàn)單擊（ Click）事件后，相應(yīng)按鈕實現(xiàn)添加、刪除、返回的功能的。這樣，設(shè)計一個 Windows應(yīng)用程序簡化為用鼠標(biāo)在屏 幕上點擊、拖拽并添加少量的代碼就可以完成了，大大降低了對程序設(shè)計的要求，提高了應(yīng)用程序的開發(fā)效率。用戶通過在屏幕上生成窗體，在窗體中繪制所需要的控件和按鈕，設(shè)計菜單和對話框， VB會自動生成相應(yīng)的代碼。 購買設(shè)計 ： 648888133 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最