大庆石油学院本科生毕业设计（论文） 表中插入数据。
与服务项目模块相似，单击“取消”将使界面初始化。
双击表格中某一行数据，会将当前行数据显示在界面各相应编辑框中。 单击“删除”按钮可将当前数据删除，为了防止误操作，在修改和删除数据时，系统都会弹出对话框进行提示。
5．3．6设备入库登记模块
设备入库登记模块主要实现对娱乐设备的入库登记、核算金额等功能。在设备入库时，使用自定义组件TShapeGrid实现设备信息的录入，利用TDBGid组件实现联想输入，当用户在TShapeGrid组件的设备名称字段中输入设备名称或简码时，会以列表形式显示相应信息。程序为了实现自动统计应付金额，自定义了一个Computerysk函数，该函数在表格中数据变化时利用循环统计金额。 设备入库登记模块运行结果如图5.7所示
图5.7 设备入库登记模块
设备入库的登记人列表与员工信息表（t_employee）相关联，当单击登记人的“?”按钮时，列表自动列出当前t_employee中的所有员工姓名。
时间的缺省值是当前日期。
用户在表格中添加要入库的设备名称，程序会将用户添加的设备名称在服务基础信息表（t_fwjcxx）搜索，如果表中没有此名称则提示“该服务不存在”，若存在此名称则出现一个TDBGrid显示此设备的名称和简码。
以下代码用于处理表格的OnSetEditText事件，在该事件中实现联想输入、计算每一笔金额，统计总的付款金额：
if (y = sbmc)and(Trim(info.Cells[sbmc,x])<>'') then begin
with Data.Query1 do begin Close; SQL.Clear;
SQL.Add('select * from t_fwjcxx where fwmc like :a or jm like :b');
22
大庆石油学院本科生毕业设计（论文） Parameters.ParamByName('a').Value := Trim(info.Cells[sbmc,x])+'%'; Parameters.ParamByName('b').Value := Trim(info.Cells[sbmc,x])+'%'; Open; end;
if Data.Query1.RecordCount>0 then begin
DataSource1.DataSet := Data.Query1; CellRect := info.CellRect(ACol,ARow); CellRect.Left := CellRect.Left+info.Left; CellRect.Right := CellRect.Right+ info.Left; CellRect.Top := info.Top+CellRect.Top; DBGrid1.Left := CellRect.Right+1; DBGrid1.Top := CellRect.Top; DBGrid1.Visible := True; end else begin
DBGrid1.Visible := False; Data.Query1.Close;
Application.MessageBox('该服务不存在.','提示',64); info.Cells[ACol,ARow]:=''; end; end
else if (y = dj) then begin
if (Trim(info.Cells[dj,x])<>'')and(Trim(info.Cells[sl,x])<>'') then info.Cells[je,x]:=
FloatToStr(StrToFloat(info.Cells[dj,x])*StrToFloat(info.Cells[sl,x]))
else
info.Cells[je,x]:='';
yfje.Text := FloatToStr(Computerysk); end
else if (y = sl) then begin
23
大庆石油学院本科生毕业设计（论文） if (Trim(info.Cells[sl,x])<>'')and(Trim(info.Cells[dj,x])<>'')then info.Cells[je,x]:=
FloatToStr(StrToFloat(info.Cells[dj,x])*StrToFloat(info.Cells[sl,x]))
else
info.Cells[je,x]:='';
yfje.Text := FloatToStr(Computerysk); end; end;
5．3．7娱乐项目收费模块
娱乐项目收费模块用于记录顾客进行的娱乐活动，统计娱乐费用。在进行结款时，顾客可以使用现金或会员卡进行结帐。在娱乐项目收费模块中，需要同时操作多个数据表，为了保证数据的完整性，在程序中使用了事务进行控制。事务具有原子性，一组连续的操作要么全部执行，要么一个也不执行。在健身俱乐部管理系统中，所有对数据库的操作都使用ADO组件进行事务控制，需要使用TADOConnection组件，该组件不但能够连接数据库，还提供了事务处理的方法，程序中通过调用TADOConnection组件的BeginTrans和CommitTrans方法开始和提交一个事务，如果事务提交失败，可以调用RollBackTrans方法回滚事务。
娱乐项目收费模块运行结果如图5.8所示
图5.8 娱乐收费项目模块
在操作员添加一个新的记录时，单击“添加”，程序会自动生成一个收款票号和时间，时间默认为当前日期。
单击顾客姓名和收款人后面的按钮时，会以列表形式显示顾客和员工姓名，顾客是从会员卡信息表（t_hykxx）中查询得到的，收款人则是从员工信息表（t_employee）中查询得到的。
在表格中添加服务名称，与设备入库登记模块相似，当添加服务名称时，程序会从服务项目表（t_fwxm）中搜索与之对应的项目，将其名称、单价显示在一个TDBGrid中，操作员可以直接双击DBGrid中需要的那一项，程序自动将其添加在表格的相应单元格中。操作员可以根据实际情况修改实收单价，程序自动会自动根据单价及数量计算出金额显示在单元格以及“应收款”和“实际应收款”编辑框中。
选择收款方式：现金，会员卡和现金/会员卡。
24
大庆石油学院本科生毕业设计（论文） a) 当使用“现金”支付时，默认的折扣为100%。这时输入当前顾客给出的现金金额，程序就会计算出找零的金额。
b) 当选择用“会员卡”支付时，会弹出如图5.9的会员卡信息窗口
图5.9 会员卡信息
输入用来支付的会员卡号然后单击“查询”就可以在下面表格中显示这张会员卡的详细信息，如果余额不足则弹出“余额不足”的提示窗口，单击“OK”，程序自动将此类型会员卡的优惠添加到“折扣”中，并计算出实际应收款在余额中扣除，还将会员卡号和此次扣除的金额显示在娱乐项目收费窗体中的“冲帐卡号”和“冲帐金额”中。
3．如果顾客的现金或者会员卡中余额不足以支付此次消费，还可以选择用“会员卡/现金”的支付方式。这时也会弹出“会员卡信息”窗口，输入会员卡号，单击“查询”会弹出要求输入现金金额的对话框，输入现金支付的金额，程序自动计算应该在会员卡中扣除的金额。
5．3．8娱乐收费查询模块
娱乐收费查询模块用于显示顾客消费的信息，统计实际收入。通过该查询，用户可以了解一段时间以来顾客更喜爱哪些娱乐活动。有利于管理人员根据实际情况进行决策分析。为了统计用户的实际收入，在select语句中使用了聚合函数sum进行统计，由于在收款票号表（t_skph）中只记录了应收款和折扣，并没有实收款，在统计实际收入时，需要在sum函数中计算实收款，如”select sum(ysk*zk/100) as zje from t_skph”。
娱乐收费查询模块运行结果如图5.10
25
