[gelöst] Wie Daten vom Datascource auf die andere Form?

[wega]

Hallo zusammen,

Wie bekomme ich den Datenbankinhalt von Form1 auf Form2?

Auf Form1 habe ich ein TDBGrid, das ausgezeichnet funktioniert.
Auf Form2 habe ich TDBLookupListBoxen, in denen ich ganz gerne die Daten vom Grid der Form1 sehen möchte.

Wie geht das?

mit Gruß
Werner

[knight]

Hallo Werner,

hast du schon die Suchfunktion ausprobiert? Damit findet man z.B. dies: http://www.lazarusforum.de/viewtopic.php?f=17&t=1560&" onclick="window.open(this.href);return false;

knight

[u-boot]

hast du schon die Suchfunktion ausprobiert? Damit findet man

Also wenn du mit der aktuellen "Suchfunktion" des Forums etwas findest, dann lass mich auch bitte wissen wie das gehn soll.

[wega]

Hallo knight,

Danke für den Hinweis. Aber die Suchfunktion ist nicht besonders hilfreich.

So lauten z. B. die Antworten der Suchfunktion in der Regel:

Information

Die folgenden Wörter deiner Suchanfrage wurden ignoriert, da sie zu häufig vorkommen: anderer daten form von.
Du musst mindestens ein Wort angeben, nach dem gesucht werden soll. Jedes Wort muss aus mindestens 3 Buchstaben bestehen und darf ohne Platzhalter nicht mehr als 20 Buchstaben haben.

Und das ist nicht besonders hilfreich. Da hilft dein Hinweis viewtopic.php?f=17&t=1560& schon wesentlich mehr, wenn auch der Kommentar etwas zynisch wirkt.

Dennoch vielen Dank, dein Hinweis hilft mir hoffentlich weiter.

Gruß
Werner

[MmVisual]

Ich finde auch, die Suchfunktion ist KEINE Suchfunktion mehr, die ist einfach nur Schrott.

Man findet nichts. Nur diesen dummen Kommentar, wenn zu viele Ergebnisse kommen.

Manchmal ist es einfach so, dass man NICHT den Fachausdruck kennt sondern den SUCHT man erst mal. Und da kann man leider nur allgemein Wörter verwenden und da streikt die Suche.

Monta sollte das dringend korrigieren / verbessern.

[wega]

Hallo zusammen,

ich habe einmal folgendes zusammengetragen:

Code: Alles auswählen

unit wzb_1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, dbf, db, FileUtil, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, DBGrids, DbCtrls, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Datasource1: TDatasource;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Dbf1: TDbf;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
 
 
 
 
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
  uses wzb_2;
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Form2.show;
 Form2.SetFocus;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;
 
 
end.

jetzt kommen die Anweisungen für Unit2

Code: Alles auswählen

unit wzb_2;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, dbf, db, SdfData, FileUtil, Forms, Controls, Graphics,
  Dialogs, ComCtrls, DbCtrls, StdCtrls;
 
type
 
  { TForm2 }
 
  TForm2 = class(TForm)
    Button1: TButton;
    Datasource1: TDatasource;
    DBLookupListBox1: TDBLookupListBox;
    DBLookupListBox2: TDBLookupListBox;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form2: TForm2; 
 
implementation
  uses wzb_1;
{$R *.lfm}
 
{ TForm2 }
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  close;
end;
 
end.

Im Nachrichtenfenster wird mir folgendes mitgeteilt:

wzb_2.pas(8,38)Hint: Unit "SdfData" not used in wzb_2
wzb_2.pas(34,13)Hint: Unit "wzb_1" not used in wzb_2
Projekt "wzb" erfolgreichkompeliert


kann mir jetzt einer sagen, wo der Wurm steckt, weshalb die Datenbankdaten in der Form2 nicht sichtbar sind?

mit Gruß
Werner

[MmVisual]

Poste doch mal das ganze Projekt als ZIP, denn das was im Objektinspektor verknüpft wurde sieht man im Quellcode nicht.

[wega]

hallo MmVisual,

auf deinen Wunsch hin, hier das gezipte Projekt.

Gruß
Werner

[wega]

Hallo zusammen,

ich habe für mich das Problem der Datenübergabe von Form1 an Form2 gelöst.
Wie, das zeigt die grafische Anlage.

mit freundlichem Gruß
Werner

[Lori]

Um kurz off Topic auf die Suche zurück zu kommen: Monta arbeitet dran.