login.pas

PosEasy收银系统源码,Pos机前后台管理代码

unit login;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Db, DBTables;

type
  Tloginfm = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    GroupBox1: TGroupBox;
    Edit3: TEdit;
    Edit1: TEdit;
    Label2: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    Database1: TDatabase;
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loginfm: Tloginfm;

implementation
uses main;


{$R *.DFM}

procedure Tloginfm.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
   tmpsql:string;
begin
if key=vk_return then
 begin
  tmpsql:='select * from verifytab where username='''+trim(edit1.Text)+'''';
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add(tmpsql);
  query1.Prepare;
  try
    query1.Open;
  except
     begin
        messagebox(handle,'数据库连接失败,请检查','警告',mb_iconwarning);
        exit;
     end;
  end;
  if query1['password']<>trim(edit3.Text) then
     begin
        messagebox(handle,'您无权进行操作,或者密码错误!','警告',mb_iconwarning);
        exit;
     end
  else
     begin
        application.CreateForm(tmainfm,mainfm);
        mainfm.show;
        loginfm.hide;
     end

 end;
end;


procedure Tloginfm.BitBtn1Click(Sender: TObject);
var
   tmpsql:string;
begin
   tmpsql:='select * from verifytab where username='''+trim(edit1.Text)+'''';
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add(tmpsql);
  query1.Prepare;
  try
    query1.Open;
  except
     begin
        messagebox(handle,'数据库连接失败,请检查','警告',mb_iconwarning);
        exit;
     end;
  end;
  if query1['password']<>trim(edit3.Text) then
     begin
        messagebox(handle,'您无权进行操作,或者密码错误!','警告',mb_iconwarning);
        exit;
     end
  else
     begin
        application.CreateForm(tmainfm,mainfm);
        mainfm.show;
        loginfm.hide;
     end

 end;


procedure Tloginfm.BitBtn2Click(Sender: TObject);
begin
   loginfm.release;
   loginfm.close;
end;

end.