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版,对 ...
随机推荐
- photoshop,黑白转彩色单色
方法一: 打开 色相/饱和度 面板,勾选上 着色, 然后调节 明度 滑块. 方法二: 前面方法的缺点是会将修改直接塌陷到图层,如果想不塌陷,可以使用色相蒙板: 同样勾选 着色
- SQLAlchemy 几种查询方式总结
转自:http://blog.csdn.net/shudaqi2010/article/details/51568219 几种常见sqlalchemy查询:#简单查询 print(session ...
- 【原创】刚刚发现的SVN的几个有用的功能
一.可看到一个文件/目录跨Branch的所有变更历程 二.SVN可自动利用Word2013的审阅功能对比docx文档
- MySQL服务 - MySQL变量类型及变量设置
一.MySQL变量类型: MySQL通过变量来定义当前服务器的特性,保存状态信息等.我们可以通过手动更改变量的值来配置MySQL,也可以通过变量获得MySQL的当前状态信息.MySQL的变量类型可以从 ...
- 【uTenux】学习一个嵌入式操作系统-uTenux
[这个是汇总] 最近有点时间,参加了EEPW论坛和悠龙咨询组织的一个嵌入式操作系统uTenux试用活动.本来想借助这个活动提供的开发板做一个小项目,奈何OS使用功底太次.于是,这个活动被我降低到了学习 ...
- Codeforces Round #381 (Div. 2)A. Alyona and copybooks(dfs)
A. Alyona and copybooks Problem Description: Little girl Alyona is in a shop to buy some copybooks f ...
- mysql的故事
所有的条件都分开理解,命令之间没有包含吗?
- javascript事件执行流程分析
我一直想搞清楚事件在DOM中的传播方式,今天经高人指点终于明白一二.首先扒了一张图: 事件捕获过程:当我们点击TEXT时,首先是window->document->body->div ...
- Druid 基础使用-操作篇(Pivot、plyql)
一.Pivot --9095 端口 二.基本sql 使用 .plysql-- http://plywood.imply.io/plyql (下面的端口应该是8082,我这个地方做了端口转换) ...
- hibernate配置文件hibernate.cfg.xml的详细解释
<!--标准的XML文件的起始行,version='1.0'表明XML的版本,encoding='gb2312'表明XML文件的编码方式--> <?x ...