classesu.pas

来自「这是一个餐饮业收费管理系统」· PAS 代码 · 共 82 行

unit ClassesU;

interface


//操作员信息
type
  TOperator=class
     id:integer;
     OperID:string;
     OperName:string;//操作员姓名
     pwd:string;//密码
     privilege:string;//权限
     remark:string;//备注
end;
//菜谱信息
type
  TDishes=class
    id:integer;
    dish:string;//菜名
    dishType:string;//菜谱类型
    dishClass:string;//菜系
    units:string;//计量单位
    sell:real;//售价
    element:string;//成份
    method:string;//做法
end;
//酒水信息
type
  TDrink=class
    id:integer;
    drinkName:string;//名称
    units:string;//计量单位
    cost:real;//成本价
    sell:real;//销售价
    remark:string;//说明
end;
//入库信息
Type
  TStock=class
    id:integer;
    GetDate:string;//采购日期
    commodity:string;//商品名称
    Num:real;//数量
    Units:string;//计量单位
    fee:real;//采购花费
    worker:string;//采购员
    company:string;//供货商
end;
//支出信息
Type
  TPayout=class
    id:integer;
    FeeType:string;//费用类型
    FeeDate:string;//使用时间
    Fee:real;//使用金额
    Remark:string;//说明
end;
//开单信息
type
  TTable=class
    id:integer;
    tableNo:integer;//桌号
    beginTime:string;//开单时间
    endTime:string;//结单时间
    otherFee:real;//其它费用
    allFee:real;//总费用
end;
//点菜明细
type
  TTableDetail=class
    id:integer;
    tableID:integer;//开单号
    DishesOrDrinkName:string;//菜酒名称
    num:integer;//分数
    price:real;//单价
    DishesOrDrink:string;//0:表示菜；1:表示酒
end;
implementation

end.