unitglobal.pas.~5~

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

unit UnitGlobal;

interface
var
  CurrentYear:String;//一位数的字符,比如2005年,就取5做为当前要操作的年份
  procedure setCurrentYear(year:String);
implementation
  procedure setCurrentYear(year:String);
  begin
    ;
  end;
end.