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