本帖最后由 群发软件 于 2017-7-29 15:56 编辑
结下来，给大家共享，免的大家以后在碰到类似问题时再耗费大量时间去查找、去打探!
1、判断输入的路径在服务器上是否存在：
例如，要在客户端执行一个创建数据库的程序，数据库要在服务器上创建，但路径可以手工输入，这时就面临一个判断自已现在输入的路径在服务器上是否存在的问题，免得在执行Create Database SQL时才报错：找不到路径。
具体方法如下：
exec master..xp_cmdshell 'dir E:\DATA' ，在查询分析器中执行此段SQL，如果存在此路径，会输出此路径下的所有文件与文件夹信息，还有此盘的可用字节数与已此文件夹的字节数(图1所示);如果此路径不存在，则输出信息如图2所示，提示“找不到文件”。
但是，当路径中含有空格时，如C:\Program Files，直接用exec master..xp_cmdshell 'dir C:\Program Files'，系统返回结果会如跟图2显示一样，我们需要做额外处理，才能得到正确的返回结果：
(1)exec master..xp_cmdshell 'dir "C:\Program Files\Microsoft SQL Server\MSSQL"'
这种写法，在查询分析器中直接执行是没有问题的，也能返回正确结果，但如果放到程序中执行：
SQL.Add('exec master..xp_cmdshell ''dir "C:\Program Files\Microsoft SQL Server\MSSQL"'')，Open时就会报错，不能执行。
为什么呢???
(2)我们接下来查看SQL联机帮助，对XP_CMDSHELL的描述如下：
xp_cmdshell {'command_string'} [, no_output]
参数
'command_string'
是在操作系统命令行解释器上执行的命令字符串。command_string 的数据类型为 varchar(255) 或 nvarchar(4000)，没有默认值。command_string 不能包含一对以 上的双引号。如果由 command_string 引用的文件路径或程序名称中有空格，则需要使用一对引号。如果使用嵌入空格不方便，可考虑使用 FAT 8.3 文件名作为解决办 法。
no_output
是可选参数，表示执行给定的 command_string，但不向客户端返回任何输出。
帮助文件提示我们要用一对引号将文件路径或者程序名称包起来，将整个路径包不起来不会报错，那我就将带有空格的单步路径包起来试试，看看行不行，执行 如下SQL：SQL.Add('exec master..xp_cmdshell ''dir C:\"Program Files"\"Microsoft SQL Server"\MSSQL'')，这样Open时果然不报错了，看来查询分析器的语法检查与我们的Query自己的语法检查还是有一定区别的，不能等同的。因此，碰到路径中带空格的情况，正确的写法还是：
exec master..xp_cmdshell 'dir C:\"Program Files"\"Microsoft SQL Server"\MSSQL'
这同时说明SQL帮助文件中的绿色字体部分 command_string 不能包含一对以上的双引号 的描述是不正确的，看来SQL Server帮助文件与产品也出现了“规格与程序不相符”的问题了，呵呵......
2、清空数据库的日志文件
问题的引出：我们的切割过程就是将单据数据中某个日期以前的数据先复制到新的数据库中(select ... into ...)，然后再将原来数据库中的这些数据删除,这样操作在数量量很大的数据库上时，其日志文件的增长也是惊人的：我复制一个48万条记录的表时，最后发现仅这一个表的操作就使新数据库的日志文件增加了170MB，如果不加清理，那就会被日志文件占用大量宝贵的磁盘空间。况且，我们转移到的新建数据库的作用也只是用来查询，以后不会有任何Insert、Update、Delete操作的，要这些日志文件没有什么用处，因此必须在向它转移数据的过程中做一些缩小日志文件的处理，怎么办??问题由此而生...
(1)处理过程中不记录日志
设置方法如下：企业管理器中打开对应数据库的“属性”，页框“选项”中将“模型”改为“简单”。这样设置的结果是对此数据库的任何操作都将不记录事务日志。对应的SQL为：EXEC sp_dboption @pdbName, 'trunc. log on chkpt.', 'TRUE'
但是，我们经过测试发现：启用此功能后，我们在对这个数据库操作时，就不能用事务操作了，程序执行到BeginTranSaction时就报错，不能执行下去，由于我们不能在对此库的操作中保证100%的正确性，因此我们还需要事务，因此这种方法适用空间有限，也不能满足我们程序的需求。
我们还得继续查找.....
(2)处理过程中允许记录日志，但要对日志文件进行处理，时时缩小它。
SQL Server的联机帮助告诉我们：
在下列情况下，日志文件的物理大小将减少：
执行 DBCC SHRINKDATABASE 语句时。
执行引用日志文件的 DBCC SHRINKFILE 语句时。
自动收缩操作发生时。
下面我们逐个分析这三个方案：
① DBCC SHRINKDATABASE：收缩特定数据库的所有数据和日志文件，包含我们的需求，但也大于我们的需求，此方案可用，但不要着急，给人的感觉是买了一件能穿的衣服，但尺寸大了些，穿在身上有点不舒服，我们接着分析以下两个方案...
② DBCC SHRINKFILE: 收缩相关数据库的指定数据文件或日志文件大小。与方案1的区别仅一字之差：“和”与“或”，相当于把方案1拆成两步来执行，我们需要的就是收缩日志文件，因此，它对我们来说显得比较合适，有点量体裁衣的感觉。但还有没有更好的呢，我们来看第三个方案...
③自动收缩：数据库也可设置为按给定的时间间隔自动收缩，服务器定期检查每个数据库中的空间使用情况。如果发现数据库中有大量闲置空间，而且它的 autoshrink 选项设置为 true，SQL Server 就缩小该数据库中的文件大小。它是周期性的执行DBCC SHRINKDATABASE，既然方案1已经是一件尺寸大了一些的衣服，则此方案就相当于又穿上了N件大尺寸衣服，一件就已经够了，我还要那么多干嘛呢??
综合对比发现，方案2正是我们需要的。
DBCC SHRINKFILE ('+Trim(edDBMC.Text)+'_Log, TRUNCATEONLY)
经过这个语句处理以后，日志文件将回到它的最小状态504KB，任何的日志记录都将清空。
再结合我们的工具，复制完一个表之后，我们就执行方案2，处理过程中日志文件暂时占用的最大空间也就是处理最大数据表时产生的日志空间，但最后都将清空，显示为500多KB，相对于庞大的数据文件而言，微之戡微.
配置数据引擎(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 
|( 京ICP备09078825号 )
发表于 2017-7-29 15:55:14
收藏
