Advertisement
Guest User

UMain.pas

a guest
Nov 16th, 2016
147
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. unit UMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  7.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Imaging.GIFImg,
  8.   Vcl.StdCtrls, Vcl.Imaging.pngimage, Data.DB, Data.Win.ADODB ;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     background: TImage;
  13.     edtUser: TEdit;
  14.     imgCheck: TImage;
  15.     imghelp: TImage;
  16.     Label1: TLabel;
  17.     ADOTable1: TADOTable;
  18.     ADOConnection1: TADOConnection;
  19.     Label2: TLabel;
  20.     Timer1: TTimer;
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure imgCheckClick(Sender: TObject);
  23.     procedure imghelpClick(Sender: TObject);
  24.     procedure FormActivate(Sender: TObject);
  25.     procedure Timer1Timer(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.     procedure Lbl1(desiredMessage: string);
  31.     procedure Lbl2(desiredMessage: string);
  32.   end;
  33.  
  34. var
  35.   Form1: TForm1;
  36.  
  37. implementation
  38.  
  39. {$R *.dfm}
  40.  
  41. uses UAfterrMain, backgroundWorker;
  42.  
  43.  
  44.  
  45. procedure TForm1.FormActivate(Sender: TObject);
  46. begin
  47.  Timer1.Enabled := False;
  48. end;
  49.  
  50. procedure TForm1.FormCreate(Sender: TObject);
  51. begin
  52. (background.Picture.Graphic as TGIFImage).Animate := True;
  53.  
  54.  
  55. end;
  56.  
  57. procedure TForm1.imgCheckClick(Sender: TObject);
  58. begin
  59.   ADOTable1.Active := True;
  60.   ADOTable1.First;
  61.    while not ADOTable1.Eof do
  62.     begin
  63.       if ADOTable1['Username'] = edtUser.Text then
  64.           begin
  65.             Form2.Show;
  66.             backgroundWorker.username := edtUser.Text;
  67.             Label1.Hide;
  68.             Label2.Hide;
  69.             Exit;
  70.           end
  71.           else
  72.           if (edtUser.Text = '') OR (edtUser.Text = ' ') then
  73.             begin
  74.              ADOTable1.Next;
  75.              Lbl1('Please enter a username!');
  76.             end
  77.           else
  78.            begin
  79.              ADOTable1.Next;
  80.              Lbl2('Incorrect username!');
  81.            end;
  82.     end;
  83.  
  84.  
  85.  
  86.  
  87. end;
  88.  
  89.  
  90. procedure TForm1.imghelpClick(Sender: TObject);
  91. begin
  92.     ShowMessage('Just enter your desired username in the box above!');
  93. end;
  94.  
  95. procedure TForm1.Lbl1(desiredMessage: string);
  96. begin
  97.   Label1.Show;
  98.   Timer1.Enabled := True;
  99.   Label1.Caption := desiredMessage;
  100. end;
  101.  
  102. procedure TForm1.Lbl2(desiredMessage: string);
  103. begin
  104.   Label2.Show;
  105.   Timer1.Enabled := True;
  106.   Label2.Caption := desiredMessage;
  107. end;
  108.  
  109. procedure TForm1.Timer1Timer(Sender: TObject);
  110. begin
  111.   Label1.Hide;
  112.   Label2.Hide;
  113. end;
  114.  
  115. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement