jcamconsts.pas

销售软件

(*===========================================================*)
(*                                                           *)
(*              Jerk Computer Assembly Manager               *)
(*                                                           *)
(*                    程序作者：杨芹勍                       *)
(*          武汉科技大学 理学院 信息与计算科学031班          *)
(*                  武汉科技大学 莘特工作室                  *)
(*                                                           *)
(*              IDE：Borland Delphi 2006 Update 2            *)
(*                 第三方控件：Raize 4.03                    *)
(*             数据库：Microsoft SQL Server 2000             *)
(*            数据库访问引擎：原生ADO（ADODB_TLB）           *)
(*           数据库管理引擎：JERK DBMANAGER ALPHA            *)
(*                                                           *)
(*           此软件及源代码归 JERK SYSTEM 版权所有           *)
(*            (C)Copyright 2002-2006 Jerk System.            *)
(*                                                           *)
(*===========================================================*)

unit JCAMConsts;

interface

uses
  Graphics,
  ADODB_TLB;

const
  STR_APPTITLE: string = 'Jerk Computer Assembly Manager';
  STR_APPDBNAME: string = 'JCAMIS';
  STR_APPMAINTITLE: string =
  'Jerk Computer Assembly Manager (Developed by Yang.Qinqing)';
  STR_CONFIGFILENAME: string = 'JCAMIS.ini';
  STR_SERVERINFO: string = 'Server Info';
  STR_DATASOURCE: string = 'DataSource';
  STR_USERID: string = 'UserID';
  STR_PASSWORD: string = 'Password';
  STR_SERVERINFOSTRING: string = 'ServerInfoString';
  STR_DIFFVALS: string = '...';
  STR_NEWLINE: string = #13 + #10;
  STR_SERVERINFODLLFILENAME = 'CSServerInfoDll.dll';
  STR_BACKUPDBFILESFOLDERPATH = 'Database';
  STR_IEDBFILESEXEFILENAME = 'JCAMIEDBFiles.exe';
  STR_CALCEXEFILENAME = 'calc.exe';
  STR_APPHOMEPAGEURL = 'http://www.jerkflash.com';

  RESTR_BTN_LOOKUP = 'JCAMIS_BTN_FIND';

  PVSTR_RETURN: string = 'Return';
  PVSTR_ISINFOADD: string = 'IsInfoAdd';
  PVSTR_INKEYFIELDVALUE: string = 'InKeyFieldValue';
  PVSTR_OUTKEYFIELDVALUE: string = 'OutKeyFieldValue';

  CL_INFOEDITCOLORFOCUS: TColor = $0075FFE3;
  CL_INFOEDITCOLORREADONLY: TColor = clBtnFace;

resourcestring
  RSTR_LOGIN_LINKDBFAILED =
    '数据库连接失败，请检查服务器配置是否填写正确。';
  RSTR_LOGIN_USERLOCKED =
    '该用户已经被管理员锁定，不能登陆。';
  RSTR_LOGIN_PWREINPUT =
    '用户名/密码错误，请重新输入。';
  RSTR_LOGIN_VALIDCODEERR =
    '验证码错误，请重新输入验证码。';

  RSTR_MAIN_NBLOGINNAME =
    '姓名：';
  RSTR_MAIN_NBLOGINTIME =
    '登陆时间：';
  RSTR_MAIN_STATUSITEMSCOUNT =
    '%s 条记录';
  RSTR_MAIN_STATUSSELECTEDCOUNT =
    '选定 %s 条记录';
  RSTR_MAIN_STATUSSELECTEDINDEX =
    '当前第 %s 条记录';

  RSTR_MODIFYPASSWORD_REPASSWORDWORING =
    '两次输入的新密码不相同，请重新输入新密码。';
  RSTR_MODIFYPASSWORD_CANTMODIFY =
    '不能保存新密码，请检查原密码是否输入正确。';
  RSTR_MODIFYPASSWORD_MODIFYSUCCESS =
    '新密码保存成功。';

  RSTR_MANAGER_INFOTODAY =
    '今日';
  RSTR_MANAGER_INFOCLEAR =
    '清除';
  RSTR_MANAGER_INFOSAVE_NOTALLOWNULL =
    '属性“%s”不允许为空，请填写完毕后再保存。';
  RSTR_MANAGER_INFOSAVE_NOTALLOWREPEATED =
    '属性“%s”的值不允许与以有的数据重复，请重新填写。';
  RSTR_MANAGER_INFOSAVE_OUTOFMAXLENGTH =
    '属性“%s”的值太长，请重新填写。';
  RSTR_MANAGER_INFOSAVE_FAILED =
    '信息保存失败，请检查输入的值是否合法。';
  RSTR_MANAGER_INFODELETE_AFFIRM =
    '请确定是否删除选中的 %s 条记录？';
  RSTR_MANAGER_INFODELETE_SUCCESS =
    '%s 条记录删除成功。';

var
  g_cnJCAMIS: _Connection;
  g_sConfigFileName: string;

implementation

end.