moin leute
ich steh mal wieder vor nen prob und hoffe ihr habt ein paar schlaue ideen.
ez muss ich erst mal überlegen wie ich das ganze formulier *gg*
also :
als erstes : ich hab ne
access DB dahinter. ich hab auf dem formular eine combobox und möchte aus der
db raus die kunden über die combobox anzeigen lassen - so auswahlmässig beim aufklappen das da alle drinstehen. soweit ok ?! gut
soooo....jetzt möchte ich das ganze aber auch gern handhaben wie es in vb standartmässig dabe ist : ich möchte, wenn ich die box nicht aufklappe sondern einfach in die box was reinschreibe den namen des kunden nach und nach vorgeblendet bekommen - versteht ihr ? also wenn ich z.b. nen kunden "wolf" habe und in der box w eingebe dann soll der schonmal als erste auswahl angezeigt werden in den dazugehöreigen feldern ( name, vorname, strasse, usw...) die direkt unter der combobox stehen. wenn ich nun mehrere kunden mit einem "w" im namen habe, soll er mir zwar einen vorschlagen , doch ich möchte dann, wen nich die box dann aufklappe, nur noch die leute mit "w" in ihrem namen angezeigt bekommen. und wenn ich mehr buchstaben eingebe ( z.b. "wo") dann soll er die auswahl der namen halt auch weiter eingrenzen ( also das dann z.b. kein name mehr wie "wingert" oder so vorkommt weil ja kein "wo" in dem name ist ). ez hab ich nur noch ein kleines problem : so wie ich es atm umgesetzt habe, kann ich beim ersten aufklappen der box einen kunden aussuchen und der wird auch in den feldern angezeigt, doch wen nich dann nochmal die box aufkappe und nen anderen aussuchen will, kann ich den zwar selectieren mit der maus, aber er wird nicht übernommen udn die felder bleiben leer
weiss jmd rat ? oder ne bessere lösung als meine ?
ich schieb mal meinen quellcode mit rein - seid nachsichtig mit mir bzgl dem code - bin ja noch im lernstadium *gg*
Delphi-Quellcode:
////////////////////////////////////////////////////////////////////////////////
// Aufklappen der Combobox um alle Kunden anzeigen zu lassen
////////////////////////////////////////////////////////////////////////////////
procedure TFormAuftrag.ComboBox1DropDown(Sender: TObject);
var name:
string;
leerzeichen:
string;
vorname:
string;
//ort: string;
kundennr: Longint;
begin
// die liste wird geleert, zumal ansonsten dieselben datensätze immer angehängt werden
// bei jedem neuaufklappen
// ComboBox1.Items.Clear;
// Kennzeichen 3 bedeutet die DropDown Liste wurde geöffnet
kennzeichen := 3;
kundensuch(kennzeichen);
if (combobox1.Text <> '
')
or (combobox1.Text = '
')
then
begin
//Liste mit Werten füllen
while not FormKunden.ADOQueryKunden.Eof
do
begin
leerzeichen := '
';
// Die Felder müssen vor der Zuweisung geprüft werden, ob hier auch ein
// Eintrag in der Datenbank vorliegt.
kundennr := FormKunden.ADOQueryKunden.FieldValues['
kunden_nummer'];
name := FormKunden.ADOQueryKunden.FieldValues['
name'];
vorname := FormKunden.ADOQueryKunden.FieldValues['
vorname'];
// ort := FormKunden.ADOQueryKunden.FieldValues['ort'];
gesamt:= IntToStr(kundennr) + leerzeichen +
name + leerzeichen + vorname;
Combobox1.Items.Add(gesamt);
FormKunden.ADOQueryKunden.Next;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////
// Auswahl innerhalb der Combobox
////////////////////////////////////////////////////////////////////////////////
procedure TFormAuftrag.ComboBox1Select(Sender: TObject);
var i: integer;
ende: boolean;
begin
// Kennzeichen 1 bedeutet, es wurde eine Auswahl aus der Liste getroffen
kennzeichen := 1;
ende := false;
// Nachdem der Benutzer einen Eintrag aus der Liste gewählt hat, soll dieser natürlich
// vorgeblendet werden. Dazu muss dass ausgewählte Feld bis zum Namen abgeschnitten
// werden und erneut eine Suche erfolgen.
// Ausgewählter Eintrag zuweisen
//ComboBox1.Items.Clear;
gesamt := ComboBox1.Items[ComboBox1.ItemIndex];
for i := 1
to Length(gesamt)
do
begin
// Zeichen nacheinander dem Suchnamen zuweisen
if (gesamt[i] <> '
')
and not ende
then
begin
// in dem Fall ist der Suchname die Kundennummer
suchname := suchname + gesamt[i];
end
else
begin
ende := true;
end;
end;
kundensuch(kennzeichen);
ComboBox1.Clear;
end;
////////////////////////////////////////////////////////////////////////////////
// Kundenselektion
////////////////////////////////////////////////////////////////////////////////
function TFormAuftrag.kundensuch(
var kennzeichen: integer): integer;
begin
FormKunden.ADOQueryKunden.Active:= False;
FormKunden.ADOQueryKunden.Close;
if (kennzeichen = 2)
or (kennzeichen = 3)
then
begin
with FormKunden.ADOQueryKunden
do begin
SQL.Clear;
SQL.Add('
select * from kunden where kunden.name like "' + ComboBox1.Text + '
%"');
FormKunden.ADOQueryKunden.Active := True;
FormKunden.ADOQueryKunden.Open;
end;
end;
if (kennzeichen = 1)
and (combobox1.Text <> '
')
then
begin
with FormKunden.ADOQueryKunden
do begin
SQL.Clear;
SQL.Add('
select * from kunden where kunden.kunden_nummer = '+ suchname +'
');
FormKunden.ADOQueryKunden.Active := True;
FormKunden.ADOQueryKunden.Open;
end;
end;
if (kennzeichen = 1)
and (combobox1.Text = '
')
then
begin
with FormKunden.ADOQueryKunden
do begin
SQL.Clear;
SQL.Add('
select * from kunden');
FormKunden.ADOQueryKunden.Active := True;
FormKunden.ADOQueryKunden.Open;
end;
end;
result := kennzeichen;
end;
////////////////////////////////////////////////////////////////////////////////
// Änderung innerhalb der Combobox
////////////////////////////////////////////////////////////////////////////////
procedure TFormAuftrag.ComboBox1Change(Sender: TObject);
begin
// Der Suchname hier initialisiert bzw. er muss "geleert" werden damit die daten übernommen werden
suchname := '
';
// Kennzeichen 2 bedeutet das der Name aus dem Feld gesucht wird
kennzeichen := 2;
kundensuch(kennzeichen);
end;