classesu.~pas

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

unit ClassesU;

interface
type
  TFeeSet=class
     id:integer;
     FeeName:string;
     Price:double;
     FeeStyle:string;
  end;
type
  TOperator=class
     id:integer;
     OperatorName:string;
     pwd:string;
     OperatorLevel:string;
  end;
type
  TBuilding=class
    id:integer;
    BuildingName:string;
  end;
//单元对象
type
  TBUnit=class
    id:integer;
    BUnitName:string;
    buildingID:integer;
  end;
type
  Tcarfee=class
     id:integer;
     CarNo:string;  //车位号
     UserName:string;
     carNumber:string; //车牌号
     beginDate:string;
     endDate:string;
   end;
type
  TFeeRecord=class
     id:integer;
     yzID:integer;
     feeID:integer;
     degree:double;
     fee:double;
     feeDate:string;
   end;
type
  TYZInfo=class
     id:integer;
     LPHid:integer;
     DYHid:integer;
     mph:integer;
     yzName:string;
     yzDW:string;
     yzMJ:integer;
     yzHX:string;
     yzTel:string;
     yzMobile:string;
     remark:string;
  end;
type
  TFeeSetArray=array of TFeeSet;
implementation

end.