unitglobal.pas.~5~

来自「初中成绩录入系统网络版(firebird) firebird下的网络编程」· ~5~ 代码 · 共 13 行

unit UnitGlobal;

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