control_yzu.~pas

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

unit Control_yzU;

interface
uses DAHelper,ClassesU,ADODB,SysUtils;
//得到楼宇
function GetBuildingArray:TADOQuery;
//得到单元,根据楼宇id
function GetBUnitByBID(BuildingID:integer):TADOQuery;
//添加楼宇
function AddBuilding(building:TBuilding):boolean;
//添加单元
function AddBUnit(bunit:TBUnit):boolean;
//编辑楼宇
function EditBuilding(building:TBuilding):boolean;
//编辑单元
function EditBUnit(bunit:TBUnit):boolean;
//得到业主集，通过楼牌号和单元号
function GetYZByLPHandDYH(lphID,dyhID:integer):TADOQuery;
//添加业主
function AddYZinfo(yz:TYZinfo):boolean;
//更改业主信息
function EditYZinfo(yz:TYZinfo):boolean;
//得到缴费记录
function GetFeeRecordByYZID(yzid:integer):TADOQuery;
implementation
function GetFeeRecordByYZID(yzid:integer):TADOQuery;
var
  sql:string;
begin
  sql:='select 项目,费用,缴费时间 from 收费记录,价格表 where 收费记录.业主id='+
       inttostr(yzID)+' and 项目id=价格表.id order by 缴费时间';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function EditYZinfo(yz:TYZinfo):boolean;
var
  sql:string;
begin
  sql:='UPDATE 业主信息 SET 楼牌号id='+inttostr(yz.LPHid)+',单元号id='+inttostr(yz.DYHid)+
       ',门牌号='+inttostr(yz.mph)+',姓名='+''''+yz.yzName+''''+',工作单位='+
       ''''+yz.yzDW +''''+',面积='+inttostr(yz.yzMJ )+',户型='+''''+yz.yzHX+''''+
       ',固定电话='+''''+yz.yzTel+''''+',手机='+''''+yz.yzMobile+''''+',备注='+''''+yz.remark +''''+
       ' where id='+inttostr(yz.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddYZinfo(yz:TYZinfo):boolean;
var
  sql:string;
begin
   sql:='insert into 业主信息(楼牌号id,单元号id,门牌号,姓名,工作单位,面积,户型,'+
       '固定电话,手机,备注) values('+inttostr(yz.LPHid)+','+inttostr(yz.DYHid)+','
        +inttostr(yz.mph)+','+''''+yz.yzName+''''+','+''''+yz.yzDW +''''+','+
        inttostr(yz.yzMJ)+','+''''+yz.yzHX+''''+','+''''+yz.yzTel+''''+','+''''+
        yz.yzMobile+''''+','+''''+yz.remark+''''+')';
   result:=DAHelper.ExeSqlNoQuery(sql);
end;
function GetYZByLPHandDYH(lphID,dyhID:integer):TADOQuery;
var
  sql:string;
begin
  sql:='select * from 业主信息 where 楼牌号id='+inttostr(lphID)+
          ' and 单元号id='+inttostr(dyhID);
  result:=DAHelper.ExeSqlQuery(sql);
end;
function EditBUnit(bunit:TBUnit):boolean;
var
  sql:string;
begin
  sql:='update 单元号 set 单元号='+''''+
              bunit.BUnitName+''''+
              ' where id='+inttostr(bunit.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function EditBuilding(building:TBuilding):boolean;
var
  sql:string;
begin
  sql:='update 楼牌号 set 楼牌号='+''''+
              building.BuildingName+''''+' where id='+inttostr(building.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddBUnit(bunit:TBUnit):boolean;
var
  sql:string;
begin
  sql:='insert into 单元号(单元号,楼牌号id) values('+''''+bunit.BUnitName+''''+
       ','+inttostr(bunit.buildingID)+')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddBuilding(building:TBuilding):boolean;
var
  sql:string;
begin
  sql:='insert into 楼牌号(楼牌号) values('+''''+building.BuildingName+''''+')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function GetBUnitByBID(BuildingID:integer):TADOQuery;
var
  sql:string;
begin
  sql:='select id,单元号 from 单元号 where 楼牌号id='+inttostr(Buildingid);
  result:=DAHelper.ExeSqlQuery(sql);
end;
function GetBuildingArray:TADOQuery;
var
  sql:string;
begin
  sql:='select id,楼牌号 from 楼牌号 order by 楼牌号';
  result:=DAHelper.ExeSqlQuery(sql);
end;
end.