share.pas

来自「一个小的Delphi的权限控制工具」· PAS 代码 · 共 15 行

unit share;

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

end.