【正文】 b Private Sub c4_Click() frm供貨單位年度 供貨金額統(tǒng)計(jì) .Show 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 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() 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 ● 添加用戶模塊的實(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) 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 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 圖 5－ 2 貨物信息界面 Dim i As Integer Dim rsGird As MSFlexGrid 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) Wend End If End Sub ●貨物入庫(kù)登記模塊的實(shí)現(xiàn) Private Sub Form_Unload(Cancel As Integer) = vbDefault End Sub 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。想要忽略錯(cuò)誤，注釋掉下一行 39。 Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) 39。 CStr() End Sub 圖 5－ 3 入庫(kù)登記窗口 Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) 39。下列動(dòng)作發(fā)生時(shí)該事件被調(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 .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox End Sub Private Sub cmdRefresh_Click() 39。錯(cuò)誤處理程序代碼置于此處 39。想要捕獲它們，在此添加代碼以處理它們 MsgBox Data error event hit err: amp。為這個(gè) recordset 顯示當(dāng)前記錄位置 = Record: amp。驗(yàn)證代碼置于 此處 39