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常用函数的更多相关文章

  1. oracle常用函数及示例

    学习oracle也有一段时间了,发现oracle中的函数好多,对于做后台的程序猿来说,大把大把的时间还要学习很多其他的新东西,再把这些函数也都记住是不太现实的,所以总结了一下oracle中的一些常用函 ...

  2. 总结js常用函数和常用技巧(持续更新)

    学习和工作的过程中总结的干货,包括常用函数.常用js技巧.常用正则表达式.git笔记等.为刚接触前端的童鞋们提供一个简单的查询的途径,也以此来缅怀我的前端学习之路. PS:此文档,我会持续更新. Aj ...

  3. [转]SQL 常用函数及示例

    原文地址:http://www.cnblogs.com/canyangfeixue/archive/2013/07/21/3203588.html --SQL 基础-->常用函数 --===== ...

  4. PHP常用函数、数组方法

    常用函数:rand(); 生成随机数rand(0,50); 范围随机数时间:time(); 取当前时间戳date("Y-m-d H:i:s"); Y:年 m:月份 d:天 H:当前 ...

  5. Oracle常用函数

    前一段时间学习Oracle 时做的学习笔记,整理了一下,下面是分享的Oracle常用函数的部分笔记,以后还会分享其他部分的笔记,请大家批评指正. 1.Oracle 数据库中的to_date()函数的使 ...

  6. Thinkcmf:页面常用函数

    Thinkcmf:页面常用函数 全站seo: 文章列表: {$site_seo_title}        <!--SEO标题--> {$site_seo_keywords}   < ...

  7. matlab进阶:常用功能的实现,常用函数的说明

    常用功能的实现 获取当前脚本所在目录 current_script_dir = fileparts(mfilename('fullpath')); % 结尾不带'/' 常用函数的说明 bsxfun m ...

  8. iOS导航控制器常用函数与navigationBar常用属性

    导航控制器常用函数触发时机 当视图控制器的View将要出现时触发 - (void)viewWillAppear:(BOOL)animated 当视图控制器的View已经出现时触发 - (void)vi ...

  9. 《zw版·Halcon-delphi系列原创教程》 zw版-Halcon常用函数Top100中文速查手册

    <zw版·Halcon-delphi系列原创教程> zw版-Halcon常用函数Top100中文速查手册 Halcon函数库非常庞大,v11版有1900多个算子(函数). 这个Top版,对 ...

随机推荐

  1. photoshop,黑白转彩色单色

    方法一: 打开 色相/饱和度 面板,勾选上 着色, 然后调节 明度 滑块. 方法二: 前面方法的缺点是会将修改直接塌陷到图层,如果想不塌陷,可以使用色相蒙板: 同样勾选 着色

  2. SQLAlchemy 几种查询方式总结

    转自:http://blog.csdn.net/shudaqi2010/article/details/51568219 几种常见sqlalchemy查询:#简单查询    print(session ...

  3. 【原创】刚刚发现的SVN的几个有用的功能

    一.可看到一个文件/目录跨Branch的所有变更历程 二.SVN可自动利用Word2013的审阅功能对比docx文档

  4. MySQL服务 - MySQL变量类型及变量设置

    一.MySQL变量类型: MySQL通过变量来定义当前服务器的特性,保存状态信息等.我们可以通过手动更改变量的值来配置MySQL,也可以通过变量获得MySQL的当前状态信息.MySQL的变量类型可以从 ...

  5. 【uTenux】学习一个嵌入式操作系统-uTenux

    [这个是汇总] 最近有点时间,参加了EEPW论坛和悠龙咨询组织的一个嵌入式操作系统uTenux试用活动.本来想借助这个活动提供的开发板做一个小项目,奈何OS使用功底太次.于是,这个活动被我降低到了学习 ...

  6. 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 ...

  7. mysql的故事

    所有的条件都分开理解,命令之间没有包含吗?

  8. javascript事件执行流程分析

    我一直想搞清楚事件在DOM中的传播方式,今天经高人指点终于明白一二.首先扒了一张图: 事件捕获过程:当我们点击TEXT时,首先是window->document->body->div ...

  9. Druid 基础使用-操作篇(Pivot、plyql)

    一.Pivot  --9095 端口  二.基本sql 使用 .plysql--   http://plywood.imply.io/plyql  (下面的端口应该是8082,我这个地方做了端口转换) ...

  10. hibernate配置文件hibernate.cfg.xml的详细解释

    <!--标准的XML文件的起始行,version='1.0'表明XML的版本,encoding='gb2312'表明XML文件的编码方式-->                 <?x ...