【正文】 =============== 39。=============================================== Private Sub mnuBuy_Click() 39。 人員管理操作 39。=============================================== 39。39。39。39。39。39。39。39。39。39。 39。39。39。39。39。39。39。39。39。39。39。mnuVAIByType_Click39。mnuVAIByName_Click39。mnuViewRefresh_Click39。 MsgBox 添加 39。 按鈕代碼。粘貼 39。應(yīng)做 :添加 39。 Case 剪切 39。 按鈕代碼。39。39。39。39。39。39。39。39。39。39。 39。39。39。39。39。39。39。39。39。39。設(shè)置 Top 屬性 If Then = + Else = End If = 39。檢測輸入有效性 If Not CheckValid Then Exit Sub 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ù)存放于此對(duì)象中 m_ViewType = eViewType 39。根據(jù)是“新增”還是修改，確定顯示內(nèi)容 Private Sub SetStatus() 39。取消 按鈕 Private Sub CancelButton_Click() Unload Me End Sub Private Sub Form_Load() Dim opMerch As New clsOpMerch cboMerchName End Sub 39。用傳入對(duì)象的值更新數(shù)據(jù) With m_obj = .Count = .Reason = .Remark = 0 = .RegDate For i = 0 To 1 If (i) = .MerchandiseID Then = i 39。調(diào)用此對(duì)話框的用戶賬號(hào) 39。設(shè)置狀態(tài) Select Case m_ViewType Case vtadd 39。 3 m_nErrCount amp。 如果要簡單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個(gè)窗體。 關(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)，對(duì)這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。為 false 時(shí)處于休眠 狀態(tài) . Visual 連接數(shù)據(jù)庫的主要方式以下幾種方式：一是： 用 data 控件進(jìn)行數(shù)據(jù)庫鏈接 ，二是 利用 adodc（ ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接 。 6） OLEDragDrag 事件：當(dāng)源部件決定放操作能發(fā)生，卻源部件被放到目標(biāo)部件時(shí)，此事件發(fā)生。 13) Font 屬性：設(shè)置或返回字體的屬性。 5) DataChangeed 屬性：設(shè)置 /返回一個(gè)值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進(jìn)程修改。 7） KeyDown 事件：當(dāng)控件具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生。 23) MaskColor 屬性：設(shè)置 /返回一個(gè)在控件的圖片中作為掩碼的顏色 。 14) DragMode 屬性：設(shè)置 /返回一個(gè)值，確定在拖放操作中所用的方式。 6) Value 屬性：反映控件狀態(tài)的屬性 ,返回 true 表示已選擇了該按鈕。 6) Change 事件屬性：文本框的內(nèi)容發(fā)生改變時(shí) ,相應(yīng)的控件之間發(fā)生相應(yīng)的改變 ,具有即時(shí)性。 ? 標(biāo)簽框類的控件類的控件： 1) Caption 屬性：在應(yīng)用程序界面上加入說明。 （ 2） 事件處理過程 按鈕單擊事件的處理過程為： Private Sub objectClick（ Index As Integer） 其中 Object 為引發(fā)該事件的對(duì)象名稱。 3) Appearance 屬性：值為 1 時(shí) ,則以 3D 效果顯示該控件 ,0 則不然。 超市進(jìn)銷存 管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。 Visual Basic 繼承了 Basic 語言易學(xué)易用的特點(diǎn)，特別適合于初學(xué)者學(xué)習(xí) Windows 系統(tǒng)編程。 畢業(yè)設(shè)計(jì) 超市進(jìn)銷存 管理系統(tǒng) 院系 _________ 專業(yè) _________ 班級(jí) _________ 姓名 _________ 年 月 日 摘 要 ???????????????????????????? 1 Abstract???????????????????????????2 第一章 引言 ????????????????????????? 4 1． 1 課題背景 ?????????????????????????? 4 1． 2 系統(tǒng)簡介?????????????????????? ???? 5 1. 3 開發(fā)軟件介紹 ……………………………………………………………… 6 第二章 系統(tǒng)的分析???????????????????? ??? 8 2． 1 系統(tǒng)開發(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ù)庫設(shè)計(jì) ……………………………………………………… .19 3． 3 界面設(shè)計(jì)與代碼設(shè)計(jì)?????????????????????????? 23 結(jié)束語 ??????????????????????????????4 6 致謝 ???????????????????????????????4 7 參考文獻(xiàn) ??????????????????? 49 摘 要 隨著經(jīng)濟(jì)的發(fā)展，社會(huì)的進(jìn)步，計(jì)算機(jī)越來越深入到我們?nèi)粘５墓ぷ鲗W(xué)習(xí)及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助 工具。 超市進(jìn)銷存 管理系統(tǒng)用計(jì)算機(jī)管理 超市庫存進(jìn)出 管理的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新 ,在計(jì)算機(jī)還未普及之前 庫存 管理都是由工作人員手工書寫的方式來操作的 .現(xiàn)在一般的 超市 都采用計(jì)算機(jī)智能化管理 ,采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī) 超市 庫存管理程序來幫助管理員進(jìn) 行更有效的 超市庫存 管理工作。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。 4) Backcolor 屬性：用來改變在按鈕上顯示圖像的背景色。如果是命令按鈕的控件是數(shù)組，則需要使用 Index 參數(shù)標(biāo)識(shí)該控件。 2) Autosize 屬性：決定控件是否自動(dòng)改變大小以顯示其全部內(nèi)容。 7) Keypress：事件由用戶在文本框控件中按任意鍵觸發(fā)。 7) Appearance 屬性：設(shè)置 /返回一個(gè)對(duì)象在運(yùn)行時(shí)是否以 3D 效果顯示。 15) Font 屬性：設(shè)置 /返回字體屬性。 24) MousePointer 屬性：設(shè)置 /返回一個(gè)值，該值指示在運(yùn)行時(shí)當(dāng)鼠標(biāo)移動(dòng)到對(duì)象上時(shí)顯示的指針類型。 8） KeyUp 事件： 當(dāng)控件具有焦點(diǎn)時(shí)釋放一個(gè)鍵時(shí)發(fā)生。 6) DataField 屬性：設(shè)置或返回?cái)?shù)據(jù)使用者將被綁定到的字段名。 14) Name 屬性：設(shè)置或返回控件的標(biāo)識(shí)名。 ? 框架類的控件： 1) List 屬性：列表框控件的表項(xiàng)是使用數(shù)組的方式保存 ,數(shù)組的每一個(gè)元素存儲(chǔ)列表控件的一個(gè)表項(xiàng) 1) Listcount 屬性 :控件列表部分項(xiàng)目的個(gè)數(shù)。三是 : 利用 DataEnvironment 進(jìn)行數(shù)據(jù)庫鏈接 .四是 利用 ADO(ActiveX Data Objects)進(jìn)行編程 :現(xiàn)在我們來大致對(duì)這幾種技術(shù)應(yīng)用介紹： 一、 用 data 控件進(jìn)行數(shù)據(jù)庫鏈接 . 第一步：給窗體添加一個(gè) Data 控件。 結(jié)構(gòu)化查詢語言 SQL（ Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個(gè)方面，是一個(gè)通用的、功能極強(qiáng)的關(guān)系數(shù)據(jù)庫語言。在打開一個(gè)窗體時(shí)， Microsoft Access 將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在 “ 窗體向?qū)?” 選擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 次機(jī)會(huì)，注意密碼區(qū)分大小寫 , vbCritical, 登錄 = 0 = Len() Else OK = True g_Account = Account End If End Sub 2:報(bào)損信息表 : 代碼分析 : Option Explicit Private OK As Boolean 39。添加 = True = 確定 Case vtModify 39。根據(jù)新增、編輯或查看設(shè)置顯示內(nèi)容 SetStatus 39?？蛻纛愋?Id Exit For End If Next i End With End If End Sub 39。確定按鈕 Private Sub OKButton_Click() OK = True 39。設(shè)置控件默認(rèn)值 Call SetDefaultValue 39。對(duì)話框狀態(tài) 39。用傳入對(duì)象的值更新數(shù)據(jù) With m_obj = .ProviderName = .Introduce = .Remark End With End If End Sub 39。如果是新增狀態(tài)，則初始化一個(gè)數(shù)據(jù)對(duì)象 If m_ViewType = vtadd Then Set m_obj = New clsProvider 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。 Case 向前 39。應(yīng)做 :添加 39。復(fù)制 39。 按鈕代碼。 MsgBox 添加 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。=============================================== Private Sub mnuSystemUser_Click() vbModal End Sub 39。切換選項(xiàng)卡 = 1 End Sub Private Sub mnuBuyAdd_Click() lvBuy, g_Account 39。 銷售管理 39。切換選項(xiàng)卡 = 2 End Sub Private Sub mnuSellAdd_Click() lvSell, g_Account 39。 , vbInformation End Sub Private Sub mnuBuyDel_Click() lvBuy 39。 商品操作 39。設(shè)置樹型控件焦點(diǎn) End Sub 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。初始化所有數(shù)據(jù)函數(shù) Private Sub InitMain() 39。ToDo: 添加 39。ToDo: 添加 39。 Case 大圖標(biāo) = lvwIcon Case 小圖標(biāo) = lvwSmallI