Delphi使用dbExpress组件的例子

SET NAMES ASCII; CREATE DATABASE 'E:\Essays\Data\Myessays.gdb' USER 'SYSDBA' PAGE_SIZE 1024 DEFAULT CHARACTER SET NONE; CREATE TABLE MYESSAYS ( EID INTEGER NOT NULL, ETITLE VARCHAR(60), MAGAZINE VARCHAR(60), PDATE DATE, CONTENTS BLOB sub_type 0 segment size 80, NOTES VARCHAR(100)); INSERT INTO MYESSAYS (EID, ETITLE, MAGAZINE, PDATE, NOTES) VALUES (1, '2001年軟體巨星-Kylix', 'RUN!PC 2001/3', '03/05/2001 00:00:00', NULL); INSERT INTO MYESSAYS (EID, ETITLE, MAGAZINE, PDATE, NOTES) VALUES (2, 'Window原生開發工具的瑰寶-Delphi 6', 'RUN!PC 2001/6', '05/05/2001 00:00:00', NULL); INSERT INTO MYESSAYS (EID, ETITLE, MAGAZINE, PDATE, NOTES) VALUES (3, 'So much fun, So many possibilities', 'RUN!PC 2001/7', '06/05/2001 00:00:00', NULL); INSERT INTO MYESSAYS (EID, ETITLE, MAGAZINE, PDATE, NOTES) VALUES (4, '肥皂的戰爭與和平', 'RUN!PC 2001/8', '07/05/2001 00:00:00', NULL); INSERT INTO MYESSAYS (EID, ETITLE, MAGAZINE, PDATE, NOTES) VALUES (5, '.NET的SOAP', 'RUN!PC 2001/9', '08/05/2001 00:00:00', NULL); INSERT INTO MYESSAYS (EID, ETITLE, MAGAZINE, PDATE, NOTES) VALUES (990, '我的回憶和有趣的故事', 'Programmer 深度論壇', '03/01/2001 00:00:00', NULL); INSERT INTO MYESSAYS (EID, ETITLE, MAGAZINE, PDATE, NOTES) VALUES (991, '我的回憶和有趣的故事續之一', 'Programmer 深度論壇', '04/01/2001 00:00:00', NULL); ALTER TABLE MYESSAYS ADD PRIMARY KEY (EID); CREATE INDEX MYESSAYS_IDX1 ON MYESSAYS (ETITLE); CREATE INDEX MYESSAYS_IDX2 ON MYESSAYS (PDATE);