05. april 2012 - 20:59Der er
5 kommentarer og 1 løsning
hent billed fra sti i db
Hej eksperter
Jeg er igang med at lave et lille program hvor jeg har et lille problem i mit login.
Når man bliver oprettet som bruger i systemet bliver der gemt en sti til et billed som er valgt. når så du logger ind skal den sammen med det informationer jeg vælger der skal vises og hentes et billed frem. men kan ikke få det til at virker. håber i kan hjælpe mig.
min kode ser sådan her ud.
procedure TForm2.Button1Click(Sender: TObject); begin if login.Locate('user',edit1.Text, [])=true then begin if login.Locate('pass',edit2.Text, [])=true then begin form1.label5.caption:=login.FieldByName('name').AsString; form1.Label6.Caption:=login.FieldByName('tlf').AsString; form1.Label8.Caption:=login.FieldByName('adgang').AsString; form1.Memo1.Text:=login.FieldByName('info').AsString; form1.StatusBar1.Panels[1].Text:=login.FieldByName('name').AsString; form1.StatusBar1.Panels[3].Text:='Online'; form1.GroupBox1.Visible:=true; form1.Image2.Picture:=login.FieldByName('pic').AsString; close; end; end;
end;
Jeg ved ikke hvad jeg har gjort forkert men håber i kan hjælpe mig.
sådan her ser min kode ud når jeg opretter en person i systemet. tænkte det ville være rart at vide...
procedure TForm3.Button2Click(Sender: TObject); begin if edit2.Text = edit3.Text then begin user.Insert; user.FieldByName('user').AsString:=edit1.text; user.FieldByName('pass').AsString:=edit2.text; user.FieldByName('name').AsString:=edit4.text; user.FieldByName('mail').AsString:=edit5.text; user.FieldByName('tlf').AsString:=edit6.text; user.FieldByName('pic').AsString:=edit7.text; user.FieldByName('adgang').AsString:=combobox1.text; user.FieldByName('info').AsString:=memo1.text; user.Post; close; end else showmessage('Adgangskoden er ikke ens...'); end;
ville nok være rart at vide i tilfælde af at den skal rettes til...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
