超市進(jìn)銷存管理系統(tǒng)(編輯修改稿)

　

【文章內(nèi)容簡介】 tAccess將從一個或多個表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報表。例如，可以打印一份將數(shù)據(jù)分組并計算數(shù)據(jù)總和的報表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報表。第 二 章 系統(tǒng)的分析2．1 系統(tǒng)開發(fā)的目標(biāo)和思想本系統(tǒng)開發(fā)目標(biāo)是服務(wù)于高速公路收費管理人員,方便工作人員,對過往車輛收費,發(fā)放收費票據(jù)記錄,對信息的分類管理等.同時力求做到界面人性化,功能齊全,數(shù)據(jù)存儲安全. 系統(tǒng)的可行性分析技術(shù)上:本系統(tǒng)采用visual basic ,技術(shù)上開發(fā)難度一般.經(jīng)濟(jì)上:本系統(tǒng)服務(wù)于超市管理人員,提高了工作人員辦事效率,.社會上:本系統(tǒng)同時也方便了廣大顧客,.所以具有社會可行性.第 三 章 系統(tǒng)的設(shè)計3．1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計程序登陸主界面商品類型管理商品管理報損管理進(jìn)貨管理銷售管理供貨商管理銷售分析幫助退出3．2 系統(tǒng)的數(shù)據(jù)庫設(shè)計1:用戶登陸表:2:購入商品表:3:商品保損表:4:商品信息表:5:供應(yīng)商表:6:銷售表: 界面設(shè)計與代碼設(shè)計1. 登陸界面設(shè)計:代碼分析: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。設(shè)置控件默認(rèn)值 Call SetDefaultValue 39。設(shè)置狀態(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ù)新增、編輯或查看設(shè)置顯示內(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。設(shè)置控件默認(rèn)值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。客戶類型Id 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:供應(yīng)商表:代碼分析: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。設(shè)置控件默認(rèn)值 Call SetDefaultValue 39。設(shè)置狀態(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ù)新增、編輯或查看設(shè)置顯示內(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。設(shè)置控件默認(rèn)值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