超市進銷存管理系統(tǒng)—計算機畢業(yè)設(shè)計(編輯修改稿)

　

【文章內(nèi)容簡介】 下幾種方式：一是： 用 data 控件進行數(shù)據(jù)庫鏈接 ，二是 利用 adodc（ ADO Data Control)進行數(shù)據(jù)庫鏈接 。三是 : 利用 DataEnvironment 進行數(shù)據(jù)庫鏈接 .四是 利用 ADO(ActiveX Data Objects)進行編程 :現(xiàn)在我們來大致對這幾種技術(shù)應(yīng)用介紹： 一、 用 data 控件進行數(shù)據(jù)庫鏈接 . 第一步：給窗體添加一個 Data 控件。 第二步：用 Access 建立一個名為 Pad 的數(shù)據(jù)庫，在庫中建立一個表 Myset，給表添加四個 字段： backcolor（數(shù)據(jù)）， forecolor(文本）， fontname(文本） ,fontsize（文本）。注意：請將庫文件存入程序所在目錄。 如果你的機器沒安裝有 Access，可通過 VB 建庫。 二、 利用 adodc（ ADO Data Control)進行數(shù)據(jù)庫鏈接： 使用 adodata 控件訪問數(shù)據(jù)庫可以完全不用編寫代碼 ,只需要通過簡單的設(shè)置和操作其屬性就可以實現(xiàn)與數(shù)據(jù)庫的連接 ,通過綁定數(shù)據(jù)感知控件 ,就能提供一個訪問數(shù)據(jù)庫的界面 ,用來實現(xiàn)對數(shù)據(jù)庫的瀏覽 ,貼加 ,刪除 ,修改等操作 . 三、 利用 DAO 對數(shù)據(jù)庫進行操 縱 : 在 visual basic 中提供了兩種與 jet數(shù)據(jù)引擎接口的方法 :data控件與數(shù)據(jù)訪問對象 (DAO)DAO 是 database object 的英文縮寫 ,要訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口 ,另一方面要在編程環(huán)境中有對數(shù)據(jù)庫的支持 . DAO 模型是設(shè)計關(guān)系數(shù)據(jù)庫系統(tǒng)結(jié)構(gòu)的對象類的集合 .他們提供了管理關(guān)系型數(shù)據(jù)庫系統(tǒng)所需要的全部操作屬性和方法 ,這其中包括建立數(shù)據(jù)庫 ,定義表 ,字段和建立表間關(guān)系 ,定位和查詢數(shù)據(jù)庫等 . 關(guān)系數(shù)據(jù)庫 介紹 : 關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應(yīng)用數(shù)學(xué)方法來處理 數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。 20 世紀 70 年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。 關(guān)系數(shù)據(jù)庫系統(tǒng)與非關(guān)系數(shù)據(jù)庫系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)只有 “ 表 “ 這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu)，對這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。 結(jié)構(gòu)化查詢語言 SQL（ Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的、功能極強的關(guān)系數(shù)據(jù)庫語言。目前已成為關(guān) 系數(shù)據(jù)庫的標準語言 Microsoft Access 介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。在這個文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨立的存儲空間中，這些空間稱作表；可以使用聯(lián)機窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報表以特定的版面布置來分析及打印數(shù)據(jù)。 如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個表。如果要從查詢、窗體或報表中的多個表中將數(shù)據(jù)合并在一起，就要定義各個表之間的關(guān)系。 如果要搜索并檢索符 合指定條件的數(shù)據(jù)，包括來自多個表中的數(shù)據(jù)，就要創(chuàng)建查詢。查詢的同時也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計算。 如果要簡單地直接在某個表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個窗體。在打開一個窗體時， Microsoft Access 將從一個或多個表中檢索數(shù)據(jù)，并使用用戶在 “ 窗體向?qū)?” 選擇的版面布局或所創(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ā)目標是服務(wù)于 高速公路收費管理人員 ,方便工作人員 ,對過往車輛收費 ,發(fā) 放收費票據(jù)記錄 ,對信息的分類管理等 . 同時力求做到界面人性化 ,功能齊全 ,數(shù)據(jù)存儲安全 . 系統(tǒng)的可行性分析 技術(shù)上 :本系統(tǒng)采用 visual basic 與微軟的 access 作為數(shù)據(jù)庫 ,技術(shù)上開發(fā)難度一般 . 經(jīng)濟上 :本系統(tǒng)服務(wù)于 超市管理人員 ,提高了工作人員辦事效率 ,節(jié)省了開支 .所以具有經(jīng)濟上的可行性 . 社會上 :本系統(tǒng)同時也方便了廣大顧客 ,.所以具有社會可行性 . 第 三 章 系統(tǒng)的設(shè)計 3． 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計 3． 2 系統(tǒng)的數(shù)據(jù)庫設(shè)計 1:用戶登陸表 : 2:購入商品表 : 程序登陸 主界面 商品類型管理 商品管理 報損管理 進貨管理 銷售管理 供貨商管理 銷售分析 幫助 退出 3:商品保損表 : 4:商品信息表 : 5:供應(yīng)商表 : 6:銷售表 : 界面設(shè)計與代碼設(shè)計 1. 登陸界面設(shè)計 : 代碼分析 : Option Explicit Private Declare Function GetUserName Lib Alias GetUserNameA (ByVal lpbuffer As String, nSize As Long) As Long Public OK As Boolean Dim m_Admin As New clsAdmin Dim m_nErrCount As Integer Private Sub Form_Load() m_nErrCount = 0 End Sub Private Sub cmdCancel_Click() OK = False End Sub Private 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 Sub 2:報損信息表 : 代碼分析 : Option Explicit Private 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 Long Private m_Account As String 39。調(diào)用此對話框的操作員 39。根據(jù)是“新增”還是修改，確定顯示內(nèi)容 Private Sub SetStatus() 39。設(shè)置控件默認值 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 Select End Sub 39。打開對話框，并傳出用戶輸入數(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 Function 39。設(shè)置控件默認值 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 Sub 39。檢查輸入有效性 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 Function 39。保存數(shù)據(jù) Private Sub SaveValue() 39。給“成員變量”對象賦值 With m_obj 39。注意以下利用 RealString 函數(shù)替換去除輸入中的單引號 .Count = .Reason = RealString() .Remark = RealString()