resourcestrunit.pas

用DELPH写的DAO访问模块.有连接池.应用了各种模块,把数据库操作

////--------------------------------------------------------------------------
//1.全局字符串资源单元
//--------------------------------------------------------------------------


unit ResourceStrUnit;

interface
 
const
  ConRS_ServerName = 'DCOMServer业务层中间件';

  //DAOConfig_User = 'select * from UserInfo';
  
    {
  aryMax=16;
  tbnName: array[1..aryMax] of string=('acAdd' , 'acEdit', 'acDelete', 'acSave',
    'acCancel','acFirst', 'acPriority', 'acNext', 'acLast', 'acHear', 'acRehear',
    'acFind', 'acPrint', 'acOrder', 'acExport', 'acExit');

  tbnCaption: array [1..aryMax] of string=(' &A增加 ','&E编辑','&D删除','&S保存',
    '&C取消',' 首笔 ',' 上笔 ',' 下笔 ',' 末笔 ','&H审核','&R复审','&F查找 ',
    '&P打印','&O排序 ','&I导出  ','&E退出');

  rightMenu: array[1..4] of string=('&V打印预览','&P立即打印','&S保存磁盘','&E修改报表');    }

Resourcestring
  //Form Title
  GloFrm_DBConfigFrm = '数据库配置';


  GloRS_ServerName = 'DCOMServer业务层中间件';
  GloRS_ExitServer = '请确认是否退出DCOMServer业务层中间件？';
  GloRs_FormDateFind = '查找与定位';
  GloRs_Title = '系统提示：';


  GloRs_IDsBTranErr = '数据库启动事务失败！';
  GloRs_IDsCTranErr = '数据库提交事务失败！';
  GloRs_IDsRTranErr = '数据库回滚事务失败！';

  GloRs_IDsGetData = '存取数据操作失败！';
  GloRs_IDsExeData = '数据更新操作失败！';
  GloRs_IDsExceptData = '数据操作时发生无法预知错误！';

  GloRs_DSPackisErr ='OLE转换成数据集异常！';

  GloRs_IsDelete = '请确认是否删除该条数据？';
  GloRs_MsgIsSave = '请首先确认是否保存该条数据？';
  GloRs_ErrorEditdsEmpty = '数据集为空，不能编辑！';
  GloRs_ErrorDeldsEmpty = '数据集为空，不能删除！';
  GloRs_ErrorDBConfig = '数据库配置文件不存在，请联系管理员！';
  GloRs_ErrorDBConfigErr = '数据库配置文件不正确，请联系管理员！';

  GloRs_DataSaveSuccess = '数据存盘成功！';
  GloRs_DataSaveExcept = '数据保存异常，存盘失败！';
  GloRs_DataDelError = '系统发生不可预知情况，操作失败！';
  GloRs_DataBaseErrorCode = '数据库错误码：';
  GloRs_TreeDataSetError = '数据库表型错误，请确认打开树型结构表！';

  
implementation

end.