control_houseu.~pas

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

unit Control_houseU;

interface
uses DAHelper,ClassesU,ADODB,SysUtils;
//添加公寓楼信息
function AddHouse(House:THouse):boolean;
//修改公寓楼信息
function EditHouse(House:THouse):boolean;
//删除公寓楼信息
function DelHouse(ID:integer):boolean;
//得到公寓楼信息
function GetHouseArray:TADOQuery;
//查找公寓by公寓号
function GetHouseByHouseNo(HouseNo:string):THouse;

implementation
function GetHouseByHouseNo(HouseNo:string):THouse;
var
  sql:string;
  House:THouse;
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(nil);
  sql:='select id,公寓号,楼层数,房间数,启用时间,备注 from 公寓信息 where 公寓号='+
       ''''+HouseNo+'''';
  ADOQuery:=DAHelper.ExeSqlQuery(sql);
  if(ADOQuery.RecordCount<1) then
    begin
      result:=nil;
    end
  else
      begin
        House:=THouse.Create;
        House.id:=ADOQuery.Fields[0].Value;
        House.HouseID:=ADOQuery.Fields[1].Value;
        House.floorNum:=ADOQuery.Fields[2].Value;
        House.roomNum:=ADOQuery.Fields[3].Value;
        House.beginDate:=DateToStr(ADOQuery.Fields[4].Value);
        House.remark:=ADOQuery.Fields[5].Value;
        result:=House;
      end;
  ADOQuery:=nil;
end;
function GetHouseArray:TADOQuery;
var
  sql:string;
begin
  sql:='select id,公寓号,楼层数,房间数,启用时间,备注 from 公寓信息 order by 公寓号';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function DelHouse(ID:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 公寓信息 where id='+inttostr(ID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function EditHouse(House:THouse):boolean;
var
  sql:string;
begin
  sql:='update 公寓信息 set 公寓号='+''''+House.HouseID+''''+
       ',楼层数='+inttostr(House.floorNum)+
       ',房间数='+inttostr(House.roomNum)+
       ',启用时间='+''''+House.beginDate+''''+
       ',备注='+''''+House.remark+''''+
       ' where id='+inttostr(House.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddHouse(House:THouse):boolean;
var
  sql:string;
begin
  sql:='insert into 公寓信息(公寓号,楼层数,房间数,启用时间,备注)'+
       ' values('+''''+House.HouseID+''''+','+
       inttostr(House.floorNum)+','+inttostr(House.roomNum)+
       ','+''''+House.beginDate+''''+','+''''+House.remark+''''+
       ')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;

end.