Login form code;
unit Login;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Soap.EncdDecd,
Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
AuthenticodeGenerate, uniImage, Vcl.ExtCtrls, cl_crypt32,
uniGUIClasses, uniGUIRegClasses, uniGUIForm, uniButton, uniEdit,
uniGUIBaseClasses, uniGroupBox, Data.DB, MemDS, DBAccess, Uni,
uniPanel, uniStatusBar, uniTimer, uniLabel,uniGUIJSUtils, HTTPApp;
type
TUniLoginFrm = class(TUniLoginForm)
admin_pass: TUniEdit;
LoginBut: TUniButton;
admin_id: TUniEdit;
UniEdit1: TUniEdit;
UniQuery1: TUniQuery;
UniPanel1: TUniPanel;
UniImage1: TUniImage;
UniEdit3: TUniEdit;
UniButton2: TUniButton;
UniTimer1: TUniTimer;
UniPanel2: TUniPanel;
UniPanel3: TUniPanel;
UniPanel4: TUniPanel;
UniPanel5: TUniPanel;
procedure UniButton2Click(Sender: TObject);
procedure UniImage1Click(Sender: TObject);
procedure LoginButClick(Sender: TObject);
procedure UniLoginFormCreate(Sender: TObject);
procedure UniTimer1Timer(Sender: TObject);
procedure UniLoginFormActivate(Sender: TObject);
procedure UniEdit3KeyPress(Sender: TObject; var Key: Char);
procedure UniLoginFormReady(Sender: TObject);
procedure LoginButAjaxEvent(Sender: TComponent; EventName: string; Params: TUniStrings);
private
{ Private declarations }
Authenticode: string;
public
{ Public declarations }
ps: string;
end;
function UniLoginFrm: TUniLoginFrm;
implementation
{$R *.dfm}
uses
uniGUIVars, MainModule, uniGUIApplication, IdHashMessageDigest, Main, ServerModule;
function UniLoginFrm: TUniLoginFrm;
begin
Result := TUniLoginFrm(UniMainModule.GetFormInstance(TUniLoginFrm));
end;
function MD5(const str: string): String;
var
AMD5: TIdHashMessageDigest5;
begin
try
AMD5 := TIdHashMessageDigest5.Create;
Result := AMD5.HashStringAsHex(str);
finally
AMD5.Free;
end;
end;
procedure TUniLoginFrm.LoginButAjaxEvent(Sender: TComponent; EventName: string;
Params: TUniStrings);
var
s: String;
begin
if EventName = 'click' then
begin
If (POS('_fp_', Params.Text) > 0) then
Params.Clear;
end;
end;
procedure TUniLoginFrm.LoginButClick(Sender: TObject);
var
org_names: string;
begin
org_names := '';
UniMainModule.login_name := '';
UniMainModule.fdmemTable1.Active := false;
UniQuery1.Active := false;
UniQuery1.SQL.Text := 'select * from ss_users where (customer_id=' + chr(39) + UniEdit1.Text +
chr(39) + ') and (user_account =' + chr(39) + admin_id.Text + chr(39) +
') and (user_pass=' + chr(39) + MD5(admin_pass.Text) + chr(39) + ')';
UniQuery1.Open;
if UniQuery1.RecordCount <> 0 then
begin
if LowerCase(UniEdit3.Text) = Authenticode.ToLower then // 校验码
begin
UniTimer1.Enabled := false;
UniMainModule.customer_id := UniEdit1.Text;
UniMainModule.org_name := org_names;
UniMainModule.login_name := admin_id.Text;
ModalResult := mrok;
MainForm.UniStatusBar1.Panels[0].Text := org_names;
end
else
begin
UniTimer1.Enabled := true;
UniPanel3.Caption := '校验码码不正确！请重新输入。';
UniImage1Click(self);
UniEdit1.SetFocus;
end;
end
else
begin
showmessageN('登录信息有误，请重新输入！');
UniImage1Click(self);
UniEdit1.SetFocus;
end;
end;
procedure TUniLoginFrm.UniButton2Click(Sender: TObject);
begin
ModalResult := mrCancel;
end;
procedure TUniLoginFrm.UniEdit3KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
LoginButClick(self);
end;
procedure TUniLoginFrm.UniImage1Click(Sender: TObject);
var
img1: TImage;
begin
img1 := TImage.Create(self);
try
img1.Height := UniImage1.Height;
img1.Width := UniImage1.Width;
Authenticode := GenerateAuthenticode(img1, 4);
UniImage1.Picture.Bitmap.Assign(img1.Picture.Bitmap);
finally
FreeAndNil(img1);
end;
end;
procedure TUniLoginFrm.UniLoginFormActivate(Sender: TObject);
begin
UniTimer1.Enabled := true;
end;
procedure TUniLoginFrm.UniLoginFormCreate(Sender: TObject);
var
ns, dwid: string;
begin
admin_pass.Text := cl_decrypt(UniApplication.Cookies.Values['pw']);
ns := cl_decrypt(UniApplication.Cookies.Values['UName']);
dwid := UniApplication.Cookies.Values['DWID'];
if ns <> '' then
admin_id.Text := ns;
if dwid <> '' then
UniEdit1.Text := dwid;
UniImage1Click(self);
end;
procedure TUniLoginFrm.UniLoginFormReady(Sender: TObject);
begin
if UniServerModule.ProtectDataList.IndexOfName(admin_id.Name) <= 0 then
UniServerModule.ProtectDataList.Add(admin_id.Name + '=' + admin_id.JSName)
// add JSName of Element for UserName
else
UniServerModule.ProtectDataList.Values[admin_id.Name] := admin_id.JSName;
if UniServerModule.ProtectDataList.IndexOfName(admin_pass.Name) <= 0 then
UniServerModule.ProtectDataList.Add(admin_pass.Name + '=' + admin_pass.JSName)
// add JSName of Element for UserPass
else
UniServerModule.ProtectDataList.Values[admin_pass.Name] := admin_pass.JSName;
end;
procedure TUniLoginFrm.UniTimer1Timer(Sender: TObject);
begin
UniImage1Click(self);
end;
initialization
RegisterAppFormClass(TUniLoginFrm);
end.
