【正文】 people without special training will be able to use puters to plete numerous plex. However, although now the world has been filled with an overabundance of software, but they still can not meet the special needs of the various users, it also had to develop software suited to their particular needs. Professional Windows application software development before the work is needed in many professional knowledge and petence through special training. Different now, even if you have not received strict procedures designed training, the use of Visual Basic also like to develop a powerful, and suited to their special needs applications. Visual Basic inherited Basic language learn userfriendly features, and are particularly suited to new learner learning Windows system programming. Supermarket Jinxiaocun management system using puter management Supermarket stocks a puter application and management of technology innovation in the puter before the inventory management are not yet universal manual written by the staff to operate. Supermarkets are now generally used puter intelligent management, using the puter as a tool for puter supermarket inventory management procedures to help managers more effectively supermarket inventory management. Supermarket Jinxiaocun management system is a typical management information system (MIS), including its main development background to the establishment and maintenance of the database and frontend application development 2. The request for the establishment of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features. After analysis, we use Microsoft visual basic development tool panies, the use of its various objectoriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype application system in a short time and then, putation of the initial prototype system needs to constantly revise and improve until the formation of a viable system of user satisfaction. Because I limited capacity, coupled with time constraints, it designed the system may function relatively simple, and the system is single edition, not Inter operations work, which I have yet to learn that in future work to further improve. keyword : Supermarket Jinxiaocun management MIS,visual basic database 第一章 引言 1． 1 課題背景 超市進(jìn)銷存 管理系統(tǒng)用計算機(jī)管理 超市庫存進(jìn)出 管理的一種計算機(jī)應(yīng)用技術(shù)的創(chuàng)新 ,在計算機(jī)還未普及之前 庫存 管理都是由工作人員手工書寫的方式來操作的 .現(xiàn)在一般的 超市 都采用計算機(jī)智能化管理 ,采用計算機(jī)作為工具的實用的計算機(jī) 超市 庫存管理程序來幫助管理員進(jìn)行更有效的 超市庫存 管理工作。 2) Enable 屬性：控制控件的激活狀態(tài)灰色或可用。命令按鈕的 Click 事件僅對當(dāng)單擊鼠標(biāo)時發(fā)生。 9） MouseUp 事件：當(dāng)在命令按鈕上釋放鼠標(biāo)按鈕時發(fā)生。 5) Passwordchar 屬性：該屬性設(shè)定輸入文本的特殊顯示字符 ,在設(shè)計密碼程序時非常有用。 5) Tabindex 屬性：建立控件時 ,vb 自動為其分配一個 tabindex 值 ,利用tab 鍵可以在控件之間切換焦點。 13) DownPicture 屬性：設(shè)置 /返回一個對圖片的引用，該圖片在控件單擊下處于壓下狀態(tài)時顯示。 21) FontSize 屬性：設(shè)置 /返回控件中顯示文本所用的字體大小 22) Height 屬性：設(shè)置 /返回控件的高度。 6） LostFocus 事件：當(dāng)對象失去焦點 時發(fā)生。 2) Index 屬性 :該屬性值為復(fù)選框控件數(shù)組的下標(biāo) . 3) Value 屬性 :value 為 0 表空白 ,為 1 表勾號 ,為 2 表示灰色 勾號 . 4) Container 屬性： Form 控件上的容器。 12) DragMode 屬性：設(shè)置返回一個值，確定在拖放操作中所用方式。 5） OLECompleteDrag 事件：當(dāng)源部件被放到目標(biāo)時發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。 2) Enable 屬性 :為 true 時 (缺省值 ),激活定時器開始計時 。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。查詢的同時也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計算。判斷密碼是否正確 If Not (Account, Pwd) Then m_nErrCount = m_nErrCount + 1 If m_nErrCount = 3 Then MsgBox 輸入密碼錯誤次數(shù)太多，請稍后重試 , vbExclamation End End If MsgBox 密碼錯誤，再試一次！還有 amp。設(shè)置控件默認(rèn)值 Call SetDefaultValue 39。對話框狀態(tài) If nTypeId = 1 And (Not m_obj Is Nothing) Then m_TypeId = Else m_TypeId = nTypeId End If m_Account = strUser 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。操作者賬號 End With End Sub 39。顯示狀態(tài)，指添加還是修改 39。保存數(shù)據(jù) Set m_obj = obj 39。如果是新增，則清空所有文本框 39。確定按鈕 Private Sub OKButton_Click() OK = True 39。 lblTitle(1).Width = 40 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。返回 39。 按鈕代碼。 Case 復(fù)制 39。應(yīng)做 :添加 39。刪除 39。 按鈕代碼。 MsgBox 添加 39。ToDo: 添加 39。ToDo: 添加 39。將客戶類型顯示到樹型圖中 lvProvider lvMerch lvBuy lvSell lvDispose End Sub 39。39。39。39。39。39。39。39。39。39。 菜單響應(yīng)函數(shù) 39。39。39。39。39。39。39。39。39。39。 39。=============================================== 39。 進(jìn)貨管理 39。 , vbInformation End Sub 39。 , vbInformation End Sub Private Sub mnuSellDel_Click() lvSell 39。 , vbInformation End Sub Private Sub mnuBuyModify_Click() lvBuy, g_Account 39。切換選項卡 = 0 End Sub Private Sub mnuMerchAdd_Click() = 0 lvMerch, GetID() End Sub Private Sub mnuMerchDel_Click() = 0 lvMerch End Sub Private Sub mnuMerchModify_Click() = 0 lvMerch End Sub 39。刪除 Private Sub mnuMTypeDel_Click() tvTreeView End Sub 39。39。39。39。39。39。39。39。39。39。39。 39。39。39。39。39。39。39。39。39。39。初始化列表 39。 代碼 39。 代碼 39。mnuViewRefresh_Click39。應(yīng)做 :添加 39。 Case 刪除 39。 按鈕代碼。剪切 39。 MsgBox 添加 39。 按鈕代碼。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。設(shè)置 Width 屬性 If x 1500 Then x = 1500 If x ( 1500) Then x = 1500 = x = x = x + 40 = ( + 140) lblTitle(0).Width = 39。注意以下利用 RealString 函數(shù)替換去除輸入中的單引號 .ProviderName = RealString() .Introduce = RealString() .Remark = RealString() End With End Sub 39。返回并釋放對話框 ShowDlg = True Unload Me End Function 39。查看 = False = 關(guān)閉 End Select End Sub 39。確定用戶按了 OK 還是 CANCEL 按鈕 Private m_obj As clsProvider 39。注意以下利用 RealString 函數(shù)替換去除輸入中的單引號 .Count = .Reason = RealString() .Remark = RealString() .MerchandiseID = () 39。設(shè)置控件默認(rèn)值 Private Sub SetDefaultValue(