请帮忙解释一下代码

22222bbb 2009-10-26 11:49:18
const
DosDelimSet : set of Char = ['\', ':', #0]; ///////这里不明白,
CITEMNAME='收费项目';
CPatientInfo= 'IC_CARDNO,s,50,就诊卡号' +'|'+////以下全不明白..
'VISITID,s,50,就诊号' +'|'+
'CARDNO,s,50,病人号' +'|'+
'IDNO,s,32,身份证号' +'|'+
'NAME,s,60,中文名称' +'|'+
'PYCODE,s,50,英文/拼音名称'+'|'+
'BIRTHDAY,s,50,出生日期' +'|'+
'AGE,s,10,年龄' +'|'+
'SEX,s,16,性别' +'|'+
'TELEPHONE,s,50,电话号码' +'|'+
'ADDRESS,s,200,地址' +'|'+
'DISTRICT,s,50,籍贯' +'|'+
'PROFESSION,s,50,职业' +'|'+
'PATIENTTYPE,s,50,患者类型'+'|'+
'APPLYDATE,s,50,申请日期' +'|'+
'BOOKDATE,s,50,临床预约日期时间'+'|'+
'APPLYID,s,50,申请流水号' +'|'+
'RECIPE,s,50,病人号' +'|'+
'ITEMID,s,50,检查项目ID' +'|'+
'ITEMNAME,s,200,检查项目名称'+'|'+
'DEPT,s,50,科室名称' +'|'+
'CONFIRMTIMES,s,50,确认次数' +'|'+
'EXECUTETIMES,s,50,需确认总次数'+'|'+
'ROOM,s,50,病房' +'|'+
'BED,s,10,床号' +'|'+
'APPLYDOC,s,50,申请医师' +'|'+
'CHECKCAUSE,s,200,检查目的' +'|'+
'PART,s,200,检查部位' +'|'+
'METHOD,s,100,检查方法' +'|'+
'DIAGNOS,s,200,临床诊断' +'|'+
'DISEASE,s,200,病理诊断' +'|'+
'HISTORY,s,200,病史' +'|'+
'SYMPTOM,s,200,症状' +'|'+
'STATUS,s,50,体征';

CBookInfo= 'IC_CARDNO,s,50,就诊卡号' +'|'+
'CARDNO,s,50,病人号' +'|'+
'BOOK_ITEM,s,16,设备类型' +'|'+
'BOOK_TYPE,s,10,来源' +'|'+
'BOOK_DATE,s,24,预约日期' +'|'+
'NOON_CODE,s,10,午别' +'|'+
'OPER_CODE,s,50,操作员' +'|'+
'OPER_DATE,s,24,操作时间' +'|'+
'VALID_STATE,s,10,有效' +'|'+
'EXEC_DEPT,s,50,执行部门' +'|'+
'MEMO2,s,200,备注' +'|'+
'BEGIN_TIME,s,24,开始时间' +'|'+
'END_TIME,s,24,结束时间' +'|'+
'CHECK_SEQ,s,16,检查序列';

CCheckFeeInfo='ITEM_CODE,s,50,项目代码'+'|'+
'ITEM_NAME,s,200,项目名称'+'|'+
'UNIT_PRICE,f,18,单价';


小弟不才,没见过这种写法,望各位解释一下!
...全文
126 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
dinoalex 2009-10-27
  • 打赏
  • 举报
回复
这是声明常量
kaikai_kk 2009-10-27
  • 打赏
  • 举报
回复
4条三角板了,也不明白??

DosDelimSet 是集合

下面不明白的和CITEMNAME='收费项目' 这个是一样的意思,

如最后一个,实际是:
CCheckFeeInfo='ITEM_CODE,s,50,项目代码|ITEM_NAME,s,200,项目名称|UNIT_PRICE,f,18,单价';
22222bbb 2009-10-27
  • 打赏
  • 举报
回复
嘿嘿....主要就是不明白这个 "|",四个三角当然是回答问题得来的啦!看来知识还是不全面,别人的代码看得太少了....感谢各位.
林石公 2009-10-27
  • 打赏
  • 举报
回复
咦,不知道楼长咋弄到4个三角的
gwhdaxia 2009-10-27
  • 打赏
  • 举报
回复
下面是不是定义的用'|'分割字符串,然后是'IC_CARDNO,s,50,就诊卡号'就是英文名称+类型+长度+中文名称
bdmh 2009-10-27
  • 打赏
  • 举报
回复
一堆的声明,没有看到使用的地方
‘|’这个东西估计使用来做分隔符的

2,497

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧