这是实际项目截取的热力图，接下来，看看我们怎么实现他？ 地图组件，给我们提供了Heatmaps属性，管理热力图，这是一个List，支持我们在地图上增加多个热力图，并且控制每个热力图的隐藏与显示。 具体操作分三步： 一、取得热力图对象 为了增加一个热力图，需要调用Heatmaps.Add方法，该方法返回一个
前文介绍了如何在地图上通过设置标注来采集位置的经纬度，当用户采集了多个实体的位置信息后，我们就可以在地图上一次性显示这些实体的标注了！ 基于前文，接下来在地图上的做标注就很简单了，可以复用以前的代码，具体参阅：图文解说ChinaCock高德地图组件采集坐标 (二) 接下来，我们再做一个过
环境：ABFramework3.9.5 错误描述：循环插入报如题所示错误 代码如下： rstUpSalesDetail.FieldByName('CustGoodsCode').AsString:=rstSourceData.FieldByName('CustGoodsCode').AsString; rstUpSalesDetail.FieldByName('BrandID').AsString:=rstSourceData
用fieldbyname能不能取某一数据库的一列的值，并把这一列的值按顺序分别存放到stringgrid的对应的位置中？如果能该怎样写语句？？（query控件已经设好） 假设query控件名称为query1,要取的字段名为:name,字符串类型,那么如下写:varsname:string;beginquery1.first;while not query1.eof do //
目录 一、反射编程 1、reflect 2、反射的特点 3、kind 4、获取反射回来的类型 5、利用反射编写灵活的程序 a、按名字访问结构的成员 b、按名字访问结构体的方法 c、Elem() 6、Struct Tag a、struct tag 的格式 b、用途 二、万能程序 1、DeepEqual a、用 DeepEqual() 比较 map b
在项目中使用了Undo方法，今天被同事发现一个坑，就是Undo后的记录还是被提交了！ kbmMWClientQuery1.Append; kbmMWClientQuery1.FieldByName('fid').AsString:='4'; kbmMWClientQuery1.FieldByName('fname').AsString:='4'; kbmMWClientQuery1.FieldByName('fin
1 Self.WeihuFrame1.pcWeihu.Prop.ActivePageIndex :=1; 2 Self.WeihuFrame1.SkinFMXItemGrid1.Prop.Columns.Clear; 3 Self.WeihuFrame1.SkinFMXItemGrid2.Prop.Columns.Clear; 4 //首先生成[列] 5 for J:=0 to 6 do 6 begin 7 //配件信息表 8 sGri
我们知道，一个企业、单位分很多部门，部门下面还会分子部门，如果用树形表就能 清晰的显示出部门结构来，一目了然。下面我来介绍下如何使用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_
procedure TUIOperate.FillTree(treeview: TTreeView); var findq: TADOQuery; node: TTreeNode; //这个方法是根据记录的id字段值，查找TreeView上的父节点 function FindParentNode(id:Integer):TTreeNode; var i:Integer; begin Result := nil;
最近在开发的时候用到ListView，简单总结一下它的用法。1.让ListView像DBGrid数据库那样显示数据：将ListView的ViewStyle设置为vsReport。2.向ListView中添加数据：我的数据是从数据库中查询得到的，比如我用的是ADOQuery, 先定义变量：var MyItem：TListItembeginADOQuery1.First; wh
