Hallo,
ich bin noch ziemlicher Delphi-Anfänger. Jetzt habe ich eine Wissensdatenbank programmiert, das funktioniert so weit. Jetzt will ich noch eine Suchfunktion programmieren, sodass man einen Begriff eingeben kann und es zeigt sich dann der dazu gefundene Datensatz.
Der Quelltext zu dem Formular, in dem man die Datensätze eingibt und das sie dann auch anzeigen soll sieht wie folgt aus:
Code:
private
{ Private declarations }
public
{ Public declarations }
end;
var
BeschreibungForm: TBeschreibungForm;
implementation
uses Typ, Suchen;
{$R *.dfm}
procedure TBeschreibungForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;
//Suchfunktion
procedure TBeschreibungForm.BtSuchenClick(Sender: TObject);
begin
TSuchForm.Create(Self);
{DBLookupComboBox1.Color :=clMaroon;
DBLookupComboBox1.Font.Color := clWhite;
DBMemoSymptom.Color :=clMaroon;
DBMemoSymptom.Font.Color := clWhite;
DBMemoBeschreibung.Color :=clMaroon;
DBMemoBeschreibung.Font.Color := clWhite; }
end;
end.
Von dort wird ein Fenster geöffnet in dem der Suchbegriff eingegeben werden kann in einem Editfeld.
Jetzt wollte ich dort mit:
Code:
TBeschreibungForm.TbNrBeschr.Locate('Name','V',[loPartialKey]);
die Suchfunktion einfügen. Dies hab ich mir aus meinem Buch rausgesucht, aber irgendwie klappt das alles nicht. Außerdem soll ja auch der Text aus dem EditFeld in der Datenbank gesucht werden. Leider hilft mir mein Buch nicht sehr viel weiter.
Vielleicht kann mir hier jemand weiterhelfen.
Vorab schon mal vielen Dank
Gruß
Gabi