W tym wpisie przedstawiam przykład użycia Lazarusa (www.lazrus.freepascal.org) i bazy Firebird 1.5 (www.firebirdsql.com).
Krok 1.
Zainstaluj firebirdSQL 1.5, Lazasura (ja miałem v. 0.9.24), no i może żeby było łatwiej do stworzenia bazy użyć można ibexperta (www.ibexpert.com) .
Krok 2.
Uruchom serwer bazy danych firebird. Załóż nową bazę danych, poniżej skrypt:
/******************************************************************************/
/* Generated by IBExpert 2008.02.19 2008-04-30 09:40:57 */
/******************************************************************************/
SET SQL DIALECT 3;
SET NAMES UTF8;
CREATE DATABASE ‘c:\osoby.fdb’
USER ‘SYSDBA’ PASSWORD ‘masterkey’
PAGE_SIZE 16384
DEFAULT CHARACTER SET UTF8;
/******************************************************************************/
/* Generators */
/******************************************************************************/
CREATE GENERATOR GEN_OSOBY_ID;
SET GENERATOR GEN_OSOBY_ID TO 2;
/******************************************************************************/
/* Tables */
/******************************************************************************/
CREATE TABLE OSOBY (
ID INTEGER NOT NULL,
IMIE VARCHAR(20) CHARACTER SET UNICODE_FSS,
NAZWISKO VARCHAR(30) CHARACTER SET UNICODE_FSS,
KOD CHAR(6) CHARACTER SET UNICODE_FSS,
DATAUR DATE
);
/******************************************************************************/
/* Primary Keys */
/******************************************************************************/
ALTER TABLE OSOBY ADD CONSTRAINT PK_OSOBY PRIMARY KEY (ID);
/******************************************************************************/
/* Triggers */
/******************************************************************************/
SET TERM ^ ;
/******************************************************************************/
/* Triggers for tables */
/******************************************************************************/
/* Trigger: OSOBY_BI */
CREATE TRIGGER OSOBY_BI FOR OSOBY
ACTIVE BEFORE INSERT POSITION 0
as
begin
if (new.id is null) then
new.id = gen_id(gen_osoby_id,1);
end
^
SET TERM ; ^
Krok 3.
Uruchom lazarusa i otwórz projekt (Projekt w Lazarus Baza danych osoby)
Buduj projekt.
Znajdź “exeka” Project1.exe w folderze projektu uruchom i podziwiaj 
Ostatnie Komentarze