control_carfeeu.pas

小区物业管理系统是为小区管理者更好的维护小区各项业务处理工作而开发的管理软件

unit Control_CarFeeU;

interface
uses DAHelper,ClassesU,ADODB,SysUtils;
//添加车位信息
function AddCarFee(carfee:Tcarfee):boolean;
//得到车位集
function GetCarFeeSetArray:TADOQuery;
//修改车位信息
function EditCar(carfee:Tcarfee):boolean;
//删除车位
function DelCar(carID:integer):boolean;
//查找是否存在该车位,如果存在返回true
function SearchCarNo(carNo:string):boolean;
implementation
function SearchCarNo(carNo:string):boolean;
var
  sql:string;
  Query:TADOQuery;
begin
  sql:='select count(*) from 车位表 where 车位号='+''''+carNo+'''';
  Query:=DAHelper.ExeSqlQuery(sql);
  if Query.Fields[0].Value>0 then
    result:=true
  else
    result:=false;
end;
function DelCar(carID:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 车位表 where id='+inttostr(carID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function EditCar(carfee:Tcarfee):boolean;
var
  sql:string;
begin
  sql:='update 车位表 set 车位号='+''''+carfee.CarNo+''''+',用户='+''''+carfee.UserName+''''+
  ',车牌号='+''''+carfee.carNumber+''''+',合同开始日期='+''''+carfee.beginDate+''''+
  ',合同结束日期='+''''+carfee.endDate+''''+
  ' where id='+inttostr(carfee.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function GetCarFeeSetArray:TADOQuery;
var
  sql:string;
  query:TADOQuery;
begin
  sql:='select id,车位号,用户,车牌号,合同开始日期,合同结束日期 from 车位表';
  query:=DAHelper.ExeSqlQuery(sql);
  result:=query;
end;
function AddCarFee(carfee:Tcarfee):boolean;
var
  sql:string;
begin
  sql:='insert into 车位表(车位号,用户,车牌号,合同开始日期,合同结束日期) values('+''''+carfee.CarNo+''''+
       ','+''''+carfee.UserName+''''+','+''''+carfee.carNumber+''''+','+''''+
       carfee.beginDate+''''+','+''''+carfee.endDate+''''+')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
end.