【正文】 inHeight, End If SaveSetting , Settings, ViewMode, End SubPrivate Sub Form_Resize() On Error Resume Next If 3000 Then = 3000 SizeControls End Sub 用戶管理模塊用戶管理對(duì)話框代碼設(shè)計(jì)Option ExplicitDim opAdmin As New clsOpAdminPrivate Sub CancelButton_Click() Unload MeEnd SubPrivate Sub cmdAdd_Click() lvAdminEnd SubPrivate Sub cmdDel_Click() lvAdminEnd SubPrivate Sub cmdModify_Click() lvAdminEnd SubPrivate Sub Form_Load() lvAdminEnd Sub經(jīng)營分析模塊用來對(duì)超市的運(yùn)作情況進(jìn)行分析，具有以下功能：庫存量排行?？丶Q屬性屬性取消功能FrmAnalysis（Form）Caption經(jīng)營分析經(jīng)營分析對(duì)話框List庫存分析進(jìn)貨分析銷售分析報(bào)損分析CboOrder（ComboBox）Style2DropDownList前↓：降序排列，取前若干項(xiàng)；↑后：降序排列，取后若干項(xiàng)。銷售分析 lvAna, IsDesc, nCount Case 3 39。又如查詢數(shù)據(jù)表時(shí)，使用了WHERE子句，但是數(shù)據(jù)類型不匹配，數(shù)據(jù)庫中字段類型為數(shù)字的值，卻使用了字符串去查詢，就會(huì)出現(xiàn)錯(cuò)誤。又如在Select Case中，Case的條件是字符串，但是沒有加引號(hào)，就變成了Case一個(gè)空變量。經(jīng)過大量的測(cè)試和試用，本軟件基本達(dá)到了方便和實(shí)用的設(shè)計(jì)目的。無論做什么事都要大膽的去想去做，這樣會(huì)有好的創(chuàng)意，才能更有作為。科技出版社，20022。 高等教育出版社，20003。電子工業(yè)出版社，20034。 電子工業(yè)出版社， 2002 5。 清華大學(xué)出版社，2002，3026 。 機(jī)械工業(yè)出版社 。 電子工業(yè)出版社 。人民郵電出版社 。清華大學(xué)出版社 。0專家李維最新力作) 電子工業(yè)出版社 2005。中國水利水電出版社 2006 。visual basic 程序設(shè)計(jì)第二版 譚浩強(qiáng) 清華大學(xué)出版社 200313。 浙江科學(xué)技術(shù)出版社，2002。9。Visual Basic 6。0 程序設(shè)計(jì)教程。劉藝 visual basic 6。 秦斌 等 visual basic 6。 李維 面向?qū)ο箝_發(fā)實(shí)踐之路（visual basic 6。數(shù)據(jù)結(jié)構(gòu) 。 張立科編寫組 。李維 。 visual basic 6。 visual basic 6。 visual basic 6。 visual basic 6。 數(shù)據(jù)庫系統(tǒng)概論 。陳明 。真誠的希望你的參與。結(jié)束語本軟件的設(shè)計(jì)目的是為超市管理人員提高效率提供方便和幫助。比如在數(shù)據(jù)庫中，用戶名稱字符數(shù)量上限是20個(gè)字符，而在程序中沒有對(duì)此進(jìn)行判別，如果一個(gè)添加新商品時(shí)名字有21個(gè)字符，那么在使用SQL語句插入數(shù)據(jù)與記錄的時(shí)候就會(huì)出錯(cuò)。 常見錯(cuò)誤的避免數(shù)據(jù)類型不匹配 數(shù)據(jù)類型的判斷錯(cuò)誤，比如一個(gè)功能模塊，接受傳入的數(shù)據(jù)為id，要求其值必須是正數(shù)。庫存分析 lvAna, IsDesc, nCount Case 1 39。銷售總量與登記次數(shù)排行。添加菜單 添加主界面模塊主界面設(shè)計(jì)：包括系統(tǒng)，視圖，商品類型管理，進(jìn)貨管理，銷售管理，報(bào)損管理，供貨商管理，銷售分析， 主界面效果圖其他代碼Private Sub Form_Load() LoadResStrings Me = GetSetting(, Settings, MainLeft, 1000) = GetSetting(, Settings, MainTop, 1000) = GetSetting(, Settings, MainWidth, 6500) = GetSetting(, Settings, MainHeight, 6500) = Val(GetSetting(, Settings, ViewMode, 0)) 39。檢查正確密碼 Dim Account As String Dim Pwd As String Account = RealString() Pwd = RealString() 39。 公共模塊的設(shè)計(jì)在創(chuàng)建用戶界面端應(yīng)用程序時(shí)，向?qū)б呀?jīng)為我們生成了一個(gè)名為mdlMain的模塊，我們對(duì)這個(gè)模塊稍微修改即可使用。(11)管理員信息操作管理模塊管理員信息操作管理模塊實(shí)現(xiàn)以下的功能：處理添加管理員信息的操作。處理修改報(bào)損的操作。處理刪除銷售的操作。(7)供貨商操作管理模塊供貨商操作管理模塊實(shí)現(xiàn)以下的功能：處理添加供貨商的操作,處理修改供貨商的操作,處理刪除供貨商的操作,處理列舉或查找供貨商的操作。處理修改商品的操作。FillCombo：將全部對(duì)象加入到組合框中。ObjsToListView：將對(duì)象集合顯示到ListView中。Modify：管理修改操作。SaveValue：保存用戶輸入。SetStatus：設(shè)計(jì)對(duì)話框控件的默認(rèn)狀態(tài)。管理員操作管理，對(duì)應(yīng)frmUser窗體和clsOpAdmin類。供貨商操作管理，對(duì)應(yīng)frmProvider窗體和clsOpProvider類。所以具有社會(huì)可行性。0與微軟的access作為數(shù)據(jù)庫，技術(shù)上開發(fā)難度一般。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。在打開一個(gè)窗體時(shí)，Microsoft如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。Microsoft結(jié)構(gòu)化查詢語言SQL（Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個(gè)方面，是一個(gè)通用的、功能極強(qiáng)的關(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)。利用adodc（ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接使用adodata控件訪問數(shù)據(jù)庫可以完全不用編寫代碼，只需要通過簡單的設(shè)置和操作其屬性就可以實(shí)現(xiàn)與數(shù)據(jù)庫的連接，通過綁定數(shù)據(jù)感知控件，就能提供一個(gè)訪問數(shù)據(jù)庫的界面，用來實(shí)現(xiàn)對(duì)數(shù)據(jù)庫的瀏覽，貼加，刪除，修改等操作。四是利用ADO(ActiveX Data Objects)進(jìn)行編程：現(xiàn)在我們來大致對(duì)這幾種技術(shù)應(yīng)用介紹：用data控件進(jìn)行數(shù)據(jù)庫鏈接第一步：給窗體添加一個(gè)Data控件。為false時(shí)處于休眠狀態(tài)。3) Largechange屬性：用戶點(diǎn)擊滾動(dòng)條與鍵頭之間的區(qū)域時(shí)，value的改變量。u 框架類的控件：1) List屬性：列表框控件的表項(xiàng)是使用數(shù)組的方式保存，數(shù)組的每一個(gè)元素存儲(chǔ)列表控件的一個(gè)表項(xiàng)1) Listcount屬性：控件列表部分項(xiàng)目的個(gè)數(shù)。3） DragOver事件：在拖放操作正在進(jìn)行時(shí)發(fā)生。14) Name屬性：設(shè)置或返回控件的標(biāo)識(shí)名。10) DownPicture 屬性：設(shè)置或返回一個(gè)對(duì)圖片的引用，該圖片在控件被單擊處于壓下狀態(tài)時(shí)顯示。6) DataField屬性：設(shè)置或返回?cái)?shù)據(jù)使用者將被綁定到的字段名。2) Index屬性：該屬性值為復(fù)選框控件數(shù)組的下標(biāo)。10） MouseDown事件：當(dāng)在控件上按下鼠標(biāo)鍵時(shí)發(fā)生。6） LostFocus事件：當(dāng)對(duì)象失去焦點(diǎn)時(shí)發(fā)生。2） DbClick事件： 當(dāng)在一個(gè)對(duì)象上按下和釋放鼠標(biāo)按鈕并再次按下和釋放按鈕時(shí)，該事件發(fā)生。22) FontSize 屬性：設(shè)置/返回控件中顯示文本所用的字體大小23) Height 屬性：設(shè)置/返回控件的高度。18) FontItalic 屬性：設(shè)置/返回字體斜體樣式。14) DownPicture 屬性：設(shè)置/返回一個(gè)對(duì)圖片的引用，該圖片在控件單擊下處于壓下狀態(tài)時(shí)顯示。10) Container 屬性：設(shè)置/返回Form上的控件屬性。6) Tabindex屬性：建立控件時(shí)，vb自動(dòng)為其分配一個(gè)tabindex值，利用tab鍵可以在控件之間切換焦點(diǎn)。10) BackColor屬性：設(shè)置返回背景色11) BorderStyle屬性：設(shè)置對(duì)象的邊框樣式12) DataField屬性：設(shè)定數(shù)據(jù)使用者將被綁定到的字段名13) DataFormat屬性：設(shè)定DataFormat對(duì)象，用于數(shù)據(jù)綁定14) DataMember屬性：從數(shù)據(jù)供應(yīng)程序提供的幾個(gè)數(shù)據(jù)成員中返回/設(shè)定一個(gè)特定的數(shù)據(jù)成員15) DataSource屬性：設(shè)定控件綁定的一個(gè)數(shù)據(jù)源16) DragIcon屬性：設(shè)定圖標(biāo)，它將在拖放操作中作為指針顯示17) DragMode模式：設(shè)定一個(gè)值，確定在拖放操作中所用方式18) Enabled屬性：設(shè)置/返回運(yùn)行時(shí)TextBox是否相應(yīng)用戶事件19) Font屬性：設(shè)置/返回字體屬性20) ForeColor屬性：設(shè)置/返回文本的前景色21) Height屬性：設(shè)置/返回TextBox的高度22) IMEMode屬性：設(shè)置/返回?cái)?shù)值用來確定輸入方法編輯器的狀態(tài)23) Index屬性：設(shè)置/返回唯一的標(biāo)識(shí)控件數(shù)組中該控件的編號(hào)