Vil ikke overføre data til ny form.
Hej eksperterJeg har lavet en lille søgemaskine hvor jeg bruger et dbgrid.
når så jeg søger på en ting og hvis der er flere hits vil jeg ligemeget hvad kunne klikke på den kollonne jeg skal bruge og derved åbne en ny form hvor at indholdet bliver vist.
Jeg har lavet følgende kode og det er fra søgemaskinen.
procedure TForm5.Button1Click(Sender: TObject);
begin
if php.Checked = true then
begin
if php1.Locate('k_title', edit1.Text, []) = true then
begin
php1.Close;
php1.SQL.Text:='select * from kode where k_title like "%'+edit1.text+'%"';
php1.Open;
dbgrid2.Visible:=true;
dbgrid1.Visible:=false;
dbgrid3.Visible:=false;
end
else
showmessage('PHP koden findes ikke...');
end;
if email.Checked = true then
begin
if email1.Locate('email', edit1.Text, [])=true then
begin
email1.Close;
email1.SQL.Text:='select * from mail where email like "%'+edit1.Text+'%"';
email1.Open;
dbgrid2.Visible:=false;
dbgrid3.Visible:=false;
dbgrid1.Visible:=true;
end
else
showmessage('Email opsætning findes ikke...');
end;
if delphi.Checked = true then
begin
if delphi1.Locate('d_title', edit1.Text, []) = true then
begin
delphi1.Close;
delphi1.SQL.Text:='select * from delphi where d_title like "%'+edit1.Text+'%"';
delphi1.Open;
dbgrid1.Visible:=false;
dbgrid2.Visible:=false;
dbgrid3.Visible:=true;
end
else
showmessage('Delphi koden findes ikke i systemet...');
end;
end;
procedure TForm5.DBGrid1CellClick(Column: TColumn);
begin
form6.show;
end;
her kommer koden fra det vindue hvor at jeg gerne vil have vist indholdet fra den kollonne jeg klikker på.
procedure TForm6.FormCreate(Sender: TObject);
begin
statictext1.Caption:=form5.DBGrid1.Fields[pop3].AsString;
statictext2.Caption:=form5.DBGrid1.Fields[smpt].AsString;
statictext3.Caption:=form5.DBGrid1.Fields[email].AsString;
statictext4.Caption:=form5.DBGrid1.Fields[navn].AsString;
statictext5.Caption:=form5.DBGrid1.Fields[bruger].AsString;
statictext6.Caption:=form5.DBGrid1.Fields[pass].AsString;
end;
Jeg håber i kan hjælpe mig og på forhånd tak for hjælpen.
Delphiuser