control_feeu.pas

这是一个小区物业管理系统

unit Control_feeU;

interface
uses DAHelper,ClassesU,ADODB,SysUtils;
//得到费用集
function GetFeeSetArray:TADOQuery;
//删除费用
function DelFeeSet(feeID:integer):boolean;
//查找是否存在给定的项目名称,如果存在返回true
function SearchFeeName(feeName:string):boolean;
//添加收费种类
function AddFee(feeSet:TFeeSet):boolean;
//修改收费种类
function EditFee(feeSet:TFeeSet):boolean;
//得到用户的缴费记录
function GetFeeRecordArray(yzid:integer):TADOQuery;
//得到最后一次记录数
function GetLastRecord(feeID,yzid:integer):double;
//添加收费记录
function AddFeeRecord(feeRecord:TFeeRecord):boolean;
implementation
function AddFeeRecord(feeRecord:TFeeRecord):boolean;
var
  sql:string;
begin
   sql:='insert into 收费记录(业主id,项目id,度数,费用,缴费时间) values('+
       inttostr(feeRecord.yzID)+','+inttostr(feeRecord.feeID)+','+
       floattostr(feeRecord.degree)+','+floattostr(feeRecord.fee)+',GETDATE())';
   result:=DAHelper.ExeSqlNoQuery(sql);
end;
function GetLastRecord(feeID,yzid:integer):double;
var
  sql:string;
  query:TADOQuery;
begin
  //在收费记录中找到某业主某项交费项目中的最新仪表数据
  sql:='select top 1 度数 from 收费记录 where 项目id='+
            inttostr(feeid)+
            'and 业主id='+inttostr(yzID) +' order by id desc';
  query:=DAHelper.ExeSqlQuery(sql);
  //若收费记录表中无相关记录则返回0，否则返回度数字段的值
  if query.Fields[0].IsNull then
    result:=0
  else
    result:=query.Fields[0].Value;
end;
function GetFeeRecordArray(yzid:integer):TADOQuery;
var
  sql:string;
begin
  sql:='select id,业主id,项目id,度数,费用,缴费时间 from 收费记录 where 业主id='+
       ''''+inttostr(yzid)+'''';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function EditFee(feeSet:TFeeSet):boolean;
var
  sql:string;
begin
  sql:='update 价格表 set 项目='+''''+feeSet.FeeName+''''+',价格='+floattostr(feeSet.Price)+
       ',收费方式='+''''+feeSet.FeeStyle+''''+' where id='+inttostr(feeSet.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddFee(feeSet:TFeeSet):boolean;
var
  sql:string;
begin
  sql:='insert into 价格表(项目,价格,收费方式) values('+''''+feeSet.FeeName+
        ''''+','+floattostr(feeSet.Price)+
       ','+''''+feeSet.FeeStyle+''''+')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;

function SearchFeeName(feeName:string):boolean;
var
  sql:string;
  query:TADOQuery;
begin
  sql:='select count(*) from 价格表 where 项目='+''''+feeName+'''';
  query:=DAHelper.ExeSqlQuery(sql);
  if query.Fields[0].Value>0 then   //如果有返回值，返回true，否则为false
    result:=true
  else
    result:=false;
  query:=nil;   //销毁建立的query
end;
function GetFeeSetArray:TADOQuery;
var
  sql:string;
  query:TADOQuery;
begin
  sql:='select id,项目,价格,收费方式 from 价格表';
  query:=DAHelper.ExeSqlQuery(sql);   //执行sql语句，返回值到query
  result:=query;
end;
function DelFeeSet(feeID:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 价格表 where id='+inttostr(feeID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
end.