BVB Source Codes

Magnificent Delphi implementation interface game Lander Show LGetBackPassword.pas Source code

Return Download Magnificent Delphi implementation interface game Lander: download LGetBackPassword.pas Source code - Download Magnificent Delphi implementation interface game Lander Source code - Type:.pas
  1. unit LGetBackPassword;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, RzButton;
  8.  
  9. type
  10.   TfrmGetBackPassword = class(TForm)
  11.     GroupBox1: TGroupBox;
  12.     Label7: TLabel;
  13.     EditAnswer2: TEdit;
  14.     EditQuiz2: TEdit;
  15.     Label8: TLabel;
  16.     Label6: TLabel;
  17.     EditAnswer1: TEdit;
  18.     EditQuiz1: TEdit;
  19.     Label5: TLabel;
  20.     Label9: TLabel;
  21.     EditAccount: TEdit;
  22.     Label14: TLabel;
  23.     LabelStatus: TLabel;
  24.     Label1: TLabel;
  25.     EditPassword: TEdit;
  26.     Label2: TLabel;
  27.     EditBirthDay: TEdit;
  28.     ButtonOK: TRzButton;
  29.     procedure ButtonOKClick(Sender: TObject);
  30.     procedure Open();
  31.   private
  32.     { Private declarations }
  33.   public
  34.  
  35.     { Public declarations }
  36.   end;
  37.  
  38. var
  39.   frmGetBackPassword: TfrmGetBackPassword;
  40.  
  41. implementation
  42.  
  43. uses Main;
  44. var
  45.   dwOKTick:LongWord;
  46. {$R *.dfm}
  47.  
  48. { TfrmGetBackPassword }
  49.  
  50. procedure TfrmGetBackPassword.Open();
  51. begin
  52.   ButtonOK.Enabled:=True;
  53.   EditPassword.Text:='';
  54.   EditAccount.Text:='';
  55.   EditQuiz1.Text:='';
  56.   EditAnswer1.Text:='';
  57.   EditQuiz2.Text:='';
  58.   EditAnswer2.Text:='';
  59.   EditBirthDay.Text:='';
  60.   ShowModal;
  61. end;
  62. procedure TfrmGetBackPassword.ButtonOKClick(Sender: TObject);
  63. var
  64.   sAccount,sQuest1,sAnswer1,sQuest2,sAnswer2,sBirthDay:String;
  65. begin
  66.   if GetTickCount - dwOKTick < 10000 then begin
  67.     Application.MessageBox('请稍候10秒后再点确定!!!','提示信息',MB_OK + MB_ICONINFORMATION);
  68.     exit;
  69.   end;
  70.   dwOKTick:=GetTickCount();
  71.   sAccount:=Trim(EditAccount.Text);
  72.   sQuest1:=Trim(EditQuiz1.Text);
  73.   sAnswer1:=Trim(EditAnswer1.Text);
  74.   sQuest2:=Trim(EditQuiz2.Text);
  75.   sAnswer2:=Trim(EditAnswer2.Text);
  76.   sBirthDay:=Trim(EditBirthDay.Text);
  77.   if sAccount = '' then begin
  78.     Application.MessageBox('帐号输入不正确!!!','提示信息',MB_OK + MB_ICONINFORMATION);
  79.     EditAccount.SetFocus;
  80.     exit;
  81.   end;
  82.   if (sQuest1 = '') and (sAnswer1 = '') and (sQuest2 = '') and (sAnswer2 = '') then begin
  83.     Application.MessageBox('密码问答输入不正确!!!','提示信息',MB_OK + MB_ICONINFORMATION);
  84.     exit;
  85.   end;
  86.   if (sQuest1 = '') and (sAnswer1 = '') and (sQuest2 = '') and (sAnswer2 = '') then begin
  87.     Application.MessageBox('密码问答输入不正确!!!','提示信息',MB_OK + MB_ICONINFORMATION);
  88.     exit;
  89.   end;
  90.   if (sBirthDay = '') then begin
  91.     Application.MessageBox('出生日期输入不正确!!!','提示信息',MB_OK + MB_ICONINFORMATION);
  92.     EditBirthDay.SetFocus;
  93.     exit;
  94.   end;
  95.  
  96.   if sQuest1 = '' then sQuest1:='test';
  97.   if sAnswer1 = '' then sAnswer1:='test';
  98.   if sQuest2 = '' then sQuest2:='test';
  99.   if sAnswer2 = '' then sAnswer2:='test';
  100.  
  101.   MainForm.SendGetBackPassword(sAccount, sQuest1, sAnswer1,sQuest2,sAnswer2,sBirthDay);
  102.   ButtonOK.Enabled:=False;
  103. end;
  104.  
  105. end.
  106.  
downloadLGetBackPassword.pas Source code - Download Magnificent Delphi implementation interface game Lander Source code
Related Source Codes/Software:
Image selection/editing plug-in v2.0 Delphi Edition - This is a DELPHI graphics you want to use a plugin... 2012-02-18
Children's mathematical arithmetic software in Delphi source code - The count of pupils is perfect according to the on... 2012-02-18
Delphi screen touch cash register system source program - From the perspective of directory structure, this ... 2012-02-18
Delphi examples of using the Image control to display and draw text - The Delphi examples through the use of an Image co... 2012-02-18
Delphi kanji literacy software full version - Delphi pupils ' Chinese character recognition soft... 2012-02-18
Delphi source code enterprise generic invoicing system - A common IT industry enters sells saves management... 2012-02-18
Stamp making software Delphi source code - The DELPHI software is very clever, you can achiev... 2012-02-18
Features of Delphi good teaching management system - A written in DLEPHI language teaching management ... 2012-02-18
Scheduled reminder alarm clock Delphi source code v1.0 - Often sit beside the computer, long maintained a p... 2012-02-18
Delphi implementation of the PING network command class - It is written by an expert, the main class is the ... 2012-02-18
KesionIMALL v3.7 formal version online mall system - KESIONIMALLV3.7 online shop system, as a new e-com... 2016-08-19
KesionICMS intelligent website system (gm) v3.7 formal version - KESIONICMS intelligent building systems with a fle... 2016-08-19
KesionICMS intelligent website system (government) v3.7 formal version - Government Portal website construction Establish t... 2016-08-19
KesionICMS intelligent website system (enterprise edition) v3.7 formal version - KesionICMS intelligent website (enterprise edition... 2016-08-19
KesionICMS intelligent website system (school) v3.7 formal version - For school management web site, the kesion forward... 2016-08-19
Easy to point the content management system DianCMS v6.0.0 SQL version - Easy content management system (DianCMS) is based ... 2016-08-19
Ray speed v7.0 wage query system - To modify the software to conduct a comprehensive ... 2016-08-19
Address book v1.0 FaLiang three layer - This Demo is a three layer address book source cod... 2016-08-19
Deng Xi v2.4 website help system - Deng Xi website help system is a very useful help ... 2016-08-19
1.0 housing, rental housing sale platform - Rent housing rent out platform is a very typical r... 2016-08-19

 Back to top