ceconst.~pas

群星医药系统源码

unit ceConst;

interface

//uses Messages;

const
  sDefaultKey = 'ChainEnt';

  c_PrivChars: Array[0..13] of Char = ( 'E',       '$', 			'Q', 			 'I',
  																			'U',       'D', 			'A', 		   'R',
                                        'G',       'P', 			'B', 			 'X',
                                        'M',       'L');
  //注：c_PrivNames必须声明为PChar或String[n]类型的数组，否则c_PrivNames常量有时会被清空
  c_PrivNames: Array[0..13] of PChar= ( '运行',		 '金额浏览','查询', 	 '新增',
  																			'修改',  	 '删除', 		'审核',    '撤消审核',
                                        '设计报表','打印', 	  '处理明细','导出',
                                        '导入', 	 '字段布局');
implementation

end.