医院信息系统软件总体项目设计方案.docVIP

医院信息系统软件总体项目设计方案 第二章：相关技术指标描述 第三章：前端控件的开发 3。1 ldbase_FRM控件 3。1．1 ldbase_FRM控件总体说明 把操作提示区放到一起，如操作员，日期，终端，版权提示区和操作提示区。 提供几个更新方法： SetUsrName(Usrname:string) 通过基本的API:getargv(‘usrname’);得到 SetDate(DateStr:string) 通过基本的date函数得到 SetTrmno(Trmno:string) 通过基本的API:getargv(‘trmno’)得到 SetCopyright(CopyRightStr:string) 通过基本的API:getargv(‘trmno’)得到 SetHelp(HelpStr:string) 通过基本的txt_control.help得到 注意把每个edit 控件，combo控件的hint=helpster,showhint=true. 能否把控件分成一组一组的，便于控制？？？ 增加以下方法: Focusfirst(grp:string) grp= control object group name,if==nil indicate current group. If currentgrp ==-1 find first group. Focusbyname(ctlname:string) Ctlname 表示控件名称 FocusLast(grd:string) grp=konggroup name,if==nil indicate current group. FocusPrev(grp:string) grp=control object group name,if==nil indicate current group. FocusNext(grp:string) grp=control object group name,if==nil indicate current group. UpdCtlByStr(Grp:String,Updstr:string) grp=control object group name,if==nil indicate current group. UpdStr格式如’ctyno=abcdef;ctyname=972397;。。。’.参见grid string 一般他用grid.getstr得到,在grid.onclick事件中调用 为了实现以上功能，每个控件必须有一个group属性,表示控件所属的组。 3。2 ldtext控件 3。2．1 ldtext控件总体说明 增加属性： Group 表示控件所属的组,如”luo” 一般任何控件都需要本属性 TabStop 表示控件是否可以得到焦点 一般任何控件都需要本属性 TabOrder 表示控件得到焦点的顺序 HelpStr 表示控件得到焦点后的提示字符串 MatchStr 表示grid中的内容字符串要更新的edit或其他控件的内容匹配字符串 如grid中得到’ctyno=abcdef;ctyname=972397;。。。’. 而屏幕上有一个txt_bdctyf_ctyno.matchstr=’ctyno’,则txt_bdxtyf_ctyno.text=’abcdef’ 他通过ldbase_frm的ctlupdate方法更新，具体说明见ldbase_frm说明 FmtStr 表示编辑的内容的数据格式,如: # V(n) 自由格式,长度为n,数据库用varchar # Z(n) 自由格式,长度为n,数据库用char # S(n) a-z 0-9 A-Z 和汉字 字符串格式,长度为n # A(n) a-z 0-9 A-Z字符串格式,长度为n # C(n) 汉字字符串格式,长度为n # G(n) 0-9字符串格式,长度为n # P(n) 0-9字符串格式,前端显示用密码方式显示 # D(yn,mn,dn) 日期字符串格式,年份长度为yn,月份长度为mn,天的长度为dn # T(hn,mn,sn) 时间字符串格式,小时长度为hn,分钟长度为mn,秒的长度为sn # I(n) 整型格式长度为n # F(n1,n2) 浮点格式,小数点前面为n1位,小数为n2位 # $(n1,n2) 金额格式,小数点前面为n1位,小数为n2位 minlen 表示输入数据的最小长度,一般=0 maxlen 表示输入数据的最大长度,一般0,0和负数表示不限制 keystr 表示编辑内容是否关键字字段,如: ‘p’表示唯一的pr