【正文】 以完成了，大大降低了對程序設(shè)計的要求，提高了應用程序的開發(fā)效率。例如幾個窗體上的添加、刪除、返回按鈕的作用，就是通過在各 個相應按鈕的代碼窗口中輸入相應的代碼，來達到當在幾個按鈕上出現(xiàn)單擊（ Click）事件后，相應按鈕實現(xiàn)添加、刪除、返回的功能的。 Data控件 Data控件是 Visual Basic中最基本的數(shù)據(jù)庫操作控件。 Data 控件可以執(zhí)行大部分數(shù)據(jù)庫訪問操作，但是它并不能顯示數(shù)據(jù)庫中數(shù)據(jù)的內(nèi)容。當 Data控件中當前記錄發(fā)生變化時，數(shù)據(jù)覺察控件的內(nèi)容也會隨之發(fā)生變化。 ADO Data控件 ADO Data控件與內(nèi)部 Data控件以及 Remote Data控件（ RDC）相似。 DataGrid控件 在許多情況下，需要使用表格形式來顯示數(shù)據(jù)庫中的數(shù)據(jù)。 MSChart控件 MSChart控件的功能是以圖形方式顯示數(shù)據(jù)的圖表。 ● Davg Function（求平均值） ● Dcount Function（計算滿足條件的記錄數(shù)） ● Dfirst Function（返回記錄集的第一個記錄的某個域值） ● Dlast Function（返回記錄集的最后一個記錄的某個域值） ● Dlookup Function（返回記錄集中滿足待定條件的記錄的域值） ● Dsum Function（求和計算） ● Dmax Function（求最大值） ● Dmin Function（求最小值） 利用以上的 SQL函數(shù)能夠方便地進行數(shù)據(jù)庫文件記錄地查詢和統(tǒng)計工作，以 Dsum為例，語法如下： Dsum(expr,clomain[,criteria]) 例：計算目的港為英國地所有訂單地運費總和。amp。 （ 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為集裝箱重量。 Access 2021 簡述 Access2021 是關(guān)系數(shù)據(jù)庫開發(fā)工具， 1992 年， Microsoft Access 作為第一個面向Windows操作平臺的桌面數(shù)據(jù)庫管理系統(tǒng)而誕生，它不但充分體現(xiàn)了面向?qū)ο蟮乃枷?，提供可視化的編程手段，而且充分利用?Windows操作平臺的優(yōu)越性，采用與 Windows完全一致的界面風格，使界面非常友好。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。如上所述， Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功能。 2 流程中的各個模塊是什么及其功能。 當然，倉庫中貨物入庫也是常有的事，入庫管理操作就是對于貨物入庫情況的管理，用戶可以方便地輸入一些貨物的信息。倉庫管理人員可以瀏覽、查詢、添加、刪除等貨物的基本信息以及統(tǒng)計等，并可以對一些基本的信息生成報表形式，并打印輸出的功能。 ，業(yè)務操作簡單，進入系統(tǒng)即能使用。操作快捷、方便。 幫助：本系統(tǒng)的幫助信息，包括應用程序的版本信息； 貨物信息管理：對倉庫里的貨物進行登記； 貨物倉庫管理：管理倉庫的倉庫情況； 短線貨物管理：對倉庫里短線的貨物進行登記，以便及時采購補貨； 超儲貨物管理：對倉庫里超儲的貨物進行登記，控制倉庫量，減少進貨； 入庫登記管理：能對貨物的入庫登記，刪除，更改等； 入庫期間統(tǒng)計：貨物入庫期間年度的統(tǒng)計； 供貨單位期間供貨金額統(tǒng)計：對貨物供應的金額進行統(tǒng)計； 對貨物出庫期間的年度統(tǒng)計，出庫登記，及收獲單位金額統(tǒng)計等； 對盤存 貨物 信息的盤存錄入； 可根據(jù)同一 貨物 的出入庫情況，對倉庫情況的匯總； 對供貨單位情況，經(jīng)辦人員，收貨單位情況，倉庫信息進行登記管理，可進行添加，刪除等操作； 對歷史倉庫，歷史出庫，歷史出庫情況進行管理； 可根據(jù)輸入的條件，對 貨物 的入庫信息，倉庫信息等進行簡單查詢和組合查詢。 通過運行程序首先進入歡迎界面和登陸窗體，通過輸入密碼，驗證身份后進入主窗體，在主窗體上有 10 個菜單項，分別對應各自的功能模塊窗體，包括系統(tǒng)，倉庫管理，入庫管理，出庫管理，盤存管理，綜合管理，附項管理，歷史數(shù)據(jù)管理，打印和查詢。添加執(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 表 11 出庫登記 _h 表 12 出庫登記 _d Set con = New 39。打開連接 If StrComp(UCase$(strArray(0)), select, vbTextCompare) = 0 Then Trim$(sql), con, adOpenKeyset, adLockOptimistic Set transactSQL = rs 39。調(diào)入數(shù)據(jù)備份 Load main_sjbf = False End Sub Private Sub a6_Click() 39。 / amp。 / amp。調(diào)入倉庫匯總 f1_Click Case Is = zhcx 39。 SELECT * FROM [用戶 ] where userID=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。判斷用戶名稱是否為空 MsgBox 請輸入用戶名稱 !, vbOKOnly + vbExclamation, 警告 Exit Sub Else sql = select * from 用戶 where UserID=39。 Set rs = transactSQL(sql) If = False Then 39。添加用戶 sql = insert into 用戶 (UserID,UserPWD) values(39。,39。) transactSQL (sql) MsgBox 添加成功！ , vbOKOnly + vbExclamation, 添加結(jié)果 39。判斷兩次密碼是否相同 MsgBox 兩次密碼不同！ , vbOKOnly + vbExclamation, 警告 = = Else 39。 39。 39。設(shè)置表頭 (0, 0) = 貨物編碼 (0, 1) = 貨物名稱 (0, 2) = 類別 (0, 3) = 型號 (0, 4) = 單位 (0, 5) = 倉庫編碼 (0, 6) = 存放倉庫 (0, 7) = 入庫計劃單價 (0, 8) = 出庫計劃單價 (0, 9) = 原始倉庫 (0, 10) = 默認貨位 (0, 11) = 警戒底線倉庫 (0, 12) = 警戒高線倉庫 For i = 0 To 12 39。錯誤處理程序代碼置于此處 39。為這個 recordset 顯示當前記錄位置 = Record: amp。只有多用戶應用程序需要 On Error GoTo RefreshErr Exit Sub RefreshErr: MsgBox End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr adAffectAll Exit Sub UpdateErr: MsgBox End Sub Private Sub cmdClose_Click() Unload Me End Sub ●出庫登記模塊的實現(xiàn) Private Sub Form_Unload(Cancel As Integer) = vbDefault End Sub 圖 5－ 4 出庫登記窗口 Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 39。 Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) 39。下列動作發(fā)生時該事件被調(diào)用 Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancel End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr Exit Sub AddErr: MsgBox End Sub Private Sub cmdDelete_Click() On Error GoTo DeleteErr With
。 CStr() End Sub Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) 39。想要忽略錯誤，注釋掉下一行 39。驗證代碼置于此處 39。想要捕獲它們，在此添加代碼以處理它們 MsgBox Data error event hit err: amp。設(shè)置每列寬度 (i) = 1400 Next i (12) = 2021 Set rs = transactSQL(sql) If = False Then 39。但它無法對數(shù)據(jù)進行動態(tài)輸入，只能提供瀏覽功能。 sql = sql amp。 amp。判斷是否輸入舊密碼 MsgBox 請輸入舊密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If Trim() = Then 39。 PassWord amp。 UserName sql = sql amp。判斷兩次密碼是否相同