untconsts.pas

车辆管理系统

unit untConsts;

interface

const
  c_ScreenWidth = 800;
  c_ScreenHeight = 600;

  c_Msg = 'MSG';
  c_Connect = 'Connect';
  c_Close = 'Close';
  c_DisConnect = 'Disconnect';
  c_OpenAccount = 'OpenAccount';

  c_Lan = 'Lan';
  c_Remote = 'Rem';

  c_Check = '+';
  c_UnCheck = '-';

  c_Succeed = 'Succeed';
  c_Failed = 'Failed';


var

  SADOconnectionstring:String;
  ApplicationTitle:String;
  BADOconnection:Boolean;

implementation


end.