delpin常用函数
if r>570 then
SET_TT(1);//超出多少行就用excel导出
类似数组用法:
var
ts: TStringlist;
begin
ts:=TStringlist.Create;
ts.Add('select * from ...');
ts.Sorted := True; //需要先指定排序
ts.Duplicates := dupIgnore; //如有重复值则放弃存储
if(ts.count>0) then
begin
for i:=0 to ts.count-1 do
begin
try
adoq:=TADOQuery.Create(nil);
adoq.Connection:=adocon;
With adoq do
begin
Close;
SQL.Clear;
SQL.Add(ts[i]);
if (trim(ts[i])<> '') then
ExecSQL;
end;
finally
adoq.free;
end;
end;
end;
ts.Clear;
ts.Free;
end;
回车换行:#13#10
字符串长度:length('21212')
判断余数:10 mod 2
判断整数:10 div 2
循环:for i := 0 to cjstri-1 do
begin
//dosoming
end;
截取字符串:copy('2311',0,2)
获取 - 的位置:var Position:integer;
Position := Pos('-','0-5')
删除0-:Delete('0-5', 1, Position); //从第一个地方开始 删除Position个
日期格式化:FormatDateTime('yyyymm',StrToDateTime('2013-09-02'))
字符串转整形:strtoint('22');
字符串转日期:strtodate('2014-01-02');
去除空格、验证是否为空:trim(VarToStr(nvl('22','0')))
if() then
begin
end
else
begin
end;
if() then
begin
end
else if() then
begin
end;
数据库查询:
try
adoq:=TADOQuery.Create(nil);
adoq.Connection:=adocon;
With adoq do
begin
Close;
SQL.Clear;
SQL.Add(' select count(p.P_ID) as T_Count from PI as p where p.P_SFZH='''+
ck_ds.FieldByName('BH').AsString+
''' ');
Open;
First;
end;
tem:='0';
//if not adoq.eof then//不循环
while (not adoq2.Eof) do //循环
tem:=adoq.FieldByName('T_Count').AsString;
break;//跳出
if strtoint(tem)<1 then
begin
Result:='【身份证】:'+ck_ds.FieldByName('BH').AsString+'【提示信息】:<2>【人员基础信息】数据错误 或 身份证不存在!';
end;
adoq.next;//循环
finally
adoq.free;
end;
{*
SETSHEET(s:integer) //选择 Excel表格 sheet
GET_NX(BH:人员记录号;sj:获取日期;cj:参加工作日期;tt:人员类别):integer; //获取工作年限 人员类别 10 20 30 机关 工人 事业
TextRC(r:行;c:列;tem:填充内容); 填充vts 对应输入框内容
GETTEXTRC //获取对应行列 对应填充内容
Function GetItem(r:String;c:String):variant; //字典转换函数 GetItem('S_工资变动原因','75') 返回 乡镇补贴
Function nvl(tem:variant;tem1:variant):variant; // nvl(tem,tem1) 如果 tem为空 则返回tem1 默认返回tem
procedure DelRangeEx(s:integer;r1:integer;c1:integer;r2:integer;c2:integer);', CallMethod)// 清空vts 表格所选区域 所有内容以及样式格式
fsReport.AddMethod('Function SET_TT(T_TT:integer):variant;', CallMethod);//是否为多人表格 例如九类表 0 为单模式 1 为多模式
fsReport.AddMethod('function SET_BG(MaxV:integer;PT:String):Variant;', CallMethod); //多人模式下进度条
fsReport.AddMethod('function SET_BGV(VV:integer):Variant;', CallMethod);
fsReport.AddMethod('procedure FaRC(r:integer;c:integer;tem:variant);', CallMethod); // 同 TextRC 只是当前函数 填充的是 函数 例如 合计等方法
GetFaRC //获取当前输入框 函数
FV_C_R // ts 显示的最大行列
delpin常用函数的更多相关文章
- oracle常用函数及示例
学习oracle也有一段时间了,发现oracle中的函数好多,对于做后台的程序猿来说,大把大把的时间还要学习很多其他的新东西,再把这些函数也都记住是不太现实的,所以总结了一下oracle中的一些常用函 ...
- 总结js常用函数和常用技巧(持续更新)
学习和工作的过程中总结的干货,包括常用函数.常用js技巧.常用正则表达式.git笔记等.为刚接触前端的童鞋们提供一个简单的查询的途径,也以此来缅怀我的前端学习之路. PS:此文档,我会持续更新. Aj ...
- [转]SQL 常用函数及示例
原文地址:http://www.cnblogs.com/canyangfeixue/archive/2013/07/21/3203588.html --SQL 基础-->常用函数 --===== ...
- PHP常用函数、数组方法
常用函数:rand(); 生成随机数rand(0,50); 范围随机数时间:time(); 取当前时间戳date("Y-m-d H:i:s"); Y:年 m:月份 d:天 H:当前 ...
- Oracle常用函数
前一段时间学习Oracle 时做的学习笔记,整理了一下,下面是分享的Oracle常用函数的部分笔记,以后还会分享其他部分的笔记,请大家批评指正. 1.Oracle 数据库中的to_date()函数的使 ...
- Thinkcmf:页面常用函数
Thinkcmf:页面常用函数 全站seo: 文章列表: {$site_seo_title} <!--SEO标题--> {$site_seo_keywords} < ...
- matlab进阶:常用功能的实现,常用函数的说明
常用功能的实现 获取当前脚本所在目录 current_script_dir = fileparts(mfilename('fullpath')); % 结尾不带'/' 常用函数的说明 bsxfun m ...
- iOS导航控制器常用函数与navigationBar常用属性
导航控制器常用函数触发时机 当视图控制器的View将要出现时触发 - (void)viewWillAppear:(BOOL)animated 当视图控制器的View已经出现时触发 - (void)vi ...
- 《zw版·Halcon-delphi系列原创教程》 zw版-Halcon常用函数Top100中文速查手册
<zw版·Halcon-delphi系列原创教程> zw版-Halcon常用函数Top100中文速查手册 Halcon函数库非常庞大,v11版有1900多个算子(函数). 这个Top版,对 ...
随机推荐
- AutoVue打开ProE工程图中文乱码
解决办法: 在AutoVue安装目录/Bin/allusers.ini中增加 [Options]ProELang=Chinese_cn
- php://input
从官网信息来看,php://input是一个只读信息流,当请求方式是post的,并且enctype不等于"multipart/form-data"时,可以使用php://input ...
- [Linux] - 攻击查看与IP查封
查看80端口的连接数 netstat -nat|grep -i "|wc -l 查看Nginx的日志命令 tail -f access.log 统计IP访问数 awk '{aaa[$1]++ ...
- http load 的使用以及参数解释
http load 的使用以及参数解释 1.参数含义 参数 全称 含义 -p -parallel 并发的用户进程数.-f -fetches ...
- win 8 安装 NET framework3.5 方法
win 8 预装的 NET framework 是 4.5 的,实际上很多程序要求的是 3.5,一般要另从网上下载的才能安装. 这里提供不需要从网上安装 .Net 3.5 的方法: 1.将 win 8 ...
- Java使用poi操作cexel
Java操作excel比较简单,但是时间长了就会忘记,因此基本的简单操作做个记录. 依赖poi的jar包,pom.xml配置如下: <project xmlns="http://mav ...
- C语言中,定义的含义?声明的含义?它们之间的区别是什么?
在C语言中,对于定义和声明,也许我们非常的熟悉,但不一定真正的了解! 定义的含义:所谓定义,就是创建(编译器)一个对象,为这个对象分配一块内存空间并取名,也就是我们平常所说的变量名或对象名,一旦这个名 ...
- 无索引状态下比较DataTable的几种过滤方法效率
先构造一个DataTable: public DataTable GetDataTable() { DataTable dtTmp = new DataTable(); dtTmp.Columns.A ...
- 基于Cloud Foundry平台部署nodejs项目上线
Cloud Foundry(以下简称CF),CF是Vmware公司的PaaS服务平台,Paas(Platform as a Service,平台即服务), 是为开发者提供一个应用运行的平台,有了这人平 ...
- python 核心编程课后练习(chapter 5)
5-2 #5-2 def mul(x, y): return x * y print mul(4,5) 5-3 #5-3 def value_score(num): if 90<=num< ...