share_unit.pas

图书管理系统

unit Share_Unit;

interface

uses
   Classes,Forms,TFlatEditUnit,DB,ADODB;
const
   BHLength=10;

var
   Connect:TADOConnection;
   UserName:String;
   QX:String;
   BH:String='';
   ViewFile : boolean = True;
   ViewBookMgr : boolean = True;
   ViewSettingMgr : boolean = True;
   ViewAbout : boolean = True;
   Share_JSHS,Share_BFHY:TForm;                //这句非常重要的
   Share_FE:TFlatEdit;

implementation

end.