Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit UMain;
- interface
- uses
- Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
- Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Imaging.GIFImg,
- Vcl.StdCtrls, Vcl.Imaging.pngimage, Data.DB, Data.Win.ADODB ;
- type
- TForm1 = class(TForm)
- background: TImage;
- edtUser: TEdit;
- imgCheck: TImage;
- imghelp: TImage;
- Label1: TLabel;
- ADOTable1: TADOTable;
- ADOConnection1: TADOConnection;
- Label2: TLabel;
- Timer1: TTimer;
- procedure FormCreate(Sender: TObject);
- procedure imgCheckClick(Sender: TObject);
- procedure imghelpClick(Sender: TObject);
- procedure FormActivate(Sender: TObject);
- procedure Timer1Timer(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- procedure Lbl1(desiredMessage: string);
- procedure Lbl2(desiredMessage: string);
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.dfm}
- uses UAfterrMain, backgroundWorker;
- procedure TForm1.FormActivate(Sender: TObject);
- begin
- Timer1.Enabled := False;
- end;
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- (background.Picture.Graphic as TGIFImage).Animate := True;
- end;
- procedure TForm1.imgCheckClick(Sender: TObject);
- begin
- ADOTable1.Active := True;
- ADOTable1.First;
- while not ADOTable1.Eof do
- begin
- if ADOTable1['Username'] = edtUser.Text then
- begin
- Form2.Show;
- backgroundWorker.username := edtUser.Text;
- Label1.Hide;
- Label2.Hide;
- Exit;
- end
- else
- if (edtUser.Text = '') OR (edtUser.Text = ' ') then
- begin
- ADOTable1.Next;
- Lbl1('Please enter a username!');
- end
- else
- begin
- ADOTable1.Next;
- Lbl2('Incorrect username!');
- end;
- end;
- end;
- procedure TForm1.imghelpClick(Sender: TObject);
- begin
- ShowMessage('Just enter your desired username in the box above!');
- end;
- procedure TForm1.Lbl1(desiredMessage: string);
- begin
- Label1.Show;
- Timer1.Enabled := True;
- Label1.Caption := desiredMessage;
- end;
- procedure TForm1.Lbl2(desiredMessage: string);
- begin
- Label2.Show;
- Timer1.Enabled := True;
- Label2.Caption := desiredMessage;
- end;
- procedure TForm1.Timer1Timer(Sender: TObject);
- begin
- Label1.Hide;
- Label2.Hide;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement