化妝品銷(xiāo)售管理系統(tǒng)

1、化妝品銷(xiāo)售管理系統(tǒng)課程名稱(chēng)：空間數(shù)據(jù)庫(kù)基礎(chǔ)專(zhuān) 業(yè)：地理信息系統(tǒng)班 級(jí)：0624111設(shè) 計(jì) 組：第七小組設(shè) 計(jì) 者：潘曉洋 秦建雨 劉鉦 任高鵬指導(dǎo)教師：苗東利、毛政利設(shè)計(jì)時(shí)間：2012年12月河南城建學(xué)院測(cè)繪與城市空間信息系1Visualfoxpro課程設(shè)計(jì)一、課題及任務(wù)- 2 -1.課題簡(jiǎn)介- 2 -2.任務(wù)分派- 2 -二、系統(tǒng)需求分析調(diào)查- 3 -1.系統(tǒng)需求分析- 3 -2.系統(tǒng)功能簡(jiǎn)介- 3 -三、系統(tǒng)設(shè)計(jì)- 4 -1.系統(tǒng)總體設(shè)計(jì)- 4 -2.系統(tǒng)詳細(xì)設(shè)計(jì)- 4 -3.數(shù)據(jù)庫(kù)設(shè)計(jì)- 4 -四、系統(tǒng)實(shí)施- 5 -1.數(shù)據(jù)資源- 5 -月銷(xiāo)售記錄- 5 -積分表- 5 -資料表- 5

2、 -密碼- 6 -天銷(xiāo)售記錄- 6 -年銷(xiāo)售記錄- 6 -2.主程序設(shè)計(jì)- 7 -3.主要工作窗口- 7 -1.歡迎界面- 7 -2.登陸表單- 8 -3、主界面- 9 -4.用戶(hù)注冊(cè)- 17 -5.修改密碼表單- 17 -6.用戶(hù)注銷(xiāo)- 一八 -7.信息查詢(xún)表單- 19 -8.查詢(xún)結(jié)果瀏覽表單- 20 -9.基本信息修改表單- 21 -10刪除表單- 23 -11、商品增添表單- 24 -12、會(huì)員注冊(cè)表單- 25 -一三.積分查詢(xún)表單- 26 -14.積分表單- 27 -一五.積分用戶(hù)注銷(xiāo)- 29 -16.銷(xiāo)售表單- 29 -17、關(guān)于表單- 31 -4.菜單設(shè)計(jì)- 32 -五、設(shè)計(jì)體會(huì)-

3、 33 -六、參考文獻(xiàn)- 34 -一、課題及任務(wù)1. 課題簡(jiǎn)介根據(jù)化妝品店的實(shí)際需求，開(kāi)發(fā)的一個(gè)運(yùn)行良好，管理方便的，便于銷(xiāo)售，便于查詢(xún)的管理系統(tǒng)。2. 任務(wù)分派劉鉦： 建立資料表，積分表，天銷(xiāo)售記錄表，月銷(xiāo)售記錄表，年銷(xiāo)售記錄表，登陸表單，歡迎表單，用戶(hù)注銷(xiāo)表單；秦建雨：信息查詢(xún)表單，信息修改表單，信息增添表單，信息刪除表單任高鵬：積分（注冊(cè)，查詢(xún)，增添，注銷(xiāo)）潘曉洋：建立數(shù)據(jù)庫(kù)，銷(xiāo)售系統(tǒng)（銷(xiāo)售表單，記錄的刪除（天記錄，月記錄，年記錄）報(bào)表：天銷(xiāo)售報(bào)表，月銷(xiāo)售報(bào)表，年銷(xiāo)售報(bào)表，關(guān)于表單，菜單與表單的掛載，主程序，連編，調(diào)試，界面美化。二、系統(tǒng)需求分析調(diào)查現(xiàn)在發(fā)展迅速的信息時(shí)代，古老的紙質(zhì)文檔

4、管理機(jī)制已不能很好的滿(mǎn)足各大商家日常的管理與銷(xiāo)售，一種有條理、簡(jiǎn)潔的管理系統(tǒng)迫切被需求。本系統(tǒng)具有基本的查詢(xún)，增添，刪除修改信息的功能，便捷易操作。在此基礎(chǔ)之上，還增添了積分功能，使得來(lái)本店購(gòu)買(mǎi)化妝品的每一個(gè)顧客都有一個(gè)記錄，通過(guò)積分來(lái)促進(jìn)銷(xiāo)售，達(dá)到盈利倍增的目的。本系統(tǒng)支持多用戶(hù)，可設(shè)置多個(gè)用戶(hù)進(jìn)行相同的管理。銷(xiāo)售界面上具有保存記錄的功能，可以通過(guò)相對(duì)應(yīng)的菜單進(jìn)行刪除，使得管理更加人性化。通過(guò)本系統(tǒng)可以清晰地直觀的看到各個(gè)數(shù)據(jù)的相關(guān)信息，使得瀏覽速度更加快捷，使用起來(lái)更加方便三、系統(tǒng)設(shè)計(jì)系統(tǒng)管理模塊：登錄密碼的修改，新管理員的密碼賬號(hào)的創(chuàng)建，管理員信息的注銷(xiāo)，退出系統(tǒng)；數(shù)據(jù)更新維護(hù)模塊：化妝

5、品信息的基本查詢(xún)，信息的修改，化妝品的刪除，化妝品的增添；積分模塊：積分用戶(hù)的注冊(cè)，積分的查詢(xún)，積分值的添加，積分用戶(hù)的注銷(xiāo)；四、系統(tǒng)實(shí)施月銷(xiāo)售記錄積分表資料表密碼天銷(xiāo)售記錄年銷(xiāo)售記錄 主程序：SET TALK OFFCLEAR ALLclose allclear all_SCREEN.VISIBLE=.F.set sysmenu offset defa to sys(5)+sys(2003)+''do FORM 歡迎界面.scxread eventsRETURN QUITFormInitPUBLIC i as Integer i=1timetimeri=i+1IF i=9 T

6、HEN thisform.Visible= .F.RELEASE thisformENDIF Form1 Init PUBLIC count as Integer count=1Combo1.rowsourcetype=6COleboundcontrol1控件：Rcommand1 click:count=count+1loca for ALLTRIM(密碼.姓名)=alltrim(thisformxbo1.value)IF thisform.text2.Value=""MESSAGEbox("輸入不能為空！")elseif found()and ALLT

7、RIM(密碼.密碼)=alltrim(thisform.text2.value)release thisformelseif count<3 then=messagebox("輸入有誤！",48,"警告")elsemessagebox("對(duì)不起您是非法用戶(hù)，系統(tǒng)將自動(dòng)退出！",48,"警告")quitendifendifendifcommand2click:quit3、主界面 Form1 init: .ColumnCount=8 .Column1.Header1.Caption="編號(hào)"k

8、Color=RGB(255,255,190) .Column2.Header1.BackColor=RGB(255,255,190) .Column2.Header1.Caption="品名" .Column3.Header1.BackColor=RGB(255,255,190) .Column3.Header1.Caption="價(jià)格" .Column4.Header1.BackColor=RGB(255,255,190).Caption="規(guī)格" .Column5.Header1.BackColor=RGB(255,255,190

9、) .Column5.Header1.Caption="數(shù)量" .Column6.Header1.BackColor=RGB(255,255,190) .Column6.Header1.Caption="產(chǎn)地" .Column7.Header1.BackColor=RGB(255,255,190) .Column7.Header1.Caption="生產(chǎn)日期" .Column8.Header1.BackColor=RGB(255,255,190) .Column8.Header1.Caption="保質(zhì)期" .Co

10、lumn1.width=50 .Column2.width=160 .Column3.width=50 endwithdo 菜單1.mpr with this , .T.Olecontrol1init: this.Nodes.ClearThis.LineStyle= 1 && tvwRootLines this.labelEdit= 1 && tvwManualThis.Style= 7 && tvwTreelinesPlusMinusPictureText This.ImageList=Thisform.Imagelist1 &&

11、;與Imagelist控件建立關(guān)聯(lián)this.labelEdit= 1 && tvwManualthis.Nodes.Add (,"表","表",2)dd ("表",4,"資料表","資料表",2)this.Nodes.Add ("表",4,"積分表","積分表",2)this.Nodes.Add ("表",4,"天銷(xiāo)售記錄","天銷(xiāo)售記錄",2)this.Nod

12、es.Add ("表",4,"月銷(xiāo)售記錄","月銷(xiāo)售記錄",2)this.Nodes.Add ("表",4,"年銷(xiāo)售記錄","年銷(xiāo)售記錄",2) nodeclick: * ActiveX 控件事件 *LPARAMETERS nodeDO CASE CASE this.selectedItem.Text="表".ColumnCount=8 .Column1.Header1.Caption="編號(hào)" .Column1.Header1.Bac

13、kColor=RGB(255,255,190) .Column2.Header1.BackColor=RGB(255,255,190) .Column2.Header1.Caption="品名" .Column3.Header1.BackColor=RGB(255,255,190) .Column3.Header1.Caption="價(jià)格" .Column4.Header1.BackColor=RGB(255,255,190) .Column4.Header1.Caption="規(guī)格" .Column5.Header1.BackCol

14、or=RGB(255,255,190) .Column5.Header1.Caption="數(shù)量"1.BackColor=RGB(255,255,190) .Column6.Header1.Caption="產(chǎn)地" .Column7.Header1.BackColor=RGB(255,255,190) .Column7.Header1.Caption="生產(chǎn)日期" .Column8.Header1.BackColor=RGB(255,255,190) .Column8.Header1.Caption="保質(zhì)期" .

15、Column1.width=50 .Column2.width=160 .Column3.width=50 endwiththis.Tag=""CASE this.selectedItem.Text="積分表".ColumnCount=3 .Column1.Header1.Caption="姓名" .Column1.Header1.BackColor=RGB(255,255,190) .Column2.Header1.BackColor=RGB(255,255,190) .Column2.Header1.Caption="學(xué)

16、號(hào)" .Column3.Header1.BackColor=RGB(255,255,190) .Column3.Header1.Caption="積分"Column1.width=50 .Column2.width=160 .Column3.width=50 endwith this.Tag ="select * from 積分表 into cursor temp"CASE this.selectedItem.Text="天銷(xiāo)售記錄".ColumnCount=8 .Column1.Header1.Caption="

17、編號(hào)" .Column1.Header1.BackColor=RGB(255,255,190) .Column2.Header1.BackColor=RGB(255,255,190) .Column2.Header1.Caption="品名" .Column3.Header1.BackColor=RGB(255,255,190) .Column3.Header1.Caption="價(jià)格" .Column4.Header1.BackColor=RGB(255,255,190) .Column4.Header1.Caption="規(guī)格&q

18、uot; .Column5.Header1.BackColor=RGB(255,255,190) .Column5.Header1.Caption="數(shù)量" .Column6.Header1.BackColor=RGB(255,255,190) .Column6.Header1.Caption="產(chǎn)地" .Column7.Header1.BackColor=RGB(255,255,190) .Column7.Header1.Caption="生產(chǎn)日期" .Column8.Header1.BackColor=RGB(255,255,19

19、0) .Column8.Header1.Caption="保質(zhì)期" .Column1.width=50 .Column2.width=160 .Column3.width=50 endwiththis.Tag ="sele * from 天銷(xiāo)售記錄 into cursor temp"CASE this.selectedItem.Text="月銷(xiāo)售記錄".ColumnCount=8 .Column1.Header1.Caption="編號(hào)" .Column1.Header1.BackColor=RGB(255,255

20、,190)Color=RGB(255,255,190) .Column2.Header1.Caption="品名" .Column3.Header1.BackColor=RGB(255,255,190) .Column3.Header1.Caption="價(jià)格" .Column4.Header1.BackColor=RGB(255,255,190) .Column4.Header1.Caption="規(guī)格" .Column5.Header1.BackColor=RGB(255,255,190) .Column5.Header1.Cap

21、tion="數(shù)量" .Column6.Header1.BackColor=RGB(255,255,190) .Column6.Header1.Caption="產(chǎn)地" .Column7.Header1.BackColor=RGB(255,255,190) .Column7.Header1.Caption="生產(chǎn)日期" .Column8.Header1.BackColor=RGB(255,255,190) .Column8.Header1.Caption="保質(zhì)期" .Column1.width=50 .Column

22、2.width=160 .Column3.width=50 endwiththis.Tag ="sele * from 月銷(xiāo)售記錄 into cursor temp"CASE this.selectedItem.Text="年銷(xiāo)售記錄".ColumnCount=81.Caption="編號(hào)" .Column1.Header1.BackColor=RGB(255,255,190) .Column2.Header1.BackColor=RGB(255,255,190) .Column2.Header1.Caption="品名&q

23、uot; .Column3.Header1.BackColor=RGB(255,255,190) .Column3.Header1.Caption="價(jià)格"r=RGB(255,255,190) .Column4.Header1.Caption="規(guī)格" .Column5.Header1.BackColor=RGB(255,255,190) .Column5.Header1.Caption="數(shù)量" .Column6.Header1.BackColor=RGB(255,255,190) .Column6.Header1.Caption=

24、"產(chǎn)地" .Column7.Header1.BackColor=RGB(255,255,190) .Column7.Header1.Caption="生產(chǎn)日期" .Column8.Header1.BackColor=RGB(255,255,190) .Column8.Header1.Caption="保質(zhì)期" .Column1.width=50 .Column2.width=160 .Column3.width=50 endwiththis.Tag ="sele * from 年銷(xiāo)售記錄 into cursor temp&q

25、uot;CASE this.selectedItem.Text="資料表".ColumnCount=8 .Column1.Header1.Caption="編號(hào)" .Column1.Header1.BackColor=RGB(255,255,190) .Column2.Header1.BackColor=RGB(255,255,190) .Column2.Header1.Caption="品名"Color=RGB(255,255,190) .Column3.Header1.Caption="價(jià)格" .Column4

26、.Header1.BackColor=RGB(255,255,190) .Column4.Header1.Caption="規(guī)格" .Column5.Header1.BackColor=RGB(255,255,190) .Column5.Header1.Caption="數(shù)量" .Column6.Header1.BackColor=RGB(255,255,190) .Column6.Header1.Caption="產(chǎn)地" .Column7.Header1.BackColor=RGB(255,255,190) .Column7.Hea

27、der1.Caption="生產(chǎn)日期" .Column8.Header1.BackColor=RGB(255,255,190) .Column8.Header1.Caption="保質(zhì)期" .Column1.width=50 .Column2.width=160 .Column3.width=50 endwiththis.Tag ="sele * from 資料 into cursor temp"ENDCASEgrid1：recordsource=資料 recordsourcetype=4text1 interactivechange

28、:.ColumnCount=8 .Column1.Header1.Caption="編號(hào)" .Column1.Header1.BackColor=RGB(255,255,190) .Column2.Header1.BackColor=RGB(255,255,190) .Column2.Header1.Caption="品名" .Column3.Header1.BackColor=RGB(255,255,190) .Column3.Header1.Caption="價(jià)格" .Column4.Header1.BackColor=RGB(2

29、55,255,190) .Column4.Header1.Caption="規(guī)格" .Column5.Header1.BackColor=RGB(255,255,190) .Column5.Header1.Caption="數(shù)量" .Column6.Header1.BackColor=RGB(255,255,190) .Column6.Header1.Caption="產(chǎn)地" .Column7.Header1.BackColor=RGB(255,255,190) .Column7.Header1.Caption="生產(chǎn)日期&

30、quot; .Column8.Header1.BackColor=RGB(255,255,190) .Column8.Header1.Caption="保質(zhì)期" .Column1.width=50 .Column2.width=160 .Column3.width=50 endwiththisform.grid1.RecordSource ="SELECT * FROM 資料 WHERE 品名 like ALLTRIM(thisform.text1 .value) +'%' INTO CURSOR temp"command2:click:

31、.ColumnCount=8 .Column1.Header1.Caption="編號(hào)" .Column1.Header1.BackColor=RGB(255,255,190) .Column2.Header1.BackColor=RGB(255,255,190) .Column2.Header1.Caption="品名" .Column3.Header1.BackColor=RGB(255,255,190) .Column3.Header1.Caption="價(jià)格" .Column4.Header1.BackColor=RGB(25

32、5,255,190) .Column4.Header1.Caption="規(guī)格" .Column5.Header1.BackColor=RGB(255,255,190) .Column5.Header1.Caption="數(shù)量" .Column6.Header1.BackColor=RGB(255,255,190) .Column6.Header1.Caption="產(chǎn)地" .Column7.Header1.BackColor=RGB(255,255,190) .Column7.Header1.Caption="生產(chǎn)日期&q

33、uot; .Column8.Header1.BackColor=RGB(255,255,190) .Column8.Header1.Caption="保質(zhì)期" .Column1.width=50 .Column2.width=160 .Column3.width=50 endwiththisform.grid1.recordsource="SELECT * FROM 資料 INTO CURSOR temp "command3:click:a=messagebox("是否接入網(wǎng)絡(luò)？",4+32+0,"溫馨提示")if

34、 a=6ThisForm.HyperLink1.NavigateTo("xxbaidux/")endif Command1click:a=alltrim(thisform.text1.value)b=alltrim(thisform.text2.value)if a="".or.b=""messagebox("輸入不能為空！",48,"溫馨提示")elseappend blankreplace 姓名 with areplace 密碼 with bmessagebox("注冊(cè)成功！&qu

35、ot;)endifcommand2 click:thisform.text1.Value=""thisform.text2.Value=""Combo1: rowsourcetype=6 RCommand1click:bb=trim(thisform.text1.value)if aa=""and bb=""messagebox("數(shù)據(jù)不能為空！")elseloca for 姓名=aa and 密碼=bba=trim(thisform.text2.value)if .not.姓名=aa or .

36、not.密碼=bbmessagebox("輸入的用戶(hù)名或者密碼錯(cuò)誤！",48,"溫馨提示")else repl 密碼 with amessagebox("密碼修改成功！")endifendifrelease thisformCommand2click:release thisformCommand1click:USE 密碼.dbf EXCLUSIVE LOCATE ALL FOR 姓名=ALLTRIM(thisform.text7.value)IF EOF()MESSAGEBOX("注銷(xiāo)用戶(hù)不存在！",48,&qu

37、ot;溫馨提示")ELSEIF thisform.text7.Value=""MESSAGEBOX("注銷(xiāo)不能為空！",48,"溫馨提示")elsea=messagebox("是否刪除？",4+32+0,"溫馨提示")if a=6dele ALL FOR 姓名=ALLTRIM(thisform.text7.value) packmessagebox("刪除成功！")ENDIFENDIFENDIF Command1click:do case case thisform

38、.optiongroup1.value=1 select * from 資料 where 編號(hào)=alltrim(thisform.text4.value) into cursor tempcase thisform.optiongroup1.value=2 select * from 資料 where 品名 like alltrim(thisform.text1.value)+"%" into cursor tempcase thisform.optiongroup1.value=3 select * from 資料 where 單價(jià)>=thisform.text2.

39、value and 單價(jià)<=thisform.text3.value into cursor temp endcasedo form 查詢(xún)結(jié)果瀏覽.scxcommand2click:release thisform Form1init:Thisform.grid1.recordsourcr=tempTForm1init:thisform.text2.Enabled= .F.thisform.text3.Enabled= .F.thisform.text4.Enabled= .F.thisform.text5.Enabled= .F.thisform.text6.Enabled= .F.t

40、hisform.text2.readonly= .t.thisform.text3.readonly= .t.thisform.text4.readonly= .t.thisform.text5.readonly= .t.thisform.text6.readonly= .t.Command1click:GO topLOCATE ALL FOR ALLTRIM(資料.編號(hào))=ALLTRIM(thisform.text1.Value)IF thisform.text1.Value=""MESSAGEBOX("查詢(xún)不能為空！",48,"溫馨提示&q

41、uot;)elseIF FOUND() thisform.text2.Value=編號(hào) thisform.text3.Value=品名 thisform.text4.Value=單價(jià) thisform.text5.Value=規(guī)格 thisform.text6.Value=數(shù)量 ELSE MESSAGEBOX("無(wú)此記錄",48,"溫馨提示") endifendifcommand2click:DO CASE CASE thisform.check5.value=1 replace 編號(hào) WITH ALLTRIM(thisform.text2.Value)

42、 CASE thisform.check1.Value=1 replace 品名 WITH ALLTRIM(thisform.text3.Value) CASE thisform.check2.Value=1 replace 單價(jià) WITH thisform.text4.Value CASE thisform.check3.Value=1 replace 規(guī)格 WITH ALLTRIM(thisform.text5.Value) CASE thisform.check4.Value=1 replace 數(shù)量 WITH thisform.text6.Value ENDCASE MESSAGEBO

43、X("修改成功！")Command3 thisform.text1.Value=""check1click:thisform.text3.Enabled= .t.thisform.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= .

44、t.thisform.text6.readonly= .f.check5click:thisform.text2.Enabled= .t.thisform.text2.readonly= .mand4click:RELEASE thisform10刪除表單Form1init:thisform.list1.Visible= .F.text1enteractivechange:thisform.list1.RowSource=”sele 品名 from 資料 where 品名 likeALLTRIM(thisform.text1.value)+'%' into curso

45、r temp "list1click：thisform.text1.Value=thisform.list1.Value thisform.list1.Visible= .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 rec

46、ord!")endif11、商品增添表單 Command1click:SELECT 資料IF thisform.text1.Value="" OR ;thisform.text1.Value="" OR thisform.text2.Value=""MESSAGEBOX("輸入不能為空！",48,"溫馨提示")ELSEAPPEND blankreplace 編號(hào) WITH ALLTRIM(thisform.text1.value)replace 品名 WITH ALLTRIM(this

47、form.text2.value)replace 單價(jià) replace 規(guī)格 WITH ALLTRIM(thisform.text4.value)replace 數(shù)量 MESSAGEBOX("success!")ENDIFCommand2click:thisform.text1.value=""thisform.text2.value=""thisform.text3.value=0thisform.text4.value=""thisform.text5.value=012、會(huì)員注冊(cè)表單Command1click

48、:a=alltrim(thisform.text1.value)b=alltrim(thisform.text2.value)if a="".or.b="".or.c=0messagebox("輸入不能為空！",48,"溫馨提示")elseappend blankreplace 姓名 with areplace 學(xué)號(hào) with breplace 積分 with cmessagebox("注冊(cè)成功！")endifcommand2click:thisform.text1.Value="&q

49、uot;thisform.text2.Value=""thisform.text3.Value=0Command1click:SELECT 積分表GO topDO CASE CASE thisform.optiongroup1.value=1IF thisform.text4.value=""MESSAGEBOX("輸入不能為空！",48,"溫馨提示")elseLOCATE FOR 姓名=ALLTRIM(thisform.text4.Value )IF EOF()MESSAGEBOX("查詢(xún)信息不存在！&

50、quot;,48,"溫馨提示")elsethisform.text6.Value=積分ENDIFENDIFCASE thisform.optiongroup1.Value =2IF thisform.text5.value=""MESSAGEBOX("輸入不能為空！",48,"溫馨提示")elseLOCATE FOR 學(xué)號(hào)=ALLTRIM(thisform.text5.Value )IF EOF()MESSAGEBOX("查詢(xún)信息不存在！",48,"溫馨提示")elsethi

51、sform.text6.Value=積分ENDIFENDIFENDCASECommand2click:thisform.text4.Value=""thisform.text5.Value=""Command1click:SELECT 積分表GO topDO CASE CASE thisform.optiongroup1.value=1IF thisform.text4.value=""MESSAGEBOX("輸入不能為空！",48,"溫馨提示")elseLOCATE FOR ALLTRIM(積

52、分表.姓名)=ALLTRIM(thisform.text4.Value )IF EOF()MESSAGEBOX("查詢(xún)信息不存在！",48,"溫馨提示")elsethisform.text6.Value=積分ENDIFENDIFCASE thisform.optiongroup1.Value =2IF thisform.text5.value=""MESSAGEBOX("輸入不能為空！",48,"溫馨提示")elseLOCATE FOR ALLTRIM(積分表.學(xué)號(hào))=ALLTRIM(thisf

53、orm.text5.Value )IF EOF()MESSAGEBOX("查詢(xún)信息不存在！",48,"溫馨提示")elsethisform.text6.Value=積分ENDIFENDIFENDCASECommand2click:thisform.text4.Value=""thisform.text5.Value=""Command3click:SELECT 積分表DO CASE CASE thisform.optiongroup1.value=1LOCATE ALL FOR 姓名=ALLTRIM(thisfor

54、m.text4.value)replace 積分 MESSAGEBOX("success！")CASE thisform.optiongroup1.value=2LOCATE ALL FOR 學(xué)號(hào)=ALLTRIM(thisform.text5.value)replace 積分 MESSAGEBOX("success！")ENDCASECommand4click:thisform.text6.Value=0thisform.text8.Value=0Command1click：CLOSE TABLES ALL USE 積分表.dbf EXCLUSIVE L

55、OCATE ALL FOR 學(xué)號(hào)=ALLTRIM(thisform.text7.value)IF EOF()MESSAGEBOX("注銷(xiāo)用戶(hù)不存在！",48,"溫馨提示")ELSEIF thisform.text7.Value=""MESSAGEBOX("注銷(xiāo)不能為空！",48,"溫馨提示")elsea=messagebox("是否刪除？",4+32+0,"溫馨提示")if a=6dele ALL FOR 學(xué)號(hào)=ALLTRIM(thisform.text7.value) packmessagebox("刪除成功！")ENDIFENDIFENDIF數(shù)據(jù)環(huán)境：資料.