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方法做事务处理了。