酒店客房餐飲管理系統(tǒng)實(shí)現(xiàn)(編輯修改稿)
2025-05-06 07:38 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 Controls。 Close。 Open。 EnableControls。 end。 //更新總訂單的總金額 with do begin Edit。 total:=(sid)。 Fields[3].AsFloat:=total。 Post。 end。end。//撤銷選擇的一項(xiàng)菜目procedure (Sender: TObject)。var total:Single。begin with Q_foodetail do begin if IsEmpty then Exit。 if not Active then begin ParamByName(39。sid39。).Value:=sid。 Open。 end。 Delete。 end。 total:=(sid)。 with do begin if not Active then Open。 Locate(39。id39。,sid,[])。 Edit。 Fields[3].AsFloat:=total。 Post。 end。end。procedure (Sender: TObject)。begin //新建總訂單 sid:=。 with do begin Open。 Append。 Fields[0].AsString:=sid。 Fields[1].AsString:=DateTimeToStr(Now)。 Fields[2].AsString:=Trim()。 Post。 end。 with Q_foodetail do begin Close。 ParamByName(39。sid39。).Value:=sid。 Prepare。 Open。 end。end。打單：票據(jù)示例如下。二．后臺(tái)管理1． 數(shù)據(jù)模塊該模塊是整個(gè)程序數(shù)據(jù)的提供者，以及包括大部分的處理函數(shù)和實(shí)現(xiàn)功能。單元文件名：,數(shù)據(jù)模塊名：DM_main。部分代碼分析：設(shè)置前臺(tái)操作員的密碼：procedure (password:String)。begin password:=Copy(password+password, 1, 10)。 password:=Encrypt(password, 111)。 //加密單元 with T_operator do begin Edit。 FieldValues[39。PASSWD39。]:=password。 end。end。根據(jù)客房ID 篩選客房：procedure (RoomID:String)。begin with T_room_modify do begin Close。 if length(RoomID)0 then begin
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1