【正文】
If CSng(Trim(kcStr)) CSng(Trim()) Then MsgBox 對不起,商店沒有那么多該類商品!, 48, 進(jìn)銷存管理系統(tǒng) Else Call Main Set adoRs = (insert into LSXSB values(39。 If = 0 Then MsgBox 無該商品, 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 請輸入商品編號, 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ù)測各個(gè)階段的時(shí)間安排大致如下圖: .系統(tǒng)設(shè)計(jì) 進(jìn)銷存管理系統(tǒng)是典型的數(shù)據(jù)庫應(yīng)用程序,系統(tǒng)由前臺功能模塊和后臺數(shù)據(jù)庫管理組成。所以在法律方面不存在侵犯專利權(quán)、版權(quán)等問題。隨著人類社會由工業(yè)社會時(shí)代進(jìn)入電子信息時(shí)代,各企業(yè)團(tuán)體為了加強(qiáng)自身競爭力,降低管理成本,提高運(yùn)營效率,使用電子管理軟件已成為他們的首選。進(jìn)銷存管理系統(tǒng)作為典型的信息管理系統(tǒng),非常適用于小企業(yè)、小商店及小型批發(fā)部等。為了加強(qiá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ā)背景 自改革開放以來,我國經(jīng)濟(jì)一直保持高速發(fā)展態(tài)勢,大企業(yè)不斷崛起的同時(shí),中小型商品流通企業(yè)越來越多,其經(jīng)營的商品種類繁多,人工管理起來工作量大、效率低。 .法律可行性該項(xiàng)目為獨(dú)立開發(fā),用于單機(jī)上,在技術(shù)上沒有使用任何現(xiàn)有專利與方法。根據(jù)各自關(guān)系及屬性可以得出三者間的實(shí)體聯(lián)系圖如下: .系統(tǒng)數(shù)據(jù)此處取數(shù)據(jù)庫名: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)簡單,沒有加入高技術(shù)的算法,故在系統(tǒng)需求分析、設(shè)計(jì)等方面將費(fèi)時(shí)較短,然而由于之前并沒有VB開發(fā)經(jīng)驗(yàn),故在代碼編寫方面會遇到較大困難,所以初步預(yù)計(jì)代碼編寫方面需要較長的時(shí)間。Persist Security Info=False。 amp。Initial Catalog=JXC。定義字符串變量Private Sub Command1_Click()If = Then MsgBox 請您選擇數(shù)據(jù)庫恢復(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)刪除按鈕檢測”訂購列表”是否為空,為空則顯示提示信息,否則刪除文本框中編號的訂購信息,對應(yīng)編號的商品庫存量增加已實(shí)現(xiàn)售出按鈕檢測”訂購列表”是否為空,為空:提示添加訂購列表信息非空:將訂購列表中的數(shù)據(jù)添加到商品銷售表中,清空訂購列表信息,刷新顯示已實(shí)現(xiàn)雙擊訂購表格在”訂購列表”表格中將選中雙擊的某條記錄,在“商品編號”文本框中顯示該條記錄的“商品編號”已實(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