delphi課程設(shè)計(jì)-甜品店會(huì)員管理系統(tǒng)(編輯修改稿)
2025-07-12 14:22 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 5 NO YES 圖 4 開(kāi)始 登錄窗口 信息正確確？確 進(jìn)入主界面 商品操作 會(huì)員操作 打印報(bào)表 退出系統(tǒng) 6 登陸實(shí)現(xiàn)代碼 procedure (Sender: TObject)。 begin if (39。 會(huì)員卡號(hào) 。 會(huì) 員 登 錄 密 碼39。,vararrayof([,]),[])then :=10 else showmessage(39。您輸入的密碼不正確，或者用戶(hù)不存在，請(qǐng)注冊(cè)， 39。)。 end。 procedure (Sender: TObject)。 begin (tform9,form9)。 。 end。 注冊(cè)實(shí)現(xiàn)代碼 begin if (39。會(huì)員卡號(hào) 。會(huì)員姓名 39。,vararrayof([, ]),[]) then showmessage(39。用戶(hù)已存在 39。) else if = then showmessage(39。用戶(hù)注冊(cè)成功 39。) else begin showmessage(39。您兩次輸入的密碼不正確，請(qǐng)重新輸入 39。)。 。 (39。會(huì)員卡號(hào) 39。).Value:=()。 (39。會(huì)員姓名 39。).Value:=()。 (39。會(huì)員登錄密碼 39。).Value:=()。 。 7 商品信息操作模塊代碼實(shí)現(xiàn) 商品查詢(xún)功能實(shí)現(xiàn)代碼 begin if (39。商品編號(hào) 。商品名稱(chēng) 39。,vararrayof([,]),[]) then showmessage(39。您所查找的商品價(jià)格為 39。+inttostr([39。商品價(jià)格 39。])) else begin showmessage(39。沒(méi)有找到您需要的商品 39。)。 。 end。 商品添加功能實(shí)現(xiàn)代碼 procedure (Sender: TObject)。 begin if (39。 商 品 編 號(hào) 。 商 品 名 稱(chēng)39。,vararrayof([,]),[])then showmessage(39。此商品已存在 39。) else begin showmessage(39。已成功添加新商品 39。)。 。 (39。商品編號(hào) 39。).Value:=()。 (39。商品名稱(chēng) 39。).Value:=()。 (39。商品價(jià)格 39。).Value:=()。 。 end。 end。 end. 商品刪除功能實(shí)現(xiàn)代碼 procedure (Sender: TObject)。 begin 。 if (39。商品編號(hào) 。商品名稱(chēng) 39。,vararrayof([, ]),[])then begin showmessage(39。查找到此商品，您確認(rèn)刪除此商品的所有信息么？ 39。)。 8 。 end else showmessage(39。此商品不存在 39。)。 end。 end. 商品信息修改實(shí)現(xiàn)代碼 procedure (Sender: TObject)。 begin if (39。商品編號(hào) 。商品名稱(chēng) 39。,vararrayof([,]),[]) then showmessage(39。您查找到此商品，商品價(jià)格修改成功 39。) else begin showmessage(39。沒(méi)有您所查找的商品 39。)。 。 。 。 。 (39。商品價(jià)格 39。).Value:=()。 。 end。 e
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1