化妝品銷售管理系統(tǒng)(參考版)
2025-04-11 13:57本頁面
【正文】 此次課程設計，經(jīng)過幾個人的通力合作，做出了一個簡單運行良好的系統(tǒng)，激發(fā)了自己的對編程的極大熱情，在以后的學習中，我會更加的認真，學好這門課程。做了十幾個表單，重復來重復去依舊是那幾個代碼，只是通過巧妙的變換達到了不同效果。通過這三周的實習，我感覺到了對于某個軟件熟悉的重要性，當你對某個東西完全不熟悉的時候，做起來就會非常的費勁且沒有效率，只有不斷地練習，從基礎的做起，抓住細節(jié)，注意每個控件屬性之間的相同及不同之處，尋找規(guī)律。=”Email：”Thisform。=”作者：洋雨鉦鵬工作室”Thisform。== OR ==MESSAGEBOX(輸入不能為空！,48,溫馨提示)ELSEAPPEND blankreplace 編號 WITH ALLTRIM()replace 品名 WITH ALLTRIM()replace 單價 WITH replace 規(guī)格 WITH ALLTRIM()replace 數(shù)量 WITH MESSAGEBOX(success!)ENDIF 24 / 34Command2————————click:===0==01會員注冊表單數(shù)據(jù)環(huán)境：Command1————————click:a=alltrim()b=alltrim()c=if a==.==.==0messagebox(輸入不能為空！,48,溫馨提示)elseappend blankreplace 姓名 with areplace 學號 with breplace 積分 with cmessagebox(注冊成功！)endifmand2————————click: 25 / 34===0數(shù)據(jù)環(huán)境：Command1————————click:SELECT 積分表GO topDO CASE CASE =1IF ==MESSAGEBOX(輸入不能為空！,48,溫馨提示)elseLOCATE FOR 姓名=ALLTRIM( )IF EOF()MESSAGEBOX(查詢信息不存在！,48,溫馨提示)else=積分ENDIFENDIFCASE =2IF ==MESSAGEBOX(輸入不能為空！,48,溫馨提示)else 26 / 34LOCATE FOR 學號=ALLTRIM( )IF EOF()MESSAGEBOX(查詢信息不存在！,48,溫馨提示)else=積分ENDIFENDIFENDCASECommand2————————click:==數(shù)據(jù)環(huán)境：Command1————————click:SELECT 積分表GO topDO CASE CASE =1IF ==MESSAGEBOX(輸入不能為空！,48,溫馨提示)elseLOCATE FOR ALLTRIM()==ALLTRIM( )IF EOF() 27 / 34MESSAGEBOX(查詢信息不存在！,48,溫馨提示)else=積分ENDIFENDIFCASE =2IF ==MESSAGEBOX(輸入不能為空！,48,溫馨提示)elseLOCATE FOR ALLTRIM()==ALLTRIM( )IF EOF()MESSAGEBOX(查詢信息不存在！,48,溫馨提示)else=積分ENDIFENDIFENDCASECommand2————————click:==Command3————————click:SELECT 積分表DO CASE CASE =1LOCATE ALL FOR 姓名=ALLTRIM()replace 積分 WITH +MESSAGEBOX(success！)CASE =2LOCATE ALL FOR 學號=ALLTRIM()replace 積分 WITH +MESSAGEBOX(success！)ENDCASECommand4————————click:=0 28 / 34=0數(shù)據(jù)環(huán)境：Command1————————click：CLOSE TABLES ALL USE EXCLUSIVE LOCATE ALL FOR 學號=ALLTRIM()IF EOF()MESSAGEBOX(注銷用戶不存在！,48,溫馨提示)ELSEIF ==MESSAGEBOX(注銷不能為空！,48,溫馨提示)elsea=messagebox(是否刪除？,4+32+0,溫馨提示)if a=6dele ALL FOR 學號=ALLTRIM() packmessagebox(刪除成功！)ENDIFENDIFENDIF 29 / 34數(shù)據(jù)環(huán)境： Command1————————click:IF ==*ELSE=**thisfoENDIFCommand2————————click:CLOSE TABLES ALL USE 天銷售記錄GO topAPPEND blankreplace 品名 WITH ALLTRIM()replace 編號 WITH ALLTRIM()replace 數(shù)量 WITH replace 單價 WITH MESSAGEBOX(寫入成功！)Command3————————click:CLOSE TABLES ALL USE 月銷售記錄GO
公司管理相關推薦
鄂ICP備17016276號-1