TDatabase TQuery TDataSource TDBGrid 设定方法
TDatabase TQuery TDataSource TDBGrid
object Database1: TDatabase
AliasName = 'sfis'
DatabaseName = 'Allcon'
LoginPrompt = False
Params.Strings = (
'SERVER NAME=SFIS.WORLD'
'USER NAME=sfis1'
'NET PROTOCOL=TNS'
'OPEN MODE=READ/WRITE'
'SCHEMA CACHE SIZE=8'
'LANGDRIVER=taiwan'
'SQLQRYMODE=SERVER'
'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
'SCHEMA CACHE TIME=-1'
'MAX ROWS=-1'
'BATCH COUNT=200'
'ENABLE SCHEMA CACHE=FALSE'
'SCHEMA CACHE DIR='
'ENABLE BCD=FALSE'
'ENABLE INTEGERS=FALSE'
'LIST SYNONYMS=NONE'
'ROWSET SIZE=20'
'BLOBS TO CACHE=64'
'BLOB SIZE=32'
'OBJECT MODE=TRUE'
'PASSWORD=sfcbasetable1')
ReadOnly = True
SessionName = 'Default'
end
object Query1: TQuery
DatabaseName = 'Allcon'
end
object DataSource1: TDataSource
DataSet = Query1
end
object DBGrid1: TDBGrid
DataSource = DataSource1
end
//没有参数查询
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM SFISM4.R_MATERIAL_EXC_T');
Query1.Open;
//传参时
sn:='MATERIAL_SN=:sn';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM SFISM4.R_MATERIAL_EXC_T where '+sn);
Query1.ParamByName('sn').AsString := Edit_Qry_KPNO.Text;
Query1.Open;
//插入 或更新操作时
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('INSERT INTO SFISM4.R_MATERIAL_EXC_T (MATERIAL_SN,VENDER,DATA_CODE,LOC_CODE,EXC_TIME,EXC_CODE,ERROR_REASON,BAR_RATE,REASON_COME,CLEAR_FLAG,CLEAR_CODE,CLOSE_FLAG,CLEAR_TIME,QUA_DC,EIGHT_D_CODE,EIGHT_D_ADD,VC_CONTACT,SQE_CONTACT) ' +
'VALUES ( :MATERIAL_SN,:VENDER,:DATA_CODE,:LOC_CODE,:EXC_TIME,:EXC_CODE,:ERROR_REASON,:BAR_RATE,:REASON_COME,:CLEAR_FLAG,:CLEAR_CODE,:CLOSE_FLAG,:CLEAR_TIME,:QUA_DC,:EIGHT_D_CODE,:EIGHT_D_ADD,:VC_CONTACT,:SQE_CONTACT)');
query1.ParamByName('MATERIAL_SN').AsString:=Edit_KP.Text;
//...此处省去其他参数赋值
query1.ExecSQL;
query1.SQL.Add('UPDATE SFISM4.R_MATERIAL_EXC_T SET MATERIAL_SN=:MATERIAL_SN,VC_CONTACT=:VC_CONTACT,SQE_CONTACT=:SQE_CONTACT'+' '+
'where MATERIAL_SN=:MATERIAL_SN ')
date11:= formatdatetime('YYYYMMDD',DT_ex_Begin.date); //?date??Θ?''/''才﹃
date22:= formatdatetime('YYYYMMDD',DT_ex_End.date);
time11:= Time1.text; //格式为 13:30
time22:= time2.text;
ssql:='SELECT * FROM SFISM4.R_MATERIAL_EXC_T where EXC_TIME between to_date('''+Date11+''' || '''+ time11+''',''YYYYMMDDhh24:miss'') and to_date('''+Date22+''' || '''+ time22+''',''YYYYMMDDhh24:miss'') ';
TDatabase TQuery TDataSource TDBGrid 设定方法的更多相关文章
- Linux下多网卡同网段多IP网络分流设定方法
Linux下多网卡同网段多IP网络分流设定方法 -- :: 标签:Linux下多网卡同网段多IP网络分流设定方法 当服务器需要较高的网络流量时,在其它资源不造成瓶颈的情况下无疑会用到多网卡. 第1选项 ...
- 自动开机和自动关机设定方法(包括linux和windows)
(一) linux 机器 1.关机 : 编辑 /etc/crontab添加一条并且保证crontab服务的运行即可 f1 f2 f3 f4 f5 root sudo shutdown –h now 假 ...
- (七十)Xcode5及以上对于状态栏和导航栏样式的设定方法
[状态栏] 在Xcode5以前,状态栏是通过UIApplication单例来管理的,而在此后,默认情况下状态栏通过控制器来管理,而且如果控制器有NavigationController,那么设置状态栏 ...
- C#操纵Excel,此工作薄包含嵌入对象,Office 2007的设定方法
C#操纵Excel,插入OLE对象时报“此工作薄包含嵌入对象,EXCEL可能无法从这些对象中删除个人信息.”, 如网上所述,Office 2003可以通过“菜单>>工具>>选项 ...
- dbExpress操作中用TDBGrid显示数据
由于一些数据感知组件如TDBGrid等是需要用到数据缓存的,这和dbExpress组件的存取机制是矛盾的.所以当打开数据集时会出现如下内容的警告框:“Operation not allowed on ...
- java.lang.OutOfMemoryError: Java heap space错误和方法(集、转)
错误的方式来解决溢出下面的堆空间是从网上找: java.lang.OutOfMemoryError: Java heap space ================================= ...
- Tomcat日志设定
1 Tomcat 日志概述 Tomcat 日志信息分 为 两 类 : 一.是运行中的日志,它主要 记录 运行的一些信息,尤其是一些异常 错误 日志信息 .二.是 访问 日志信息,它 记录 的 访 ...
- Mockito 中被 Mocked 的对象属性及方法的默认值
在 Java 测试中使用 Mockito 有段时日了,以前只是想当然的认为 Mock 的对象属性值和方法返回值都是依据同样的规则.基本类型是 0, 0.0, 或 false, 对象类型都是 null, ...
- Linux系统date时间设定
修改linux系统的时间EDT和EST为CST EDT:指美国东部夏令时间 EST:英国时间 CST:北京时间 那么现在只要改成北京时间的时区CST就可以了,修改如下: [root@localhost ...
随机推荐
- MQTT开发笔记之《MQTT Server》
MQTT SERVER 性能测试报告 : http://w3yyb.sinaapp.com/archives/1601各个MQTT SERVER功能列表: http://blog.lenix.xyz/ ...
- PHP 文件管理
主页面: <?php session_start(); $filename=""; if(!empty($_SESSION["lujing"])) { $ ...
- 通用PE工具箱 4.0精简优化版
通用PE工具箱 4.0精简优化版 经用过不少 WinPE 系统,都不是很满意,普遍存在篡改主页.添加广告链接至收藏夹.未经允许安装推广软件等流氓行为,还集成了诸多不常用的工具,令人头疼不已.那么今天给 ...
- 使用spring注解@Controller @Service @Repository简化配置
前言:在web项目中引入spring框架中的配置文件,我们给每一个java bean进行相关配置可以非常安全,便捷的管理我们的bean.那么,问题来了,如果一个项目中所涉及到的java bean十分庞 ...
- JVM内存模型、指令重排、内存屏障概念解析
在高并发模型中,无是面对物理机SMP系统模型,还是面对像JVM的虚拟机多线程并发内存模型,指令重排(编译器.运行时)和内存屏障都是非常重要的概念,因此,搞清楚这些概念和原理很重要.否则,你很难搞清楚哪 ...
- Google Map API V3开发(5)
Google Map API V3开发(1) Google Map API V3开发(2) Google Map API V3开发(3) Google Map API V3开发(4) Google M ...
- Instant Radiosity实现
本来说等把课程作业做完再来弄这个,但是还是没有忍住,先做了,主要原因还是这个算法很容易实现.这个算法在1997年由Keller首次提出.虽然名字叫Instant Radiosity,但是它和Radio ...
- CentOS Linux解决Device eth0 does not seem to be present
在VMware里克隆出来的Centos Linux.. ifconfig...没有看到eth0..然后重启网卡又报下面错误. 故障现象: 解决办法: 首先,打开/etc/udev/rules.d/70 ...
- 线程安全的无锁RingBuffer的实现
这里的线程安全,是指一个读线程和一个写线程,读写两个线程是安全的,而不是说多个读线程和多个写线程是安全的.. 在程序设计中,我们有时会遇到这样的情况,一个线程将数据写到一个buffer中,另外一个线程 ...
- MySQL数据库命名及设计规范
1.设计原则 1) 标准化和规范化 数据的标准化有助于消除数据库中的数据冗余.标准化有好几种形式,但 Third Normal Form(3NF)通常被认为在性能.扩展性和数据完整性方面达到了最好平衡 ...