【正文】 式。 14) DragMode 屬性：設(shè)置 /返回一個(gè)值，確定在拖放操作中所用的方式。 10) DataField 屬性：設(shè)置 /返回?cái)?shù)據(jù)使用者將被綁定到的字段名。 6) Value 屬性：反映控件狀態(tài)的屬性 ,返回 true 表示已選擇了該按鈕。 2) Alignment 屬性：決定單選按鈕的標(biāo)題在控件上的位置。 6) Change 事件屬性：文本框的內(nèi)容發(fā)生改變時(shí) ,相應(yīng)的控件之間發(fā)生相應(yīng)的改變 ,具有即時(shí)性。 2) Maxlength 屬性：該屬性設(shè)定在文本框控件中能夠輸入的最大字符數(shù)。 ? 標(biāo)簽框類(lèi)的控件類(lèi)的控件： 1) Caption 屬性：在應(yīng)用程序界面上加入說(shuō)明。 6） KeyPress 事件：當(dāng)用戶按下或松開(kāi)一個(gè) ANSI 鍵時(shí)發(fā)生。 （ 2） 事件處理過(guò)程 按鈕單擊事件的處理過(guò)程為： Private Sub objectClick（ Index As Integer） 其中 Object 為引發(fā)該事件的對(duì)象名稱(chēng)。 13) DisabledPicture 屬性：設(shè)置 /返回一個(gè)對(duì)圖片的引用，該圖片在控件無(wú)效時(shí)顯示在控件中。 3) Appearance 屬性：值為 1 時(shí) ,則以 3D 效果顯示該控件 ,0 則不然。隨著微軟對(duì)它不斷地改進(jìn)以及計(jì)算機(jī)本身性能的提高，使得 Visual Basic 越來(lái)越適合一般的應(yīng)用程序開(kāi)發(fā)。 超市進(jìn)銷(xiāo)存 管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。而對(duì)于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。 Visual Basic 繼承了 Basic 語(yǔ)言易學(xué)易用的特點(diǎn)，特別適合于初學(xué)者學(xué)習(xí) Windows 系統(tǒng)編程。各行各業(yè)的人們無(wú)須經(jīng)過(guò)特別的訓(xùn)練就能夠使用電腦完成許許多多復(fù)雜的工作。 畢業(yè)設(shè)計(jì) 超市進(jìn)銷(xiāo)存 管理系統(tǒng) 院系 _________ 專(zhuān)業(yè) _________ 班級(jí) _________ 姓名 _________ 年 月 日 摘 要 ???????????????????????????? 1 Abstract???????????????????????????2 第一章 引言 ????????????????????????? 4 1． 1 課題背景 ?????????????????????????? 4 1． 2 系統(tǒng)簡(jiǎn)介?????????????????????? ???? 5 1. 3 開(kāi)發(fā)軟件介紹 ……………………………………………………………… 6 第二章 系統(tǒng)的分析???????????????????? ??? 8 2． 1 系統(tǒng)開(kāi)發(fā)的目標(biāo)和思想?????????????????? ?? 9 2． 2 系統(tǒng)的可行性分析???????????????????? ?? 13 第三章 系統(tǒng)的設(shè)計(jì) ???????????????????????1 8 3． 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)????????????????????? 18 3． 2 系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì) ……………………………………………………… .19 3． 3 界面設(shè)計(jì)與代碼設(shè)計(jì)?????????????????????????? 23 結(jié)束語(yǔ) ??????????????????????????????4 6 致謝 ???????????????????????????????4 7 參考文獻(xiàn) ??????????????????? 49 摘 要 隨著經(jīng)濟(jì)的發(fā)展，社會(huì)的進(jìn)步，計(jì)算機(jī)越來(lái)越深入到我們?nèi)粘５墓ぷ鲗W(xué)習(xí)及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助 工具。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開(kāi)發(fā)適合自己特殊需求的軟件。 超市進(jìn)銷(xiāo)存 管理系統(tǒng)用計(jì)算機(jī)管理 超市庫(kù)存進(jìn)出 管理的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新 ,在計(jì)算機(jī)還未普及之前 庫(kù)存 管理都是由工作人員手工書(shū)寫(xiě)的方式來(lái)操作的 .現(xiàn)在一般的 超市 都采用計(jì)算機(jī)智能化管理 ,采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī) 超市 庫(kù)存管理程序來(lái)幫助管理員進(jìn) 行更有效的 超市庫(kù)存 管理工作。 經(jīng)過(guò)分析 ,我們使用 MICROSOFT 公司的 VISUAL BASIC 開(kāi)發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象 ,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型 ,然后 ,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代 ,不斷修正和改進(jìn) ,直到形成用戶滿意的可行系統(tǒng)。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。正如 Bill Gate 所說(shuō)，世界上絕大多數(shù)的 Windows應(yīng)用程序是用 Visual Basic 編寫(xiě)的。 4) Backcolor 屬性：用來(lái)改變?cè)诎粹o上顯示圖像的背景色。 14) MaskColor 屬性： 設(shè)置 /返回一個(gè)在按鈕的圖片中作為“掩碼“的的顏色 15) Picture 屬性：設(shè)置返回 mandButton 控件中要顯示的圖片。如果是命令按鈕的控件是數(shù)組，則需要使用 Index 參數(shù)標(biāo)識(shí)該控件。 7） MouseDown 事件：當(dāng)在命令按鈕上按下鼠標(biāo)按鈕時(shí)發(fā)生。 2) Autosize 屬性：決定控件是否自動(dòng)改變大小以顯示其全部?jī)?nèi)容。 3) Multline 屬性：該屬性設(shè)定 text 字符串中是否接受換行符。 7) Keypress：事件由用戶在文本框控件中按任意鍵觸發(fā)。 3) Enable 屬性：該控件為灰色時(shí)為 false,表示運(yùn)行時(shí)不可用。 7) Appearance 屬性：設(shè)置 /返回一個(gè)對(duì)象在運(yùn)行時(shí)是否以 3D 效果顯示。 11) DataFormat 屬性：設(shè)置 /返回 DataFormat 對(duì)象，一個(gè)綁定對(duì)象將附加到它。 15) Font 屬性：設(shè)置 /返回字體屬性。 19) FontUnderLine 屬性：設(shè)置 /返回字體下劃線樣式。 24) MousePointer 屬性：設(shè)置 /返回一個(gè)值，該值指示在運(yùn)行時(shí)當(dāng)鼠標(biāo)移動(dòng)到對(duì)象上時(shí)顯示的指針類(lèi)型。 4） DragOver 事件： 在拖放操作正在進(jìn)行時(shí)發(fā)生。 8） KeyUp 事件： 當(dāng)控件具有焦點(diǎn)時(shí)釋放一個(gè)鍵時(shí)發(fā)生。 12） MouseUp 事件：在控件上釋放鼠標(biāo)時(shí)發(fā)生。 6) DataField 屬性：設(shè)置或返回?cái)?shù)據(jù)使用者將被綁定到的字段名。 10) DownPicture 屬性：設(shè)置或返回一個(gè)對(duì)圖片的引用，該 圖片在控件被單擊處于壓下?tīng)顟B(tài)時(shí)顯示。 14) Name 屬性：設(shè)置或返回控件的標(biāo)識(shí)名。 3） DragOver 事件：在拖放操作正在進(jìn)行時(shí)發(fā)生 。 ? 框架類(lèi)的控件： 1) List 屬性：列表框控件的表項(xiàng)是使用數(shù)組的方式保存 ,數(shù)組的每一個(gè)元素存儲(chǔ)列表控件的一個(gè)表項(xiàng) 1) Listcount 屬性 :控件列表部分項(xiàng)目的個(gè)數(shù)。 4) OnClick 事件：用來(lái)添加按鈕的單擊事件所執(zhí)行的程序代碼。三是 : 利用 DataEnvironment 進(jìn)行數(shù)據(jù)庫(kù)鏈接 .四是 利用 ADO(ActiveX Data Objects)進(jìn)行編程 :現(xiàn)在我們來(lái)大致對(duì)這幾種技術(shù)應(yīng)用介紹： 一、 用 data 控件進(jìn)行數(shù)據(jù)庫(kù)鏈接 . 第一步：給窗體添加一個(gè) Data 控件。 二、 利用 adodc（ ADO Data Control)進(jìn)行數(shù)據(jù)庫(kù)鏈接： 使用 adodata 控件訪問(wèn)數(shù)據(jù)庫(kù)可以完全不用編寫(xiě)代碼 ,只需要通過(guò)簡(jiǎn)單的設(shè)置和操作其屬性就可以實(shí)現(xiàn)與數(shù)據(jù)庫(kù)的連接 ,通過(guò)綁定數(shù)據(jù)感知控件 ,就能提供一個(gè)訪問(wèn)數(shù)據(jù)庫(kù)的界面 ,用來(lái)實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的瀏覽 ,貼加 ,刪除 ,修改等操作 . 三、 利用 DAO 對(duì)數(shù)據(jù)庫(kù)進(jìn)行操 縱 : 在 visual basic 中提供了兩種與 jet數(shù)據(jù)引擎接口的方法 :data控件與數(shù)據(jù)訪問(wèn)對(duì)象 (DAO)DAO 是 database object 的英文縮寫(xiě) ,要訪問(wèn)數(shù)據(jù)庫(kù)一方面數(shù)據(jù)庫(kù)要提供訪問(wèn)接口 ,另一方面要在編程環(huán)境中有對(duì)數(shù)據(jù)庫(kù)的支持 . DAO 模型是設(shè)計(jì)關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)結(jié)構(gòu)的對(duì)象類(lèi)的集合 .他們提供了管理關(guān)系型數(shù)據(jù)庫(kù)系統(tǒng)所需要的全部操作屬性和方法 ,這其中包括建立數(shù)據(jù)庫(kù) ,定義表 ,字段和建立表間關(guān)系 ,定位和查詢數(shù)據(jù)庫(kù)等 . 關(guān)系數(shù)據(jù)庫(kù) 介紹 : 關(guān)系數(shù)據(jù)庫(kù)是目前各類(lèi)數(shù)據(jù)庫(kù)中最重要、最流行的數(shù)據(jù)庫(kù)，他應(yīng)用數(shù)學(xué)方法來(lái)處理 數(shù)據(jù)庫(kù)數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫(kù)系統(tǒng)。 結(jié)構(gòu)化查詢語(yǔ)言 SQL（ Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語(yǔ)言，其功能包括查詢、操縱、定義和控制四個(gè)方面，是一個(gè)通用的、功能極強(qiáng)的關(guān)系數(shù)據(jù)庫(kù)語(yǔ)言。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。在打開(kāi)一個(gè)窗體時(shí)， Microsoft Access 將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在 “ 窗體向?qū)?” 選擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。ToDo: 創(chuàng)建測(cè)試密碼是否正確 39。 次機(jī)會(huì)，注意密碼區(qū)分大小寫(xiě) , vbCritical, 登錄 = 0 = Len() Else OK = True g_Account = Account End If End Sub 2:報(bào)損信息表 : 代碼分析 : Option Explicit Private OK As Boolean 39。調(diào)用此對(duì)話框的操作員 39。添加 = True = 確定 Case vtModify 39。保存數(shù)據(jù) Set m_obj = obj 39。根據(jù)新增、編輯或查看設(shè)置顯示內(nèi)容 SetStatus 39。設(shè)置控件默認(rèn)值 Private Sub SetDefaultValue() Dim ctl As Control Dim i As Integer 39?？蛻纛?lèi)型 Id Exit For End If Next i End With End If End Sub 39。注意以下利用 RealString 函數(shù)替換去除輸入中的單引號(hào) .Count = .Reason = RealString() .Remark = RealString() .MerchandiseID = () 39。確定按鈕 Private Sub OKButton_Click() OK = True 39。確定用戶按了 OK 還是 CANCEL 按鈕 Private m_obj As clsProvider 39。設(shè)置控件默認(rèn)值 Call SetDefaultValue 39。查看 = False = 關(guān)閉 End Select End Sub 39。對(duì)話框狀態(tài) 39。返回并釋放對(duì)話框 ShowDlg = True Unload Me End Function 39。用傳入對(duì)象的值更新數(shù)據(jù) With m_obj = .ProviderName = .Introduce = .Remark End With End If End Sub 39。注意以下利用 RealString 函數(shù)替換去除輸入中的單引號(hào) .ProviderName = RealString() .Introduce = RealString() .Remark = RealString() End With End Sub 39。如果是新增狀態(tài)，則初始化一個(gè)數(shù)據(jù)對(duì)象 If m_ViewType = vtadd Then Set m_obj = New clsProvider 39。設(shè)置 Width 屬性 If x 1500 Then x = 1500 If x ( 1500) Then x = 1500 = x = x = x + 40 = ( + 140) lblTitle(0).Width = 39。設(shè)置 height 屬性 If Then = ( + + ) Else = ( + ) End If = + = = 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。 按鈕代碼。 Case 向前 39。