mryzyxgmm.pas

生产管理系统：系统具有数据备份及数据还原功能。能够保证系统数据的安全性方便的全方位的数据查询。在相应的权限下

unit MRYZYXGMM;

interface

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

type
  TFRM_YZYXGMM = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_YZYXGMM: TFRM_YZYXGMM;

implementation
  USES MR_DATA;
{$R *.dfm}

procedure TFRM_YZYXGMM.BitBtn1Click(Sender: TObject);
begin
  if application.MessageBox('真的要修改密码吗？','提示',mb_yesno) = idyes then
  begin
    if (edit1.Text = '')or(edit2.Text = '')or(edit3.Text = '') then
    begin
      showmessage('请把操作员名称及新旧密码填全。');
    end
    else
    begin
      with data.ADOb do
      begin
        close;
        sql.Clear;
        sql.Add('select * from tb_user where czyname='+''''+edit1.Text+''''+' and czymm='+''''+edit2.Text+'''');
        open;
      end;
      if data.ADOb.RecordCount<1 then
      begin
        showmessage('操作员名称及旧密码错误，请重新填写。');
        edit1.Clear;
        edit2.Clear;
        edit3.Clear;
      end
      else
      begin
        data.ADOb.Edit;
        data.ADOb.FieldByName('czymm').AsString := edit3.Text;
        data.ADOb.Post;
        showmessage('修改成功。');
      end;
    end;
  end;
end;

procedure TFRM_YZYXGMM.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TFRM_YZYXGMM.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit2.SetFocus;
end;

procedure TFRM_YZYXGMM.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit3.SetFocus;
end;

procedure TFRM_YZYXGMM.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    BitBtn1.SetFocus;
end;

procedure TFRM_YZYXGMM.FormShow(Sender: TObject);
begin
  edit1.Clear;
  edit2.Clear;
  edit3.Clear;
end;

end.