control_feeitemu.pas

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

unit Control_feeItemU;

interface

uses DAHelper,ClassesU,ADODB,SysUtils;
//添加交费记录信息
function AddfeeItem(feeItem:TfeeItem):boolean;
//修改交费项目记录信息
function EditfeeItem(feeItem:TfeeItem):boolean;
//删除交费项目记录信息
function DelfeeItem(ID:integer):boolean;
//得到交费项目记录信息
function GetfeeItemArray:TADOQuery;
//查找交费项目记录byID
function GetfeeItemByfeeItemNo(id:integer):TfeeItem;

implementation
function GetfeeItemByfeeItemNo(id:integer):TfeeItem;
var
  sql:string;
  feeItem:TfeeItem;
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(nil);
  sql:='select id,公寓号,寝室号,交费项目时间,交费项目类型,金额,'+
       ' isnull(备注,'') 备注 from 交费项目信息 where id='+
       inttostr(id);
  ADOQuery:=DAHelper.ExeSqlQuery(sql);
  if(ADOQuery.RecordCount<1) then
    begin
      result:=nil;
    end
  else
      begin
        feeItem:=TfeeItem.Create;
        feeItem.id:=ADOQuery.Fields[0].Value;
        feeItem.roomHouseID:=ADOQuery.Fields[1].Value;
        feeItem.roomID:=ADOQuery.Fields[2].Value;
        feeItem.feeItemDate:=datetostr(ADOQuery.Fields[3].Value);
        feeItem.feeItemName:=ADOQuery.Fields[4].Value;
        feeItem.feeItem:=ADOQuery.Fields[5].Value;
        feeItem.remark:=ADOQuery.Fields[6].Value;
        result:=feeItem;
      end;
  ADOQuery:=nil;
end;
function GetfeeItemArray:TADOQuery;
var
  sql:string;
begin
  sql:='select id,公寓号,寝室号,交费项目时间,交费项目类型,金额,'+
       ' isnull(备注,'''') 备注 from 交费项目信息';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function DelfeeItem(ID:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 交费项目信息 where id='+inttostr(ID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function EditfeeItem(feeItem:TfeeItem):boolean;
var
  sql:string;
begin
  sql:='update 交费项目信息 set 公寓号='+''''+feeItem.roomHouseID+''''+
       ',寝室号='+''''+feeItem.roomID+''''+
       ',交费项目时间='+''''+feeItem.feeItemDate+''''+
       ',交费项目类型='+''''+feeItem.feeItemName+''''+
       ',金额='+floattostr(feeItem.feeItem)+
       ',备注='+''''+feeItem.remark+''''+
       ' where id='+inttostr(feeItem.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function AddfeeItem(feeItem:TfeeItem):boolean;
var
  sql:string;
begin
  sql:='insert into 交费项目信息(公寓号,寝室号,交费项目时间,交费项目类型,金额,备注)'+
       ' values('+''''+feeItem.roomHouseID+''''+
       ','+''''+feeItem.roomID+''''+
       ','+''''+feeItem.feeItemDate+''''+
       ','+''''+feeItem.feeItemName+''''+
       ','+''''+floattostr(feeItem.feeItem)+''''+
       ','+''''+feeItem.remark+''''+')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;

end.