share.pas

一个小的Delphi的权限控制工具

unit share;

interface
uses
   DB,ADODB;
var
  Connect:TADOConnection;
  ZH:string='';
  ZH1:string='';
  QXGL_Q1:TADOQuery;
  ZGNB_Q:TADOQuery;
implementation

end.