小型自選商場綜合管理系統(tǒng)系統(tǒng)設(shè)計及實施

1、.小型自選商場綜合管理系統(tǒng)設(shè)計及實施1.系統(tǒng)設(shè)計 系統(tǒng)功能模塊設(shè)計：電子購物超市商品信息模塊購物功能模塊用戶信息管理模塊系統(tǒng)管理模塊瀏覽商品搜索商品購物車生成訂單結(jié)賬用戶注冊與登錄修改密碼與個人資料用戶余額查詢與賬戶充值用戶信息瀏覽充值金額確認(rèn)銷售信息查詢商品信息管理（1）商品信息模塊最新商品瀏覽：將最新的增加的前3條商品顯示出來。商品分類瀏覽：按商品類別信息瀏覽商品。 商品名稱快速搜索：按商品名稱快速搜索所需商品，并可進行模糊查詢。（2）購物功能模塊添加商品到購物車：用戶選中商品并添加到購物車。 用戶填寫訂單：用戶填寫商品數(shù)量等購買信息。 商品購買、結(jié)賬、購物信息查看：購買數(shù)量小于商品庫存數(shù)

2、量購買成功，賬戶余額大于 所購商品金額，結(jié)賬成功。用戶查看購物車。（3）用戶信息管理模塊注冊新用戶：新用戶進行注冊，并進行賬戶充值。登錄：購物時需要登錄系統(tǒng)。輸入用戶名、密碼進行驗證。修改密碼：取消舊密碼，保存新密碼。 個人詳細(xì)資料修改：對用戶個人信息進行修改。 賬戶充值：用戶查詢余額并對賬戶進行充值。 查看購物車：用戶對在本所購商品情況進行查看。 （4）系統(tǒng)管理模塊用戶信息瀏覽：管理員瀏覽用戶注冊的個人信息并確認(rèn)其賬戶的充值金額。 商品信息管理：對庫存的商品進行增加、刪除、修改。 商品銷售信息查詢：可按月、日進行銷售記錄查詢、 2.系統(tǒng)實施：開發(fā)環(huán)境：（1）操作系統(tǒng)：indows 7。（2）

3、eb開發(fā)工具：JSP、Html等。（3）腳本語言：Vb、Javascript。（4）數(shù)據(jù)庫：access 數(shù)據(jù)庫代碼設(shè)計1：Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() '設(shè)置全局變量為 false '不提示失敗的登錄 LoginSucceeded = False Me.HideEnd SubPrivate Sub cmdOK_Click() '檢查正確的密碼 If Not IsNull(Me.DCboUserName.SelectedItem) Then If

4、txtPassword = Me.DCboUserName.BoundText Then'將代碼放在這里傳遞 '成功到 calling 函數(shù) '設(shè)置全局變量時最容易的LoginSucceeded = True strCurUser = Me.DCboUserName.Text Me.Hide Else MsgBox "無效的密碼，請重試!", , "登錄" txtPassword.SetFocus SendKeys "Home+End" End If Else MsgBox "請選擇用戶名!"

5、;, , "登錄"Me.DCboUserName.SetFocus End IfEnd Sub代碼設(shè)計2：Option ExplicitPrivate rsSys As ADODB.RecordsetPrivate cmSys As ADODB.mandPrivate Sub MDIForm_Load() Dim strSQL As String strSQL = "select offline from r_parameter" Set rsSys = New ADODB.Recordset rsSys.Open strSQL, DEjxc.Conjx

6、c, adOpenDynamic, adLockOptimistic rsSys.MoveFirst If rsSys!offline Then Me.mnuAct_dj.Enabled = False Me.mnuSql.Enabled = False Me.mnuReport.Enabled = False Me.mnuSys_trans.Enabled = False Me.mnuSys_start.Enabled = True Me.mnuSys_begqty.Enabled = True Else Me.mnuAct_dj.Enabled = True Me.mnuSql.Enabl

7、ed = True Me.mnuReport.Enabled = True Me.mnuSys_trans.Enabled = True Me.mnuSys_start.Enabled = False Me.mnuSys_begqty.Enabled = False End If rsSys.Close Set cmSys = New ADODB.mand cmSys.ActiveConnection = DEjxc.Conjxc cmSys.mandType = adCmdTextEnd SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer

8、, UnloadMode As Integer) Call mnuExit_Click If intNumWindows > 0 Then Cancel = True End If Set rsSys = Nothing Set cmSys = NothingEnd SubPrivate Sub mnuEdit_other_Click() FrmOtherEdit.ShowEnd SubPrivate Sub mnuEdit_ps_Click() FrmPsEdit.ShowEnd SubPrivate Sub mnuEdit_sales_Click() FrmSaleEdit.Show

9、End SubPrivate Sub mnuExit_Click() If intNumWindows = 0 Then Unload Me Else MsgBox "請關(guān)閉所有子程序后再關(guān)閉該主程序！", vbCritical, "提示" End IfEnd SubPrivate Sub mnuRec_other_Click() FrmOtherChk.ShowEnd SubPrivate Sub mnuRec_ps_Click() FrmPsChk.ShowEnd SubPrivate Sub mnuRec_sales_Click() FrmSale

10、Chk.ShowEnd SubPrivate Sub mnuReport_DetailUse_Click() FrmRptDetUse.ShowEnd SubPrivate Sub mnuReport_Mat_Click() FrmRptMat.ShowEnd SubPrivate Sub mnuReport_TotalUse_Click() FrmRptTotUse.ShowEnd SubPrivate Sub mnuReport_TotalYearUse_Click() FrmRptYearUse.ShowEnd SubPrivate Sub mnuSet_department_Click

11、() FrmSetDep.ShowEnd SubPrivate Sub mnuSet_employee_Click() FrmSetEmp.ShowEnd SubPrivate Sub mnuSet_product_Click() FrmSetPro.ShowEnd SubPrivate Sub mnuSet_protype_Click() FrmSetPrTy.ShowEnd SubPrivate Sub mnuSet_supplier_Click() FrmSetSup.ShowEnd SubPrivate Sub mnuSql_djother_Click() FrmOtherSql.Sh

12、owEnd SubPrivate Sub mnuSql_djps_Click() FrmPsSql.ShowEnd SubPrivate Sub mnuSql_djsales_Click() FrmSaleSql.ShowEnd SubPrivate Sub mnuSys_begqty_Click() FrmSetMattmp.ShowEnd SubPrivate Sub mnuSys_delete_Click() Dim intDel As Integer Dim strSQL As String intDel = MsgBox("確認(rèn)要刪除所有資料碼", vbInfor

13、mation + vbYesNo, "刪除確認(rèn)") If intDel = vbYes Then strSQL = "delete from department" cmSys.mandText = strSQL cmSys.Execute strSQL = "delete from employee" cmSys.mandText = strSQLcmSys.Execute strSQL = "delete from mat_detail" cmSys.mandText = strSQL cmSys.Execut

14、e strSQL = "delete from mat_head" cmSys.mandText = strSQL cmSys.Execute strSQL = "select p_id,qty,price into mat_tmp from mat_head" cmSys.mandText = strSQL cmSys.Execute strSQL = "drop table mat_head" cmSys.mandText = strSQL cmSys.Execute strSQL = "select p_id,qty,

15、price into mat_head from mat_tmp" cmSys.mandText = strSQL cmSys.Execute strSQL = "update mat_head set qty=0,price=0" cmSys.mandText = strSQL cmSys.Execute strSQL = "drop table mat_tmp" cmSys.mandText = strSQL cmSys.Execute strSQL = "delete from product" cmSys.mandT

16、ext = strSQL cmSys.Execute strSQL = "delete from product_type" cmSys.mandText = strSQL cmSys.Execute strSQL = "delete from supplier" cmSys.mandText = strSQL cmSys.Execute strSQL = "delete from order_detail_a" cmSys.mandText = strSQL cmSys.Execute strSQL = "delete f

17、rom order_detail_b" cmSys.mandText = strSQL cmSys.Execute strSQL = "delete from ps_head_a" cmSys.mandText = strSQL cmSys.Execute strSQL = "delete from ps_head_b" cmSys.mandText = strSQL cmSys.Execute strSQL = "delete from other_head_a" cmSys.mandText = strSQL cmSys

18、.Execute strSQL = "delete from other_head_b" cmSys.mandText = strSQL cmSys.Execute strSQL = "delete from sale_detail_a" cmSys.mandText = strSQL cmSys.Execute strSQL = "delete from sale_detail_b" cmSys.mandText = strSQL cmSys.Execute strSQL = "delete from sale_head_

19、a" cmSys.mandText = strSQL cmSys.Execute strSQL = "delete from sale_head_b" cmSys.mandText = strSQL cmSys.Execute strSQL = "update r_parameter set offline=true,psnumber=0" cmSys.mandText = strSQL cmSys.Execute MsgBox "資料刪除完畢!", vbInformation, "資料刪除" End I

20、f Me.mnuAct_dj.Enabled = False Me.mnuSql.Enabled = False Me.mnuReport.Enabled = False Me.mnuSys_trans.Enabled = False Me.mnuSys_start.Enabled = True Me.mnuSys_begqty.Enabled = TrueEnd SubPrivate Sub mnuSys_start_Click() Dim strBeg As String Dim strYear, strMonth As String Dim strSQL As String strBeg

21、 = InputBox("請輸入系統(tǒng)啟用時間", "系統(tǒng)啟用", CStr(Date) If IsDate(strBeg) Then strYear = Right(CStr(Year(CDate(strBeg), 2) strMonth = Format(CStr(Month(CDate(strBeg), "0*") strSQL = "alter table mat_head add column qty" & strYear & strMonth _ & " single&q

22、uot; cmSys.mandText = strSQL cmSys.Execute strSQL = "alter table mat_head add column price" & strYear & strMonth _ & " currency" cmSys.mandText = strSQL cmSys.Execute strSQL = "update mat_head set qty" & strYear & strMonth & "=qty," &am

23、p; _ " price" & strYear & strMonth & "=price" cmSys.mandText = strSQL cmSys.Execute strSQL = "update r_parameter set pass_date=cdate('" & strBeg & _ "'),offline=false,monthdate=cdate('" & strBeg & "')" cmSy

24、s.mandText = strSQL cmSys.Execute Me.mnuAct_dj.Enabled = True Me.mnuSql.Enabled = True Me.mnuReport.Enabled = True Me.mnuSys_trans.Enabled = True Me.mnuSys_start.Enabled = False MsgBox "系統(tǒng)已正式啟用!", vbInformation, "系統(tǒng)啟用" Else MsgBox "日期格式錯誤！", vbCritical, "啟用錯誤"

25、 Exit Sub End IfEnd SubPrivate Sub mnuSys_trans_Click() Dim strBeg As String Dim strYear, strMonth As String Dim strSQL As String strBeg = InputBox("請輸入月終結(jié)轉(zhuǎn)時間", "月終結(jié)轉(zhuǎn)", CStr(Date) If IsDate(strBeg) Then strSQL = "select monthdate from r_parameter" Set rsSys = New ADODB.

26、Recordset rsSys.Open strSQL, DEjxc.Conjxc, adOpenDynamic, adLockOptimistic rsSys.MoveFirst If Format(CDate(strBeg), "yyyy-mm") > Format(rsSys!monthdate, "yyyy-mm") Then strYear = Right(CStr(Year(CDate(strBeg), 2) strMonth = Format(CStr(Month(CDate(strBeg), "0*") strS

27、QL = "alter table mat_head add column qty" & strYear & strMonth _ & " single" cmSys.mandText = strSQL cmSys.Execute strSQL = "alter table mat_head add column price" & strYear & strMonth _ & " currency" cmSys.mandText = strSQL cmSys.Exec

28、ute strSQL = "update mat_head set qty" & strYear & strMonth & "=qty," & _ " price" & strYear & strMonth & "=price" cmSys.mandText = strSQL cmSys.Execute strSQL = "update r_parameter set monthdate=cdate('" & strBeg

29、& _ "')" cmSys.mandText = strSQL cmSys.Execute MsgBox "月份結(jié)轉(zhuǎn)完畢!", vbInformation, "月終結(jié)轉(zhuǎn)" Else MsgBox "該月份已經(jīng)月終結(jié)轉(zhuǎn)!", vbCritical, "月終結(jié)轉(zhuǎn)錯誤" End If Else MsgBox "日期格式錯誤！", vbCritical, "啟用錯誤" Exit Sub End IfEnd SubPrivate Sub mnuSy

30、s_user_Click()FrmSetUser.ShowEnd SubPrivate Sub MDIForm_Click()frmlogo.ShowEnd Sub庫存管理系統(tǒng)流程圖查詢條件市場信息銷售清單讀數(shù)據(jù)銷售文件送貨清單處理查詢結(jié)果文件銷售子系統(tǒng)文件庫存文件訂貨單進貨系統(tǒng)流程圖讀數(shù)據(jù)判斷處理訂單文件商品庫存清單銷售文件小型超市管理系統(tǒng)的E-R圖XX性別年齡學(xué)歷員工編號XX號 銀行賬號聯(lián)系備注員 工銷售銷售數(shù)量銷售單號銷售日期顧 客進貨進貨名稱進貨日期進貨數(shù)量進貨單號進貨單價進貨總價商 品條形碼價格供貨商號供貨供貨商供貨商號供貨日期聯(lián)系人XX聯(lián)系銀行賬號3.數(shù)據(jù)存儲設(shè)計完成該管理信息系統(tǒng)

31、的數(shù)據(jù)存儲總體設(shè)計方案，明確數(shù)據(jù)存儲中表的結(jié)構(gòu)，各表中關(guān)鍵字的設(shè)置。員工表（StaffTable）中文字段名英文字段名字段類型長度主鍵字段值約束員工編號staffIDchar6NOT NULLXXnamechar6NOT NULL性別sexnchar2NOT NULL年齡agenvarchar6NOT NULL學(xué)歷diplomanvarchar4NOT NULL工種kindnvarchar10NOT NULL聯(lián)系phonevarchar12NOT NULL銀行賬號accountIDnvarchar15NOT NULL身份賬號idcardnvarchar18NOT NULL備注otherntex

32、t50NULL進貨表（ImportTable）中文字段名英文字段名字段類型長度主鍵字段值約束進貨單號importIDchar6NOT NULL進貨日期Import dateDater time8NOT NULL貨品名稱goodsnamenvarchar50NOT NULL貨品價格importpricemoney4NOT NULL進貨數(shù)量quantityint4NOT NULL進貨總價totalmoneymoney4NULL供貨商號（profferTable）中文字段名英文字段名字段類型長度主鍵字段值約束供貨商號ProfferIDnvarchar6NOT NULL聯(lián)系人contactpersonnvarchar8NOT NULL聯(lián)系Phoneint12NOT NULL銀行賬號accountIDnvarchar15NULL庫存表（StoreTable）中文字段名英文字段名字段類型長度主鍵字段值約束條形碼merchIDchar6NOT NULL庫存數(shù)量storeNumint4NOT NULL月銷售表(MonthSaleTable)中文字段名英文字段名字段類型長度主鍵字段值約束編號IDchar6NOT NULL日期datedatetime8NOT