【導(dǎo)讀】Windows平臺(tái)下,著名的Delphi快速應(yīng)用程序開(kāi)發(fā)工具編寫的前臺(tái)界面。PhotoshopCS3圖片處理軟件進(jìn)行處理的。整個(gè)系統(tǒng)在開(kāi)發(fā)過(guò)程中，充分利用了。提供的多種32位可視組件庫(kù)進(jìn)行開(kāi)發(fā)，使其開(kāi)發(fā)工作快速完成。統(tǒng)同時(shí)具有很大的可擴(kuò)充性。系統(tǒng)由系統(tǒng)設(shè)置模塊、員工檔案管理模塊、會(huì)員管理模。塊、倉(cāng)庫(kù)管理模塊、賬務(wù)管理模塊等模塊組成。每個(gè)模塊都實(shí)現(xiàn)了增加、刪除、修改，查詢等相關(guān)操作。為了保證系統(tǒng)的安全性，在用戶登錄系統(tǒng)設(shè)計(jì)時(shí)，用戶需輸入正確。的工號(hào)和用戶口令才能進(jìn)入系統(tǒng)，并且不同的身份的用戶具有不同的權(quán)限。檔，本文檔作為開(kāi)發(fā)美容院信息管理系統(tǒng)的依據(jù)。

　　

【正文】 圖 510員工查詢 模塊效果圖（一） 圖 511員工查詢 模塊效果圖 （二） 宜賓學(xué)院 2021 屆畢業(yè)設(shè)計(jì)（論文） 34 關(guān)健代碼： procedure (Sender: TObject)； begin with do begin close； ； if (=39。查詢所有 39。)then begin str:=39。select sno as 工號(hào) ,name as 姓名 ,sex as 性別 ,age as 年齡 ,id_number as 身份證號(hào) ,nation as 民族 ,xie_li as 學(xué)歷 ,post as 職務(wù) ,zheng_zi as 政治面貌 ,39。； str:=str+39。fen_fou as 婚否 ,xie_xing as 血型 ,ti_zong as 體重 ,sheng_gao as 身高 ,ji_guan as 籍貫 ,tel as 手機(jī)號(hào) ,call as 住址電話 ,qq as 號(hào) ,jian_kang as 健康狀況 ,adress as 家庭住址 ,you_bian as 郵編 from staff39。； (str)； open； end else begin if(trim( )=39。39。)and(=true)then begin (39。沒(méi)有查詢到你想要的記錄！請(qǐng)重新輸入 39。,39。警示 39。,0+64)； :=39。39。； ； end end； 會(huì)員管理之會(huì)員 充值 功能模塊 模塊描述 宜賓學(xué)院 2021 屆畢業(yè)設(shè)計(jì)（論文） 35 該子模塊是實(shí)現(xiàn) 當(dāng) 會(huì)員 有充值需要 時(shí)，根據(jù)用戶的實(shí)際需求，對(duì)會(huì)員 卡 進(jìn)行 充值操作。用戶可以通過(guò)系統(tǒng)的“會(huì)員管理”菜單，點(diǎn)“會(huì)員 充值 ”，即可彈出會(huì)員 充值的界面。 工作流程圖如圖 512 所示： 功能 輸入：點(diǎn)擊“ 充值 ”按鈕 處理： 給指定 的 會(huì)員 充值 輸出： 提示“充值成功 ！ ” 輸入：點(diǎn)擊“ 退出 ” 按鈕 處理：把選中記錄顯示出來(lái) 輸出：顯示符合條件的數(shù) 據(jù) 輸入輸出項(xiàng) 名稱： 會(huì)員充值 標(biāo)識(shí)： sit_E_vip_sno、 deposit_L_namedeposit_E_remain等 輸入方式：直接通過(guò)鍵盤輸入或鼠標(biāo)選擇 名稱： 充值 (按鈕 ) 標(biāo)識(shí)： button_OK 輸入方式：直接點(diǎn)擊按鈕 名稱：刪除 (按鈕 ) 標(biāo)識(shí)： button_exit 輸入方式：直接點(diǎn)擊按鈕 圖 512 會(huì)員充值模塊流程圖 宜賓學(xué)院 2021 屆畢業(yè)設(shè)計(jì)（論文） 36 模塊效果圖 如圖 513 所示： 關(guān)健代碼： procedure (Sender: TObject)； begin ； if trim()=39。39。 then begin (39。請(qǐng)輸入要充值的賬號(hào) ,謝謝！ 39。,39。提示 39。)； :=39。39。； ； end else begin with do close； 圖 513會(huì)員充值 模塊效果圖（一） 宜賓學(xué)院 2021 屆畢業(yè)設(shè)計(jì)（論文） 37 ； (39。insert into deposit (vip_sno,vip_name,front_deposit,current_deposit,after_deposit,process)values(:vip_sno,:vip_name,:front_deposit,:current_deposit,:after_deposit,:process)39。)； (39。vip_sno39。).Value:=trim()； (39。vip_name39。).Value:=trim()； (39。process39。).Value:= ； (39。front_deposit39。).Value:=； (39。current_deposit39。).Value:=； (39。after_deposit39。).Value:=inttostr((strtoint(deposit))+(strtoint()))； aaa:=inttostr((strtoint())+(strtoint(deposit_CB_depo)))； ； (39。充值成功 !39。,39。提示 39。)； deposit_E_vip_snoExit(Sender)； :=39。39。； :=39。39。； ； :=inttostr(strtoint()strtoint())； end； end； end； 倉(cāng)庫(kù)管理功能模塊 模塊描述 該子模塊實(shí)現(xiàn)的是 對(duì)新進(jìn)產(chǎn)品的入庫(kù)、庫(kù)存 產(chǎn)品的查詢、修改、刪除等操作 。用戶可以通過(guò)系統(tǒng)的“ 倉(cāng)庫(kù) 管理 ”菜單，點(diǎn)“ 新進(jìn)產(chǎn)品 ”，即可彈出 倉(cāng)庫(kù)管理 的界面。 宜賓學(xué)院 2021 屆畢業(yè)設(shè)計(jì)（論文） 38 工作流程圖如圖 514 所示： 功能 輸入：點(diǎn)擊“ 入庫(kù) ”按鈕 處理： 如果倉(cāng)庫(kù)有此型號(hào)的產(chǎn)品就做追加操作；如果倉(cāng)庫(kù)沒(méi)有此型號(hào)的產(chǎn)品就做新添入庫(kù)操作 輸出： 提示“采購(gòu)產(chǎn)品成功入庫(kù)” 輸入：點(diǎn)擊“ 修改 ”按鈕 處理： 修改符合條件的數(shù)據(jù) 輸出：顯示符合條件的數(shù)據(jù) 輸入：點(diǎn)擊“刪除”按鈕 處理： 刪除符合條件的數(shù)據(jù) 輸出：提示“刪除成功！” 輸入：點(diǎn)擊“查詢”按鈕 處理： 查找符合條件的數(shù)據(jù) 輸出 ：顯示符合條件的數(shù)據(jù) 輸入：點(diǎn)擊“查詢?nèi)霂?kù)記錄”按鈕 處理： 轉(zhuǎn)到入庫(kù)記錄查詢窗口 圖 514 倉(cāng)庫(kù)管理模塊流程圖 宜賓學(xué)院 2021 屆畢業(yè)設(shè)計(jì)（論文） 39 輸出： 顯示入庫(kù)記錄查詢窗口 ” 輸入輸出項(xiàng) 名稱： 產(chǎn)品入庫(kù) 標(biāo)識(shí)： cp_CB_id、 cp_CB_name、cp_E_guige、 cp_E_shuliang、cp_E_danwei等 輸入方式：直接通過(guò)鍵盤輸入或鼠標(biāo)選擇 名稱：查詢 (按鈕 ) 標(biāo)識(shí) :cp_button_selcet 輸入方式：直接點(diǎn)擊按鈕 名稱：刪除 (按鈕 ) 標(biāo)識(shí)： cp_button_delete 輸入方式：直接點(diǎn)擊按鈕 名稱：庫(kù)存查詢 標(biāo)識(shí)： cp_button_selcet 輸出形式：在 cp_DBGrid1控件中顯示出來(lái) 名稱：修改 (按鈕 ) 標(biāo)識(shí)： cp_button_selcet 輸入方式：直接點(diǎn)擊按鈕 模塊效果圖 如圖 515 所示： 圖 515會(huì)員查詢 模塊效果圖（一） 宜賓學(xué)院 2021 屆畢業(yè)設(shè)計(jì)（論文） 40 關(guān)健代碼： procedure (Sender: TObject)； begin with do begin close； ； (39。select cp_id as 產(chǎn)品型號(hào) ,cp_name as 產(chǎn)品名字 ,cp_guige as 規(guī)格 ,cp_shuliang as 數(shù)量 ,cp_danwei as 單位 ,cp_jingjia as 進(jìn)貨價(jià) ,cp_lingshou as 預(yù)售價(jià) from chan_ping where cp_id=:cp_id39。)； (39。cp_id39。).Value:=Trim()； open； 圖 516 會(huì)員查詢 模塊效果圖（二） 宜賓學(xué)院 2021 屆畢業(yè)設(shè)計(jì)（論文） 41 if 0 then begin shuliang:=strtoint((39。數(shù)量 39。).AsString)； if MessageBox(Handle,PChar(39。產(chǎn)品型號(hào)系統(tǒng)已有，你確定要入庫(kù) ?39。),39。采購(gòu)進(jìn)貨 39。,mb_iconquestion+mb_yesno)=mryes then begin with do close； ； str:=39。update chan_ping set’ str:=str+’ cp_shuliang=:cp_shuliang,cp_jingjia=:cp_jingjia,cp_lingshou=:cp_lingshou where cp_id=:cp_id’ ； (str)； (39。cp_id39。).Value:=Trim()； (39。cp_shuliang39。).Value:=strtoint(Trim(cp_E_shuliang.Text))+shuliang； (39。cp_jingjia39。).Value:=strtoFloat() (39。cp_lingshou39。).Value:=strtoFloat(t)； ； end； end； 賬務(wù) 管理功能模塊 模塊描述 該子模塊是實(shí)現(xiàn)對(duì) 客戶進(jìn)行開(kāi)單（預(yù)約）、添加消費(fèi) 、顧客結(jié)算、營(yíng)業(yè)額統(tǒng)計(jì) 。用戶可以通過(guò)系統(tǒng)的“賬務(wù)管理”菜單，點(diǎn)“預(yù)約 /開(kāi)單”，即可彈出 “ 賬務(wù)管理 ” 界面。 工作流程圖如圖 517 所示： 宜賓學(xué)院 2021 屆畢業(yè)設(shè)計(jì)（論文） 42 功能 輸入：點(diǎn)擊“ 開(kāi)單 ”按鈕 處理： 將新 客戶的信息 存儲(chǔ)在數(shù)據(jù)庫(kù)中 輸出：提示“ 開(kāi)單 成功！” 輸入：點(diǎn)擊“ 取消 ”按鈕 處理： 不做任何操作 輸出： 無(wú) 輸入：點(diǎn)擊 “ 結(jié)賬 ”按鈕 處理： 自己動(dòng)結(jié)算并將數(shù)據(jù)存儲(chǔ)在相應(yīng)的數(shù)據(jù)庫(kù)中 輸出： 提示“結(jié)賬成功！” 輸入：點(diǎn)擊“退出”按鈕 處理：退出開(kāi)單 /結(jié)算窗口 輸出：無(wú) 輸入：點(diǎn)擊“刷新”按鈕 處理： 制新開(kāi)單、結(jié)算界面的很有信息 輸出：無(wú) 輸入：點(diǎn)擊“取消預(yù)約”按鈕 處理： 從開(kāi)單數(shù)據(jù)庫(kù)中刪除客戶信息 輸出： 提示“預(yù)約取消成功！” 輸入輸出項(xiàng) 圖 517 賬務(wù)管理效果圖 宜賓學(xué)院 2021 屆畢業(yè)設(shè)計(jì)（論文） 43 名稱： 預(yù)約 /開(kāi)單 標(biāo)識(shí)： kd_RB kd_Rb kd_CB_name、kd_CB_vipsno、 kd_dt_time等 輸入方式：直接通過(guò)鍵盤輸入或鼠標(biāo)選擇 名稱： 開(kāi)單 (按鈕 ) 標(biāo)識(shí)： Image2 輸入方式：直接點(diǎn)擊按鈕 名稱： 結(jié)賬 (按鈕 ) 標(biāo)識(shí)：deposit_button_OK 輸入方式：直接點(diǎn)擊按鈕 名稱：結(jié)賬 標(biāo)識(shí)： deposit_E_vip_sno、deposit_L_name deposit_E_remain、kd_ben_xiaofei、 deposit_E_payable等 輸入方式：直接通過(guò)鍵盤輸入或鼠標(biāo)選擇 名稱：刷新 (按鈕 ) 標(biāo)識(shí)： Image2 輸入方式：直接點(diǎn)擊按鈕 名稱：取消預(yù)約 (按鈕 ) 標(biāo)識(shí)： deposit_button_OK 輸入方式：直接 點(diǎn)擊按鈕 模塊效果圖 如圖 518 所示： 圖 518 賬務(wù)管理效果圖（一） 宜賓學(xué)院 2021 屆畢業(yè)設(shè)計(jì)（論文） 44 圖 519 賬務(wù)管理效果圖（二） 圖 520 賬務(wù)管理效果圖（三） 宜賓學(xué)院 2021 屆畢業(yè)設(shè)計(jì)（論文） 45 關(guān)健代碼： procedure (Sender: TObject)； begin if (=39。39。) or (=39。39。)then begin ShowMessage(39。請(qǐng)輸入客戶姓名和卡號(hào) 39。)； ； end else begin with do close； ； (39。select * from kai_dan where kd_sno=:kd_sno39。)； (39。kd_sno39。).Value:=Trim()； Open； if 0 then begin showmessage(39。此用戶已經(jīng)正在使用 ,請(qǐng)重新輸入！ 39。)； kd_keihuClick(Sender)； end els