Avatar billede delphiuser Mester
28. april 2006 - 19:46 Der er 20 kommentarer og
1 løsning

hjælp til login

Jeg er ved at lave et login i delphi 6

Jeg har fået lavet min connection til den database jeg kalder for user. Men nu har jeg bare det problem at det jeg skriver i brugernavn og i password feltet gerne skulle findes i databasen.

så hvis nogen vil hjælpe mig med det bliver jeg glad. her kommer selve min login form med hvad jeg har brugt af componenter...

********************************************************************************

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, ADODB;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    brugernavn: TEdit;
    password: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOConnection1: TADOConnection;
    Table1: TTable;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);
begin
Form3.Show;
end;
********************************************************************************

er det muligt at når man er logget in at ens navn kan stå i status linien i panel 2?
end.
Avatar billede snowball Novice
28. april 2006 - 20:01 #1
http://www.eksperten.dk/spm/705389 <-- Er det også dig? Det er som bekendt ikke tilladt at have flere brugere.

Snowball / CoAdmin
Avatar billede delphiuser Mester
28. april 2006 - 20:11 #2
den anden er ved at blive lukket ned...
Avatar billede snowball Novice
28. april 2006 - 20:59 #3
Hvis du vil skifte bruger, så skal den første være lukket helt ned inden du må oprette en ny.
Avatar billede vallemanden Nybegynder
28. april 2006 - 23:37 #4
Ja det er muligt med noget hen af
StatusBar1.Panels[5].text:=Loginform.useredit.text;
Avatar billede delphiuser Mester
30. april 2006 - 09:48 #5
vallemanden:

ude fra min kode hvad skal jeg da gøre der? Button1 er min login knap...

kan du ud fra min kode jeg har sat ind guide mig igennem? sådan at det kommer til at virke?
Avatar billede vallemanden Nybegynder
30. april 2006 - 17:24 #6
Først kan jeg IKKE se du har en statusbar på Form2, så den skal du have på først

procedure TForm2.Button1Click(Sender: TObject);
begin
StatusBar1.Panels[1].text:=brugernavn.text;
end;
Avatar billede delphiuser Mester
30. april 2006 - 20:43 #7
vallemanden min statusbar er på form1 du skal logge på for at komme videre til form1 hvor at dit brugernavn skal stå i min statusbar
Avatar billede vallemanden Nybegynder
01. maj 2006 - 07:36 #8
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.StatusBar1.Panels[1].text:=brugernavn.text;
end;

Ellers ved jeg ikke hvad det er du er ude efter og kan ikke hjælpe dig sorry
Avatar billede delphiuser Mester
01. maj 2006 - 07:40 #9
når jeg trykker på login knappen det vil sige Tform2.button1Click
skal den vel lave noget foruden at gå videre til form1 og lukke form2

den skal vel have noget kode så den kan hente bruger oplysningerne fra databesen der hedder user.db

jeg er ude efter at finde ud af hvordan jeg programmere det så den henter dine brugeroplysniger og placere dit brugernavn i statusbaren
Avatar billede vallemanden Nybegynder
01. maj 2006 - 07:52 #10
det er da også det den kode gør(bare ikke fra databasen)Den henter det der er intastet som brugernavn

procedure TForm2.Button1Click(Sender: TObject);
begin
form1.StatusBar1.Panels[1].text:=brugernavn.text;
Form1.show;
Form2.Close;
end;
Avatar billede delphiuser Mester
01. maj 2006 - 07:56 #11
ok man skal have den til at hente fra min database der hedder user.db
Avatar billede vallemanden Nybegynder
01. maj 2006 - 07:58 #12
undskyld mig men hvorfor skal den hente det fra din DB?
Du har jo den oplysning du søger i Brugernavn.text
Avatar billede vallemanden Nybegynder
01. maj 2006 - 08:02 #13
Query1.close;
Query1.sql.clear;
Query1.sql.add('Select * From User');
Query1.open;

Query1.locate('usernavn',Brugernavn.text,[]);

form1.StatusBar1.Panels[1].text:=Query1.fieldbyname('usernavn').AsString;

(usernavn ændres til field navnet i din DB)
Avatar billede delphiuser Mester
01. maj 2006 - 08:03 #14
det er fordi jeg også skal bruge et password
Avatar billede vallemanden Nybegynder
01. maj 2006 - 08:04 #15
øhh??

"er det muligt at når man er logget in at ens navn kan stå i status linien i panel 2?
"
Avatar billede vallemanden Nybegynder
01. maj 2006 - 08:06 #16
Query1.close;
Query1.sql.clear;
Query1.sql.add('Select * From User');
Query1.open;

Query1.locate('usernavn',Brugernavn.text,[]);

pass:=Query1.fieldbyname('password').AsString;

(pass er en string variabel)
(password skiftes ud med feltet i din tabel som du skal bruge)

du kan evt. kontakte mig på MSN brian@night.dk
Avatar billede delphiuser Mester
01. maj 2006 - 08:07 #17
men du vil mene det er bedst uden database når man skal ind i programmet?
Avatar billede vallemanden Nybegynder
01. maj 2006 - 08:08 #18
nej da!!

jeg gik bare ud fra at du havde lavet din login, og bare skulle bruge brugernavnet
Avatar billede delphiuser Mester
01. maj 2006 - 08:12 #19
er det når jeg trykker på login knappen at den kode du har sendt skal stå?
Avatar billede vallemanden Nybegynder
01. maj 2006 - 08:13 #20
ja, hvis du har lavet din connect

bruger du MSN?
Avatar billede delphiuser Mester
01. maj 2006 - 08:13 #21
ja det gør jeg
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester