yhloginpas.~pas

来自「本软件是一套功能完整成熟的固定资产管理系统,具有固定资产管理系统的相应全部功能」· ~PAS 代码 · 共 104 行

unit yhloginpas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls, XP_Form, XP_Button,
  XP_GroupBox;

type
  Tw_login = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    DataSource1: TDataSource;
    XP_Form1: TXP_Form;
    Panel2: TPanel;
    XP_Button1: TXP_Button;
    XP_Button2: TXP_Button;
    XP_GroupBox1: TXP_GroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    Edit3: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure XP_Button1Click(Sender: TObject);
    procedure XP_Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  w_login: Tw_login;

implementation

uses datapas;


{$R *.dfm}

procedure Tw_login.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8,#13]) then
begin
key:=#0;
beep;
end else
if (key=#13) and (edit1.text<>'') then
begin  //查询是否有此用户
with hjzcdata.yhdlcx do
begin
close;
parameters.parambyname('zybm').value:=edit1.text;
prepared;
open;
end;
if not hjzcdata.yhdlcx.isempty then
edit3.setfocus;
end;
end;

procedure Tw_login.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then xp_button1.SetFocus;
end;

procedure Tw_login.FormShow(Sender: TObject);
begin
hjzcdata.yhdlcx.CLOSE;
edit1.setfocus;
end;

procedure Tw_login.XP_Button1Click(Sender: TObject);
begin
if not hjzcdata.yhdlcx.isempty then
BEGIN
        if TRIM(edit3.text)=TRIM(hjzcdata.yhdlcx.FieldByName('密码').ASSTRING) then
                modalresult:=mrok else
                BEGIN
                messagedlg('密码输入错误，请重新输入!',MTERROR,[MBOK],0);
                EDIT1.SETFOCUS;
                END;
end ELSE
                BEGIN
                messagedlg('该用户不存在，请重新输入!',MTERROR,[MBOK],0);
                EDIT1.SETFOCUS;
                END;


end;

procedure Tw_login.XP_Button2Click(Sender: TObject);
begin
close;
end;

end.