u_useredit.pas

河南师范大学餐饮进销存软件,只要控制库存的数据。

unit u_UserEdit;

interface

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

type
  TfrmUserEdit = class(TForm)
    Label1: TLabel;
    edtBH: TEdit;
    Label2: TLabel;
    edtName: TEdit;
    BtnEdit: TBitBtn;
    BtnClose: TBitBtn;
    procedure edtBHKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BtnCloseClick(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmUserEdit: TfrmUserEdit;

implementation

uses u_UserMain, u_DataCtrl;

{$R *.dfm}

procedure TfrmUserEdit.edtBHKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key=13) and (Length(edtBH.Text)>0) then
     edtName.SetFocus;
end;

procedure TfrmUserEdit.edtNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
     btnEdit.SetFocus;
end;

procedure TfrmUserEdit.BtnCloseClick(Sender: TObject);
begin
  Close ;
end;

procedure TfrmUserEdit.BtnEditClick(Sender: TObject);
var
  QCheck : TADOQuery ;
begin
  QCheck := TADOQuery.Create(self);
  QCheck.Connection := frmDataCtrl.ADOConn ;
  QCheck.Close;
  QCheck.SQL.Clear;
  QCheck.SQL.Add('Update tb_Users set UserName='+QuotedStr(edtName.Text));
  QCheck.SQL.Add(' where UserBH ='+ QuotedStr(edtBH.Text));
  try
    QCheck.ExecSQL;
    showmessage('修改用户成功！');
    Close;
    frmUserMain.Qry.Close;
    frmUserMain.Qry.Open;
  except
    showmessage('数据库操作失败！');
  end;

end;

end.