Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit Unit1;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs,Unit2, StdCtrls,Unit3, DB, ADODB;
- type
- TForm1 = class(TForm)
- Button1: TButton;
- Label1: TLabel;
- Label2: TLabel;
- Edit1: TEdit;
- Edit2: TEdit;
- ADOQuery1: TADOQuery;
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- var
- Form2:TForm2;
- implementation
- {$R *.dfm}
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- Unit2.Form2.Show;
- ADOQuery1.SQL.Clear;
- ADOQuery1.SQL.Text:= 'SELECT* from Users where UserName=:username and password=:password';
- ADOQuery1.Parameters.ParamByName('username').Value:=Edit1.Text;
- ADOQuery1.Parameters.ParamByName('password').Value:=Edit2.Text;
- ADOQuery1.Open;
- if not ADOQuery1.isEmpty then
- showmessage('Success')
- else
- showmessage('Fail')
- //showmessage('Welcome!');
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement