Delphi2007中使用DbExpress连接MySql的例子

新建数据库

/**//*
MySQL Data Transfer
Source Host: localhost
Source Database: blog
Target Host: localhost
Target Database: blog
Date: 2008/04/15 16:18:41
*/

SET FOREIGN_KEY_CHECKS=0;
-- ----------------------------
-- Table structure for posts
-- ----------------------------
CREATE TABLE `posts` (
  `id` int(10) unsigned NOT NULL auto_increment,
  `title` varchar(50) default NULL,
  `body` text,
  `created` datetime default NULL,
  `modified` datetime default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM AUTO_INCREMENT=6 DEFAULT CHARSET=utf8;

-- ----------------------------
-- Records 
-- ----------------------------
INSERT INTO `posts` VALUES ('1', 'The title', 'This is the post body.', '2008-04-08 11:51:46', null);
INSERT INTO `posts` VALUES ('2', 'A title once again', 'And the post body follows.', '2008-04-08 11:51:46', null);
INSERT INTO `posts` VALUES ('3', 'Title strikes back', 'This is really exciting! Not.', '2008-04-08 11:51:46', null);

Delphi2007中新建工程，页面上追加TSimpleDataSet及TDataSource控件。

然后做如下设置

 

字段直接可以拉到页面上的，如下：

设置各个控件间的DataSource属性。后台代码：

使用 DbExpress 的时候总感觉很别扭。网上也有很多人说这套组件有潜在BUG存在。不知道是不是真的有李维大师所说的那样好。

注意：关于事务：使用StartTransaction方法的话需要用到TTransactionDesc类，这需要在开头uses部追加SqlExpr。

如果换成BeginTransaction方法的话需要用到TDBXTransaction类，这需要在开头uses部追加DBXCommon。

从警告信息可以判断，Delphi2007已经开始不推荐使用StartTransaction方法做事务处理了。