【正文】 參 考 文 獻1陳明 . 軟件工程學(xué)教程 .科技出版社，20022 薩師煊，王珊 . 數(shù)據(jù)庫系統(tǒng)概論 . 第三版 . 高等教育出版社，20003 飛思科技產(chǎn)品研發(fā)中心 . visual basic .電子工業(yè)出版社，20034 飛思科技產(chǎn)品研發(fā)中心 . visual basic . 電子工業(yè)出版社, 2002 5 申旻 . visual basic . 清華大學(xué)出版社，2002，3026 Steve Teixeira，Xaviver Pacheco著，龍勁松，王瑜，謝尚書譯 . visual basic . 機械工業(yè)出版社 .2003 7 喬林 .參透Delphi／Kylix . 中國鐵道出版社 .20038 李維 .Inside 深入核心 VCL 架構(gòu)剖析 . 電子工業(yè)出版社 .2004 9 張立科編寫組 .Windows API 函數(shù)參考手冊 .人民郵電出版社 .2002 嚴蔚敏，吳偉民 .數(shù)據(jù)結(jié)構(gòu) .第二版 .清華大學(xué)出版社 .2001 10 王珍玲 。mnuDelClientType_Click Case 大圖標 = lvwIcon Case 小圖標 = lvwSmallIcon Case 列表 = lvwList Case 詳細資料 = lvwReport End SelectEnd SubPrivate Sub tvTreeView_NodeClick(ByVal Node As ) lvMerch, GetID() lvBuy, GetID() lvSell, GetID() lvDispose, GetID()End Sub結(jié)束語本軟件的設(shè)計目的是為超市管理人員提高效率提供方便和幫助。由于同時更新了庫存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時庫存量自動更新，請切換到【商品管理】查看核實庫存變化。===============================================39。===============================================Private Sub mnuSell_Click() 39。由于同時更新了庫存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時庫存量自動更新，請切換到【商品管理】查看核實庫存變化。===============================================39。===============================================Private Sub mnuMType_Click() 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 = TYPE_COLUMNEnd SubPrivate Sub mnuViewStatusBar_Click() = Not = SizeControls End SubPrivate Sub mnuViewToolbar_Click() = Not = SizeControls End Sub39。 = NAME_COLUMNEnd SubPrivate Sub mnuVAIBySize_Click() 39。End SubPrivate Sub mnuVAIByDate_Click() 39。 按鈕代碼。刪除39。 MsgBox 添加 39。 按鈕代碼。剪切39。應(yīng)做:添加 39。Private Sub sstabView_Click(PreviousTab As Integer) Select Case PreviousTab Case 0 = False Case 1 = False Case 2 = False Case 3 = False Case 4 = False End Select Select Case Case 0 = True Case 1 = True Case 2 = True Case 3 = True Case 4 = True End Select End SubPrivate Sub tbToolBar_ButtonClick(ByVal Button As ) On Error Resume Next Select Case Case 返回 39。39。39。39。39。39。39。39。39。39。 屬性頁控件切換響應(yīng)函數(shù)39。39。39。39。39。39。39。39。39。39。修改ListView控件尺寸 Dim ctl As Control For Each ctl In Controls If TypeOf ctl Is ListView Then = 0 = = 40 = = False End If Next sstabView_Click 0End SubPrivate Sub lvBuy_DblClick() mnuBuyModify_ClickEnd SubPrivate Sub lvDispose_DblClick() mnuDisposeModify_ClickEnd SubPrivate Sub lvMerch_DblClick() mnuMerchModify_ClickEnd SubPrivate Sub lvProvider_DblClick() mnuProviderModify_ClickEnd SubPrivate Sub lvSell_DblClick() mnuSellModify_ClickEnd SubPrivate Sub mnuAnaBuy_Click() vbModalEnd SubPrivate Sub mnuAnalysis_Click() vbModalEnd Sub39。保存用戶輸入 SaveValue End Sub5:管理員列表:代碼分析: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 Sub6:主界面設(shè)計:代碼分析:Option ExplicitConst NAME_COLUMN = 0Const TYPE_COLUMN = 1Const SIZE_COLUMN = 2Const DATE_COLUMN = 3 Dim mbMoving As BooleanConst sglSplitLimit = 500Private 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。檢查輸入有效性Private Function CheckValid() As Boolean If = _ Or = _ Or = Then MsgBox 請?zhí)顚懲戤呉陨细黜梼?nèi)容 CheckValid = False Exit Function End If CheckValid = True End Function39。根據(jù)新增、編輯或查看設(shè)置顯示內(nèi)容 SetStatus 39。設(shè)置狀態(tài) Select Case m_ViewType Case vtadd 39。檢測輸入有效性 If Not CheckValid Then Exit Sub 39。檢查輸入有效性Private Function CheckValid() As Boolean CheckValid = False If = _ Or = _ Or = Then MsgBox 請?zhí)顚懲戤呉陨细黜梼?nèi)容 Exit Function End If If = Then MsgBox 請?zhí)顚懲戤呉陨细黜梼?nèi)容 Exit Function End If If Not IsNumeric() Then MsgBox 數(shù)量請輸入數(shù)字 Exit Function End If If Not IsDate() Then MsgBox 請輸入正確的日期格式 Exit Function End If CheckValid = True End Function39。顯示對話框 OK = False vbModal If OK = False Then ShowDlg = False Exit Function End If 39。修改 = True = 保存 Case vtInfo 39。確定用戶按了OK還是CANCEL按鈕Private m_obj As clsDispose 39。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報表。 如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個表。 關(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)有其他的操作。為false時處于休眠狀態(tài).Visual ：一是：用data控件進行數(shù)據(jù)庫鏈接 ，二是利用adodc（ADO Data Control)進行數(shù)據(jù)庫鏈接 。6） OLEDragDrag事件：當(dāng)源部件決定放操作能發(fā)生，卻源部件被放到目標部件時，此事件發(fā)生。13) Font屬性：設(shè)置或返回字體的屬性。5) DataChangeed屬性：設(shè)置/返回一個值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進程修改。7） KeyDown事件：當(dāng)控件具有焦點時按下一個鍵時發(fā)生。23) MaskColor 屬性：設(shè)置/返回一個在控件的圖片中作為掩碼的顏色。14) DragMode 屬性：設(shè)置/返回一個值，確定在拖放操作中所用的方式。6) Value屬性：反映控件狀態(tài)的屬性,返回true表示已選擇了該按鈕。6) Change事件屬性：文本框的內(nèi)容發(fā)生改變時,相應(yīng)的控件之間發(fā)生相應(yīng)的改變,具有即時性。 u 標簽框類的控件類的控件：1) Caption屬性：在應(yīng)用程序界面上加入說明。（2） 事件處理過程按鈕單擊事件的處理過程為： Private Sub objectClick（Index As Integer）其中Object為引發(fā)該事件的對象名稱。3) Appearance屬性：值為1時,則以3D效果顯示該控件,0則不然。超市進銷存管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。Visual Basic繼承了Basic語言易學(xué)易用的特點，特別適合于初學(xué)者學(xué)習(xí)Windows系統(tǒng)編程。畢業(yè)設(shè)計超市進銷存管理系統(tǒng)院系_成教學(xué)院________專業(yè)_計算機科學(xué)與技術(shù)_班級_計算機（3）班____學(xué)號_A0911003001_______姓名_殷洪磊_______ 年 月 日摘 要…………………………………………………………………………1Abstract………………………………………………………………………2第一章 引言…………………………………………………………………41．1 課題背景…………………………………………………