ListView 读取和写入
//两个函数系项目中直接截取，自己对变量进行理解
procedure TFrmMenu2wz.btnSelectClick(Sender: TObject);//查询数据库后写入listview
var
sqlSelect: string;
wzInfoList: ArrayOfDcBean;
wzInfo: ArrayOfDcObj;
i, j: Integer;
tmpListItem: TListItem;
begin
inherited;
sqlSelect := 'select pwz.checkdate as ckrq,10000 as ckdw,' //0 ckrq 1 ckdw
+ ' pwz.checkplace as ckdd, pwz.holdinfo as zkzj, pwz.endcasetype dqzt, '
+ ' 10000 as cljg,' // 2 ckdd 3 zkzj 4 dqzt 5 cljg 6 ah 7 cphm 8 cpys 9 yhmc 10 cllxxl 11 cljxxl 12 cljyfwxl
+ ' pwz.id as ah, bcl.vehnumcode as cphm,getDtrinfo(bcl.vehnumcolor) as cpys,byh.CoName as yhmc,'
+ ' getDtrinfo(bcl.vehtype) as cllxxl, getDtrinfo(bcl.vehlevel) cljxxl,'
+ ' getDtrinfo(bcl.workrange2) as cljyfwxl,acyry.name as cyryxm,acyry.certcardid as cyzgzh ,'
+ ' acyry.idcard as sfzh,acyry.telno as lxfs,pwz.peccinfo as wzyy, ec.remark as bz '
+ ' from Tbl_pecc_peccinfo pwz' // 13 cyryxm 14 cyzgzh 15 sfzh 16 lxfs 17 wzyy 18 bz
+ ' left join Tbl_veh_baseinfo bcl on pwz.vehid=bcl.id and pwz.vehid is not null and bcl.id is not null '
// + ' left join Tbl_pecc_peccaction pwzxw on pwz.id=pwzxw.peccid and pwz.id is not null and pwzxw.peccid is not null '
+ ' left join tbl_co_BaseInfo byh on bcl.coid=byh.id and bcl.coid is not null and bcl.coid is not null '
+ ' left join tbl_Train_Archives acyry on acyry.certcardid=pwz.cyrycard and acyry.certcardid is not null and pwz.cyrycard is not null'
+ ' left join tbl_Pecc_EndCase ec on ec.id=pwz.id and ec.id is not null where 1=1 ';
lv1.Clear;
wzInfoList := WebService.GetWebServiceWzxx(sqlSelect);//获取数据集
lblSum.Caption := IntToStr(Length(wzInfoList));
if wzInfoList = nil then
begin
ShowMessage('查无违章信息！');
Exit;
end;
for i := 0 to Length(wzInfoList) - 1 do //遍历对象中的多有行
begin
wzInfo := wzInfoList[i].objArray;//取出一行记录
// ShowMessage(IntToStr(Length(wzInfo))); //目前为20列信息
tmpListItem := lv1.Items.Add;//定位行的关键
tmpListItem.Caption := Trim(wzInfo[7].value); //7 cphm 车牌号码
tmpListItem.SubItems.Add(Trim(wzInfo[8].value)); //8 cpys 车牌颜色
tmpListItem.SubItems.Add(Trim(wzInfo[9].value)); //9 yhmc业户名称
tmpListItem.SubItems.Add(Trim(wzInfo[0].value)); //0 ckrq 查扣日期
tmpListItem.SubItems.Add(Trim(wzInfo[17].value)); //17 wzyy违章原因
//当前状态显示 4 dqzt 当前状态
if Trim(wzInfo[4].value) = '0' then
begin
tmpListItem.SubItems.Add(Trim('未结案'));
end else if Trim(wzInfo[4].value) = '1' then
begin
tmpListItem.SubItems.Add(Trim('正常结案'));
end else if Trim(wzInfo[4].value) = '2' then
begin
tmpListItem.SubItems.Add(Trim('免交罚款'));
end else
begin
tmpListItem.SubItems.Add(Trim(wzInfo[4].value));
end;
tmpListItem.SubItems.Add(Trim(wzInfo[5].value)); //5 cljg 处理结果
tmpListItem.SubItems.Add(Trim(wzInfo[1].value)); //1 ckdw 查扣单位
tmpListItem.SubItems.Add(Trim(wzInfo[2].value)); //2 ckdd 查扣地点
tmpListItem.SubItems.Add(Trim(wzInfo[3].value)); //3 zkzj 暂扣证件
tmpListItem.SubItems.Add(Trim(wzInfo[6].value)); //6 ah 案件编号
tmpListItem.SubItems.Add(Trim(wzInfo[10].value)); //10 cllxxl 车辆类型小类
tmpListItem.SubItems.Add(Trim(wzInfo[11].value)); // 11 cljxxl 车辆级型小类
tmpListItem.SubItems.Add(Trim(wzInfo[12].value)); //12 cljyfwxl 车辆经营范围小类
tmpListItem.SubItems.Add(Trim(wzInfo[13].value)); //13 cyryxm 从业人员姓名
tmpListItem.SubItems.Add(Trim(wzInfo[14].value)); //14 cyzgzh 从业资格证号
tmpListItem.SubItems.Add(Trim(wzInfo[15].value)); // 15 sfzh 身份证号
tmpListItem.SubItems.Add(Trim(wzInfo[16].value)); //16 lxfs 联系方式
tmpListItem.SubItems.Add(Trim(wzInfo[18].value)); // 18 bz 备注
// tmpListItem.SubItems.Add(Trim(wzInfo[19].value));
// tmpListItem.SubItems.Add(Trim(wzInfo[20].value));
//Application.ProcessMessages;
end;
end;
//listview中信息读取 此处是用于双击显示
procedure TFrmMenu2wz.lv1DblClick(Sender: TObject);
begin
FrmMenu2wzXq := TFrmMenu2wzXq.Create(Self);
try
if lv1.Selected<>nil then //判断记录是否选中
begin
with FrmMenu2wzXq do
begin
edtCpxx.Text := lv1.Selected.Caption + Trim(lv1.Selected.SubItems[0]);
edtCllxxl.Text := Trim(lv1.Selected.SubItems[10]);
edtCljxxl.Text := Trim(lv1.Selected.SubItems[11]);
edtJyfwxl.Text := Trim(lv1.Selected.SubItems[12]);
edtYhmc.Text := Trim(lv1.Selected.SubItems[1]);
edtDsrxm.Text := Trim(lv1.Selected.SubItems[13]);
edtZgzh.Text := Trim(lv1.Selected.SubItems[14]);
edtSfzh.Text := Trim(lv1.Selected.SubItems[15]);
edtLxfs.Text := Trim(lv1.Selected.SubItems[16]);
edtAh.Text := Trim(lv1.Selected.SubItems[9]);
edtWzyy.Text := Trim(lv1.Selected.SubItems[3]);
edtZkzj.Text := Trim(lv1.Selected.SubItems[8]);
edtCkrq.Text := Trim(lv1.Selected.SubItems[2]);
edtCkdw.Text := Trim(lv1.Selected.SubItems[6]);
edtCkdd.Text := Trim(lv1.Selected.SubItems[7]);
edtDqzt.Text := Trim(lv1.Selected.SubItems[4]);
edtCljg.Text := Trim(lv1.Selected.SubItems[5]);
mmoBz.Text := Trim(lv1.Selected.SubItems[17]);
end;
end else
begin
ShowMessage('请先选中记录！');
Exit;
end;
FrmMenu2wzXq.ShowModal;
finally
FrmMenu2wzXq.Free;
end;
end;
ListView 读取和写入相关推荐
- python 点云las、laz文件的读取、写入、压缩
1. python las读取与写入 用laspy库: https://pypi.org/project/laspy/ 获取las.laz的规格.点数据格式,点数据的具体字段名称,具体的点数据 解析l ...
- Java CSV文件读取、写入及追加
Java CSV文件读取.写入及追加 https://blog.csdn.net/liq816/article/details/81286472 追加: FileOutputStream out = ...
- C#尝试读取或写入受保护的内存。这通常指示其他内存已损坏。
用VS2012调试时发现在调用数据集时提示"尝试读取或写入受保护的内存.这通常指示其他内存已损坏." 用管理员身份运行CMD,输入netsh winsock reset并回车 转载 ...
- xml 和android脚本之家,Android利用Document实现xml读取和写入操作
本文实例为大家分享了利用Document实现xml读取和写入操作,供大家参考,具体内容如下 首先先来介绍一下什么xml?xml是可扩展标记语言,他可以用来标记数据,定义数据类型.是一种允许用户对自己标 ...
- 写入位置 0x00000004 时发生访问冲突_HDFS读取和写入数据简介
HDFS 的文件访问机制为流式访问机制,即通过 API 打开文件的某个数据块之后,可以顺序读取或者写入某个文件.由于 HDFS 中存在多个角色,且对应的应用场景主要为一次写入.多次读取的场景,因此其读 ...
- java连接Excel数据库读取，写入，操纵Excel表格
java连接Excel数据库读取,写入,操纵Excel表格 (2009-11-15 14:21:03) 转载 标签: java excel 连接 杂谈 分类:技术文档 java连接MicroSoft ...
- python读取、写入、移动、复制文件（夹）以及其他关于文件（夹）的操作
文章目录 基础操作 判断文件或者目录是否存在 创建目录 连接两个路径成为一个路径 读取文件 写入文件 移动文件(夹) 复制文件(夹) 突然发现,经常需要进行文件操作,因为如果程序运行时间很长,我们需要 ...
- Java使用POI读取和写入Excel指南
Java使用POI读取和写入Excel指南 做项目时经常有通过程序读取Excel数据,或是创建新的Excel并写入数据的需求: 网上很多经验教程里使用的POI版本都比较老了,一些API在新版里已经废弃 ...
- 利用OpenCV读取和写入视频
简 介: 本文介绍了如何对三种不同的视频源(视频文件, 序列图片以及网络摄像头)来进行读取显示视频,使用视频捕获对象. 也给出了如何通过视频捕获对象获取视频流的重要元数据. 介绍了使用视频写入对象把视 ...
最新文章
- 计算机专业的书普遍都这么贵，Github上的计算机电子书很多~~~
- 隋唐5s与linux的关系,我与Linux
- 代码统计工具1.1版本技术文档
- python 删除字符串中的所有相邻的重复项
- [云炬创业基础笔记]做好市场调研
- mysql dba 视频_MySQL DBA入门到高级系列视频教程 [高清完整版]
- React开发（115）:子组件无法处理复杂的数据格式
- 【python】有意思的python小项目GitHub地址汇总
- LeetCode 802. 找到最终的安全状态（逆向图+拓扑排序）
- 计算区域中有t 个点的 区域有多少个+计算几何 + 叉乘+sort+ 二分 + map poj 2398 Toy Storage...
- 牛客网刷题(纯java题型 211~240题)
- 二进位注册文件_指定的文件不是注册脚本注册表编辑器中只能导入二进位注册文。怎么办？...
- 华为服务器通过ilo虚拟光驱,如何通过ilo开启服务器远程桌面
- 打麻将 - 基于R语言
- 桌面文件突然不见了怎么恢复？
- String.prototype.matchAll 正则一些常用方法
- 软件测试之安装数据库
- 使用unity3D实现全景图像查看器
- Gateway--概述
- linux增加分辨率addmode,设置分辨率xrandr --addmode