udefine.pas

一个小程序

unit uDefine;

interface

var
  gPath :string;  //程序所在目录
  gServerIP,gServerAlias,gDbuserID,gDbPassWd,gServerPort :string;//服务器ip,数据库名,用户,密码,端口
  gConnect:string='N';
  gMktid:string;

implementation

end.