摘要:
functionAdoToJs(ado:TADOQuery):string;varI,J:Integer;json:string;beginjson:='{columns:[';forI:=0toado.FieldCount-1dobeginjson:=json+'{name:"'+ado.Fields[I].FieldName+'",type:"'+DbTypeToStr(ado.Fields[I].DataType)+'"}';ifI<ado.FieldCount-1thenjso 阅读全文