1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var
  db: TSQLiteDatabase;
  table: TSQLIteTable;
begin
  db := TSQLiteDatabase.Create('C:\DB.sqlite');
  if table.Exists('tabellenname') then
  begin
    table := db.GetTable('SELECT spalte1, spalte2 FROM tabellenname');
    while not table.EOF do
    begin
      ShowMessage(table.FieldAsString(table.FieldIndex['spalte1']));  //gibt den Wert von Spalte1 aus
      //....
      table.Next;
    end;
  end;
  table.Free;
  db.Free;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

unit Unit1;

interface

uses
  ..., SQLiteTable3;

...                    

1:

db := TSQLiteDatabase.Create(DBPath);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

  if db.TableExists('adressen.db') then
    anzeigen
  else
  begin
    SQL := 'CREATE TABLE adressen ([ID] INTEGER PRIMARY KEY,';
    SQL := SQL + '[Vorname] VARCHAR (40), [Nachname] VARCHAR (40),';
    SQL := SQL + '[Strasse] VARCHAR (40), [Hausnummer] VARCHAR (4),';
    SQL := SQL + '[Ort] VARCHAR (40), [PLZ] VARCHAR (5),';
    SQL := SQL + '[Telefon] VARCHAR (20), [Handy] VARCHAR (20),';
    SQL := SQL + '[Email] VARCHAR (40), [Kommentar] TEXT,';
    SQL := SQL + '[Nick] VARCHAR (20), [Geburtstag] DATE,';
    SQL := SQL + '[Website] VARCHAR (100));';

    db.ExecSQL(SQL);
  end;                    

1:

CREATE TABLE adressen (ID INTEGER, Vorname VARCHAR(40), Nachname VARCHAR(40), Strasse VARCHAR(40), Hausnummer VARCHAR(4), Ort VARCHAR(40), PLZ VARCHAR(5), Telefon VARCHAR(20), Handy VARCHAR(20), Email VARCHAR (40), Kommentar TEXT, Nick VARCHAR(20), Geburtstag DATE, Website VARCHAR(100), PRIMARY KEY(ID))                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Mask, DBCtrls, Grids, DBGrids, XPMan,
  ExtCtrls, ShellAPI, DBTables, SQLiteTable3;

type
  TForm1 = class(TForm)
    BHinzufuegen: TButton;
    BSchliessen: TButton;
    LAnzahl: TLabel;
    Label1: TLabel;
    BSuche: TButton;
    ESuche: TEdit;
    SBInhalt: TScrollBox;
    XPManifest1: TXPManifest;
    Label2: TLabel;
    GBDetails: TGroupBox;
    LName_Top: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    LGanzer_Name: TLabel;
    LStrasse: TLabel;
    LOrt: TLabel;
    Label6: TLabel;
    LHandy: TLabel;
    Label7: TLabel;
    LEmail: TLabel;
    Label8: TLabel;
    LGeburtstag: TLabel;
    Label9: TLabel;
    LWebsite: TLabel;
    Label10: TLabel;
    Bevel1: TBevel;
    MKommentar: TMemo;
    Label11: TLabel;
    LICQ: TLabel;
    procedure BHinzufuegenClick(Sender: TObject);
    procedure BSchliessenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ESucheClick(Sender: TObject);
    procedure PanelXClick(Sender:TObject);
    procedure LEmailClick(Sender: TObject);
    procedure LWebsiteClick(Sender: TObject);
    procedure BSucheClick(Sender: TObject);
    procedure erstelle_tabelle;
    procedure anzeigen;
    procedure loeschen;
  private
    SLSpeicher_Nachname: TStringList;
    SLSPeicher_Vorname : TStringList;
    db: TSQLiteDatabase;
    tb: TSQLIteTable;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Uadd;

{$R *.dfm}

procedure TForm1.erstelle_tabelle;
 var DBpath: string;
     db:     TSQLiteDatabase;
     SQL:    string;
begin
  DBPath := ExtractFilepath(application.exename) + 'adressen.db';
  db := TSQLiteDatabase.Create(DBPath);

  if db.TableExists('adressen.db') then
    anzeigen
  else
  begin
    SQL := 'CREATE TABLE adressen (ID INTEGER, Vorname VARCHAR(40), Nachname VARCHAR(40), Strasse VARCHAR(40), Hausnummer VARCHAR(4), Ort VARCHAR(40), PLZ VARCHAR(5), Telefon VARCHAR(20), Handy VARCHAR(20), Email VARCHAR (40), Kommentar TEXT, Nick VARCHAR(20), Geburtstag DATE, Website VARCHAR(100), PRIMARY KEY(ID))';

    db.ExecSQL(SQL);
  end;
end;

procedure TForm1.anzeigen;
 var Name:   TLabel;
     Panel:  TPanel;
     top, i: Integer;
begin
  if db.TableExists('adressen.db') then
  begin
    tb := Db.GetTable('SELECT * FROM adressen');

    top := 5;
    i := 0; //Zählvariable für Panelidentifikation
    SLSpeicher_Nachname := TStringList.Create;
    SLSpeicher_Vorname  := TStringList.Create;

    while not tb.EOF do
    begin
      //Panel erzeugen
      Panel := TPanel.Create(self);
      Panel.Parent := SBInhalt;
      Panel.Top := top;
      Panel.Left := 5;
      Panel.Tag := i;
      Panel.OnClick := PanelXClick;

      Name := TLabel.Create(self);
      Name.Parent := Panel;
      Name.Top := 10;
      Name.Left := 5;
      Name.Height := 26;
      Name.AutoSize := False;
      Name.Align := alBottom;
      Name.Alignment := taCenter;
      Name.Tag := i;
      Name.OnClick := PanelXClick;
      Name.Caption := tb.FieldAsString(tb.FieldIndex['Vorname']) + (' ') + tb.FieldAsString(tb.FieldIndex['Nachname']);

      SLSpeicher_Nachname.Insert(i, tb.FieldAsString(tb.FieldIndex['Nachname']));
      SLSpeicher_Vorname.Insert(i, tb.FieldAsString(tb.FieldIndex['Vorname']));

      i := i + 1;
      inc(top, 50); //Höhe des nächsten Panels um x erhöhen
      tb.Next;
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  anzeigen;
  PanelXClick(TPanel(Sender)); //Ersten Eintrag aufrufen
  LAnzahl.Caption := IntToStr(tb.RowCount); //Anzahl der Einträge ausgeben
end;

end.