udefine.pas

来自「一个小程序」· PAS 代码 · 共 14 行

unit uDefine;

interface

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

implementation

end.