Delphi2009连接火鸟Firebird数据库的源代码及Firebird中文参考资料

本代码在:WinXp Pack 3 + Delphi2009 updata1 火鸟Firebird2.1.2.18118下测试通过。 作者：LAH [懒妹] QQ:112412387 火鸟Firebird数据库的中文参考资料 ■firebird标准连接串 Driver=Firebird/InterBase(r) driver;Uid=SYSDBA;Pwd=masterkey;DbName=C:\Documents and Settings\Administrator\桌面\data\demo.fdb; default character set gbk; 使用中文时在创建数据库语句中就应该加这句，并且连接文本中也要用这句。 .NET - Firebird .Net Data Provider 连接串 User=SYSDBA;Password=masterkey;Database=SampleDatabase.fdb;DataSource=localhost;Port=3050;Dialect=3; Charset=NONE;Role=;Connection lifetime=15;Pooling=true;MinPoolSize=0;MaxPoolSize=50;Packet Size=8192;ServerType=0; ■Firebird除了可见的表外，还隐藏了系统表具体可用(注意以下语句中的""中的文本区分大小写) 查询所有的表和视图（包括系统表和系统视图） SELECT RDB$RELATION_NAME FROM RDB$RELATIONS; 这样我们就能看到rdb$开头的系统表，如约束信息表： rdb$relation_constraints 及与其相关的 RDB$CHECK_CONSTRAINTS RDB$INDEX_SEGMENTS 一、分页写法小例： select first 10 templateid,code,name from template ; select first 10 skip 10 templateid,code,name from template ; select * from shop rows 1 to 10; --firebird2.0支持这种写法 二、show show tables; show table tablename; 三、 D:\firebird2\bin>isql -u sysdba -p masterkey connect "E:\company\xmwsoft\newxmwsoft\c2\db\cts2.fdb"; 四、--更新字段注释 update RDB$RELATION_FIELDS set RDB$DESCRIPTION = "描述信息" where (RDB$RELATION_NAME = "SHOP") and (RDB$FIELD_NAME = "CREDIT_BUY") 五、--显示字段注释 select RDB$FIELD_NAME,RDB$DESCRIPTION from RDB$RELATION_FIELDS where (RDB$RELATION_NAME = "SHOP") and (RDB$FIELD_NAME = "CREDIT_BUY") 六、--更新表注释 update RDB$RELATIONS set RDB$DESCRIPTION = "描述信息" where RDB$RELATION_NAME="TABLE_NAME" 八、--查询所有的用户表和用户视图 SELECT RDB$RELATION_NAME FROM RDB$RELATIONS WHERE RDB$SYSTEM_FLAG = 0; 九、--查询所有的用户表 SELECT RDB$RELATION_NAME FROM RDB$RELATIONS WHERE RDB$SYSTEM_FLAG = 0 AND RDB$VIEW_BLR IS NULL 十、查所有用户表、用户视图所有字段及相关定义 SELECT a.RDB$RELATION_NAME, b.RDB$FIELD_NAME, b.RDB$FIELD_ID, d.RDB$TYPE_NAME, c.RDB$FIELD_LENGTH, c.RDB$FIELD_SCALE FROM RDB$RELATIONS a INNER JOIN RDB$RELATION_FIELDS b ON a.RDB$RELATION_NAME = b.RDB$RELATION_NAME INNER JOIN RDB$FIELDS c ON b.RDB$FIELD_SOURCE = c.RDB$FIELD_NAME INNER JOIN RDB$TYPES d ON c.RDB$FIELD_TYPE = d.RDB$TYPE WHERE a.RDB$SYSTEM_FLAG = 0 AND d.RDB$FIELD_NAME = "RDB$FIELD_TYPE" ORDER BY a.RDB$RELATION_NAME, b.RDB$FIELD_ID 十一、查找某表的所有字段及相关定义 SELECT A.RDB$FIELD_NAME, B.RDB$FIELD_TYPE, B.RDB$FIELD_LENGTH, B.RDB$FIELD_PRECISION, B.RDB$FIELD_SCALE FROM RDB$RELATION_FIELDS A, RDB$FIELDS B WHERE A.RDB$RELATION_NAME = "tablename" AND A.RDB$FIELD_SOURCE = B.RDB$FIELD_NAME ORDER BY A.RDB$FIELD_POSITION 十二、查找某表的主键定义字段 select A.RDB$FIELD_NAME FROM RDB$INDEX_SEGMENTS A, RDB$RELATION_CONSTRAINTS B WHERE B.RDB$CONSTRAINT_TYPE = "PRIMARY KEY" AND B.RDB$RELATION_NAME = "tablename" AND A.RDB$INDEX_NAME = B.RDB$INDEX_NAME ORDER BY A.RDB$FIELD_POSITION 十三、查找某表的外键定义 select r1.RDB$CONSTRAINT_NAME, rind.RDB$FIELD_NAME, r2.RDB$RELATION_NAME FROM RDB$RELATION_CONSTRAINTS r1, RDB$RELATION_CONSTRAINTS r2, RDB$REF_CONSTRAINTS ref, RDB$INDEX_SEGMENTS rind where r1.RDB$RELATION_NAME = "tablename" and r1.RDB$CONSTRAINT_TYPE = "FOREIGN KEY" and r1.RDB$CONSTRAINT_NAME = ref.RDB$CONSTRAINT_NAME and ref.RDB$CONST_NAME_UQ = r2.RDB$CONSTRAINT_NAME and r1.RDB$INDEX_NAME = rind.RDB$INDEX_NAME 十四、添加主键等约束 alter table tablename add constraint PK_tablename primary key(FIELDname) alter table tablename add constraint uq_FIELD unique(FIELDname) 或　alter table tablename add unique(FIELDname) 添加NOT NULL约束比较特殊 update RDB$RELATION_FIELDS set RDB$NULL_FLAG = 1 where (RDB$FIELD_NAME = 'FIELDNAME') and (RDB$RELATION_NAME = 'TN') insert into RDB$RELATION_constraints values('NN_FIELD','NOT NULL','WFW','NO','NO','') insert into RDB$CHECK_constraints values('NN_FIELD','FIELD') 十五、删除主键等约束 先查这个表的主键名 select RDB$CONSTRAINT_NAME from RDB$RELATION_CONSTRAINTS where RDB$CONSTRAINT_TYPE='PRIMARY KEY' and RDB$RELATION_NAME='tablename' 然后 alter table tablename drop constraint 主键名 (主键名一般在隐藏的系统表中，每个约束一个名。) 十六、创建数据库 Create Database 'D:\Mydb.fdb' user 'sysdba' password 'masterkey' [default character set gbk] 十七、查指定字段Not Null约束 SELECT a.rdb$trigger_name,b.rdb$constraint_name,b.rdb$constraint_type FROM RDB$CHECK_CONSTRAINTS a, rdb$relation_constraints b where a.rdb$constraint_name=b.rdb$constraint_name and b.rdb$constraint_type='NOT NULL' and b.RDB$RELATION_NAME='表名' and a.rdb$trigger_name='字段名' 十八、查指定表所有unique约束 和 主键约束 SELECT a.RDB$FIELD_NAME,b.rdb$constraint_name,b.rdb$constraint_type FROM RDB$INDEX_SEGMENTS a, rdb$relation_constraints b where a.RDB$INDEX_NAME=b.RDB$INDEX_NAME and b.RDB$RELATION_NAME='tablename' 十九、修改字段类型 ALTER TABLE TABLENAME ALTER FIELDNAME TYPE FLOAT 二十、改字段名 alter table TABLENAME alter oldFIELDname to newFIELDname ■Firebird的基本数据类型 由于排版关系，取幂将用[]，比如10[5]，表示10的5次方。 INTEGER:长整型，取值范围：-2147483648至2147483647 FLOAT:单精度浮点型，取值范围：1.175*10[-38]至3.402*10[38] DOUBLE PRECISION：双精度浮点型，取值范围：2.225*10[-308]至1.797*10[308] DECIMAL：小数型，可指定有效位数最大为18位或小数点后18位。比如DECIMAL(5,2)，就是指有5位数字，不含小数点，形如123.45 NUMERIC：小数型，与DECIMAL类似，稍后讲它们的区别。 注意，当数据含小数部分时，请尽量用DECIMAL，因为浮点型有精度问题，除非数值特别大，才用浮点型！ DECIMAL与NUMERIC的区别： 比如，DECIMAL(5,2)与NUMERIC(5,2)所分别定义的字段，DECIMAL(5,2)指的是至少有5位数字，还可以更多！而NUMERIC(5,2)指的是，就是5位，不多也不少。 SMALLINT：短整型，取值范围：-32768至32767，数值确定比较小时，可以使用，可以节省磁盘空间与提升效率 CHAR：字符型，最多32767个字符，注意，使用CHAR类型，即使字符数没有达到指定字段的宽度，也会用空字符补满！取值时，请注意用TRIM()等函数去掉多余空字符。除非确定每条记录的字符数不变，否则请用VARCHAR类型。 VARCHAR：可变长度字符型，最多32767个字符，存储时，会根据内容长度自动改变存储位数，不会产生多余空字符。当字符数超过32767时，请用BLOB型。 TIME：时间型，取值范围：00:00至23:59.9999 TIMESTAMP:日期时间型，取值范围：公元100年1月1日至公元32768年2月29日，同时包含日期与时间信息。 DATE：日期型，取值范围：公元100年1月1日至公元32768年2月29日。，注意，建库时需选择DIALECT 3级别才支持DATE型，否则就是TIMESTAMP型。 BLOB：大二进制型，可支持Text(文本)、Binary Data(二进制型，比如图片，声音等)等子类型。取值范围：64KB以内。 BOOLEAN：逻辑型，Firebird 2.0引入的新类型。取值范围：TRUE(值)或FALSE(假)。使用BOOLEAN而不用SMALLINT的理由是可以用更少的位数来存储，而且与SQL标准兼容，但是，数据将与1.5版本不兼容。 ■1. COUNT, AVG, MAX, MIN, SUM 说明:通用统计函数,不详细介绍了 2. EXTRACT(timestamp_part FROM value) 说明:EXTRACT(YEAR/MONTHE/DAY/WEEKDAY FROM 字段名) 从日期型字段中分离出年,月,日及一个星期的第几天 3. CAST(value AS datatype) 说明:转换数据类型 4. LOWER() * 说明:返回小写值 5. UPPER() 说明:返回大写值 6. TRIM() * 说明:去除字符串两边的空格 7. SUBSTRING(string FROM pos FOR length) 说明:取字符串子串,注意,第一个字符的位置是1 8. BIT_LENGTH * 说明:返回字符串位(bit)数 9. CHAR_LENGTH/CHARACTER_LENGTH * 说明:返回字符串字符数 10. OCTET_LENGTH * 说明:返回字符串字节数 11. CASE 说明:通过执行外来的一组条件取得相应的返回值 举例 i) 简单 SELECT o.ID, o.Description, CASE o.Status WHEN 1 THEN "confirmed" WHEN 2 THEN "in production" WHEN 3 THEN "ready" WHEN 4 THEN "shipped" ELSE "unknown status """ || o.Status || """" END FROM Orders o; ii) 表达式 SELECT o.ID, o.Description, CASE WHEN (o.Status IS NULL) THEN "new" WHEN (o.Status = 1) THEN "confirmed" WHEN (o.Status = 3) THEN "in production" WHEN (o.Status = 4) THEN "ready" WHEN (o.Status = 5) THEN "shipped" ELSE "unknown status """