unitglobal.pas.~4~

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

unit UnitGlobal;

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