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;
//查找交费记录byID
function GetfeeByfeeNo(id:integer):Tfee;
//得到某一个公寓,交费类型,寝室号的交费信息
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 GetfeeByfeeNo(id:integer):Tfee;
var
  sql:string;
  fee:Tfee;
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(nil);
  sql:='select id,公寓号,寝室号,交费时间,交费类型,金额,'+
       ' isnull(备注,'''') 备注 from 交费信息 where id='+
       inttostr(id);
  ADOQuery:=DAHelper.ExeSqlQuery(sql);
  //若无记录返回空，否则返回Tfee对象
  if(ADOQuery.RecordCount<1) then
    begin
      result:=nil;
    end
  else
      begin
        fee:=Tfee.Create;
        fee.id:=ADOQuery.Fields[0].Value;
        fee.HouseID:=ADOQuery.Fields[1].Value;
        fee.roomID:=ADOQuery.Fields[2].Value;
        fee.feeDate:=datetostr(ADOQuery.Fields[3].Value);
        fee.feeName:=ADOQuery.Fields[4].Value;
        fee.fee:=ADOQuery.Fields[5].Value;
        fee.remark:=ADOQuery.Fields[6].Value;
        result:=fee;
      end;
  ADOQuery:=nil;
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.