xmlds_2.txt

Delphi 应用举例

"function Fields()"
"{"
"this.Field=new Array();"
"this.Fieldx=new Array();"
"this.Add=addFld;"
"this.Cnt=0;"
"}"
""
"function addFld(fldDes)"
"{"
"var n=fldDes.name;"
"if(n!=''){this.Field[n]=fldDes;this.Fieldx[this.Cnt]=fldDes;this.Cnt++;}"
"}"
""
"new FldDes(null,null);"
"FldDes.prototype.bAsAttr=1;"
"FldDes.prototype.name='';"
"FldDes.prototype.iname='';"
"FldDes.prototype.Type='string';"
"FldDes.prototype.readonly=0;"
"FldDes.prototype.required=0;"
"FldDes.prototype.maxlength=0;"
"FldDes.prototype.subtype=null;"
"FldDes.prototype.decimals=null;"
"FldDes.prototype.fixeddec=null;"
"FldDes.prototype.currencySymbol=null;"
"FldDes.prototype.minval=null;"
"FldDes.prototype.maxval=null;"
"FldDes.prototype.defval='';"
"FldDes.prototype.minmax=minmax;"
"FldDes.prototype.validate=rsValidate;"
"FldDes.prototype.valtype=function(v){if((this.errNo=this.minmax(v,this.minval,this.maxval))!= 0) return 0;return v;}"
"FldDes.prototype.valcomp=function(v1,v2){if(v1==v2) return 0;return (v1>v2)?1:-1;}"
"FldDes.prototype.todisp=function(v){return v;}"
"FldDes.prototype.frdisp=function(v){return v;}"
"FldDes.prototype.Value=rsValue;"
"FldDes.prototype.get=getValue;"
"FldDes.prototype.put=putValue;"
"FldDes.prototype.notNull=function(v){if(v=='')return null;return v;}"
"FldDes.prototype.errNo=0;"
""
"function FldDes(rs, node)"
"{"
"this.rs=rs;"
"if(node==null)return;"
"this.node=node;"
"var t=node.getAttribute('fieldname'),ti=node.getAttribute('attrname');"
"if(ti==null){ti=node.getAttribute('tagname');this.bAsAttr=0};"
"this.iname=ti;"
"this.name=(t==null)?ti:t;"
"t=node.getAttribute('fieldtype');"
"if(t)this.Type=t;"
"t=node.getAttribute('readonly');if(t)this.readonly=1;"
"t=node.getAttribute('required');if(t&&this.readonly==0) this.required=1;"
"t=node.getAttribute('WIDTH');if(t)this.maxlength=parseInt(t,10);"
"t=node.getAttribute('SUBTYPE');if(t)this.subtype=t;"
"t=node.getAttribute('DECIMALS');if(t)this.decimals=parseInt(t,10);"
"if(this.subtype=='Money'){this.decimals=4;}"
"if(this.Type=='fixed'){this.fixeddec=this.decimals;}"
"if(this.subtype=='Text')this.maxlength=0;"
""
"if(this.Type=='string'||this.Type==szUni){this.notNull=function(v){return v;};}else"
"if(this.Type=='i1'){this.valtype=valint; this.valcomp=cmpint; this.minval=parseInt('-128');this.maxval=parseInt('127'); }else"
"if(this.Type=='i2'){this.valtype=valint; this.valcomp=cmpint; this.minval=parseInt('-32768');this.maxval=parseInt('32767');}else"
"if(this.Type=='i4'){this.valtype=valint; this.valcomp=cmpint; this.minval=parseInt('-2147483648');this.maxval=parseInt('2147483647')}else"
"if(this.Type=='r8'||this.Type=='fixed'){this.valtype=valfloat; this.valcomp=cmpfloat;this.todisp=dispfloat;this.frdisp=xmlfloat;}else"
"if(this.Type=='date'){this.valtype=valdate;this.valcomp=cmpstr;this.todisp=dispdate;this.frdisp=xmldatetime}else"
"if(this.Type=='dateTime'){this.valtype=valdatetime;this.valcomp=cmpstr;this.todisp=dispdatetime;this.frdisp=xmldatetime}else"
"if(this.Type=='time'){this.valtype=valtime;this.todisp=disptime;}else"
"if(this.Type=='boolean'){this.valtype=valbool;this.todisp=dispbool;this.frdisp=dispbool;}"
""
"t=node.getAttribute('MINVALUE');if(t)this.minval=t;"
"t=node.getAttribute('MAXVALUE');if(t)this.maxval=t;"
"for(i=0;i<node.childNodes.length;i++){"
" var p=node.childNodes.item(i);var n=p.getAttribute('Name');var v=p.getAttribute('Value');"
" if(n!=null&&v!=null)if(n=='MINVALUE') this.minval=v;else if(n=='MAXVALUE'){this.maxval=v;}"
"}"
"}"
""
"function valbool(v){return v;}"
"function dispbool(v)"
"{"
"if(v=='')return v;"
"if((v.toLowerCase()).indexOf(szTrue)>=0) v=szTrue;else v=szFalse;"
"return v;"
"}"
"function dispdatetime(v)"
"{"
"if(v.length>=8){var y=parseInt(v.substring(0,4),10),m=parseInt(v.substring(4,6),10)-1,d=parseInt(v.substring(6,8),10);"
"var t=v.indexOf('T');"
"var D;"
"if(t==-1)D=new Date(y,m,d);else"
"{"
"var h=0,mi=0,s=0,ms=0;"
"v=v.substring(t+1,v.length);"
"t=v.indexOf(':');"
"h=parseInt(v.substring(0,t),10);"
"v=v.substring(t+1,v.length);"
"t=v.indexOf(':');"
"mi=parseInt(v.substring(0,t),10);"
"v=v.substring(t+1,v.length);"
"t=v.indexOf(':');"
"s=parseInt(v.substring(0,2),10);"
"ms=parseInt(v.substring(2,v.length),10);"
"D=new Date(y,m,d,h,mi,s,ms);"
"}"
"return D.toLocaleString();"
"}"
"return '';"
"}"
""
"function dispdate(v)"
"{"
"if (v.length<8)return '';"
"var y=parseInt(v.substring(0,4),10);m=parseInt(v.substring(4,6),10)-1;d=parseInt(v.substring(6,8),10);"
"var D;"
"D=new Date(y,m,d);"
"var s=D.toLocaleString();"
"var st=s.indexOf('00:');"
"if(st>0) s=s.substring(0,st);"
"return s;"
"}"
""
"function disptime(v){return v;}"
"function cntchrs(v){var s=new Array(),l=v.length;s=v.split('&#');l-=(s.length-1)*5;return l>0?l:0;}"
"function rsValidate(v)"
"{"
"var err='';"
"if(this.required&&v==''){err=this.name +' :Value is required';}else"
"if(this.maxlength&&v.length>this.maxlength){if(cntchrs(v)>this.maxlength) err=this.name +' :Value is too long';}"
"if(err!=''){this.rs.OnError(err);return null;}"
"v=this.valtype(v);"
"if(v!=null){var s=this.frdisp(v);if(!s) return s;v=this.todisp(s);}"
"return v;"
"}"
""
"function cmpint(v1,v2)"
"{"
"if(v1==v2)return 0;"
"var i1= parseInt(v1,10),i2=parseInt(v2,10);"
"if(isNaN(i1)||isNaN(i2)) return cmpstr(v1,v2);"
"return i1-i2;"
"}"
""
"function cmpfloat(v1,v2)"
"{"
"if(v1==v2) return 0;"
"var f1=parseFloat(v1),f2=parseFloat(v2);"
"if(isNaN(f1)||isNaN(f2)) return cmpstr(v1,v2);"
"return f1-f2;"
"}"
""
""
"function cmpstr(v1,v2)"
"{"
"if(v1==v2)return 0;"
"if(v1==null)return -1;"
"if(v2==null)return 1;"
"return (v1>v2)?1:-1;"
"}"
""
"function valint(v)"
"{"
"if(v!=''){"
"var i=parseInt(v,10); "
"if(isNaN(i)) {this.errNo=3;this.rs.OnError(this.name+ ' : Invalid integer');return null;}"
"if((this.errNo=this.minmax(i,this.minval,this.maxval))!= 0) return null;"
"v=i.toString();"
"}"
"this.errNo=0;"
"return v;"
"}"
""
"function minmax(i,imin,imax)"
"{"
"if(imin&&i<imin){this.rs.OnError(this.name+' : Value is out of range, '+ i + ' < '+imin);return 4;}"
"if(imax&&i>imax){this.rs.OnError(this.name+' : Value is out of range, '+ i+' > '+imax);return 4;}"
"return 0;"
"}"
""
"function valfloat(v)"
"{"
"if(v!='')"
"{if(this.currencySymbol!=null){v=this.frdisp(v);}"
" var i;"
" if(this.Type=='r8') i=parseFloat(v);else i=Number(v);"
" if(isNaN(i)){this.errNo=3;this.rs.OnError(this.name+ ' : Invalid number');return null;}"
" if((this.errNo=this.minmax(i,this.minval,this.maxval))!=0) return null;"
" v=this.todisp(i.toString());"
"}"
"this.errNo=0;"
"return v;"
"}"
""
"function dispfloat(n)"
"{"
"var f; if(this.Type=='r8')f=parseFloat(n);else f=Number(n);"
"if(this.decimals!= null){var d=this.decimals;var p=Math.pow(10,d);f=(Math.round(f*p)/p);}"
"n=f.toString();"
"if(this.fixeddec!=null&&n.indexOf('e')==-1)"
"{var j,i=n.indexOf(DecPoint);if(i==-1){n=n+DecPoint;i=0;}else i=n.length-i-1;"
"for(j=i;j<this.fixeddec;j++) n=n+'0';"
"}"
"var c=this.currencySymbol;"
"if(c!=null){if(n.charAt(0)=='-') n='('+c+n.substring(1)+')';else n=c+n;}"
"return n;"
"}"
""
"function xmlfloat(n)"
"{"
"var c=this.currencySymbol;if(c==null) return n;"
"var s=n.indexOf('('),j=n.indexOf(c); "
"n=(j!=-1)? n.substring(j+c.length):n;"
"if(s!=-1)  n='-'+n.substring(0,n.indexOf(')'));"
"return n;"
"}"
""
"function xmldatetime(v)"
"{"
"if(v=='') return v;"
"var d=new Date(Date.parse(v));"
"if(isNaN(d)){this.rs.OnError(this.name+' : Invalid date/time');return null;}"
"var y=d.getFullYear();var m=(d.getMonth()+1);var da=d.getDate();"
"var h=d.getHours();var mi=d.getMinutes();var sec=d.getSeconds();var ms=d.getMilliseconds();var s=y.toString();"
"if(m<10) s=s+'0';"
"s=s+m;"
"if(da<10) s=s+'0';"
"s=s+da;"
"if(h||mi||sec||ms)"
"{"
"s=s+'T';"
"if(h<10) s=s+'0';"
"s=s+h+':';"
"if(mi<10) s=s+'0';"
"s=s+mi+':';"
"if(sec<10) s=s+'0';"
"s=s+sec +ms;"
"}"
"return s;"
"}"
""
"function valdatetime(v)"
"{"
"if(v!=''){var s=this.frdisp(v);if(!s) return s;v=this.todisp(s);}"
"return v;"
"}"
"function valdate(v){return v;}"
"function valtime(v){return v;}"
""
""
"function DeltaChanges(ds)"
"{"
"this.ds=ds;"
"this.action=new Array();"
"this.row=new Array();"
"this.rowOrg=new Array();"
"this.parents=new Array();"
"this.rs=new Array();"
"this.rem=RemFromLog;"
"this.add=AddToLog;"
"this.find=FindInLog;"
"this.make=MakeDelta;"
"this.fullpath=MakePath;"
"this.reset=ResetLog;"
"}"
""