login.pas

中国移动集群网销售资料录入管理系统。 包含集群网用户录入

unit login;

interface

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

type
  TFormLogin = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormLogin: TFormLogin;

implementation
uses datamodule;
{$R *.dfm}

procedure TFormLogin.FormCreate(Sender: TObject);
begin
  Image1.Picture.LoadFromFile(DM.install_dir + 'logo.bmp');
end;

procedure TFormLogin.Button1Click(Sender: TObject);
var oper, pass: string;
begin
  oper := trim(Edit1.Text);
  if (oper <> '') and (trim(Edit2.Text) <> '') then begin
    pass := trim(DM.getrsstring('select Password from users where Username=''' + oper + ''''));
    if pass = trim(Edit2.Text) then
      ModalResult := mrOK
    else
      ShowMessage('用户名或密码不正确，请重新输入！(密码区分大小写)');
  end
  else
    ShowMessage('请输入用户名和密码');
end;

procedure TFormLogin.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then Edit2.SetFocus;
end;

procedure TFormLogin.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then Button1.SetFocus;
end;

procedure TFormLogin.FormShow(Sender: TObject);
begin
  Edit1.SetFocus;
end;

end.