化妝品銷(xiāo)售管理系統(tǒng)-wenkub.com
2025-04-05 13:57 本頁(yè)面
【正文】 還有就是，我感覺(jué)至于代碼不用弄得那么死板，完全可以根據(jù)自己的理解來(lái)自由的變換，使得自己能夠得心應(yīng)手就行了。=”電話(huà)：18749650123 住址：2 區(qū) 1118” 31 / 34系統(tǒng)管理————子菜單注冊(cè)新用戶(hù)——do form 修改密碼———do form 用戶(hù)注銷(xiāo)———do form 退出系統(tǒng) ———quit數(shù)據(jù)更新維護(hù)——子菜單查詢(xún)信息————do form 信息查詢(xún)修改信息————do form 信息修改增添信息————do form 信息增添刪除信息————do form 信息刪除積分——————子菜單積分注冊(cè)————do form 積分積分查詢(xún)————do form 積分查詢(xún)積分添加————do form 積分添加積分用戶(hù)注銷(xiāo)——do form 注銷(xiāo)銷(xiāo)售——————子菜單銷(xiāo)售———do form 打印報(bào)表————子菜單今日?qǐng)?bào)表 report form preview 月報(bào)表 report form preview年報(bào)表 report form preview 關(guān)于本軟件————do form 五、設(shè)計(jì)體會(huì)Vfp 是一門(mén)比較有趣的課程，在設(shè)計(jì)過(guò)程中完全感受到它的魅力，通過(guò)可 32 / 34視化的操作使得操作界面更加美觀(guān)更加的人性化。=”本品是 版，版權(quán)所有，盜版必究！”Thisform。 INTO CURSOR tempmand2:click: WITH .ColumnCount=8 .=編號(hào) .=RGB(255,255,190) .=RGB(255,255,190) .=品名 .=RGB(255,255,190) .=價(jià)格 .=RGB(255,255,190) .=規(guī)格 .=RGB(255,255,190) .=數(shù)量 .=RGB(255,255,190) 16 / 34 .=產(chǎn)地 .=RGB(255,255,190) .=生產(chǎn)日期 .=RGB(255,255,190) .=保質(zhì)期 .=50 .=160 .=50 endwith=SELECT * FROM 資料 INTO CURSOR temp mand3:click:a=messagebox(是否接入網(wǎng)絡(luò)？,4+32+0,溫馨提示)if a=6(endif 數(shù)據(jù)環(huán)境：Command1—————————click:a=alltrim()b=alltrim()if a==.==messagebox(輸入不能為空！,48,溫馨提示)else 17 / 34append blankreplace 姓名 with areplace 密碼 with bmessagebox(注冊(cè)成功！)endifmand2———————— click:==數(shù)據(jù)環(huán)境：Combo1: rowsourcetype=6 Rowsource=Command1————————click:aa=bb=trim()if aa==and bb==messagebox(數(shù)據(jù)不能為空！)elseloca for 姓名=aa and 密碼=bba=trim()if .=aa or .=bbmessagebox(輸入的用戶(hù)名或者密碼錯(cuò)誤！,48,溫馨提示)else repl 密碼 with a 18 / 34messagebox(密碼修改成功！)endifendifrelease thisformCommand2————————click:release thisform數(shù)據(jù)環(huán)境：Command1————————click:USE EXCLUSIVE LOCATE ALL FOR 姓名=ALLTRIM()IF EOF()MESSAGEBOX(注銷(xiāo)用戶(hù)不存在！,48,溫馨提示)ELSEIF ==MESSAGEBOX(注銷(xiāo)不能為空！,48,溫馨提示)elsea=messagebox(是否刪除？,4+32+0,溫馨提示)if a=6dele ALL FOR 姓名=ALLTRIM() packmessagebox(刪除成功！)ENDIFENDIF 19 / 34ENDIF 數(shù)據(jù)環(huán)境：Command1————————click:do case case =1 select * from 資料 where 編號(hào)=alltrim() into cursor tempcase =2 select * from 資料 where 品名 like alltrim()+% into cursor tempcase =3 select * from 資料 where 單價(jià)= and 單價(jià)= into cursor temp endcasedo form mand2————————click:release thisform 20 / 34 Form1————————init:=temp數(shù)據(jù)環(huán)境：Form1————————init:= .F.= .F.= .F.= .F.= .F.= .t.= .t.= .t.= .t. 21 / 34= .t.Command1————————click
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1