【正文】 以完成了，大大降低了對程序設計的要求，提高了應用程序的開發(fā)效率。例如幾個窗體上的添加、刪除、返回按鈕的作用，就是通過在各 個相應按鈕的代碼窗口中輸入相應的代碼，來達到當在幾個按鈕上出現單擊（ Click）事件后，相應按鈕實現添加、刪除、返回的功能的。 Data控件 Data控件是 Visual Basic中最基本的數據庫操作控件。 Data 控件可以執(zhí)行大部分數據庫訪問操作，但是它并不能顯示數據庫中數據的內容。當 Data控件中當前記錄發(fā)生變化時，數據覺察控件的內容也會隨之發(fā)生變化。 ADO Data控件 ADO Data控件與內部 Data控件以及 Remote Data控件（ RDC）相似。 DataGrid控件 在許多情況下，需要使用表格形式來顯示數據庫中的數據。 MSChart控件 MSChart控件的功能是以圖形方式顯示數據的圖表。 ● Davg Function（求平均值） ● Dcount Function（計算滿足條件的記錄數） ● Dfirst Function（返回記錄集的第一個記錄的某個域值） ● Dlast Function（返回記錄集的最后一個記錄的某個域值） ● Dlookup Function（返回記錄集中滿足待定條件的記錄的域值） ● Dsum Function（求和計算） ● Dmax Function（求最大值） ● Dmin Function（求最小值） 利用以上的 SQL函數能夠方便地進行數據庫文件記錄地查詢和統(tǒng)計工作，以 Dsum為例，語法如下： Dsum(expr,clomain[,criteria]) 例：計算目的港為英國地所有訂單地運費總和。amp。 （ 2）如何設置 Data控件的 Recordsource屬性 設置 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 是關系數據庫開發(fā)工具， 1992 年， Microsoft Access 作為第一個面向Windows操作平臺的桌面數據庫管理系統(tǒng)而誕生，它不但充分體現了面向對象的思想，提供可視化的編程手段，而且充分利用了 Windows操作平臺的優(yōu)越性，采用與 Windows完全一致的界面風格，使界面非常友好。數據表示圖提供了一種類似于 Excel 的電子表格，可以使數據庫一目了然。如上所述， Access 作為關系數據庫開發(fā)具備了許多優(yōu)點，可以在一個數據包中同時擁有桌面數據庫的便利和關系數據庫的強大功能。 2 流程中的各個模塊是什么及其功能。 當然，倉庫中貨物入庫也是常有的事，入庫管理操作就是對于貨物入庫情況的管理，用戶可以方便地輸入一些貨物的信息。倉庫管理人員可以瀏覽、查詢、添加、刪除等貨物的基本信息以及統(tǒng)計等，并可以對一些基本的信息生成報表形式，并打印輸出的功能。 ，業(yè)務操作簡單，進入系統(tǒng)即能使用。操作快捷、方便。 幫助：本系統(tǒng)的幫助信息，包括應用程序的版本信息； 貨物信息管理：對倉庫里的貨物進行登記； 貨物倉庫管理：管理倉庫的倉庫情況； 短線貨物管理：對倉庫里短線的貨物進行登記，以便及時采購補貨； 超儲貨物管理：對倉庫里超儲的貨物進行登記，控制倉庫量，減少進貨； 入庫登記管理：能對貨物的入庫登記，刪除，更改等； 入庫期間統(tǒng)計：貨物入庫期間年度的統(tǒng)計； 供貨單位期間供貨金額統(tǒng)計：對貨物供應的金額進行統(tǒng)計； 對貨物出庫期間的年度統(tǒng)計，出庫登記，及收獲單位金額統(tǒng)計等； 對盤存 貨物 信息的盤存錄入； 可根據同一 貨物 的出入庫情況，對倉庫情況的匯總； 對供貨單位情況，經辦人員，收貨單位情況，倉庫信息進行登記管理，可進行添加，刪除等操作； 對歷史倉庫，歷史出庫，歷史出庫情況進行管理； 可根據輸入的條件，對 貨物 的入庫信息，倉庫信息等進行簡單查詢和組合查詢。 通過運行程序首先進入歡迎界面和登陸窗體，通過輸入密碼，驗證身份后進入主窗體，在主窗體上有 10 個菜單項，分別對應各自的功能模塊窗體，包括系統(tǒng)，倉庫管理，入庫管理，出庫管理，盤存管理，綜合管理，附項管理，歷史數據管理，打印和查詢。添加執(zhí)行 SQL語句的函數 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。調入數據備份 Load main_sjbf = False End Sub Private Sub a6_Click() 39。 / amp。 / amp。調入倉庫匯總 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, 添加結果 39。判斷兩次密碼是否相同 MsgBox 兩次密碼不同！ , vbOKOnly + vbExclamation, 警告 = = Else 39。 39。 39。設置表頭 (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 ●出庫登記模塊的實現 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ā)生時該事件被調用 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。設置每列寬度 (i) = 1400 Next i (12) = 2021 Set rs = transactSQL(sql) If = False Then 39。但它無法對數據進行動態(tài)輸入，只能提供瀏覽功能。 sql = sql amp。 amp。判斷是否輸入舊密碼 MsgBox 請輸入舊密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If Trim() = Then 39。 PassWord amp。 UserName sql = sql amp。判斷兩次密碼是否相同