1、PAGE PAGE 1化妝品銷售管理系統課程名稱：空間數據庫基礎專 業：地理信息系統班 級：0624111設 計 組：第七小組設 計 者：潘曉洋 秦建雨劉鉦 任高鵬指導教師：苗東利、毛政利設計時間：2012年12月河南城建學院測繪與城市空間信息系Visualfoxpro課程設計PAGE 49 -TOC o 1-3 h z u HYPERLINK l _Toc343703214 一、課題及任務 PAGEREF _Toc343703214 h - 2 - HYPERLINK l _Toc3437032一五 1.課題簡介 PAGEREF _Toc3437032一五 h - 2 - HYPERLINK

2、 l _Toc343703216 2.任務分派 PAGEREF _Toc343703216 h - 2 - HYPERLINK l _Toc343703217 二、系統需求分析調查 PAGEREF _Toc343703217 h - 3 - HYPERLINK l _Toc3437032一八 1.系統需求分析 PAGEREF _Toc3437032一八 h - 3 - HYPERLINK l _Toc343703219 2.系統功能簡介 PAGEREF _Toc343703219 h - 3 - HYPERLINK l _Toc343703220 三、系統設計 PAGEREF _Toc3437

3、03220 h - 4 - HYPERLINK l _Toc343703221 1.系統總體設計 PAGEREF _Toc343703221 h - 4 - HYPERLINK l _Toc343703222 2.系統詳細設計 PAGEREF _Toc343703222 h - 4 - HYPERLINK l _Toc343703223 3.數據庫設計 PAGEREF _Toc343703223 h - 4 - HYPERLINK l _Toc343703224 四、系統實施 PAGEREF _Toc343703224 h - 5 - HYPERLINK l _Toc343703225 1.數

4、據資源 PAGEREF _Toc343703225 h - 5 - HYPERLINK l _Toc343703226 月銷售記錄 PAGEREF _Toc343703226 h - 5 - HYPERLINK l _Toc343703227 積分表 PAGEREF _Toc343703227 h - 5 - HYPERLINK l _Toc343703228 資料表 PAGEREF _Toc343703228 h - 5 - HYPERLINK l _Toc343703229 密碼 PAGEREF _Toc343703229 h - 6 - HYPERLINK l _Toc343703230

5、 天銷售記錄 PAGEREF _Toc343703230 h - 6 - HYPERLINK l _Toc343703231 年銷售記錄 PAGEREF _Toc343703231 h - 6 - HYPERLINK l _Toc343703232 2.主程序設計 PAGEREF _Toc343703232 h - 7 - HYPERLINK l _Toc343703233 3.主要工作窗口 PAGEREF _Toc343703233 h - 7 - HYPERLINK l _Toc343703234 1.歡迎界面 PAGEREF _Toc343703234 h - 7 - HYPERLINK

6、 l _Toc343703235 2.登陸表單 PAGEREF _Toc343703235 h - 8 - HYPERLINK l _Toc343703236 3、主界面 PAGEREF _Toc343703236 h - 9 - HYPERLINK l _Toc343703237 4.用戶注冊 PAGEREF _Toc343703237 h - 17 - HYPERLINK l _Toc343703238 5.修改密碼表單 PAGEREF _Toc343703238 h - 17 - HYPERLINK l _Toc343703239 6.用戶注銷 PAGEREF _Toc343703239

7、 h - 一八 - HYPERLINK l _Toc343703240 7.信息查詢表單 PAGEREF _Toc343703240 h - 19 - HYPERLINK l _Toc343703241 8.查詢結果瀏覽表單 PAGEREF _Toc343703241 h - 20 - HYPERLINK l _Toc343703242 9.基本信息修改表單 PAGEREF _Toc343703242 h - 21 - HYPERLINK l _Toc343703243 10刪除表單 PAGEREF _Toc343703243 h - 23 - HYPERLINK l _Toc34370324

8、4 11、商品增添表單 PAGEREF _Toc343703244 h - 24 - HYPERLINK l _Toc343703245 12、會員注冊表單 PAGEREF _Toc343703245 h - 25 - HYPERLINK l _Toc343703246 一三.積分查詢表單 PAGEREF _Toc343703246 h - 26 - HYPERLINK l _Toc343703247 14.積分表單 PAGEREF _Toc343703247 h - 27 - HYPERLINK l _Toc343703248 一五.積分用戶注銷 PAGEREF _Toc343703248

9、h - 29 - HYPERLINK l _Toc343703249 16.銷售表單 PAGEREF _Toc343703249 h - 29 - HYPERLINK l _Toc343703250 17、關于表單 PAGEREF _Toc343703250 h - 31 - HYPERLINK l _Toc343703251 4.菜單設計 PAGEREF _Toc343703251 h - 32 - HYPERLINK l _Toc343703252 五、設計體會 PAGEREF _Toc343703252 h - 33 - HYPERLINK l _Toc343703253 六、參考文獻

10、PAGEREF _Toc343703253 h - 34 -一、課題及任務課題簡介根據化妝品店的實際需求，開發的一個運行良好，管理方便的，便于銷售，便于查詢的管理系統。任務分派劉鉦： 建立資料表，積分表，天銷售記錄表，月銷售記錄表，年銷售記錄表，登陸表單，歡迎表單，用戶注銷表單；秦建雨：信息查詢表單，信息修改表單，信息增添表單，信息刪除表單任高鵬：積分（注冊，查詢，增添，注銷）潘曉洋：建立數據庫，銷售系統（銷售表單，記錄的刪除（天記錄，月記錄，年記錄）報表：天銷售報表，月銷售報表，年銷售報表，關于表單，菜單與表單的掛載，主程序，連編，調試，界面美化。二、系統需求分析調查1.系統需求分析現在發展

11、迅速的信息時代，古老的紙質文檔管理機制已不能很好的滿足各大商家日常的管理與銷售，一種有條理、簡潔的管理系統迫切被需求。2.系統功能簡介本系統具有基本的查詢，增添，刪除修改信息的功能，便捷易操作。在此基礎之上，還增添了積分功能，使得來本店購買化妝品的每一個顧客都有一個記錄，通過積分來促進銷售，達到盈利倍增的目的。本系統支持多用戶，可設置多個用戶進行相同的管理。銷售界面上具有保存記錄的功能，可以通過相對應的菜單進行刪除，使得管理更加人性化。通過本系統可以清晰地直觀的看到各個數據的相關信息，使得瀏覽速度更加快捷，使用起來更加方便三、系統設計1.系統總體設計2.系統詳細設計系統管理模塊：登錄密碼的修改

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

13、UIT3.主要工作窗口1.歡迎界面FormInitPUBLIC i as Integer i=1timetimeri=i+1IF i=9 THEN thisform.Visible= .F.RELEASE thisformDO FORM 登錄.scxENDIF2.登陸表單數據環境：密碼.dbfForm1InitPUBLIC count as Integer count=1Combo1.rowsourcetype=6Combo1.rowsource=密碼.姓名Oleboundcontrol1控件：Recordsource=密碼.頭像command1 click:count=count+1loca

14、 for ALLTRIM(密碼.姓名)=alltrim(thisformxbo1.value)IF thisform.text2.Value=MESSAGEbox(輸入不能為空！)elseif found()and ALLTRIM(密碼.密碼)=alltrim(thisform.text2.value)DO FORM 主窗體.scxrelease thisformelseif count=thisform.text2.value and 單價=thisform.text3.value into cursor temp endcasedo form 查詢結果瀏覽.scxcommand2click

15、:release thisform8.查詢結果瀏覽表單Form1init:Thisform.grid1.recordsourcr=tempThisform.grid1.refresh9.基本信息修改表單數據環境：資料.dbfForm1init:thisform.text2.Enabled= .F.thisform.text3.Enabled= .F.thisform.text4.Enabled= .F.thisform.text5.Enabled= .F.thisform.text6.Enabled= .F.thisform.text2.readonly= .t.thisform.text3.

16、readonly= .t.thisform.text4.readonly= .t.thisform.text5.readonly= .t.thisform.text6.readonly= .t.Command1click:GO topLOCATE ALL FOR ALLTRIM(資料.編號)=ALLTRIM(thisform.text1.Value)IF thisform.text1.Value=MESSAGEBOX(查詢不能為空！,48,溫馨提示)elseIF FOUND() thisform.text2.Value=編號 thisform.text3.Value=品名 thisform.t

17、ext4.Value=單價 thisform.text5.Value=規格 thisform.text6.Value=數量 ELSE MESSAGEBOX(無此記錄,48,溫馨提示) endifendifcommand2click:DO CASE CASE thisform.check5.value=1 replace 編號 WITH ALLTRIM(thisform.text2.Value) CASE thisform.check1.Value=1 replace 品名 WITH ALLTRIM(thisform.text3.Value) CASE thisform.check2.Value

18、=1 replace 單價 WITH thisform.text4.Value CASE thisform.check3.Value=1 replace 規格 WITH ALLTRIM(thisform.text5.Value) CASE thisform.check4.Value=1 replace 數量 WITH thisform.text6.Value ENDCASE MESSAGEBOX(修改成功！)Command3 thisform.text1.Value=thisform.text1.setfocuscheck1click:thisform.text3.Enabled= .t.th

19、isform.text3.readonly= .f.check2click:thisform.text4.Enabled= .t.thisform.text4.readonly= .f.check3click:thisform.text5.Enabled= .t.thisform.text5.readonly= .f.check4click:thisform.text6.Enabled= .t.thisform.text6.readonly= .f.check5click:thisform.text2.Enabled= .t.thisform.text2.readonly= .mand4cli

20、ck:RELEASE thisform10刪除表單數據環境：資料.dbfForm1init:thisform.list1.Visible= .F.text1enteractivechange:thisform.list1.RowSource=”sele 品名 from 資料 where 品名 likeALLTRIM(thisform.text1.value)+% into cursor temp thisform.list1.Refreshlist1click：thisform.text1.Value=thisform.list1.Value thisform.list1.Visible= .

21、F.command1click:USE 資料.dbf EXCLUSIVEGO toploca ALL FOR 品名=alltrim(thisform.text1.value)IF FOUND()DELETE ALL FOR 品名=alltrim(thisform.text1.value)PACK MESSAGEBOX(success!)ELSE MESSAGEBOX(no record!)endif11、商品增添表單數據環境：資料.dbfCommand1click:SELECT 資料IF thisform.text1.Value= OR ;thisform.text1.Value= OR th

22、isform.text2.Value=MESSAGEBOX(輸入不能為空！,48,溫馨提示)ELSEAPPEND blankreplace 編號 WITH ALLTRIM(thisform.text1.value)replace 品名 WITH ALLTRIM(thisform.text2.value)replace 單價 WITH thisform.text3.valuereplace 規格 WITH ALLTRIM(thisform.text4.value)replace 數量 WITH thisform.text5.valueMESSAGEBOX(success!)ENDIFComman

23、d2click:thisform.text1.value=thisform.text2.value=thisform.text3.value=0thisform.text4.value=thisform.text5.value=012、會員注冊表單數據環境：積分表.dbfCommand1click:a=alltrim(thisform.text1.value)b=alltrim(thisform.text2.value)c=thisform.text3.valueif a=.or.b=.or.c=0messagebox(輸入不能為空！,48,溫馨提示)elseappend blankrepla

24、ce 姓名 with areplace 學號 with breplace 積分 with cmessagebox(注冊成功！)endifcommand2click:thisform.text1.Value=thisform.text2.Value=thisform.text3.Value=0一三.積分查詢表單數據環境：積分比表.dbfCommand1click:SELECT 積分表GO topDO CASE CASE thisform.optiongroup1.value=1IF thisform.text4.value=MESSAGEBOX(輸入不能為空！,48,溫馨提示)elseLOCAT

25、E FOR 姓名=ALLTRIM(thisform.text4.Value )IF EOF()MESSAGEBOX(查詢信息不存在！,48,溫馨提示)elsethisform.text6.Value=積分ENDIFENDIFCASE thisform.optiongroup1.Value =2IF thisform.text5.value=MESSAGEBOX(輸入不能為空！,48,溫馨提示)elseLOCATE FOR 學號=ALLTRIM(thisform.text5.Value )IF EOF()MESSAGEBOX(查詢信息不存在！,48,溫馨提示)elsethisform.text6

26、.Value=積分thisform.RefreshENDIFENDIFENDCASECommand2click:thisform.text4.Value=thisform.text5.Value=14.積分表單數據環境：資料表.dbfCommand1click:SELECT 積分表GO topDO CASE CASE thisform.optiongroup1.value=1IF thisform.text4.value=MESSAGEBOX(輸入不能為空！,48,溫馨提示)elseLOCATE FOR ALLTRIM(積分表.姓名)=ALLTRIM(thisform.text4.Value

27、)IF EOF()MESSAGEBOX(查詢信息不存在！,48,溫馨提示)elsethisform.text6.Value=積分ENDIFENDIFCASE thisform.optiongroup1.Value =2IF thisform.text5.value=MESSAGEBOX(輸入不能為空！,48,溫馨提示)elseLOCATE FOR ALLTRIM(積分表.學號)=ALLTRIM(thisform.text5.Value )IF EOF()MESSAGEBOX(查詢信息不存在！,48,溫馨提示)elsethisform.text6.Value=積分thisform.Refresh

28、ENDIFENDIFENDCASECommand2click:thisform.text4.Value=thisform.text5.Value=Command3click:SELECT 積分表DO CASE CASE thisform.optiongroup1.value=1LOCATE ALL FOR 姓名=ALLTRIM(thisform.text4.value)replace 積分 WITH thisform.text6.value+thisform.text8.valueMESSAGEBOX(success！)CASE thisform.optiongroup1.value=2LOC

29、ATE ALL FOR 學號=ALLTRIM(thisform.text5.value)replace 積分 WITH thisform.text6.value+thisform.text8.valueMESSAGEBOX(success！)ENDCASECommand4click:thisform.text6.Value=0thisform.text8.Value=0一五.積分用戶注銷數據環境：積分表.dbfCommand1click：CLOSE TABLES ALL USE 積分表.dbf EXCLUSIVE LOCATE ALL FOR 學號=ALLTRIM(thisform.text7

30、.value)IF EOF()MESSAGEBOX(注銷用戶不存在！,48,溫馨提示)ELSEIF thisform.text7.Value=MESSAGEBOX(注銷不能為空！,48,溫馨提示)elsea=messagebox(是否刪除？,4+32+0,溫馨提示)if a=6dele ALL FOR 學號=ALLTRIM(thisform.text7.value) packmessagebox(刪除成功！)ENDIFENDIFENDIFthisform.Refresh16.銷售表單數據環境：資料.dbf Command1click:IF thisform.text5.Value=0.0thi

31、sform.text6.Value=thisform.text3.value*thisform.text4.ValueELSEthisform.text6.Value=thisform.text3.value*thisform.text4.Value*thisform.text5.Value/10ENDIFCommand2click:CLOSE TABLES ALL USE 天銷售記錄GO topAPPEND blankreplace 品名 WITH ALLTRIM(thisform.text1.value)replace 編號 WITH ALLTRIM(thisform.text2.valu

32、e)replace 數量 WITH thisform.text4.Valuereplace 單價 WITH thisform.text6.valueMESSAGEBOX(寫入成功！)Command3click:CLOSE TABLES ALL USE 月銷售記錄GO topAPPEND blankreplace 品名 WITH ALLTRIM(thisform.text1.value)replace 編號 WITH ALLTRIM(thisform.text2.value)replace 數量 WITH thisform.text4.Valuereplace 單價 WITH thisform.

33、text6.valueMESSAGEBOX(寫入成功！)Command4click:CLOSE TABLES ALL USE 年銷售記錄GO topAPPEND blankreplace 品名 WITH ALLTRIM(thisform.text1.value)replace 編號 WITH ALLTRIM(thisform.text2.value)replace 數量 WITH thisform.text4.Valuereplace 單價 WITH thisform.text6.valueMESSAGEBOX(寫入成功！)Command5click:RELEASE thisform17、關于

34、表單ForminitThisform.label1.caption=”產品說明”Thisform。Label2.caption=”本品是v1.0 版，x，盜版必究！”Thisform。Label3.caption=”x洋雨鉦鵬工作室”Thisform。Label4.caption=”x971一三7239”Thisform。Label5.caption=”E-mail：971一三7239xqqx”Thisform。Label6.caption=”x一八749650123住址：2區1#1一八”4.菜單設計系統管理子菜單注冊新用戶do form 注冊新用戶.scx修改密碼do form 密碼修改.scx用戶注銷do