www.pudn.com > 短信发送2.0.rar > loginform.pas

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.