classesu.pas

来自「这是一个学生公寓管理系统」· PAS 代码 · 共 77 行

unit ClassesU;

interface
//学生信息
type
  TStudent=class
    id:integer;
    stdNo:string;//学号
    stdName:string;
    sex:string;
    birthday:string;
    subject:string;//专业
    classes:string;//班级
    tel:string;//联系方式
    HouseNo:string;//公寓号
    roomNo:string;//寝室号
    remark:string;//备注
end;
//公寓信息
type
  THouse=class
     id:integer;
     HouseID:string;
     floorNum:integer;//楼层
     roomNum:integer;//房间数
     beginDate:string;//启用时间
     remark:string;//备注
end;
//房屋信息
type
  TRoom=class
    id:integer;
    roomID:string;//寝室号
    capability:integer;//可住人数
    fee:real;//住宿费用
    tel:string;//电话
    HouseID:string;//公寓号
    remark:string;//备注
end;
//交费信息
type
  TFee=class
    id:integer;
    HouseID:string;//公寓号
    roomID:string;//寝室号
    feeDate:string;//交费时间
    feeName:string;//交费类型
    fee:real;//金额
    remark:string;//备注
end;
//操作员信息
type
  TOperator=class
     id:integer;
     Operid:string;//操作员ID
     OperName:string;//操作员姓名
     pwd:string;//密码
     privilege:string;//权限
     remark:string;//备注
end;
//来访信息
type
  TVisitInfo=class
    id:integer;
    guest:string;//来访人姓名
    guestNum:integer;//来访人数
    interviewee:string;//被访问者
    relation:string;//关系
    beginDate:string;//来访时间
    endDate:string;//结束时间
    matter:string;//事由
    watch:string;//值班人
end;
implementation

end.