資源描述：
《vb商場管理系統(tǒng)》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。
1、VB語言課程設(shè)計報告一、設(shè)計目的2二、軟硬件環(huán)境2三、總體設(shè)計思路（功能模塊圖）3四、各部分（各模塊）功能介紹、設(shè)計界面（抓圖）4五、部分程序清單（帶有較詳細的注釋）9六、設(shè)計總結(jié)（課程設(shè)計心得與體會）12七、參考文獻13八、教師評語14一.設(shè)計目的隨著社會的發(fā)展，人民生活水平不斷的提高，商場的客容量不斷增加，原本的原始管理系統(tǒng)已不能滿足管理要求，新的方便快捷的管理系統(tǒng)為滿足商家的要求，以計算機網(wǎng)絡(luò)為基礎(chǔ)的管理系統(tǒng)取代了原有的系統(tǒng)。本系統(tǒng)本著提高管理效率，方便管理步驟。創(chuàng)造更好的管理環(huán)境。提供了以下四個步驟：銷售管理、進貨
2、管理、退貨管理以及員工管理。同時也具備了查詢、添加、刪除等功能。:、軟硬件環(huán)境硬件環(huán)境：校內(nèi)機房微機（圖書館五樓）軟件環(huán)境：Windowsxp,VB6.0三.總體設(shè)計思路（功能模塊圖）用戶密碼******
3、四、各部分（各模塊）功能介紹、設(shè)計界面（抓圖）冠用戶登錄界面用尸名登錄口令正確？歡迎使用本程序IljI銷售管理進貨管理員工管理退貨管理旨首頁歡迎使用本系統(tǒng)刁S3S3S冠銷售添加口叵岡銷售日期商品單價iS商品名0筒品漏尋1金昌名稱1?109209300102冰金200▼1卜1?[千萬銷售編5品單價▲203r按裔品名稱按銷售
4、扁號少㈡“查詢退出...品名稱300200500亠■■士?銷售查詢商關(guān)號iw2012-2-22冰衣心池印紙年帕209202?進貨添加13回岡廠家名稱進貨編號商品編號進貨成本進貨數(shù)量吉林紅金豆有限公司農(nóng)夫山泉售價聯(lián)系電話張大寶生產(chǎn)廠家杭州娃哈哈集t廠冰地址朝陽區(qū)寬平大路2154進貨總額
5、900?憂豔麥k001201002202冰！tb0032031IT?-保存退出?員工添加口回區(qū)）2012-12-222012-6-3012012-7-18I1?損中華涼席久久報滕保存退出退岀五、部分程序清單(帶有較詳細的注釋)1,首頁代碼：P
6、rivateSube_Click()銷售查詢.Show注釋：顯示銷售查詢EndSubPrivateSubLCIickO進貨管理.ShowEndSubPrivateSubg_Click()進貨查詢.ShowEndSubPrivateSubh_Click()員工管理.ShowEndSubPrivateSubLCIickO員工查詢.ShowEndSubPrivateSubj_Click()退貨管理.ShowEndSubPrivateSubk_Click()退貨查詢.ShowEndSubPrivateSubLCIickO銷售添加.
7、ShowEndSubPrivateSubm_Click()進貨添加.ShowEndSubPrivateSubn_Click()員工添加.ShowEndSubPrivateSubo_Click()退貨添加.ShowEndSubPrivateSubx_Click()銷售管理.ShowEndSub2,銷售查詢代碼:PrivateSubCommand1_Click()IfOptionl.ValueThenAdodcl.RecordSource=Hselect*from銷售管理where商品名稱=,H+Trim仃ext7.Text)
8、+“'orderby商品編號”Adodcl.RefreshElselfOption2.ValueThenAdodcl.RecordSource="select*from銷售管理where銷售編號='H+Trim(Text8.Text)4-'"orderby商品編號”Adodcl.RefreshEndIfEndSubPrivateSubCommand2_Click()首頁.ShowUnload銷售查詢EndSub1,進貨添加代碼:PrivateSubCommand1_Click()Adodcl.Recordset.AddNe
9、wEndSubPrivateSubCommand2_Click()首頁.ShowUnload進貨添加EndSubPrivateSubCommand3_Click()Adodcl.Recordset.UpdateEndSub2,員工管理代碼:PrivateSubCommandl_Click()注釋：首記錄Adodc1.Recordset.MoveFirstEndSubPrivateSubCommand2_Click()注釋：尾記錄Adodc1.Recordset.MoveLastEndSubPrivateSubCommand
10、3_Click()IfAdodc1.Recordset.BOFThenMsgBox“已到記錄頭”ElseAdodc1.Recordset.MovePreviousEndIfEndSubPrivateSubCommand4_Click()IfAdodcl.Recordset.EOFThenMsgBox"已
