mmxgc.pas

根据箱号

unit mmxgC;

interface

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

type
  Tmmxg = class(Tmodel)
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    lbbh: TEdit;
    oldpass: TEdit;
    newpass: TEdit;
    enterpass: TEdit;
    xg: TBitBtn;
    tc: TBitBtn;
    ADOQuery1: TADOQuery;
    ADOCommand1: TADOCommand;
    procedure tcClick(Sender: TObject);
    procedure closeiconClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure xgClick(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure oldpassKeyPress(Sender: TObject; var Key: Char);
    procedure newpassKeyPress(Sender: TObject; var Key: Char);
    procedure enterpassKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mmxg: Tmmxg;

implementation
  uses Cmain,Cdata;
{$R *.dfm}

procedure Tmmxg.tcClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tmmxg.closeiconClick(Sender: TObject);
begin
  inherited;
  tc.Click;
end;

procedure Tmmxg.FormCreate(Sender: TObject);
begin
  inherited;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.Sql.Add('select * from 操作人员 where 操作人员='''+main.usermc+'''');
  adoquery1.Open;
  if adoquery1.fieldbyname('编号').asstring<>'' then
     lbbh.text:=adoquery1.fieldbyname('编号').asstring;
end;

procedure Tmmxg.xgClick(Sender: TObject);
begin
  inherited;
  if trim(oldpass.Text)<>trim(adoquery1.fieldbyname('密码').AsString) then
     begin
       messagedlg('旧密码输入不正确,请重新输入!',mterror,[mbyes],0);
       oldpass.Clear;
       oldpass.SetFocus;
     end
  else
  if trim(newpass.text)='' then
    begin
       messagedlg('密码不能为空,请重新输入!',mterror,[mbyes],0);
       newpass.Clear;
       enterpass.Clear;
       newpass.SetFocus;
     end
  else
  if trim(newpass.text)<>trim(enterpass.text) then
     begin
       messagedlg('两次密码输入有误,请重新输入!',mterror,[mbyes],0);
       newpass.Clear;
       enterpass.Clear;
       newpass.SetFocus;
     end
  else
     begin
       adocommand1.CommandText:='update 操作人员 set 密码='''+newpass.text+''' where 编号='''+lbbh.text+'''';
       adocommand1.Execute;
       messagedlg('恭喜你,密码修改成功!',mtinformation,[mbyes],0);
        modalresult:=mrok;
     end;
end;

procedure Tmmxg.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
//  inherited;

end;

procedure Tmmxg.oldpassKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key=#13 then
     newpass.SetFocus;
end;

procedure Tmmxg.newpassKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key=#13 then
     enterpass.SetFocus;
end;

procedure Tmmxg.enterpassKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key=#13 then
     xg.SetFocus;
end;

end.