【正文】 高效基于以上理由，我選擇了VB6。4) Backcolor屬性：用來改變在按鈕上顯示圖像的背景色。8) Left，top，height，width屬性：設(shè)定控件的位置與大小。12) DownPicture屬性：設(shè)置/返回一個對圖片的引用，該圖片在按鈕被單擊處于壓下狀態(tài)時顯示。命令按鈕的Click事件僅對當(dāng)單擊鼠標(biāo)時發(fā)生。（2） 事件處理過程命令按鈕GotFoucs事件處理過程為：Private Sub ObjectGotFocus（Index As Integer）3） LostFocus事件：當(dāng)一個對象失去焦點時發(fā)生4） KeyDown事件：當(dāng)命令按鈕具有焦點時按下一個鍵時發(fā)生5） KeyUp事件：當(dāng)命令按鈕具有焦點時釋放一個鍵時發(fā)生。9） MouseUp事件：當(dāng)在命令按鈕上釋放鼠標(biāo)按鈕時發(fā)生。4) Bordstyle屬性：用以設(shè)定控件是否有邊框。4) Scrollbars屬性：該屬性決定是否為文本框加滾動條。8) Alignment屬性：設(shè)定控件中的文本對其方式9) Appearance屬性：設(shè)定一個對象在運行時是否可以3D效果顯示。5) Index屬性：屬性值表示為單選按鈕組成的控件中某個按鈕的索引值。9) BackColor 屬性：設(shè)置/返回背景色。13) DisabledPicture 屬性：設(shè)置/返回一個對圖像的引用，該圖片在控件無效時顯示在控件中。17) FontBold 屬性：設(shè)置/返回字體粗體樣式。21) FontName 屬性：設(shè)置/返回控件中顯示文本所用的字體大小。u 單選按鈕類的常用事件：1） Click 事件：鼠標(biāo)單擊控件時發(fā)生。5） GotFocus事件： 當(dāng)獲的對象焦點時發(fā)生。9） KeyPress事件：當(dāng)用戶按下或釋放ANSI一個鍵時發(fā)生。u 復(fù)選按鈕類的控件：1) Caption屬性：缺省為check1…。5) DataChangeed屬性：設(shè)置/返回一個值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進(jìn)程修改。9) DisabledPicture屬性：設(shè)置或返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。13) Font屬性：設(shè)置或返回字體的屬性。2） DragDrop事件：在一個完整的拖放動作完成或使用Drag方法，并將其Action參數(shù)設(shè)置為2時發(fā)生。6） OLEDragDrag事件：當(dāng)源部件決定放操作能發(fā)生，卻源部件被放到目標(biāo)部件時，此事件發(fā)生。2) Max和min屬性：對value值的最大，最小進(jìn)行限制。2) Enable屬性：為true時(缺省值)，激活定時器開始計時。三是： 利用DataEnvironment進(jìn)行數(shù)據(jù)庫鏈接。如果你的機器沒安裝有Access，可通過VB建庫。他們提供了管理關(guān)系型數(shù)據(jù)庫系統(tǒng)所需要的全部操作屬性和方法，這其中包括建立數(shù)據(jù)庫，定義表，字段和建立表間關(guān)系，定位和查詢數(shù)據(jù)庫等。 　關(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)有其他的操作。Access介紹：使用 如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個表。 如果要簡單地直接在某個表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個窗體。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報表。：技術(shù)上：本系統(tǒng)采用visual basic 6。社會上：本系統(tǒng)同時也方便了廣大顧客。商品操作管理，對應(yīng)frmMerch窗體和clsOpMerch類。報損操作管理，對應(yīng)clsDispose窗體和clsOpDispose類。(2）輸入界面的代碼結(jié)構(gòu)為了方便維護(hù)和快速開發(fā)，每個界面的實現(xiàn)代碼結(jié)構(gòu)都很相似，大多都包括如下的方法：ShowDlg：用來顯示對話框， vbModal，程序停止在這里。CheckValid：檢查用戶輸入有效性。(3)操作類的代碼結(jié)構(gòu)同樣為了方便維護(hù)和快速開發(fā),每個操作類的代碼結(jié)構(gòu)也都很相似,大多包括如下方法:Add:管理增加操作。InitListview：設(shè)置ListView的顯示樣式。ObjsToCornbo：傳入?yún)?shù)為對象的單向類與組合框。(6)商品操作管理模塊商品操作管理模塊實現(xiàn)以下的功能：處理添加商品的操作。處理列舉或查找商品的操作。處理修改銷售的操作。(10)報損操作管理模塊報損操作管理模塊實現(xiàn)以下的功能：處理添加報損的操作。處理列舉或查找報損的操作。處理列舉或查找管理員信息的操作。ToDo: 創(chuàng)建測試密碼是否正確 39。 次機會，注意密碼區(qū)分大小寫, vbCritical, 登錄 = 0 = Len() Else OK = True g_Account = Account End If End Sub控件名稱屬性屬性取消功能frmMainCaption進(jìn)銷存管理系統(tǒng)系統(tǒng)主窗體inlViewSIcon（ListView）ImageHeight16樹形控件和列表框小圖標(biāo)所使用的圖片ImageWidth16inlViewBIcon（ImageList）ImageHeigh32列表框大圖標(biāo)所使用的圖片（未用：待擴(kuò)展）ImageWidth32tvTreeView（TreeView）LineStyleTvwRootLines顯示商品類型樹ImageListinlViewSIcon sstabView（ListView）StyleOssStyleTabbedDialog右側(cè)選項卡，做容器用TabOrientationOssTabOritationToplvMerch（ListView）lvBuy（ListView）lvSell（ListView）lvDispose（ListView）lvProvider（ListView）FullRowSelectTrue分別用來顯示商品商品信息列表進(jìn)貨信息列表銷售信息列表報損信息列表供貨商信息列表GridLinesTrueViewlvwRiportIconimlViewBIconSmallIconimlViewSIionl 設(shè)計選項卡sstabView給sstabView控件添加5個選項卡，選項卡標(biāo)題分別設(shè)置為“商品庫存”、“進(jìn)貨記錄”、“銷售記錄”、“報損記錄”和“供應(yīng)商”，分別對應(yīng)5個ListView。進(jìn)貨總量與登記次數(shù)排行。然后再按由小到大顯示List前↓↑后TxtCount（TextBox）MaxLength3顯示數(shù)量CmdSearch（CommandButtom）Caption查看[查看]按鈕CmdClose（CommandButtom）Caption關(guān)閉[關(guān)閉]按鈕LvAna（ListView）GridLinesTrue顯示數(shù)據(jù)容器ViewlvwRiport界面設(shè)計 銷售分析模塊可以清楚的看出各類產(chǎn)品的銷售情況如圖 界面設(shè)計圖代碼分析Option ExplicitPrivate Sub cmdClose_Click() End SubPrivate Sub cmdSearch_Click() Dim nCount As Integer Dim IsDesc As Boolean Dim opMerch As New clsOpMerch Dim opBuy As New clsOpBuy Dim opSell As New clsOpSell Dim opDispose As New clsOpDispose nCount = Val() If nCount = 0 Then nCount = 10 IsDesc = IIf( = 0, True, False) Select Case Case 0 39。報損分析 lvAna, IsDesc, nCount Case Else End Select End SubPrivate Sub Form_Load() = 0 = 0 = 10End Sub第五章：測試分析 強制變量聲明選擇菜單[工具]—[選項]命令，打開“選項“對話框”，在“編輯器”屬性頁中，把“要求變量聲明”復(fù)選框選上，或者手工在每個文件的開頭加上關(guān)鍵字：option Explicit這樣在編譯時會對沒有聲明的變量報錯，從而減少很多不必要的調(diào)試。數(shù)據(jù)與數(shù)據(jù)庫限制相沖突數(shù)據(jù)與數(shù)據(jù)庫限制相沖突，可能是其值超過了數(shù)據(jù)庫的上限和下限。資源的建立與釋放在將類實例化時，必須使用New關(guān)鍵字，未實例化類無法使用，例：誤： Dim obj as clsMerch正： Dim obj as clsMerch Set obj=New clsMerch 同理，在調(diào)用Set obj=Nothing后，資源已經(jīng)釋放，無法再調(diào)用類內(nèi)的方法。雖然軟件基本達(dá)到設(shè)計要求，但由于作者水平有限，軟件存在bug也是在所難免的，您的意見和建議將極大的幫助我改進(jìn)并完善軟件。參考文獻(xiàn)1。 薩師煊，王珊 。 飛思科技產(chǎn)品研發(fā)中心 。 飛思科技產(chǎn)品研發(fā)中心 。 申旻 。Steve Teixeira，Xaviver Pacheco著，龍勁松，王瑜，謝尚書譯 。2003 7。2004 8。2002 嚴(yán)蔚敏，吳偉民 。2001 9。410。111。 visual basic6。114