1、.PAGE ：.；化裝品銷售管理系統課程稱號：空間數據庫根底專 業：地理信息系統班 級：設 計 組：第七小組設 計 者：潘曉洋 秦建雨 劉鉦 任高鵬指點教師：苗東利、毛政利設計時間：年月河南城建學院測繪與城市空間信息系Visualfoxpro課程設計PAGE PAGE - 33 - TOC o - h z u HYPERLINK l _Toc 一、課題及義務 PAGEREF _Toc h - - HYPERLINK l _Toc .課題簡介 PAGEREF _Toc h - - HYPERLINK l _Toc .義務分派 PAGEREF _Toc h - - HYPERLINK l _Toc

2、 二、系統需求分析調查 PAGEREF _Toc h - - HYPERLINK l _Toc .系統需求分析 PAGEREF _Toc h - - HYPERLINK l _Toc .系統功能簡介 PAGEREF _Toc h - - HYPERLINK l _Toc 三、系統設計 PAGEREF _Toc h - - HYPERLINK l _Toc .系統總體設計 PAGEREF _Toc h - - HYPERLINK l _Toc .系統詳細設計 PAGEREF _Toc h - - HYPERLINK l _Toc .數據庫設計 PAGEREF _Toc h - - HYPERLI

3、NK l _Toc 四、系統實施 PAGEREF _Toc h - - HYPERLINK l _Toc .數據資源 PAGEREF _Toc h - - HYPERLINK l _Toc 月銷售記錄 PAGEREF _Toc h - - HYPERLINK l _Toc 積分表 PAGEREF _Toc h - - HYPERLINK l _Toc 資料表 PAGEREF _Toc h - - HYPERLINK l _Toc 密碼 PAGEREF _Toc h - - HYPERLINK l _Toc 天銷售記錄 PAGEREF _Toc h - - HYPERLINK l _Toc 年銷

4、售記錄 PAGEREF _Toc h - - HYPERLINK l _Toc .主程序設計 PAGEREF _Toc h - - HYPERLINK l _Toc .主要任務窗口 PAGEREF _Toc h - - HYPERLINK l _Toc .歡迎界面 PAGEREF _Toc h - - HYPERLINK l _Toc .登陸表單 PAGEREF _Toc h - - HYPERLINK l _Toc 、主界面 PAGEREF _Toc h - - HYPERLINK l _Toc .用戶注冊 PAGEREF _Toc h - - HYPERLINK l _Toc .修正密碼表

5、單 PAGEREF _Toc h - - HYPERLINK l _Toc .用戶注銷 PAGEREF _Toc h - - HYPERLINK l _Toc .信息查詢表單 PAGEREF _Toc h - - HYPERLINK l _Toc .查詢結果閱讀表單 PAGEREF _Toc h - - HYPERLINK l _Toc .根本信息修正表單 PAGEREF _Toc h - - HYPERLINK l _Toc 刪除表單 PAGEREF _Toc h - - HYPERLINK l _Toc 、商品增添表單 PAGEREF _Toc h - - HYPERLINK l _Toc

6、 、會員注冊表單 PAGEREF _Toc h - - HYPERLINK l _Toc .積分查詢表單 PAGEREF _Toc h - - HYPERLINK l _Toc .積分表單 PAGEREF _Toc h - - HYPERLINK l _Toc .積分用戶注銷 PAGEREF _Toc h - - HYPERLINK l _Toc .銷售表單 PAGEREF _Toc h - - HYPERLINK l _Toc 、關于表單 PAGEREF _Toc h - - HYPERLINK l _Toc .菜單設計 PAGEREF _Toc h - - HYPERLINK l _Toc

7、 五、設計領會 PAGEREF _Toc h - - HYPERLINK l _Toc 六、參考文獻 PAGEREF _Toc h - -一、課題及義務課題簡介根據化裝品店的實踐需求，開發的一個運轉良好，管理方便的，便于銷售，便于查詢的管理系統。義務分派劉鉦： 建立資料表，積分表，天銷售記錄表，月銷售記錄表，年銷售記錄表，登陸表單，歡迎表單，用戶注銷表單；秦建雨：信息查詢表單，信息修正表單，信息增添表單，信息刪除表單任高鵬：積分注冊，查詢，增添，注銷潘曉洋：建立數據庫，銷售系統銷售表單，記錄的刪除天記錄，月記錄，年記錄報表：天銷售報表，月銷售報表，年銷售報表，關于表單，菜單與表單的掛載，主程序

8、，連編，調試，界面美化。二、系統需求分析調查.系統需求分析如今開展迅速的信息時代，古老的紙質文檔管理機制已不能很好的滿足各大商家日常的管理與銷售，一種有條理、簡約的管理系統迫切被需求。.系統功能簡介本系統具有根本的查詢，增添，刪除修正信息的功能，便利易操作。在此根底之上，還增添了積分功能，使得來本店購買化裝品的每一個顧客都有一個記錄，經過積分來促進銷售，到達盈利倍增的目的。本系統支持多用戶，可設置多個用戶進展一樣的管理。銷售界面上具有保管記錄的功能，可以經過相對應的菜單進展刪除，使得管理更加人性化。經過本系統可以明晰地直觀的看到各個數據的相關信息，使得閱讀速度更加快捷，運用起來更加方便三、系統

9、設計.系統總體設計.系統詳細設計系統管理模塊：登錄密碼的修正，新管理員的密碼賬號的創建，管理員信息的注銷，退出系統；數據更新維護模塊：化裝品信息的根本查詢，信息的修正，化裝品的刪除，化裝品的增添；積分模塊：積分用戶的注冊，積分的查詢，積分值的添加，積分用戶的注銷；銷售模塊：.銷售.數據庫設計四、系統實施.數據資源月銷售記錄積分表資料表密碼天銷售記錄年銷售記錄.主程序設計 主程序：SET TALK OFFCLEAR ALLclose allclear all_SCREEN.VISIBLE=.F.set sysmenu offset defa to sys()+sys()+do FORM 歡迎界面

10、.scxread eventsRETURN QUIT.主要任務窗口.歡迎界面FormInitPUBLIC i as Integer i=timetimeri=i+IF i= THEN thisform.Visible= .F.RELEASE thisformDO FORM 登錄.scxENDIF.登陸表單 數據環境：密碼.dbfForm Init PUBLIC count as Integer count=Combo.rowsourcetype=Combo.rowsource=密碼.姓名Oleboundcontrol控件：Recordsource=密碼.頭像command click:coun

11、t=count+loca for ALLTRIM(密碼.姓名)=alltrim(thisformbo.value)IF thisform.text.Value=MESSAGEbox(輸入不能為空！)elseif found()and ALLTRIM(密碼.密碼)=alltrim(thisform.text.value)DO FORM 主窗體.scxrelease thisformelseif count=thisform.text.value and 單價=thisform.text.value into cursor temp endcasedo form 查詢結果閱讀.scxcommand

12、click:release thisform.查詢結果閱讀表單 Forminit:Thisform.grid.recordsourcr=tempThisform.grid.refresh.根本信息修正表單數據環境：資料.dbfForminit:thisform.text.Enabled= .F.thisform.text.Enabled= .F.thisform.text.Enabled= .F.thisform.text.Enabled= .F.thisform.text.Enabled= .F.thisform.text.readonly= .t.thisform.text.readonl

13、y= .t.thisform.text.readonly= .t.thisform.text.readonly= .t.thisform.text.readonly= .t.Commandclick:GO topLOCATE ALL FOR ALLTRIM(資料.編號)=ALLTRIM(thisform.text.Value)IF thisform.text.Value=MESSAGEBOX(查詢不能為空！,溫馨提示)elseIF FOUND() thisform.text.Value=編號 thisform.text.Value=品名 thisform.text.Value=單價 thisf

14、orm.text.Value=規格 thisform.text.Value=數量 ELSE MESSAGEBOX(無此記錄,溫馨提示) endifendifcommandclick:DO CASE CASE thisform.check.value= replace 編號 WITH ALLTRIM(thisform.text.Value) CASE thisform.check.Value= replace 品名 WITH ALLTRIM(thisform.text.Value) CASE thisform.check.Value= replace 單價 WITH thisform.text.

15、Value CASE thisform.check.Value= replace 規格 WITH ALLTRIM(thisform.text.Value) CASE thisform.check.Value= replace 數量 WITH thisform.text.Value ENDCASE MESSAGEBOX(修正勝利！)Command thisform.text.Value=thisform.text.setfocuscheckclick:thisform.text.Enabled= .t.thisform.text.readonly= .f.checkclick:thisform.

16、text.Enabled= .t.thisform.text.readonly= .f.checkclick:thisform.text.Enabled= .t.thisform.text.readonly= .f.checkclick:thisform.text.Enabled= .t.thisform.text.readonly= .f.checkclick:thisform.text.Enabled= .t.thisform.text.readonly= mandclick:RELEASE thisform刪除表單數據環境：資料.dbfForminit:thisform.list.Vis

17、ible= .F.textenteractivechange:thisform.list.RowSource=sele 品名 from 資料 where 品名 likeALLTRIM(thisform.text.value)+% into cursor temp thisform.list.Refreshlistclick：thisform.text.Value=thisform.list.Value thisform.list.Visible= .F.commandclick:USE 資料.dbf EXCLUSIVEGO toploca ALL FOR 品名=alltrim(thisform

18、.text.value)IF FOUND()DELETE ALL FOR 品名=alltrim(thisform.text.value)PACK MESSAGEBOX(success!)ELSE MESSAGEBOX(no record!)endif、商品增添表單 數據環境：資料.dbfCommandclick:SELECT 資料IF thisform.text.Value= OR ;thisform.text.Value= OR thisform.text.Value=MESSAGEBOX(輸入不能為空！,溫馨提示)ELSEAPPEND blankreplace 編號 WITH ALLTRI

19、M(thisform.text.value)replace 品名 WITH ALLTRIM(thisform.text.value)replace 單價 WITH thisform.text.valuereplace 規格 WITH ALLTRIM(thisform.text.value)replace 數量 WITH thisform.text.valueMESSAGEBOX(success!)ENDIFCommandclick:thisform.text.value=thisform.text.value=thisform.text.value=thisform.text.value=th

20、isform.text.value=、會員注冊表單數據環境：積分表.dbfCommandclick:a=alltrim(thisform.text.value)b=alltrim(thisform.text.value)c=thisform.text.valueif a=.or.b=.or.c=messagebox(輸入不能為空！,溫馨提示)elseappend blankreplace 姓名 with areplace 學號 with breplace 積分 with cmessagebox(注冊勝利！)endifcommandclick:thisform.text.Value=thisfo

21、rm.text.Value=thisform.text.Value=.積分查詢表單數據環境：積分比表.dbfCommandclick:SELECT 積分表GO topDO CASE CASE thisform.optiongroup.value=IF thisform.text.value=MESSAGEBOX(輸入不能為空！,溫馨提示)elseLOCATE FOR 姓名=ALLTRIM(thisform.text.Value )IF EOF()MESSAGEBOX(查詢信息不存在！,溫馨提示)elsethisform.text.Value=積分ENDIFENDIFCASE thisform.

22、optiongroup.Value =IF thisform.text.value=MESSAGEBOX(輸入不能為空！,溫馨提示)elseLOCATE FOR 學號=ALLTRIM(thisform.text.Value )IF EOF()MESSAGEBOX(查詢信息不存在！,溫馨提示)elsethisform.text.Value=積分thisform.RefreshENDIFENDIFENDCASECommandclick:thisform.text.Value=thisform.text.Value=.積分表單數據環境：資料表.dbfCommandclick:SELECT 積分表GO

23、 topDO CASE CASE thisform.optiongroup.value=IF thisform.text.value=MESSAGEBOX(輸入不能為空！,溫馨提示)elseLOCATE FOR ALLTRIM(積分表.姓名)=ALLTRIM(thisform.text.Value )IF EOF()MESSAGEBOX(查詢信息不存在！,溫馨提示)elsethisform.text.Value=積分ENDIFENDIFCASE thisform.optiongroup.Value =IF thisform.text.value=MESSAGEBOX(輸入不能為空！,溫馨提示)

24、elseLOCATE FOR ALLTRIM(積分表.學號)=ALLTRIM(thisform.text.Value )IF EOF()MESSAGEBOX(查詢信息不存在！,溫馨提示)elsethisform.text.Value=積分thisform.RefreshENDIFENDIFENDCASECommandclick:thisform.text.Value=thisform.text.Value=Commandclick:SELECT 積分表DO CASE CASE thisform.optiongroup.value=LOCATE ALL FOR 姓名=ALLTRIM(thisfo

25、rm.text.value)replace 積分 WITH thisform.text.value+thisform.text.valueMESSAGEBOX(success！)CASE thisform.optiongroup.value=LOCATE ALL FOR 學號=ALLTRIM(thisform.text.value)replace 積分 WITH thisform.text.value+thisform.text.valueMESSAGEBOX(success！)ENDCASECommandclick:thisform.text.Value=thisform.text.Valu

26、e=.積分用戶注銷數據環境：積分表.dbfCommandclick：CLOSE TABLES ALL USE 積分表.dbf EXCLUSIVE LOCATE ALL FOR 學號=ALLTRIM(thisform.text.value)IF EOF()MESSAGEBOX(注銷用戶不存在！,溫馨提示)ELSEIF thisform.text.Value=MESSAGEBOX(注銷不能為空！,溫馨提示)elsea=messagebox(能否刪除？,+,溫馨提示)if a=dele ALL FOR 學號=ALLTRIM(thisform.text.value) packmessagebox(刪除

27、勝利！)ENDIFENDIFENDIFthisform.Refresh.銷售表單數據環境：資料.dbf Commandclick:IF thisform.text.Value=.thisform.text.Value=thisform.text.value*thisform.text.ValueELSEthisform.text.Value=thisform.text.value*thisform.text.Value*thisform.text.Value/ENDIFCommandclick:CLOSE TABLES ALL USE 天銷售記錄GO topAPPEND blankreplac

28、e 品名 WITH ALLTRIM(thisform.text.value)replace 編號 WITH ALLTRIM(thisform.text.value)replace 數量 WITH thisform.text.Valuereplace 單價 WITH thisform.text.valueMESSAGEBOX(寫入勝利！)Commandclick:CLOSE TABLES ALL USE 月銷售記錄GO topAPPEND blankreplace 品名 WITH ALLTRIM(thisform.text.value)replace 編號 WITH ALLTRIM(thisfo

29、rm.text.value)replace 數量 WITH thisform.text.Valuereplace 單價 WITH thisform.text.valueMESSAGEBOX(寫入勝利！)Commandclick:CLOSE TABLES ALL USE 年銷售記錄GO topAPPEND blankreplace 品名 WITH ALLTRIM(thisform.text.value)replace 編號 WITH ALLTRIM(thisform.text.value)replace 數量 WITH thisform.text.Valuereplace 單價 WITH thisform.text.valueMESSAGEBOX(寫入勝利！)Commandclick:RELEASE thisform、關于表單 ForminitThisform.label.caption=產品闡明Thisform。Label.ca