?? classesu.pas
字號(hào):
unit ClassesU;
interface
uses Graphics;
//學(xué)生信息
type
TStudent=class
stdNo:string;//學(xué)生證號(hào)
stdName:string; //姓名
picPath:string;//照片路徑
sex:string;//性別
nation:string;//民族
birthday:string;
native:string;//籍貫
IDCard:string;//身份證號(hào)
homeTel:string;//家庭電話
address:string;//居住地址
postalcode:string;//郵政編碼
inDate:string;//入校日期
ClassName:string;//所在院系
duty:string;//職務(wù)
remark:string;//備注
end;
//操作員信息
type
TOperator=class
id:integer;
Operid:string;//操作員ID
OperName:string;//操作員姓名
pwd:string;//密碼
privilege:string;//權(quán)限
remark:string;//備注
end;
//院系
type
TClasses=class
id:integer;
className:string;//院系名
fatherID:integer;//上級(jí)id
end;
//學(xué)籍變動(dòng)
type
TStatus=class
id:integer;
studentNo:string; //學(xué)生編號(hào)
changeType:string;//變動(dòng)類(lèi)型
changeDate:string;//變動(dòng)日期
oldClass:string;//原班級(jí)
newSchool:string;//轉(zhuǎn)入學(xué)校
newClass:string;//轉(zhuǎn)入班級(jí)
reason:string;//學(xué)籍變動(dòng)原因
remark:string;//備注
end;
//獎(jiǎng)懲信息
type
TEvaluation=class
id:integer;
stdNo:string;//學(xué)號(hào)
Edate:string;//獎(jiǎng)懲日期
Etype:string;//獎(jiǎng)懲類(lèi)型
remark:string;//獎(jiǎng)懲說(shuō)明
end;
//教育經(jīng)歷
type
TExperience=class
id:integer;
stdNo:string;//學(xué)號(hào)
beginDate:string;//開(kāi)始日期
endDate:string;//結(jié)束日期
school:string;//學(xué)校名
duty:string;//職務(wù)
end;
implementation
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -