配置数据引擎(BDE、SQL Link)的简单方法 /制做快速按钮条的方法/建立临时表的方法
配置数据引擎(BDE、SQL Link)的简单方法
在 数据库 程序分发时,需要携带数据引擎(BDE、SQL Link),并且在客户端安装完程序后还需要配置数据引擎,如用户名(username)、密码(Password)等等。如果手工配置的话,工作量比较大,这时,我们可利用InstallShield For Delphi轻松实现配置。在用InstallShield For Delphi制作安装程序时,在生成安装程序的目录里有一个*.iwz的文本文件,只要在[IDAPI Alias]片段中手工加入即可。 例如:
[IDAPI Alias]
username=SYSDBA
password=masterkey
安装程序后数据引擎自动配置完毕。
制做快速按钮条的方法
快速按钮条上的每一个图形按钮都代表着一项常用的功能,同时,这些图形按钮尺寸较普通的图标大,可以放置更大、更形象的图形,甚至可以带上简短的提示,这对于用户执行最常用的功能很有帮助。基于上述原因,越来越多的Windows应用程序采用快速按钮条来改善应用程序的界面。笔者在用Delphi编程时,采用了两种不同的方法来实现快速按钮条,本文结合制作一个具有两组、共六个按钮的快速按钮条的实例,列出了这两种方法的具体设计步骤。
1.组合生成法
(1)在窗体上放置一个Panel1对象,作为图形按钮的载体。
(2)设置Panel1的属性Caption为空,属性Align为alTop,调整其高度至合适尺寸。
(3)在Panel1上放置六个SpeedButton按钮(选用SpeedButton,是因它具有浮动特性)。
(4)在Panel1上放置两个Bevel对象,调整其位置和大小,用于分隔按钮组。
(5)调整SpeedButton1的大小及在Panel1中的位置。
(6)选择SpeedButton1,设置其属性Flat为True。
(7)单击SpeedButton1的属性Glyph所对应的省略号小按钮,打开PictureEditor窗口,选择一个象征“查询”的图标。设置属性ShowHint为True,属性Hint为“查询”。
(8)按步骤(5)至(7)的方法,分别设置好其余几个SpeedButton按钮的属性。
这样,一个快速按钮条就制作完成了。运行时,快速按钮均以浮动方式显示,当鼠标移至其上时,即显示按钮外框,并显示小提示。
2.借用ToolBar生成法
(1)在窗体上放置一个ToolBar1对象。
(2)设置ToolBar1的属性EdgeBorders.ebLeft、ebTop、ebRight、ebButtom均为True;属性Flat为True;调整ToolBar1的大小至合适尺寸。
(3)选择ToolBar1,用右键点出快速选单,分别点击NewButton和NewSeparator增加六个按钮ToolButton和两条分隔栏线。
(4)任意选择一个ToolButton按钮,调整其大小至合适尺寸,所有的ToolButton也同时被调整好。
(5)设置ToolBar1的属性BorderWidth为3,以调整ToolButton的位置。
(6)在窗体上放置一个ImageList1对象,设置它的属性Height和Width的数值,以适应较大尺寸的图像。
(7)双击ImageList1,通过“Add”按钮分别装入六个图像,与ToolBar1中的六个ToolButton一一对应。
(8)设置ToolBar1的属性Images为ImageList1。
(9)设置六个ToolButton的属性ShowHint为True,并分别设置各自的小提示属性Hint。
(10)还可以设置ToolBar1的HotImages指定鼠标指向按钮时的图片集。
采用ToolBar实现的快速按钮条在外观上与第一种方法制作的类似。
以上两种方法均能实现快速按钮条,但各有千秋:第一种设计过程较为简单;第二种方法则提供了更多的功能,如可用HotImages指定鼠标指向按钮时的图片集。读者不妨从中选择一种,并可继续完善其功能。
建立临时表的方法
数据输入是开发数据库程序的必然环节。在Client/Server结构中,客户端可能要输入一批数据后,再向服务器的后台数据库提交,这就需要在本地(客户端)建立临时数据表来存储用户输入的数据,待提交后,清除本地数据表。这种方法的好处是:提高输入效率,减小网络负担。
由于用户一次输入的数据量一般情况下较小(不会超过几百条记录),所以临时表可以建立在内存中,这样处理速度较快。临时表创建有如下两种方法:
1.使用查询控件创建临时表
第1步:在窗体上放入查询控件(TQuery),并设置好所连接的数据表。
第2步:添加如下语句:
TQuery. CachedUpdates=True;
TQuery. RequestLive=True。
第3步:在原有的SQL语句后加入一条Where子语句,要求加入这条Where子语句后SQL查询结果为空。
例如:
SELECT Biolife."Species No", Category, Common_Name, Biolife."Species Name", Biolife."Length (cm)", Length_In, Notes, Graphic
FROM "biolife.db" Biolife
where Biolife.Category=′A′ and Biolife.Category=′B′
这样临时表就建立好了。
2.使用代码创建临时表
函数代码如下:
function CreateTableInMemory(const AFieldDefs:TFieldDefs):
TDataSet;
var TempTable:TClientDataSet;
begin
TempTable:=nil;
Result:=nil;
if AFieldDefs〈〉nil then
begin
try
TempTable:=TClientDataSet.Create(Application);
TempTable.FieldDefs.Assign(AFieldDefs);
TempTable.CreateDataSet;
Result:=(TempTable as TDataSet);
Except
if TempTable〈〉nil then TempTable.Free;
Result:=nil;
raise;
end
end
end;
在程序中按如下方法调用:
procedure TForm1.Button1Click(Sender: TObject);
var ADataSet:TDataSet;
begin
ADataSet:=TDataSet.Create(Self);
with ADataSet.FieldDefs do
begin
Add(′Name′,ftString,30,False);
Add(′Value′,ftInteger,0,False);
end;
with DataSource1 do
begin
DataSet:=CreateTableInMemory(ADataSet.FieldDefs);
DataSet.Open;
end;
ADataSet.Free;
end;
这样,临时表就创建完成。
方法1使用简单,但由于利用了查询控件,清空数据时需要查询服务器后台数据库,所以速度稍慢,而且不适用于临时表中各个字段由几个数据表的字段拼凑而成的情况。方法2适用范围广、速度快,但需要编写代码。
在InterBase数据库中使用函数
程序员可能在用InterBase作为后台数据库时,常会为其提供的函数过少而感到使用不便(只有四个),无法方便地编写出复杂的存储过程。InterBase本身无法编写函数,但它可以使用外部函数(调用DLL中的函数)。下例中说明如何在InterBase 中声明SUBSTR函数。
DECLARE EXTERNAL FUNCTION SUBSTR
CSTRING(80), SMALLINT, SMALLINT
RETURNS CSTRING(80)
ENTRY_POINT "IB_UDF_substr" MODULE_NAME "ib_udf"
其中:MODULE_NAME为DLL的名称,ENTRY_POINT为函数名。
声明后便可以使用,例如:
select SUBSTR(country)
from country
本例使用的是Delphi安装时自带的IBLocal数据库,用户也可以自己编写函数来扩充InterBase
配置数据引擎(BDE、SQL Link)的简单方法 /制做快速按钮条的方法/建立临时表的方法相关推荐
- 配置数据库引擎BDE(Borland DataBase Engine)
一.数据库引擎(Borland Database Engine)的配置指南 1.BDE配置工具概述 本部分引自Borland数据库引擎BDE配置部分的联机指导.Borland Database Eng ...
- Unity使用自定义资源(.asset)配置数据
本文原创版权归 强哥的私房菜 所有,此处为转载,如有再转,请于篇首位置标明原创作者及出处,以示尊重! 作者:强哥的私房菜 原文:http://blog.csdn.net/liqiangeastsun/ ...
- HTTP 错误 500.19 - Internal Server Error 无法访问请求的页面,因为该页的相关配置数据无效。...
HTTP 错误 500.19 - Internal Server Error 无法访问请求的页面,因为该页的相关配置数据无效. 环境信息: 操作系统:WIndows 7 x64 IIS:Interne ...
- 你真的会玩SQL吗?简单的数据修改
你真的会玩SQL吗?系列目录 你真的会玩SQL吗?之逻辑查询处理阶段 你真的会玩SQL吗?和平大使 内连接.外连接 你真的会玩SQL吗?三范式.数据完整性 你真的会玩SQL吗?查询指定节点及其所有父节 ...
- 阿里开发者们的第15个感悟:做一款优秀大数据引擎,要找准重点解决的业务场景
2015年12月20日,云栖社区上线.2018年12月20日,云栖社区3岁. 阿里巴巴常说"晴天修屋顶". 在我们看来,寒冬中,最值得投资的是学习,是增厚的知识储备. 所以社区特别 ...
- SQL数据库引擎服务SQL Server启动参数概述
In the SQL world, it is an important activity to perform SQL Server installation for a database admi ...
- 智能数据引擎Dataphin重磅发布,提供一站式的技术管理能力
2019独角兽企业重金招聘Python工程师标准>>> 摘要: 面对各行各业日趋强烈的大数据建设.管理及应用诉求,2018年2月28日MWC大会,阿里云重磅推出了智能数据构建与管理平 ...
- JavaWEB01:MySQL基础——数据库相关概念、MySQL安装和配置、基础的SQL语句
JavaWEB01:MySQL基础--数据库相关概念.MySQL安装和配置.基本的SQL语句 JavaWEB02:MySQL高级--约束.数据库设计.多表查询.事务 JavaWEB03:JDBC Ja ...
- JUST技术:面向时空数据场景的SQL优化器
一.背景介绍 随着智能城市建设的不断升温,海量的时空数据也基于现代的智能设备和卫星定位系统不断产生.在这个过程当中,因为传统的技术无法解决海量时空数据的管理问题,所以出现了很多新技术和新方法,Geom ...
最新文章
- iOS 中的网络请求 (同步请求、异步请求、GET请求、POST请求)
- 使用Nginx做前端服务器时让Apache得到真实IP的方法
- R语言ggplot2可视化、在可视化区域中自定义添加多个大小不同矩形阴影区域、自定义配置大小不同矩形阴影区域的颜色(Adding multiple shadows/rectangles)
- 将源码包打包成RPM包
- 微信支付报错:统一下单和拉起支付的appid不一致(原创)
- 攻击面管理(ASM),企业攻击面管理实践指南
- SQLServer—端口概念
- pwa程序,清单文件测试有效,为什么不起效果?
- python中文分词jieba总结
- LeetCode 46. 全排列(回溯)
- string字符串内容倒叙_面试官:string、stringbuffer和stringbuilder都不会,我招你干什么?...
- C++11/14::右值引用
- 2019Q1中高端人才报告:薪资TOP10,平均年薪超23万元
- 启动vue项目的时候报错提示To install it, you can run: npm install --save core-js/modules/es.regexp.dot
- php换行快捷输入,excel中换行的快捷键是什么
- 关键点检测---CPN, Cascaded Pyramid Network for Multi-Person Pose Estimation
- 计算机cpu的功能和作用是什么意思,什么是中央处理器CPU
- android xcl charts,我写的Android图表库XCL-Charts,整理好现在开源了!!!
- 免费短链接生成器推荐,长网址缩短工具。
- php.c drcom,Drcom (简体中文)
热门文章
- 想红想疯了?人民日报怒批女主播进教室摆拍:如此装束 成何体统
- 骁龙855加持!疑似红米Pro 2曝光:旗下首款升降摄像头机型?
- 支付宝集五福活动参与人数超4.5亿 你分到了多少?
- 雷军:哈哈哈哈哈哈 网友:小米9要来了!
- 拒绝PPT手机?魅族首款真无孔手机将开启众筹
- 设置hive的执行引擎_0506-如何将Hue4.0版本中默认执行引擎设置为Hive而非Impala
- 在代码中使用协程(一)
- HTML5公式插件,在HTML5中使用MathML数学公式
- 循环单链表 python_循环单链表报错
- Spring Boot @SpringApplicationConfiguration 不能导入