【文章內(nèi)容簡介】 tAccess將從一個或多個表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報表。例如，可以打印一份將數(shù)據(jù)分組并計算數(shù)據(jù)總和的報表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標簽的報表。第 二 章 系統(tǒng)的分析2．1 系統(tǒng)開發(fā)的目標和思想本系統(tǒng)開發(fā)目標是服務于高速公路收費管理人員,方便工作人員,對過往車輛收費,發(fā)放收費票據(jù)記錄,對信息的分類管理等.同時力求做到界面人性化,功能齊全,數(shù)據(jù)存儲安全. 系統(tǒng)的可行性分析技術(shù)上:本系統(tǒng)采用visual basic ,技術(shù)上開發(fā)難度一般.經(jīng)濟上:本系統(tǒng)服務于超市管理人員,提高了工作人員辦事效率,.社會上:本系統(tǒng)同時也方便了廣大顧客,.所以具有社會可行性.第 三 章 系統(tǒng)的設計3．1 系統(tǒng)的功能結(jié)構(gòu)設計程序登陸主界面商品類型管理商品管理報損管理進貨管理銷售管理供貨商管理銷售分析幫助退出3．2 系統(tǒng)的數(shù)據(jù)庫設計1:用戶登陸表:2:購入商品表:3:商品保損表:4:商品信息表:5:供應商表:6:銷售表: 界面設計與代碼設計1. 登陸界面設計:代碼分析:Option ExplicitPrivate Declare Function GetUserName Lib Alias GetUserNameA (ByVal lpbuffer As String, nSize As Long) As LongPublic OK As BooleanDim m_Admin As New clsAdminDim m_nErrCount As IntegerPrivate Sub Form_Load() m_nErrCount = 0End SubPrivate Sub cmdCancel_Click() OK = False End SubPrivate Sub cmdOK_Click() 39。ToDo: 創(chuàng)建測試密碼是否正確 39。檢查正確密碼 Dim Account As String Dim Pwd As String Account = RealString() Pwd = RealString() 39。判斷密碼是否正確 If Not (Account, Pwd) Then m_nErrCount = m_nErrCount + 1 If m_nErrCount = 3 Then MsgBox 輸入密碼錯誤次數(shù)太多，請稍后重試, vbExclamation End End If MsgBox 密碼錯誤，再試一次！還有 amp。 3 m_nErrCount amp。 次機會，注意密碼區(qū)分大小寫, vbCritical, 登錄 = 0 = Len() Else OK = True g_Account = Account End If End Sub2:報損信息表:代碼分析:Option ExplicitPrivate OK As Boolean 39。確定用戶按了OK還是CANCEL按鈕Private m_obj As clsDispose 39。數(shù)據(jù)對象，用來存儲用戶輸入數(shù)據(jù)Public m_ViewType As gxcViewType 39。顯示狀態(tài)，指添加還是修改Private m_TypeId As LongPrivate m_Account As String 39。調(diào)用此對話框的操作員39。根據(jù)是“新增”還是修改，確定顯示內(nèi)容Private Sub SetStatus() 39。設置控件默認值 Call SetDefaultValue 39。設置狀態(tài) Select Case m_ViewType Case vtadd 39。添加 = True = 確定 Case vtModify 39。修改 = True = 保存 Case vtInfo 39。查看 = False = 關(guān)閉 End SelectEnd Sub39。打開對話框，并傳出用戶輸入數(shù)據(jù)Public Function ShowDlg(ByRef obj As Object, _ ByVal eViewType As gxcViewType, _ Optional nTypeId As Long = 1, _ Optional strUser As String = ) As Boolean 39。保存數(shù)據(jù) Set m_obj = obj 39。用戶輸入數(shù)據(jù)存放于此對象中 m_ViewType = eViewType 39。對話框狀態(tài) If nTypeId = 1 And (Not m_obj Is Nothing) Then m_TypeId = Else m_TypeId = nTypeId End If m_Account = strUser 39。調(diào)用此對話框的用戶賬號 39。根據(jù)新增、編輯或查看設置顯示內(nèi)容 SetStatus 39。顯示對話框 OK = False vbModal If OK = False Then ShowDlg = False Exit Function End If 39。保存數(shù)據(jù) Set obj = m_obj 39。返回并釋放對話框 ShowDlg = True Unload Me End Function39。設置控件默認值Private Sub SetDefaultValue() Dim ctl As Control Dim i As Integer 39。如果是新增，則清空所有文本框 39。此處判斷 m_obj為空與判斷m_ViewType = vtAdd等效，但更安全 If m_obj Is Nothing Then For Each ctl In Controls If TypeOf ctl Is TextBox Then = End If Next Else 39。用傳入對象的值更新數(shù)據(jù) With m_obj = .Count = .Reason = .Remark = 0 = .RegDate For i = 0 To 1 If (i) = .MerchandiseID Then = i 39?？蛻纛愋虸d Exit For End If Next i End With End If End Sub39。檢查輸入有效性Private Function CheckValid() As Boolean CheckValid = False If = _ Or = _ Or = Then MsgBox 請?zhí)顚懲戤呉陨细黜梼?nèi)容 Exit Function End If If = Then MsgBox 請?zhí)顚懲戤呉陨细黜梼?nèi)容 Exit Function End If If Not IsNumeric() Then MsgBox 數(shù)量請輸入數(shù)字 Exit Function End If If Not IsDate() Then MsgBox 請輸入正確的日期格式 Exit Function End If CheckValid = True End Function39。保存數(shù)據(jù)Private Sub SaveValue() 39。給“成員變量”對象賦值 With m_obj 39。注意以下利用RealString函數(shù)替換去除輸入中的單引號 .Count = .Reason = RealString() .Remark = RealString() .MerchandiseID = () 39。商品類型Id .MerchName = .RegDate = .OperatorId = m_Account 39。操作者賬號 End WithEnd Sub39。取消按鈕Private Sub CancelButton_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim opMerch As New clsOpMerch cboMerchNameEnd Sub39。確定按鈕Private Sub OKButton_Click() OK = True 39。檢測輸入有效性 If Not CheckValid Then Exit Sub 39。如果是新增狀態(tài)，則初始化一個數(shù)據(jù)對象 If m_ViewType = vtadd Then Set m_obj = New clsDispose 39。保存用戶輸入 SaveValue End Sub3:供應商表:代碼分析:Option ExplicitPrivate OK As Boolean 39。確定用戶按了OK還是CANCEL按鈕Private m_obj As clsProvider 39。數(shù)據(jù)對象，用來存儲用戶輸入數(shù)據(jù)Public m_ViewType As gxcViewType 39。顯示狀態(tài)，指添加還是修改39。根據(jù)是“新增”還是修改，確定顯示內(nèi)容Private Sub SetStatus() 39。設置控件默認值 Call SetDefaultValue 39。設置狀態(tài) Select Case m_ViewType Case vtadd 39。添加 = True = 確定 Case vtModify 39。修改 = True = 保存 Case vtInfo 39。查看 = False = 關(guān)閉 End SelectEnd Sub39。打開對話框，并傳出用戶輸入數(shù)據(jù)Public Function ShowDlg(ByRef obj As Object, _ ByVal eViewType As gxcViewType) As Boolean 39。保存數(shù)據(jù) Set m_obj = obj 39。用戶輸入數(shù)據(jù)存放于此對象中 m_ViewType = eViewType 39。對話框狀態(tài) 39。根據(jù)新增、編輯或查看設置顯示內(nèi)容 SetStatus 39。顯示對話框 OK = False vbModal If OK = False Then ShowDlg = False Exit Function End If 39。保存數(shù)據(jù) Set obj = m_obj 39。返回并釋放對話框 ShowDlg = True Unload Me End Function39。設置控件默認值Private Sub SetDefaultValue() Dim ctl As Control Dim i As Integer 39。如果是新增，則清空所有文本框 39。此處判斷 m_obj為空與判斷m_ViewType = vtAdd等效，但更安全 If m_obj Is Nothing Then For Each ctl In Controls If TypeOf ctl Is TextBox Then = End If Next Else 39。用傳入對象的值更新數(shù)據(jù) With m_obj = .ProviderName = .Introduce = .Remark End With End If End Sub39。檢查輸入有效性Private Function CheckValid() As Boolean If = _ Or = _ Or