share_unit.pas

来自「delphi+sql2000实现的图书管理系统软件」· PAS 代码 · 共 26 行

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;
   ViewBack : boolean = True;
   Share_JSHS,Share_BFHY:TForm;                //这句非常重要的
   Share_FE:TFlatEdit;

implementation

end.