unitglobal.pas

初中成绩录入系统网络版(firebird) firebird下的网络编程

unit UnitGlobal;

interface
var
  CurYear:String;//一位数的字符,比如2005年,就取5做为当前要操作的年份
implementation
end.