【正文】 致 謝在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師身上學(xué)到了很多東西。同時(shí)，由于我們的畢業(yè)設(shè)計(jì)是三個(gè)人共同合作的結(jié)果，由于在設(shè)計(jì)中的時(shí)間和技術(shù)上的協(xié)商使我們的畢業(yè)設(shè)計(jì)順利完成，雖然功能不夠強(qiáng)大，但這是我們勞動(dòng)成果的結(jié)晶！讓我更進(jìn)一步的認(rèn)識(shí)到，合作的重要性。 sql1, conn, adOpenDynamic, adLockOptimisticIf = True Then MsgBox (無(wú)此編號(hào),請(qǐng)重新輸入) Exit Sub Else = (name) = (jingbanren) = (shoujia) = (shuliang) = (shengchanshang) = (guige) = (data) = (jine) = (beizhu) ok = True Set rs = NothingEnd IfEnd Sub、銷售單查詢其中有兩個(gè)查詢組成：●全部的服裝●按條件查詢某些滿足條件的服裝:其中的下拉框中不可以輸入東西,只可以從中選擇相關(guān)的服裝名稱和生產(chǎn)商。退出銷售單的基本操作。 39。, CN, adOpenStatic, adLockOptimistic If Not Then If Not IsNull((1)) Then If Trim() Trim((1)) Then MsgBox 用戶舊密碼不對(duì)!, , 提示 Exit Sub Else (1).Value = Trim() MsgBox 操作已成功!, , 提示 = = = End If End If End If End IfEnd IfExit SubErr:MsgBox End SubPrivate Sub Form_Load() = = = End SubDim sql As StringIf Then MsgBox 兩次輸入的密碼不同！請(qǐng)重新輸入, vbOKOnly + vbInformation, Exit Sub End If sql = select * from user1 where username = 39。不進(jìn)入系統(tǒng)的用戶不能使用該功能。管理員密碼修改On Error GoTo ErrIf Trim() And Trim() And Trim() Then If Trim() Trim() Then MsgBox 新密碼不對(duì)! Exit Sub Else Dim rs1 As New select * from 系統(tǒng)用戶 where 用戶名=39。 , , 系統(tǒng)提示 = End IfExit SubErr:MsgBox End SubPrivate Sub Command3_Click() 39。用戶可以管理數(shù)據(jù)庫(kù)表中不存在的任何的用戶名和密碼。三次錯(cuò)誤,自動(dòng)退出程序 End End IfExit SubErr: MsgBox 登錄出錯(cuò),請(qǐng)找管理員!, vbExclamation Ok = False EndEnd SubIf Trim( = ) Then MsgBox 沒(méi)有這個(gè)用戶，請(qǐng)重新輸入用戶名！, vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from user1 where username = 39。判斷權(quán)限 UserPrivs = If Trim((2)) = 管理員 Then 39。 amp。39。當(dāng)添加銷售信息時(shí)，需要在所售服裝的庫(kù)存量上自動(dòng)減去所銷售的數(shù)量。2．基本資料模塊基本資料模塊用來(lái)對(duì)企業(yè)所擁有的各種服裝的基本信息進(jìn)行維護(hù)和管理。并且能夠?qū)Ψb的庫(kù)存量進(jìn)行報(bào)警，以防倉(cāng)庫(kù)的服裝數(shù)量不足影響服裝的銷售。服裝的基礎(chǔ)信息包括：服裝的順序號(hào)、服裝名稱、服裝規(guī)格、計(jì)量單位、備注信息、庫(kù)存數(shù)量等。由于 Access 和 Visual Basic 使用的相同數(shù)據(jù)庫(kù)引擎，因此可以建立既包括 Access 組件又包括 Visual Basic 組件的應(yīng)用程序，這樣就提高了程序的穩(wěn)定性，充分發(fā)揮了兩者各自的優(yōu)點(diǎn)?？傊瑪?shù)據(jù)庫(kù)系統(tǒng)是一個(gè)計(jì)算機(jī)存儲(chǔ)記錄的系統(tǒng)，即，它是一個(gè)計(jì)算機(jī)系統(tǒng)，該系統(tǒng)的目標(biāo)存儲(chǔ)信息并支持用戶檢索和更新所需要的信息。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。計(jì)算機(jī)的數(shù)據(jù)庫(kù)可以分為兩類：非關(guān)系數(shù)據(jù)庫(kù)（flatfile）和關(guān)系數(shù)據(jù)庫(kù)（relational） 。? 提供了一個(gè)可供應(yīng)用程序調(diào)用的包含多種類型的圖表庫(kù)。 事件驅(qū)動(dòng)編程Windows 操作系統(tǒng)出現(xiàn)以來(lái),圖形化的用戶界面和多任務(wù)多進(jìn)程的應(yīng)用程序要求程序設(shè)計(jì)不能是單一性的,在使用 VB 設(shè)計(jì)應(yīng)用程序時(shí),必須首先確定應(yīng)用程、鍵盤輸入等事件時(shí),由用戶編寫(xiě)的代碼控制這些事件的響應(yīng),這就是所謂的事件驅(qū)動(dòng)編程。通訊技術(shù)的發(fā)展縮短了世界的距離、縮短了人們與信息的距離，人們可以足不出戶便可以將全世界的信息成為自己的囊中之物。經(jīng)營(yíng)者已經(jīng)不只僅僅關(guān)心所經(jīng)營(yíng)服裝的銷售額、庫(kù)存量，經(jīng)營(yíng)者更關(guān)心的是哪一些服裝帶來(lái)了更多的利潤(rùn)，哪一些服裝“只吃米不下蛋” 。s present situation as well as enters sells the balance according to the management system management system characteristic, The function and the user, caused the reader to enter sells saves the management system management system to have the preliminary understanding. After that in detail was introducing the database and the VB related knowledge。接著詳細(xì)介紹了數(shù)據(jù)庫(kù)和 VB 的相關(guān)知識(shí)；在編程工具方面，主要介紹了 VB 的特點(diǎn)和怎樣用 VB 操作數(shù)據(jù)庫(kù)。前 言當(dāng)前, 我國(guó)商業(yè)正處在一個(gè)高速發(fā)展的時(shí)期, 也是我國(guó)商業(yè)由傳統(tǒng)商業(yè)向現(xiàn)代化商業(yè)轉(zhuǎn)變的重要時(shí)期,正在經(jīng)歷由經(jīng)驗(yàn)決策到信息決策轉(zhuǎn)變的時(shí)期，如何及時(shí)準(zhǔn)確地獲得市場(chǎng)信息、服裝信息，了解市場(chǎng)的發(fā)展趨勢(shì)，來(lái)預(yù)測(cè)、指導(dǎo)經(jīng)營(yíng)活動(dòng)；如何及時(shí)準(zhǔn)確地掌握企業(yè)內(nèi)部服裝的購(gòu)銷動(dòng)態(tài)、服裝的品類結(jié)構(gòu)、服裝的價(jià)格結(jié)構(gòu)、庫(kù)存狀況、資金狀況等信息，已成為競(jìng)爭(zhēng)的對(duì)象。 商業(yè)經(jīng)營(yíng)者對(duì)信息的需求越來(lái)越迫切和苛刻，商場(chǎng)之間的競(jìng)爭(zhēng)的白熱化使利用計(jì)算機(jī)對(duì)信息進(jìn)行管理已成為經(jīng)營(yíng)活動(dòng)中不可缺少的手段。VB 是極有和功能強(qiáng)大的軟件，主要表現(xiàn)在：所見(jiàn)即所得的界面設(shè)計(jì)，基于對(duì)象的設(shè)計(jì)方法，極短的軟件開(kāi)發(fā)周期，較易維護(hù)的生成代碼。? 提供靜態(tài)和動(dòng)態(tài)數(shù)組，有利于簡(jiǎn)化內(nèi)存管理。VB 的核心是其對(duì)對(duì)象的鏈接與嵌入（OLE）的支持，它是訪問(wèn)所有對(duì)象的一種方法。 修改已建的數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)的修改分為：添加、編輯和刪除記錄。 數(shù)據(jù)庫(kù)系統(tǒng) 數(shù)據(jù)庫(kù)系統(tǒng)本質(zhì)上是一個(gè)用計(jì)算機(jī)存儲(chǔ)記錄的系統(tǒng)。1 內(nèi)置于其中。但是，在目前的大中型零售業(yè)中，往往需要處理的服裝種類數(shù)以千計(jì)，而且每天所發(fā)生的進(jìn)貨和銷售情況紛繁復(fù)雜。跟蹤各種服裝的銷售信息。 本服裝庫(kù)存信息管理系統(tǒng)的主要模塊設(shè)計(jì)根據(jù)需求分析的結(jié)果，本系統(tǒng)的主要?jiǎng)澐譃橐?5 個(gè)子模塊：系統(tǒng)管理、基本資料、進(jìn)貨管理、銷售管理和庫(kù)存管理。按照服裝名稱、倉(cāng)庫(kù)號(hào)和服裝規(guī)格對(duì)所進(jìn)服裝的庫(kù)存數(shù)量上自動(dòng)增加所進(jìn)的數(shù)量，保證倉(cāng)庫(kù)中實(shí)物和數(shù)據(jù)的一致性。其中用戶名：admin。39。39。39。判斷密碼輸入正確性 MsgBox 正確登錄, vbOKOnly + vbExclamation, = True = True = True = True Load main Else MsgBox 輸入密碼不正確，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 警告 = End If End If End If miCount = miCount + 1 If miCount = 3 Then 39。 Trim() amp。 39。39。