classesu.pas

来自「实现对手机用户及通话信息的管理。分为管理员和用户两部分功能。能进行查询、修改、添」· PAS 代码 · 共 40 行

unit ClassesU;

interface
type
  TUser=class
  p_no:string;
  name:string;
  leixing:string;
    address:string;
    kaiku:string;
    beizhu:string;
end;
type
   Tjiao=class
   id:integer;
    pno:string;
    jtime:string;
    jprice:integer;
    chprice:integer;
    chmonth:integer;
end;
type
   Toperator=class

    Operid:string;
    pwd:string;
    privilege:string;
end;
type
   Tcharge=class
   pno:string;
   chmonth:integer;
   jprice:integer;
   chprice:integer;
   qieprice:integer;
end;
implementation

end.