sjinvprintglobal.pas

供水营销打印程序源码

unit SJInvPrintGlobal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles;

var

  GUseDOSEnterKey: Boolean = True;                   // 使用回车键代替TAB键
  GREGsysPath: string = 'SJsoft\DJSRInvPrinter\1.0\';
  GREGUserSetting: string = 'Software\SJsoft\DJSRInvPrinter\1.0\Users setting\%s'; // 用户环境设置根路径
  GUserName: string = '';
  GUserID: string   = '';
  GAppName: string = 'SJsoft';                       // 系统全局名称，不允许进行设置
  GAppVersion: string = '1.0';                       // 系统版本号码，不允许进行设置
  GsysPath: string = '';
  GSysDataPath: string = '';
  GUserDataPath: string = '';                        // 用户目录
  GAppMDIStyle: Boolean = False;                     // 系统是否使用MDI模式

  GLogined: Boolean = False;                         // 用户登录标志
  GDefaultPassword: string = '123456';               // 系统默认密码
  GLoginCount: Integer = 3;                          // 允许用户输入密码的次数
  GLocked: Boolean = False;                          // 系统是否已经锁定
  GCanConnect: Boolean = False;                      // 是否可以连接到数据库
  GKey: string = '416260576';
  GEmail : string = '[e-mail]';
  GSysDatafile: string = 'DJSRInvPrint.mdb';         // 系统数据库文件
  GCompany: string;                                  // 系统注册组织名称 

implementation

end.