control_feeu.pas

学生公寓管理系统 很好的设计 呵呵 绝对很好

unit Control_feeU;

interface

uses DAHelper,ClassesU,ADODB,SysUtils;
//添加交费记录信息
function Addfee(fee:Tfee):boolean;
//修改交费记录信息
function Editfee(fee:Tfee):boolean;
//删除交费记录信息
function Delfee(ID:integer):boolean;
//得到交费记录信息
function GetfeeArray:TADOQuery;
//根据公寓号、寝室号以及交费类型得到交费记录信息
function GetfeeArrayByHouseID(houseID,feeType,roomID:string):TADOQuery;
implementation
function GetfeeArrayByHouseID(houseID,feeType,roomID:string):TADOQuery;
var
  sql,s1,s2,s3:string;
begin
  if (houseID='全部') then
      s1:=' 1=1 '
  else
      s1:=' 公寓号='+''''+houseID+'''';   //根据公寓号
  if (feeType='全部') then
      s2:=' 1=1 '
  else
      s2:=' 交费类型='+''''+feeType+'''';     //根据交费类型
  if (roomID='') then
      s3:=' 1=1 '
  else
      s3:=' 寝室号='+''''+roomID+'''';     //根据寝室号

  sql:='select id,公寓号,寝室号,交费时间,交费类型,金额,'+
       ' isnull(备注,'''') 备注 from 交费信息 where '+
       s1+' and '+s2+' and '+s3;
  result:=DAHelper.ExeSqlQuery(sql);
end;

function GetfeeArray:TADOQuery;
var
  sql:string;
begin
  sql:='select id,公寓号,寝室号,交费时间,交费类型,金额,'+
       ' isnull(备注,'''') 备注 from 交费信息';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function Delfee(ID:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 交费信息 where id='+inttostr(ID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function Editfee(fee:Tfee):boolean;
var
  sql:string;
begin
  sql:='update 交费信息 set 公寓号='+''''+fee.HouseID+''''+
       ',寝室号='+''''+fee.roomID+''''+
       ',交费时间='+''''+fee.feeDate+''''+
       ',交费类型='+''''+fee.feeName+''''+
       ',金额='+floattostr(fee.fee)+
       ',备注='+''''+fee.remark+''''+
       ' where id='+inttostr(fee.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function Addfee(fee:Tfee):boolean;
var
  sql:string;
begin
  sql:='insert into 交费信息(公寓号,寝室号,交费时间,交费类型,金额,备注)'+
       ' values('+''''+fee.HouseID+''''+
       ','+''''+fee.roomID+''''+
       ','+''''+fee.feeDate+''''+
       ','+''''+fee.feeName+''''+
       ','+''''+floattostr(fee.fee)+''''+
       ','+''''+fee.remark+''''+')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;

end.