xmldisp_1.txt

Delphi 应用举例

"var xmldisp_vers='1.0';"
"var szNotUpdateable='disabled';"
"var iUpKey=38, iDownKey=40; "
""
"new xmlDisplay(null,null,null);"
"xmlDisplay.prototype.fldcnt=0;"
"xmlDisplay.prototype.rows=0;"
"xmlDisplay.prototype.bDontPost=0;"
"xmlDisplay.prototype.scrolloffs=0;"
"xmlDisplay.prototype.page=0;"
"xmlDisplay.prototype.fldfirst=0;"
"xmlDisplay.prototype.KeyMap=null;"
"xmlDisplay.prototype.focusflag=0;"
"//methods"
"xmlDisplay.prototype.getFldDes=function(i){return this.src.Fields.Field[this.names[i]];}"
"xmlDisplay.prototype.selectRow=function(r){var pos=this.page*this.rows+r+this.scrolloffs;return this.src.setPos(pos);}"
""
"xmlDisplay.prototype.getValue=GridGetValue;"
"xmlDisplay.prototype.putValue=GridPutValue;"
"xmlDisplay.prototype.getRow=GridGetRow;"
"xmlDisplay.prototype.valchanged=GridValChanged;"
"xmlDisplay.prototype.setFocus=GridSetFocus;"
"xmlDisplay.prototype.xvalidate=GridValidate; "
"xmlDisplay.prototype.scroll=GridScroll;"
"xmlDisplay.prototype.refr=GridRefr;"
"//public"
"xmlDisplay.prototype.post=GridPost;"
"xmlDisplay.prototype.postall=function(){if (this.src.forcepost()) return;this.post();}"
"xmlDisplay.prototype.removeRow=GridDelete;"
"xmlDisplay.prototype.newRow=GridNew;"
"xmlDisplay.prototype.undo=GridUndo;"
""
"xmlDisplay.prototype.first=GridFirst;"
"xmlDisplay.prototype.last=GridLast;"
"xmlDisplay.prototype.pgup=pgBackw;"
"xmlDisplay.prototype.pgdown=pgForw;"
"xmlDisplay.prototype.up=GridUp;//pre-rec"
"xmlDisplay.prototype.down=GridDown;//next-rec"
"xmlDisplay.prototype.left=GridL;//prev-field"
"xmlDisplay.prototype.right=GridR;//next-field"
"xmlDisplay.prototype.sort=function(n){if(this.src.forcepost())return;var i;for(i=0;i<this.fldcnt;i++){if (this.names[i]==n){this.fCol=i;break;}}this.src.sort(n);this.first();}"
"xmlDisplay.prototype.xfocus=GridFocus;"
"xmlDisplay.prototype.keys=GridKeys;"
"xmlDisplay.prototype.setKeyMap=GridSetKeys;"
"xmlDisplay.prototype.OnError=function(s){alert(s);return null;}"
""
"var fset=0;"
""
"function xmlDisplay(src,fldids,names,rstate)"
"{"
"this.src=src;"
"this.fldids=fldids;"
"this.names=names;"
"this.rstate=rstate;"
"if(src==null||src.doc=='') return null;"
" "
"src.regobj(this);"
"if(fldids){this.fldcnt=fldids.length}else{if(names){this.fldcnt=names.length}else{this.fldcnt=this.src.FieldCnt}};"
"this.rows=0;"
"var i;"
"for(i=0;i<this.fldcnt;i++)"
"{"
" var ref=fldids[i]; "
" var t=ref.type;if(t==null)t=ref[0].type;"
" if(t=='text'||t=='textarea')"
" {"
"  var l=ref.length;"
"  if(isNaN(l)) l=1;"
"  if(this.rows==0) this.rows=l;"
"  if(l!=this.rows){this.OnError(names[i]+': inconsistent row-count');if(l<this.rows) this.rows=l;}"
" }"
" var f=this.getFldDes(i);"
" if(f==null) return this.OnError(names[i]+': name not found in rowset');"
""
" if(this.rows!=0){"
" if(this.rows==1)"
" {"
"  if(ref.setAttribute)"
"  {"
"   if(f.readonly==1) ref.setAttribute(szNotUpdateable,1);"
"   if(f.maxlength>0&&f.Type!=szUni) ref.setAttribute('maxLength',f.maxlength);"
"  }"
" }"
" else"
" {"
"  var j;"
"  for(j=0;j<ref.length;j++)"
"  {"
"   if(ref[j].setAttribute)"
"   {"
"    if(f.readonly==1) ref[j].setAttribute(szNotUpdateable,1);"
"    if(f.maxlength>0) ref[j].setAttribute('maxLength',f.maxlength);"
"   }"
"  }"
" }"
" }"
" if(f.readonly==1&&i==this.fldfirst) this.fldfirst++;"
"}"
"this.fRow=0;"
"this.fCol=0;"
""
"//Init"
"this.selectRow(0);"
"this.refr(1);"
"if(fset==0&&this.src.parent==null){this.setFocus(0,this.fldfirst);fset++;}"
"//this.keys=GridKeys;"
"if(this.rows==1)"
"{"
"this.setKeyMap(iUpKey,'left');"
"this.setKeyMap(iDownKey,'right');"
"}"
"else"
"{"
"this.setKeyMap(iUpKey,'up');"
"this.setKeyMap(iDownKey,'down');"
"}"
"this.setKeyMap(33,'pgup');"
"this.setKeyMap(34,'pgdown');"
"this.setKeyMap(45,'newRow');"
"this.setKeyMap(13,'right'); "
"return this;"
"}"
""
"function GridKeys(el)"
"{"
"var e,k;"
"e=self.event;"
"if(!e) return true;"
"if(e!=null){k=e.keyCode;}else{k=e.which;}"
" "
"var found=false;"
"var r,c;"
""
"for(c=0;c<this.fldcnt;c++)"
"{"
" var ref=this.fldids[c];"
" if(this.rows==1){if (ref==el) found= true;}"
" else"
" {"
"  for(r=0; r<this.rows;r++)"
"   {if(ref[r]==el){found=true; break;}}"
" }"
" if(found) break;"
"} "
"if(!found) return true;"
""
"if(this.KeyMap==null) return true;"
"var a=this.KeyMap[k.toString()];"
"if(a==null||this[a]==null){return true;}"
"a='this.'+a+'();';"
"eval(a);"
"return true;  "
"}"
""
"function GridL()"
"{"
"var r=this.fRow,c=this.fCol;"
"do{if(c>0)c--;else c=this.fldcnt-1;}"
"while(this.getFldDes(c).readonly==1&&c!=this.fCol)"
"this.setFocus(r,c);"
"}"
""
"function GridR()"
"{"
"var r=this.fRow,c=this.fCol;"
"do{if(c< this.fldcnt-1)c++;else c=0;}"
"while(this.getFldDes(c).readonly==1&&c!=this.fCol)"
"this.setFocus(r,c);"
"}"
""
"function GridDown()"
"{"
"var r=this.fRow, c=this.fCol;"
"if(this.rows==1){this.pgdown();return;}"
"if(r<this.rows-1){r++;}else{this.scroll(1);return;}"
"this.setFocus(r,c);"
"}"
""
"function GridUp()"
"{"
"var r=this.fRow,c=this.fCol;"
"if(this.rows==1){this.pgup();return;}"
"if(r>0) r--;else{this.scroll(-1);return;}"
"this.setFocus(r,c);"
"}"
""
"function pgBackw()"
"{"
"if(this.page>0||this.scrolloffs)"
"{"
" if(this.src.forcepost()) return;"
" if(this.page) this.page--;else{this.fRow+=this.scrolloffs-this.rows;this.scrolloffs=0}"
" if(this.scrolloffs<0&&this.page==0){this.scrolloffs=0;this.fRow=0;}"
" if(this.rows==1) this.selectRow(0);"
" else this.refr(1);"
"}"
"else this.fRow=0;"
"this.setFocus(this.fRow, this.fCol);"
"}"
""
"function pgForw()"
"{"
"if(this.rows*(this.page+2)<this.src.RowCnt) "
"{"
" if(this.src.forcepost()) return;"
" this.page++;"
" if(this.rows==1) this.selectRow(0);else this.refr(1);"
"}"
"else{this.last();return;}"
"this.setFocus(this.fRow,this.fCol);"
"}"
""
"function GridScroll(inc)"
"{"
"if(inc>0)"
"{"
" if(this.page*this.rows+this.fRow+this.scrolloffs>=this.src.RowCnt) return;"
" if(this.scrolloffs==this.rows-1){this.scrolloffs=0;this.page++;}"
" else this.scrolloffs++;"
"}"
"else"
"{"
" if(-this.scrolloffs==this.rows-1){if(this.page>0){this.scrolloffs=0;this.page--;}}"
" else{this.scrolloffs--;if(this.page*this.rows+this.scrolloffs<0)this.scrolloffs=0}"
"}"
"var r=this.fRow;"
"this.selectRow(r);"
"this.refr(1);"
"this.setFocus(r,this.fCol);"
"}"
""
"function GridSetFocus(r,c)"
"{"
"if(c>=this.fldcnt||r>=this.rows) return;"
"var ref=this.fldids[c];"
"if(this.rows>1) ref=ref[r];"
"if(ref.disabled||ref.readonly) return; "
"if(ref.focus!=null){this.focusflag=1;ref.focus();if(this.focusflag==1)this.xfocus(r,c);}"
"}"
""