前文介绍了如何在地图上通过设置标注来采集位置的经纬度，当用户采集了多个实体的位置信息后，我们就可以在地图上一次性显示这些实体的标注了！ 基于前文，接下来在地图上的做标注就很简单了，可以复用以前的代码，具体参阅：图文解说ChinaCock高德地图组件采集坐标 (二) 接下来，我们再做一个过
环境：ABFramework3.9.5 错误描述：循环插入报如题所示错误 代码如下： rstUpSalesDetail.FieldByName('CustGoodsCode').AsString:=rstSourceData.FieldByName('CustGoodsCode').AsString; rstUpSalesDetail.FieldByName('BrandID').AsString:=rstSourceData
在使用UniDAC控件连接SQLSERVER数据库时，如果遇到的字段是varchar(MAX)或者nvarchar(MAX)时，代码写的时候不能写成ParamByName('fieldname').AsString :=xxx;而要写成：ParamByName('fieldname').AsMemo :=xxx;用AsString的方式写入的，字段内容被截断了。 用两种方式写入的数
在项目中使用了Undo方法，今天被同事发现一个坑，就是Undo后的记录还是被提交了！ kbmMWClientQuery1.Append; kbmMWClientQuery1.FieldByName('fid').AsString:='4'; kbmMWClientQuery1.FieldByName('fname').AsString:='4'; kbmMWClientQuery1.FieldByName('fin
listview1.clear; with adoquery1 do begin Sql.text := 'Select * from table1'; Open ; while not eof do begin with listview1.items.add do begin caption := fieldbyName('field1').asstring; subitems.add(fieldbyNa
我们知道，一个企业、单位分很多部门，部门下面还会分子部门，如果用树形表就能 清晰的显示出部门结构来，一目了然。下面我来介绍下如何使用RzTreeview显示部门结构。 一、主要表结构 DepID nvarchar(50) //内部唯一ID，通常是GUID DepCode nvarchar(20) //部门编码 DepName nvarc
1]放FDConnection1和FDQuery1到界面上 2]在OnFormCreate事件里写 FDQuery1.Connection := FDConnection1; FDConnection1.LoginPrompt:=false; //取消登录提示框 FDConnection1.Open('DriverID=SQLite;Database=test1.Sqlite3');//test1.Sqlite数据库要与E:\UniGui_
1 //JSON解析 2 function TForm5.JsonResolve(sStr:string):string; 3 var 4 jSOObj:ISuperObject; 5 jOObj:ISuperObject; 6 jRoot,jSid:ISuperObject; 7 sRoot,sSid:string; 8 arrayStr:TSuperArray; 9 i:Integer;10 begin11 jSOObj := SO(sStr);12 jOObj :=
最近在开发的时候用到ListView，简单总结一下它的用法。1.让ListView像DBGrid数据库那样显示数据：将ListView的ViewStyle设置为vsReport。2.向ListView中添加数据：我的数据是从数据库中查询得到的，比如我用的是ADOQuery, 先定义变量：var MyItem：TListItembeginADOQuery1.First; wh
