uglobe.pas

Delphi面向对象编程思想附书源码 好用哦！

unit uGlobe;

interface

const
  M_TITLE='操作提示';//所有提示对话框的标题
  ADO_STRING='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=wz.mdb;Persist Security Info=False' ;

implementation

end.