common_unit.pas

图书管理系统2.0版

unit Common_Unit;

interface

Uses
  Classes,Forms,TFlatEditUnit;
var
  DataPath:String='';
  QS:String='0';
  //BH:String='';
  Share_JSHS,Share_BFHY:TForm;                //这句非常重要的
  Share_FE:TFlatEdit;
implementation

end.