2015 年 9月随笔档案 - 雪夜

TXLSReadWriteII2版本导出Excel文件：

摘要：//TXLSReadWriteII2版本导出Excel文件： procedure TForm1.N1Click(Sender: TObject);var i: Integer; aSaveDialog: TSaveDialog; aFileName, aStampTime: AnsiStrin... 阅读全文

posted @ 2015-09-27 23:02 雪夜阅读(625) 评论(0) 推荐(0) 编辑

DBGrid和DBGridEH

摘要：二、应用实例 Enlib3.0组件包安装成功后A、定制标题行 1、制作复杂标题行标题行可设为2行以上高度，并可以为多列创建一个共同的父标题行。为实现这个效果，需在各个列标题属性中以“｜”分隔父标题和子标题，如办公用品包括代码和名称两部分，具体属性设置如下：usemultititile=... 阅读全文

posted @ 2015-09-25 13:31 雪夜阅读(3901) 评论(0) 推荐(0) 编辑

DBGrideh 实现自动排序

摘要：一、点击标题自动排序1.在optioneh中设置：AutosortMarking:=True2.设置DbGridEh的属性:(不一定总要设置，与使用的数据连接有关)sortlocal:=True;3.uses 单元Ado------ehlibADoTclientData------ehlibCDSB... 阅读全文

posted @ 2015-09-20 00:29 雪夜阅读(910) 评论(0) 推荐(0) 编辑

Delpih - Format

摘要：Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：首先看它的声明：function Format(const Format: string; const Args: array of const): string; overl... 阅读全文

posted @ 2015-09-18 10:09 雪夜阅读(234) 评论(0) 推荐(0) 编辑

UniDAC 的 RecordCount 属性注意事项

摘要：一直以来都是用UniDAC作为数据库查询组件，而一般的写法都是这样：UniQuery_sqlite.close;UniQuery_sqlite.SQL.Clear;UniQuery_sqlite.SQL.Add('SELECT * FROM TABLE');tryUniQuery_sqlite.Op... 阅读全文

posted @ 2015-09-18 10:00 雪夜阅读(547) 评论(0) 推荐(0) 编辑

KbmMW-及相关

摘要：KbmMW框架是收费的，不在此提供下载，如需购买，请自行联系作者Kim Madsen。网址资源：官网主页：http://www.components4programmers.com/products/kbmmw/index.htm官网University，提供大量PDF文档下载：http://www... 阅读全文

posted @ 2015-09-18 09:57 雪夜阅读(416) 评论(0) 推荐(0) 编辑

KBMMW SampleService/SampleClient方式传输数据集

摘要：马上周末了，趁着下午这会儿回顾一下这几天对旧项目的升级过程，一些重要但不常用的东西记录下来是很有必要的。其中一个项目中对KBMMW的远程数据通讯方式做了改进，利用SampleService/SampleClient方式传输数据集，以增加对底层数据通讯的可控性。服务端代码示例：typeTkbmMWSi... 阅读全文

posted @ 2015-09-18 09:55 雪夜阅读(734) 评论(0) 推荐(0) 编辑

Delphi中那些容易混淆的基础

摘要：@、^、Addr、PointerDelphi(Pascal)中有几个特殊的符号，如@、^等，弄清楚这些符号的运行，首先要明白Delphi指针的一些基础知识：指针，是一个无符号整数（unsigned int），它是一个以当前系统寻址范围为取值范围的整数。指针对应着一个数据在内存中的地址，得到了指针就可... 阅读全文

posted @ 2015-09-18 09:53 雪夜阅读(484) 评论(0) 推荐(0) 编辑

模拟Windows任务管理器CPU使用率的动态折线图-农夫山泉

摘要：Delphi的TCanvas类可以实现各种复杂的图形输出功能，基于近期项目的需求，利用它实现了一个很炫的动态折线图（模拟了资源管理器中CPU使用率的折线图），可以直观地展现出数值的实时变化情况。这段代码里边有几个核心的地方：首先是为了缓解刷新时画布闪烁，利用了双缓冲的原理；其次结合队列，保证了数据的... 阅读全文

posted @ 2015-09-18 09:47 雪夜阅读(1446) 评论(0) 推荐(0) 编辑

KbmMemTable的简单应用（增删改查示例）

摘要：//kbmMemTableunit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Grids, DBGrids, DB, StdCtrls, ... 阅读全文

posted @ 2015-09-18 09:44 雪夜阅读(1094) 评论(0) 推荐(0) 编辑

delphi完美经典-第16章 Delphi数据库程序设计----使用BDE组件

摘要：第16章Delphi数据库程序设计----使用BDE组件Delphi访问数据库的方式有：ADO、BDE、dbExpress、InterBase Express。一、TDataSet组件虽然Delphi有多种方式访问数据库，但它们必须依赖TDataSet。它用来显示从数据库单一或多个数据表取得的所有记... 阅读全文

posted @ 2015-09-14 12:33 雪夜阅读(614) 评论(0) 推荐(0) 编辑

UniDAC 安装教程

摘要：翻译：1、解压后把UniDAC文件夹直接复制到你专门用来存放第三方控件的地方（这一步根据自己的喜好，可以跳过这一步）2、在UniDAC\Source\Delphi21文件夹中找到Make.bat文件，鼠标右键“编辑”确认DELPHI XE7的安装路径是否正确（建议：设置成绝对路径了，防止因为环境变量... 阅读全文

posted @ 2015-09-13 23:53 雪夜阅读(4107) 评论(0) 推荐(0) 编辑

Delphi 实现检测线程类TThread是否结束

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TMY = class(TT... 阅读全文

posted @ 2015-09-13 10:18 雪夜阅读(1369) 评论(0) 推荐(0) 编辑

DELPHI线程例子-FC

摘要：{优秀的数据库应用应当充分考虑数据库访问的速度问题。通常可以通过优化数据库、优化查询语句、分页查询等途径收到明显的效果。即使是这样，也不可避免地会在查询时闪现一个带有 SQL符号的沙漏，即鼠标变成了查询等待。最可怜的是用户，他（她）在此时只能无奈地等待。遇到急性子的，干脆在此时尝试 Windows... 阅读全文

posted @ 2015-09-13 10:16 雪夜阅读(389) 评论(0) 推荐(0) 编辑

Delphi Stringlist Delimiter如何区分TAB和空格

摘要：var st: TStrings;begin st := TStringList.Create; st.StrictDelimiter := True;//这个多少人用过？ st.Delimiter := ' '; st.DelimitedText := '0 1 2';//用... 阅读全文

posted @ 2015-09-11 19:33 雪夜阅读(1207) 评论(0) 推荐(0) 编辑

DBGrid1

摘要：A、ShowMessage(IntToStr(Column.Index)); B、ShowMessage(IntToStr(dbgrid1.SelectedField.Index));1、得到当前格子中的内容：DBGrid1.Fields[DBGrid1.SelectedIndex].Displa... 阅读全文

posted @ 2015-09-05 17:20 雪夜阅读(379) 评论(0) 推荐(0) 编辑

UTF-8 delphi 函数

摘要：unit util_utf8;interfaceuses Windows;typeUTF8String = AnsiString;function AnsiToWide(const S: AnsiString): WideString;function WideToUTF8(const WS: Wi... 阅读全文

posted @ 2015-09-05 15:09 雪夜阅读(1065) 评论(0) 推荐(0) 编辑

未测试 Delphi读写UTF-8、Unicode格式文本文件

摘要：// UTF-8文件写入函数procedure SaveUTFFile(const FileName: string; S: string; WriteHeader: Boolean = True);varMemStream: TMemoryStream;HeaderStr: String;begi... 阅读全文

posted @ 2015-09-05 15:05 雪夜阅读(697) 评论(0) 推荐(0) 编辑

mysql + unidac 使用事务例子

摘要：//备注：mysql必须是使用innoDB引擎才支持事务功能，否则以下事务相关代码将失效。//SQL SERVER和Oracle还没试，明天回公司试了再发代码。procedure TForm1.btn1Click(Sender: TObject);var i, j: Integer;begin ... 阅读全文

posted @ 2015-09-05 13:48 雪夜阅读(674) 评论(0) 推荐(0) 编辑

QuickReport FastReport

摘要：一、QuickReport1、安装Component->Install packages->X:/Program Files/Borland/Delphi7/Bin/dclqrt70.bpl->OK，组件栏出现QReport2、使用简单应用举例说明：第一步：工程建立后，在调用报表的窗体加入一个Bu... 阅读全文

posted @ 2015-09-03 20:32 雪夜阅读(561) 评论(0) 推荐(0) 编辑

delphi数据库的备份及还原

摘要：实例应用1：//备份procedure TF_DataBaseBackUp.Btn_bfClick(Sender: TObject);var i:integer;begin if SaveDialog1.Execute then begin ADOConnection1.Connected... 阅读全文

posted @ 2015-09-03 20:31 雪夜阅读(460) 评论(0) 推荐(0) 编辑

Delphi考虑sql注入 QuotedStr

摘要：之前只在BS架构的项目中考虑了Sql注入问题，却很少考虑到用了多年的Delphi项目也应该考虑Sql注入的问题，今天做了个实验，成功完成注入，把表里数据全部删除，以后再做Delphi项目还真的考虑这个问题。总体讲，大体知道有两种方式可以避免Delphi中的Sql注入：1、用QuotedStr替代''... 阅读全文

posted @ 2015-09-03 20:20 雪夜阅读(1292) 评论(0) 推荐(0) 编辑