u_setting.pas

小型劳资管理系统,用visual basic+access编写

unit U_setting;

interface

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

type
  TF_setting = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Q_login: TQuery;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_setting: TF_setting;

implementation

{$R *.dfm}

procedure TF_setting.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
speedbutton1.click;
end;

procedure TF_setting.SpeedButton1Click(Sender: TObject);
begin
with Q_login do
  begin
     close;
     sql.Clear ;
     sql.add('update pass set worknum='+''''+edit1.Text+'''');
     execsql;
     open;
  end;
  Q_login.Post;
end;

procedure TF_setting.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  edit3.SetFocus ;
end;

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

procedure TF_setting.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
bitbtn1.Click;
end;

procedure TF_setting.BitBtn2Click(Sender: TObject);
begin
Q_login.close;
close;
exit;
end;

procedure TF_setting.Edit2Enter(Sender: TObject);
begin
 if not Q_login.eof then
   begin
   edit2.Text:=Q_login.FieldByName('password').asstring;
   end
 else
  showmessage('输入密码错误!');
end;


procedure TF_setting.BitBtn1Click(Sender: TObject);
begin
if edit4.text=edit3.Text then
with Q_login do
  begin
    close;
    sql.clear;
    sql.add('update pass set password='+''''+edit4.Text+'''');
    open;
    Q_login.Post;
    Q_login.refresh;
    end
  else
     showmessage('两次输入的密码不一致,请重新输入!');
     edit2.SetFocus ;
end;


procedure TF_setting.FormShow(Sender: TObject);
begin
edit1.SetFocus;
end;

end.