classesu.pas

包括学生的教育经历

unit ClassesU;

interface
uses Graphics;
//学生信息
type
  TStudent=class
    stdNo:string;//学生证号
    stdName:string; //姓名
    picPath:string;//照片路径
    sex:string;//性别
    nation:string;//民族
    birthday:string;
    native:string;//籍贯
    IDCard:string;//身份证号
    homeTel:string;//家庭电话
    address:string;//居住地址
    postalcode:string;//邮政编码
    inDate:string;//入校日期
    ClassName:string;//所在院系
    duty:string;//职务
    remark:string;//备注
end;

//操作员信息
type
  TOperator=class
     id:integer;
     Operid:string;//操作员ID
     OperName:string;//操作员姓名
     pwd:string;//密码
     privilege:string;//权限
     remark:string;//备注
end;
//院系
type
  TClasses=class
    id:integer;
    className:string;//院系名
    fatherID:integer;//上级id
end;
//学籍变动
type
  TStatus=class
    id:integer;
    studentNo:string; //学生编号
    changeType:string;//变动类型
    changeDate:string;//变动日期
    oldClass:string;//原班级
    newSchool:string;//转入学校
    newClass:string;//转入班级
    reason:string;//学籍变动原因
    remark:string;//备注
end;
//奖惩信息
type
  TEvaluation=class
    id:integer;
    stdNo:string;//学号
    Edate:string;//奖惩日期
    Etype:string;//奖惩类型
    remark:string;//奖惩说明
 end;
//教育经历
type
  TExperience=class
    id:integer;
    stdNo:string;//学号
    beginDate:string;//开始日期
    endDate:string;//结束日期
    school:string;//学校名
    duty:string;//职务
 end;

implementation

end.