📄 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
TCompany=class
id:integer;
company:string; //单位名称
companyType:string;//单位性质
address:string;//单位地址
linkman:string;//单位联系人
linkManner:string;//联系方式
remark:string;//备注
end;
//奖惩信息
type
TEmploy=class
id:integer;
stdNo:string;//学生证号
companyID:integer;//单位ID
duty:string;//职位
date:string;//就业时间
end;
//招聘信息
type
TJob=class
id:integer;
companyID:integer;//单位id
jobDate:string;//招聘时间
jobNum:integer;//招聘人数
jobDuty:string;//职位
address:string;//招聘地点
remark:string;//备注
end;
implementation
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -