share_unit.pas

来自「本系统实现了一个图书销售管理系统」· PAS 代码 · 共 25 行

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.