【正文】
If CSng(Trim(kcStr)) CSng(Trim()) Then MsgBox 對(duì)不起,商店沒有那么多該類商品!, 48, 進(jìn)銷存管理系統(tǒng) Else Call Main Set adoRs = (insert into LSXSB values(39。 If = 0 Then MsgBox 無(wú)該商品, 48, 進(jìn)銷存管理系統(tǒng) End If End If Else If = True Then If = Then MsgBox 查詢的商品類別不可為空, 48, 進(jìn)銷存管理系統(tǒng) Else = select * from goods where splb = 39。) MsgBox 信息修改成功, 48, 進(jìn)銷存管理系統(tǒng) = True = 修改 Call cleanAll End If End If End SubPrivate Sub Command3_Click() 39。,dj = 39。出錯(cuò) If = 修改 Then If = Then MsgBox 請(qǐng)輸入商品編號(hào), 48, 進(jìn)銷存管理系統(tǒng) Else = select * from GOODS where spbh = 39。 amp。 amp。 amp。 (sql) 39。 connter = connter Provider=。Data Source=(Local)\GSQL sql = RESTORE DATABASE JXC from disk=39。 amp。Initial Catalog=JXC。預(yù)測(cè)各個(gè)階段的時(shí)間安排大致如下圖: .系統(tǒng)設(shè)計(jì) 進(jìn)銷存管理系統(tǒng)是典型的數(shù)據(jù)庫(kù)應(yīng)用程序,系統(tǒng)由前臺(tái)功能模塊和后臺(tái)數(shù)據(jù)庫(kù)管理組成。所以在法律方面不存在侵犯專利權(quán)、版權(quán)等問(wèn)題。隨著人類社會(huì)由工業(yè)社會(huì)時(shí)代進(jìn)入電子信息時(shí)代,各企業(yè)團(tuán)體為了加強(qiáng)自身競(jìng)爭(zhēng)力,降低管理成本,提高運(yùn)營(yíng)效率,使用電子管理軟件已成為他們的首選。進(jìn)銷存管理系統(tǒng)作為典型的信息管理系統(tǒng),非常適用于小企業(yè)、小商店及小型批發(fā)部等。為了加強(qiáng)自身競(jìng)爭(zhēng)力,企業(yè)信息化成為必然選擇。s decision, and thus improve management efficiency.The system is developed by VB language and SQL Server 2000 as the database of the inventory management system development. Due to technical deficiencies, the system did not include data mining, intelligent analysis of statistical techniques. The system is designed for others to realize this class system and provide the reference for others to develop of similar system.Key words: Smallandmediumsized enterprises (SMEs) Decision Inventory Management system Database 1.開發(fā)背景 自改革開放以來(lái),我國(guó)經(jīng)濟(jì)一直保持高速發(fā)展態(tài)勢(shì),大企業(yè)不斷崛起的同時(shí),中小型商品流通企業(yè)越來(lái)越多,其經(jīng)營(yíng)的商品種類繁多,人工管理起來(lái)工作量大、效率低。 .法律可行性該項(xiàng)目為獨(dú)立開發(fā),用于單機(jī)上,在技術(shù)上沒有使用任何現(xiàn)有專利與方法。根據(jù)各自關(guān)系及屬性可以得出三者間的實(shí)體聯(lián)系圖如下: .系統(tǒng)數(shù)據(jù)此處取數(shù)據(jù)庫(kù)名:JXC 由系統(tǒng)的實(shí)體聯(lián)系圖及系統(tǒng)的邏輯關(guān)系,需要建立如下表格3.項(xiàng)目設(shè)計(jì) .進(jìn)度計(jì)劃 進(jìn)銷存管理系統(tǒng)是典型的信息管理系統(tǒng),由于本系統(tǒng)邏輯結(jié)構(gòu)簡(jiǎn)單,沒有加入高技術(shù)的算法,故在系統(tǒng)需求分析、設(shè)計(jì)等方面將費(fèi)時(shí)較短,然而由于之前并沒有VB開發(fā)經(jīng)驗(yàn),故在代碼編寫方面會(huì)遇到較大困難,所以初步預(yù)計(jì)代碼編寫方面需要較長(zhǎng)的時(shí)間。Persist Security Info=False。 amp。Initial Catalog=JXC。定義字符串變量Private Sub Command1_Click()If = Then MsgBox 請(qǐng)您選擇數(shù)據(jù)庫(kù)恢復(fù)的路徑!, 64, 提示信息Else = 11 = FalseDim connter As IntegerDim sql, workarea(12) As String = True = UBound(workarea) = For connter = LBound(workarea) To UBound(workarea) workarea(connter) = initial value amp。 39。,39。,39。,39。)) MsgBox 添加商品成功, 48, 進(jìn)銷存管理系統(tǒng) Call cleanAll End If Refresh End If End SubPrivate Sub Command2_Click() 39。 + + 39。 + + 39。 + + 39。 + + 39。 39。 39。 + kcStr + 39。不合法:顯示相關(guān)提示信息已實(shí)現(xiàn)刪除按鈕檢測(cè)”訂購(gòu)列表”是否為空,為空則顯示提示信息,否則刪除文本框中編號(hào)的訂購(gòu)信息,對(duì)應(yīng)編號(hào)的商品庫(kù)存量增加已實(shí)現(xiàn)售出按鈕檢測(cè)”訂購(gòu)列表”是否為空,為空:提示添加訂購(gòu)列表信息非空:將訂購(gòu)列表中的數(shù)據(jù)添加到商品銷售表中,清空訂購(gòu)列表信息,刷新顯示已實(shí)現(xiàn)雙擊訂購(gòu)表格在”訂購(gòu)列表”表格中將選中雙擊的某條記錄,在“商品編號(hào)”文本框中顯示該條記錄的“商品編號(hào)”已實(shí)現(xiàn)返回退出本窗體,返回至主界面已實(shí)現(xiàn)5.運(yùn)行環(huán)境及相關(guān)配置 運(yùn)行環(huán)境及配置要求: 1 AMD 2200+、128M內(nèi)存或更高配置的計(jì)算機(jī) 2Microsoft Windows XP