Passing values from form 1 to form2 in delphi

Question

3.00/5 (1 vote)

See more:

I would like to pass the Values below in form1 that are assigned to the variables userid, name and privilege to form2 . How do i do that? please help

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 name,pasword, privilege:string;
     UserId: Integer;

begin

        IBQuery1.SQL.clear;
        IBQuery1.SQL.add('Select * from USER_ACCESS where USERID = '+ edit1.Text+'') ;
        IBQuery1.Active := true;
        UserId := IBQuery1.FieldByname('USERID').AsInteger;
        pasword:= IBQuery1.Fieldbyname('PASWORD').AsString;
     name := IBQuery1.fieldbyname('NAME').AsString;
        privilege := IBQuery1.fieldbyname('USERTYPE').AsString;
        if((UserId = StrToInt(edit1.Text)) And (pasword = edit2.Text))
         THEN
          begin
        ShowMessage('login Successful ' + name);
   Form2.Show;
   Form1.Hide;

        end

        else
        ShowMessage('Wrong Password');

        end;

Posted 2-Sep-13 5:05am

Levy Mpyana

Add a Solution

2 solutions

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Sergey Alexandrovich Kryukov · Accepted Answer · 2013-09-02T06:48:00

In your question, it's not quite clear where is the form types, and where are the instances of the forms. First of all, avoid naming like TForm1, Form1, etc. Give everything semantic names. I assume you already passes some instance of TForm2 to Form1, and the names of the instances match the names of the types (this is not apparent from your question; if you use automatically generating names, it should be the case, but you should not use such names).

Now, you need to have appropriate member(s) of Form2 to accept the values you need to pass, and make those members accessible (public). Then just do the assignment. The problem of using the form instances is this: it compromises type encapsulation. When you pass an instance to the form to other form, you usually pass too much of access. The really robust solution is to declare an interface for such collaboration and implement it in one of the forms. Then, you can pass the interface pointer (reference) to other form, giving the access only through the interface members (methods or properties).

I hope you know how to declare and implement interfaces.

—SA

ridoy · Accepted Answer · 2013-09-02T07:06:00

Solution 2

Check these two:
passing value from form 1 to form2[^]
Passing variables between forms[^]

Posted 2-Sep-13 7:06am

ridoy

Passing values from form 1 to form2 in delphi

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0

Passing values from form 1 to form2 in delphi

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0

Existing Members

...or Join us