carun.pas

超级简单的管理系统

unit CarUn;

interface

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

type
  TLoginfrm = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label7Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);

  


  private
    { Private declarations }
    flag:integer;
  public
    { Public declarations }
  end;

var
  Loginfrm: TLoginfrm;
      i:integer;

implementation
 uses unit1;
{$R *.dfm}

procedure TLoginfrm.SpeedButton1Click(Sender: TObject);
begin
inc(flag);
if edit1.Text='1' then
begin
if edit2.Text ='1' then
     begin
         frmServer.Show;
         self.Hide;
      end
        else
       begin
         showmessage('密码不正确!') ;
        end

end
else
begin
showmessage('用户名不正确！！') ;
end ;
if flag=4 then
begin
showmessage('3次密码登陆错误，请稍后登陆！');
edit1.Enabled:=false;
edit2.Enabled:=false;
Application.Terminate;
end;
end;
procedure TLoginfrm.SpeedButton2Click(Sender: TObject);
begin
   Loginfrm.Close;
end;

procedure TLoginfrm.SpeedButton3Click(Sender: TObject);
begin
self.Color:=clBtnText;
panel1.Color:=clBtnText;
label1.Font.Color:=clYellow;
label2.Font.Color:=clYellow;
label3.Font.Color:=clYellow;
 SpeedButton1.Transparent:=false;
 SpeedButton2.Transparent:=false;
 SpeedButton3.Transparent:=false;
  SpeedButton4.Transparent:=false;
   SpeedButton5.Transparent:=false;



end;

procedure TLoginfrm.SpeedButton4Click(Sender: TObject);
begin
 self.Color:=clTeal;
panel1.Color:=clTeal;
label1.Font.Color:=clPurple;
label2.Font.Color:=clPurple;
label3.Font.Color:=clPurple;
 SpeedButton1.Transparent:=false;
 SpeedButton2.Transparent:=false;
 SpeedButton4.Transparent:=false;
   SpeedButton4.Transparent:=false;
   SpeedButton5.Transparent:=false;
end;

procedure TLoginfrm.SpeedButton5Click(Sender: TObject);
begin
self.Color:=clPurple;
panel1.Color:=clPurple;
label1.Font.Color:=cllime;
label2.Font.Color:=cllime;
 label3.Font.Color:=cllime;
 SpeedButton1.Transparent:=false;
 SpeedButton2.Transparent:=false;
 SpeedButton5.Transparent:=false;
   SpeedButton4.Transparent:=false;
   SpeedButton5.Transparent:=false;

end;



procedure TLoginfrm.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     self.Color:=clBtnText;
panel1.Color:=clBtnText;
label1.Font.Color:=clYellow;
label2.Font.Color:=clYellow;
label3.Font.Color:=clYellow;
label7.Font.Color:=clYellow;

 SpeedButton1.Transparent:=false;
 SpeedButton2.Transparent:=false;
 SpeedButton3.Transparent:=false;
  SpeedButton4.Transparent:=false;
   SpeedButton5.Transparent:=false;

end;

procedure TLoginfrm.Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
self.Color:=clPurple;
panel1.Color:=clPurple;
label1.Font.Color:=cllime;
label2.Font.Color:=cllime;
 label3.Font.Color:=cllime;
 SpeedButton1.Transparent:=false;
 SpeedButton2.Transparent:=false;
 SpeedButton5.Transparent:=false;
   SpeedButton4.Transparent:=false;
   SpeedButton5.Transparent:=false;
end;

procedure TLoginfrm.Label6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
self.Color:=clTeal;
panel1.Color:=clTeal;
label1.Font.Color:=clPurple;
label2.Font.Color:=clPurple;
label3.Font.Color:=clPurple;
 SpeedButton1.Transparent:=false;
 SpeedButton2.Transparent:=false;
 SpeedButton4.Transparent:=false;
   SpeedButton4.Transparent:=false;
   SpeedButton5.Transparent:=false;
   
end;

procedure TLoginfrm.Label7Click(Sender: TObject);
begin
showmessage('优点科技网络公司');
end;




procedure TLoginfrm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if(Key=#13)then
edit2.SetFocus;

end;

procedure TLoginfrm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if (key<>#8) and (not(key in ['0'..'9']) and (key<>'.')) then
begin
key:=#0;
showmessage('只能输入数字!');
end;
end;

end.