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

　　

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