control_payoutu.pas

来自「这是一个餐饮业收费管理系统」· PAS 代码 · 共 69 行

unit Control_payoutU;

interface

uses DAHelper,ClassesU,ADODB,SysUtils;
//添加支出信息
function AddPayout(Payout:TPayout):boolean;
//修改支出信息
function EditPayout(Payout:TPayout):boolean;
//删除支出信息
function DelPayout(PayoutID:integer):boolean;
//得到支出信息
function GetPayoutArray:TADOQuery;
//根据支出类型查找支出
function GetPayoutByPayoutID(PayoutType:string):TADOQuery;

implementation

function GetPayoutByPayoutID(PayoutType:string):TADOQuery;
var
  sql:string;
begin
  if PayoutType='全部' then
    sql:='select id,费用类型,使用时间,费用金额,说明 from 支出信息'
  else
    sql:='select id,费用类型,使用时间,费用金额,说明 from 支出信息'+
       ' where 费用类型='+''''+PayoutType+'''';
  result:=DAHelper.ExeSqlQuery(sql);
end;

function GetPayoutArray:TADOQuery;
var
  sql:string;
begin
  sql:='select id,费用类型,使用时间,费用金额,说明 from 支出信息';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function DelPayout(PayoutID:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 支出信息 where id='+inttostr(PayoutID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function EditPayout(Payout:TPayout):boolean;
var
  sql:string;
begin
  sql:='update 支出信息 set 费用类型='+''''+Payout.FeeType+''''+
       ',使用时间='+''''+Payout.FeeDate +''''+
       ',费用金额='+floattostr(Payout.Fee)+
       ',说明='+''''+Payout.Remark +''''+
       ' where id='+inttostr(Payout.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddPayout(Payout:TPayout):boolean;
var
  sql:string;
begin
  sql:='insert into 支出信息(费用类型,使用时间,费用金额,说明'+
       ')'+' values('+''''+Payout.FeeType+''''+
       ','+''''+Payout.FeeDate+''''+
       ','+floattostr(Payout.Fee)+
       ','+''''+Payout.Remark+''''+')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;

end.