Delphi多线程学习：多线程数据库查询（ADO）
ADO多线程数据库查询通常会出现3个问题：
1、CoInitialize 没有调用
（CoInitialize was not
called）；所以，在使用任何dbGo对象前，必须手
调用CoInitialize和CoUninitialize。调用CoInitialize失败会产生"CoInitialize was not
called"例外。
2、画布不允许绘画
（Canvas does not allow
drawing）；所以，必须通过Synchronize过程来通知主线程访问主窗体上的任何控件。
3、不能使用主ADO连接
（Main TADoConnection cannot be
used!）；所以，线程中不能使用主线程中TADOConnection对象，每个线程必须创建自己的数据库连接。
Delphi2007安装后在X:\Program Files\Common Files\CodeGear
Shared\Data目录下有一个dbdemos.mdb文件，用来作为测试的例子。dbdemos.mdb中的customer表保存了客户信
息，orders表中保存了订单信息。
测试程序流程大致是这样的：在主窗体上放TADOConnection和TQuery控件，启动时这个TQuery从Customer表中查出客户编码
CustNo和公司名称Company，放到三个Combox框中，分别在三个列表框中选定客户公司名称，按照公司名称所对应的客户代码建立三个线程同时
在orders表中查询销售日期SaleDate分别填入ListBox中。
{主窗体代码}
unit
Main;
interface
uses
Windows,
Messages,
SysUtils,
Variants,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
DB,
ADODB,
StdCtrls;
type
TForm2 =
class
(
TForm)
ComboBox1:
TComboBox;
ComboBox2:
TComboBox;
ComboBox3:
TComboBox;
ListBox1:
TListBox;
ListBox2:
TListBox;
ListBox3:
TListBox;
Button1:
TButton;
ADOConnection1:
TADOConnection;
ADOQuery1:
TADOQuery;
Label1:
TLabel;
Label2:
TLabel;
Label3:
TLabel;
procedure
FormCreate(
Sender:
TObject
)
;
procedure
Button1Click(
Sender:
TObject
)
;
private
{ Private declarations }
public
{ Public declarations }
end
;
var
Form2:
TForm2;
implementation
uses
ADOThread;
{$R *.dfm}
procedure
TForm2.
Button1Click
(
Sender:
TObject
)
相关文档：
1.Round（四舍六入五留双）
功能说明：对一个实数进行四舍五入。(按照银行家算法)
例：
var
i, j: Integer;
begin
i := Round(1.5); // i等于2
j := Round(2.5); // j等于2
end;
在Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样：采用的是四舍六入五留双。即当舍或入位大于或小于五� ......
Day 开头的函数
●
Unit
DateUtils
function DateOf(const Avalue: TDateTime): TDateTime;
描述
使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个
只带有日期的 TDateTime 类型变量。
例如：
showmessage(DateTimetostr(dateof(now())));
你得到的是 2003/03/19
而 showmessage(Dat ......
====================================================
Delphi操作文件的一般步骤：
1）关联文件：
AssignFile(var F; FileName :string)；
2）初始化文件：
Append(var F :Text);
//只写，于文件最后追加数据
Reset(var F [; RecSize :Word]); ......
大家在软件开发时经常会遇到这样的情况，在不同的开发环境中为实现一些功能相同的过程，由于开发所使用的设计语言不同，因而不得不编写许多类似的代码，甚至有时要在同一个开发环境不同项目中重写代码，这就造成了很大的资源浪费。动态链接库能较好的解决这个问题，重复利用代码将大大提高了开发效率。一般，用户在应用程序 ......
bool是LongBool类型。
Delphi中定义了四种布尔类型：Boolean，ByteBool，WordBool和LongBool。后面三种布尔类型是为了与其他语言兼容而引入的，一般情况下建议使用Boolean类型。
这四种类型的布尔值占用内存的数量如下：
Boolean 1 Byte
ByteBool 1 Byte
WordBool 2 Bytes（1 Word）
LongBool 4 Bytes（2 Words）
对 ......
