login_un.pas

来自「手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能」· PAS 代码 · 共 81 行

unit login_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmbase_un, bsMessages, bsSkinData, BusinessSkinForm,
  bsSkinCtrls, StdCtrls, Mask, bsSkinBoxCtrls, bsdbctrls, DB, ADODB;

type
  Tlogin_frm = class(Tbase_frm)
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinPasswordEdit1: TbsSkinPasswordEdit;
    tbl_account: TADOTable;
    ds_account: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinPasswordEdit1KeyPress(Sender: TObject; var Key: Char);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login_frm: Tlogin_frm;

implementation
      uses data_un,golb,main_un;
{$R *.dfm}

procedure Tlogin_frm.FormCreate(Sender: TObject);
begin
  inherited;
tbl_account.Open;

end;

procedure Tlogin_frm.bsSkinButton3Click(Sender: TObject);
begin
  inherited;
golb.account:=3;
close;
end;

procedure Tlogin_frm.bsSkinButton2Click(Sender: TObject);
var main:Tmain_frm;
begin
  inherited;
if bsSkinPasswordEdit1.Text=Trim(tbl_account.FieldValues['pass']) then
begin
      if Trim(bsSkinDBLookupComboBox4.KeyValue)='管理员' then
        golb.account:=1
        else
        golb.account:=2;

close;
end
else
bsSkinMessage1.MessageDlg('密码错误，请重新输入',mtWarning,[mbYes],0);

end;


procedure Tlogin_frm.bsSkinPasswordEdit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
if key=#13 then
     bsSkinButton2Click(Sender) ;
end;

end.