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

puplic
  ...
  ...
  Active: boolean;
  constructor Create(AOwner: TComponent); override;
end;

...
...

constructor TFrame.Create(AOwner: TComponent);
begin
  Active := false;
  inherited;

end;					

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:

unit frame_AnsprechpartnerListe;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, TFlatStringGridUnit, ExtCtrls, StdCtrls, TFlatMemoUnit,
  TFlatButtonUnit, tools, st_Ansprech, konsts;

type
  TFrame_Ansprechpartner = class(TFrame)
    Panel7: TPanel;
    btnBearbeiten: TFlatButton;
    FlatButton2: TFlatButton;
    FlatButton3: TFlatButton;
    FlatMemo2: TFlatMemo;
    Splitter2: TSplitter;
    SG: TFlatStringGrid;
    Panel8: TPanel;
    Panel9: TPanel;
    FlatButton5: TFlatButton;
    FlatButton6: TFlatButton;
    Panel10: TPanel;
    FlatButton4: TFlatButton;
    FlatButton7: TFlatButton;
    procedure SGRowChange(Sender: TObject; row: Integer;
      var aColor: TColor);
    procedure btnBearbeitenClick(Sender: TObject);
  private
    { Private-Deklarationen }
    rs : TResultSet;
  public
    { Public-Deklarationen }
    Active: boolean;
    constructor Create(AOwner: TComponent); override;
    destructor destroy; override;
  end;

  var Frame_Ansprechpartner : TFrame_Ansprechpartner;

procedure LadeAnsprech(Kunde : Boolean; LNR : String);
implementation

uses st_Lieferant;
{$R *.dfm}
procedure LadeAnsprech(Kunde : Boolean; LNR : String);
begin
  With Frame_Ansprechpartner do
  begin
    If Active = false then
    begin
      rs := TResultSet.create(app);
      Active := true;
    end;

    rs.Open('select Nummer, lnr, Anrede=(case geschlecht when ''W'' then ''Frau'' else ''Herr'' end),Nachname=name,'+
                        ' Vorname=vorname, Telefon=telefon,Telefax=telefax, Email=email, Handy=handy, bemerkung '+
                        'from LAnsprec ' +
                        'where lnr='''+LNR+''' ORDER BY name, vorname',20);
    rs.MapToGrid(sg);
    FlatMemo2.Text := sg.Cells[9, sg.row]  ;
  end;
end;


constructor TFrame_Ansprechpartner.Create(AOwner: TComponent);
begin
  inherited;
  Active := false;
end;

end.					

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

implemention 
uses form2;

procedure LadeAnsprech(Kunde : Boolean; LNR : String); 
begin 
  With [b]Form2[/b].Frame_Ansprechpartner do 
  begin 
    If Active = false then					

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:

unit Frame_unit
type 
  TFrame_Ansprechpartner = class(TFrame) Splitter2: TSplitter; 
 ....
  public 
    { Public-Deklarationen } 
    procedure LadeAnsprech(Kunde : Boolean; LNR : String); 
    ...
  end; 
...
procedure TFrame_Ansprechpartner.LadeAnsprech(Kunde : Boolean; LNR : String); 
begin 
    If Active = false then 
    begin 
      rs := TResultSet.create(app); 
      Active := true; 
    end; 

    rs.Open('select Nummer, lnr, Anrede=(case geschlecht when ''W'' then ''Frau'' else ''Herr'' end),Nachname=name,'+ 
                        ' Vorname=vorname, Telefon=telefon,Telefax=telefax, Email=email, Handy=handy, bemerkung '+ 
                        'from LAnsprec ' + 
                        'where lnr='''+LNR+''' ORDER BY name, vorname',20); 
    rs.MapToGrid(sg); 
    FlatMemo2.Text := sg.Cells[9, sg.row]  ; 
  end;