login.pas

一款不错的商务程序商品管理系统,有简易的窗体皮肤

unit Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, DB, ADODB,Theme, jpeg, ExtCtrls;

type
  TFrm_Login = class(TBaseForm)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ADODataSet1: TADODataSet;
    Image1: TImage;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    procedure login;
  public
    { Public declarations }
  end;

var
  Frm_Login: TFrm_Login;

implementation
uses Main,DM;
{$R *.dfm}

{ TFrm_Login }

procedure TFrm_Login.login;
var
  i:Integer;
begin
  ADODataSet1.Active:=False;
  ADODataSet1.CommandText:='Select * From MR_User_Tab';
  ADODataSet1.Active:=True;
  for i:=0 to ADODataSet1.RecordCount-1 do
  begin
    ComboBox1.Items.Add(ADODataSet1.FieldByName('MR_Login').AsString);
    ADODataSet1.Next;
  end;
end;

procedure TFrm_Login.FormShow(Sender: TObject);
begin
  login;
end;

procedure TFrm_Login.SpeedButton1Click(Sender: TObject);
begin
  if ADODataSet1.Locate('MR_Login;MR_Pwd',vararrayof([ComboBox1.Text,Edit1.Text]),[locaseinsensitive]) then
  begin
    IsLogin:=True;
    UName:=Trim(ComboBox1.Text);
  end
  else
  begin
    Application.MessageBox('用户名或密码不正确！','明日科技');
    ComboBox1.SetFocus;
    Exit;
  end;
  Close;
end;

procedure TFrm_Login.SpeedButton2Click(Sender: TObject);
begin
  Close;
end;

procedure TFrm_Login.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    Edit1.SetFocus;
end;

procedure TFrm_Login.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    SpeedButton1.Click;
end;

end.