ceconst.pas

群星医药系统源码

unit ceConst;

interface

//uses Messages;

const
  sDefaultKey = 'ChainEnt';

  c_PrivChars: Array[0..14] 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..14] of PChar= ( '运行',		 '金额浏览',  '查询', 	  '新增',
  																			'修改',  	 '删除', 		  '审核',     '撤消审核',
                                        '设计报表','打印', 	    '处理明细', '导出',
                                        '导入', 	 '字段布局',  '特权');
implementation

end.