loginform.pas

delphi开发

unit loginform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,inifiles, ExtCtrls, TFlatComboBoxUnit, Buttons;

type
  Tloginfrm = class(TForm)
    Label1: TLabel;
    comusername: TFlatComboBox;
    edtpwd: TLabeledEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Shape3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Shape7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Shape8MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure edtpwdKeyPress(Sender: TObject; var Key: Char);
    procedure comusernameKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loginfrm: Tloginfrm;
  count:integer;
  bkcolor:tcolor;
  userfile:string;
  ismodi:boolean;
implementation
  uses smsdll, regform;
{$R *.dfm}

procedure Tloginfrm.SpeedButton3Click(Sender: TObject);
begin
  application.Terminate;
  close;
end;

procedure Tloginfrm.SpeedButton2Click(Sender: TObject);
var
   i:integer;
   b:boolean;
begin
  if trim(comusername.Text)='' then
  begin
      messagebox(handle,'你没有输入用户名。','错误',mb_ok or mb_iconwarning);
      exit;
  end;
  b:=false;
  for i:=1 to count do
  begin
      if trim(comusername.Text)=userinfo[i-1].name then
         if trim(edtpwd.Text)=userinfo[i-1].password then
         begin
             b:=true;
             break;
         end
         else
             break;
  end;
  if not b then
  begin
      messagebox(handle,'错误的用户名或用户密码。','错误',mb_ok or mb_iconwarning);
      exit;
  end;
  curuser:=userinfo[i-1];
  close;
end;

procedure Tloginfrm.FormShow(Sender: TObject);
begin
  bkcolor:=clinfobk;
  ismodi:=false;
  shape3.Pen.Color :=bkcolor;
  shape4.Pen.Color :=bkcolor;
  shape5.Pen.Color :=bkcolor;
  shape6.Visible :=true;
  shape7.Visible :=true;
  shape8.Visible :=true;
  userfile:=extractfilepath(application.ExeName)+'userlist.ini';
  userini:=tinifile.Create(userfile);
  readuserini;
  comusername.SetFocus;
  if comusername.Items.Count >0 then
    comusername.Itemindex:=0;
end;

procedure Tloginfrm.SpeedButton1Click(Sender: TObject);
begin
  loginfrm.OnMouseMove(sender,[ssleft],0,0);
  regfrm.showmodal;
end;

procedure Tloginfrm.Shape3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  shape3.Pen.Color :=clblue;
  shape6.Visible :=false;
end;

procedure Tloginfrm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  shape3.Pen.Color :=bkcolor;
  shape4.Pen.Color :=bkcolor;
  shape5.Pen.Color :=bkcolor;
  shape6.Visible :=true;
  shape7.Visible :=true;
  shape8.Visible :=true;
end;

procedure Tloginfrm.SpeedButton2MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  shape4.Pen.Color :=clblue;
end;

procedure Tloginfrm.SpeedButton3MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  shape5.Pen.Color :=clblue;
end;

procedure Tloginfrm.Shape7MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  shape7.Visible :=false;
end;

procedure Tloginfrm.Shape8MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  shape8.Visible :=false;
end;

procedure Tloginfrm.edtpwdKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
     speedbutton2.OnClick(sender);
end;

procedure Tloginfrm.comusernameKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    edtpwd.SetFocus;
    edtpwd.SelectAll;
  end;
end;

end.