1:
2:
3:
4:

ArtDataModul.ArtNrQuery.SQL.Clear;
ArtDataModul.ArtNrQuery.SQL.Add ('SELECT * FROM "art" ');
ArtDataModul.ArtNrQuery.SQL.Add ('WHERE nr = 100');
Form1.Show;					

1:
2:
3:
4:
5:

ArtDataModul.ArtNrQuery.SQL.Clear; 
ArtDataModul.ArtNrQuery.SQL.Add ('SELECT * FROM art'); 
ArtDataModul.ArtNrQuery.SQL.Add ('WHERE nr = 100');
ArtDataModul.ArtNrQuery.Open; 
Form1.Show;					

1:
2:

ArtDataModul.ArtNrQuery.SQL.Add ('SELECT * FROM "art" ');
ArtDataModul.ArtNrQuery.SQL.Add ('WHERE "nr" = 111');					

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:

  

unit ArtVerw;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, StdCtrls, DBCtrls, Mask, Menus, FIBQuery,
  pFIBQuery, ExtCtrls;

type
  TForm1 = class(TForm)
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    Edit1: TEdit;
    Button1: TButton;
    DBNavigator1: TDBNavigator;
    Button2: TButton;
    DBGrid1: TDBGrid;
    procedure AppException(Sender: TObject; E: Exception);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1Exit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

USES ArtDatMod;

{$R *.dfm}

procedure TForm1.AppException(Sender: TObject; E: Exception);
  begin
    Messagedlg('Fehler :'+E.ClassName+#10#13, mterror,[mbok,mbCancel,mbignore],0);
  end;

procedure TForm1.FormCreate(Sender: TObject);
  BEGIN
    Application.OnException := AppException;
  end;

procedure Tform1.Edit1Exit(Sender: TObject);
var WGnr : integer;
begin
  WGnr := StrToInt (Edit1.text)
  { Wert in zul. Bereich, jetzt noch prüfen
    ob in DB vorhanden }
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  ArtDataModul.Database.Open;
  ArtDataModul.ArtTransaction.StartTransaction;
  ArtDataModul.ArtDatenSatz.Open;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ArtDataModul.ArtTransAction.Commit;
  ArtDataModul.Database.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ArtDataModul.ArtNrQuery.SQL.Clear;
  ArtDataModul.ArtNrQuery.SQL.Add ('SELECT * FROM "art" ');
  ArtDataModul.ArtNrQuery.SQL.Add ('WHERE "nr" = 111');
  ArtDataModul.ArtNrQuery.ExecQuery;
  Form1.Show;
end;

end.					

1:

SELECT * FROM ART WHERE NR = 111					

1:

SELECT * FROM ART WHERE NR = '111'					

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

Tform1.edtSearchOnExit(Sender: TObject);
begin
  with FIBDataSet do begin
    Active := False;
    SelectSQL.Text := 'SELECT * FROM ART WHERE NR = ' +
                                edtSearch.Text; 
    Active := False;
  end;
end;					

1:
2:

EditFeldSoundso.Text := FIBDataSet.FieldByName('Soundso').AsString;
...					

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

with FIBDataSet do begin
  Edit;  //oder Insert
  FieldByName('Soundso').Value := EditFeldSoundso.Text;
  ...
  //Die Felder müssen je nach Inhalt dabei konvertiert werden
  ...
  try
    Post;  //Speichern
  except
    Cancel;  //Fehler
  end;
end;					

1:
2:
3:
4:
5:

CREATE TABLE KUNDEN (
  KD_ID    INTEGER NOT NULL, /*Schlüssel */
  KD_GRP   INTEGER,          /*Kundengruppe */
  KD_WERT  INTEGER,          /*Irgendein Wert */
  PRIMARY KEY (KD_ID));					

1:
2:
3:
4:
5:

CREATE TRIGGER TR_KUNDEN_B_I FOR KUNDEN BEFORE INSERT AS
BEGIN
  NEW.KD_ID = GEN_ID( KUNDEN_GENERATOR );
  NEW.KD_WERT = 0;
END					

1:
2:
3:
4:
5:
6:

procedure TDM.ibsKundenNewRecord(DataSet: TDataSet);
begin
  DataSet.FieldByName('KD_GRP).Value := DeineKundenGruppe;
  //Wenn du willst kannst du auch das hier noch machen
  DataSet.FieldByName('KD_WERT').Value := 0;
end;					

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

Tform1.edtSearchOnExit(Sender: TObject); 
begin 
  with FIBDataSet do begin 
    Active := False; 
    SelectSQL.Text := 'SELECT * FROM ART WHERE NR = ' + 
                                edtSearch.Text; 
    Active := False; 
  end; 
end;					

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

  
WITH DataModule2.KGdatenSatz DO BEGIN
    active := false;
    SelectSQL.Text := 'select * from KG8 where "nr" = ' + DBedit1.text;
    active := true;
    showmessage ('***' + DBedit1.Text+ '***');
END;					

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

procedure TForm1.Edit1Exit(Sender: TObject);
  beginEdit1.Enabled := false;            { darf nicht mehr editiert werden}
  WITH DataModule2.KGdatenSatz DO BEGIN
    active := false;
    SelectSQL.Text := 'select * from KG8 where "nr" = ' + Edit1.text;
    active := true;
    IF DataModule2.KGdatenSatz.IsEmpty THEN BEGIN
      ShowMessage ('neuer Datensatz !');
      insert;
      FieldByName ('nr').value := StrToInt (Edit1.text);
    END;
  END;
end;