login.pas

很好的药店进销存系统

unit login;

interface

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

type
  Tlogin_Form = class(TForm)
    yhm_LEdit: TLabeledEdit;
    mm_LEdit: TLabeledEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure mm_LEditKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    loginok:boolean;
  end;

var
  login_Form: Tlogin_Form;

implementation

uses data;

{$R *.dfm}

procedure Tlogin_Form.Button1Click(Sender: TObject);
var
    yhm,mm,sqlstr:string;
begin
    yhm:=trim(yhm_LEdit.Text);
    mm:=trim(mm_LEdit.Text);
    sqlstr:='select * from 系统用户 where(编号='''+yhm+''')and(口令='''+mm+''')';
    if (length(yhm)>0) or (length(mm)>0) then
    begin
        with TQuery.Create(nil) do
        try
        Close;
        SessionName:=DM_form.Database1.SessionName;
        DatabaseName:=DM_form.Database1.DatabaseName;
        SQL.Clear;
        SQL.Add(sqlstr);
        Open;
        if RecordCount > 0 then
        begin
            DM_form.yhm:=fieldbyname('编号').AsString;
            DM_form.qx:=fieldbyname('权限').AsString;
            loginok:=true;
        end
        else
        begin
            loginok:=false;
            showmessage('请确认登录的用户名和密码是否正确！');
            yhm_ledit.SelectAll;
        end;
        finally
        Free;
        end;
        Close;
    end
    else
    begin
        showmessage('请输入登录用户名和密码！');
        yhm_ledit.SelectAll;
    end;
end;

procedure Tlogin_Form.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
        key:=#0;
        perform(WM_NEXTDLGCTL,0,0);
    end;
end;

procedure Tlogin_Form.mm_LEditKeyPress(Sender: TObject; var Key: Char);
begin
    if key = #13 then
        Button1.Click;
end;

end.