changeperson.pas

西京票据管理系统刚刚获得

unit changeperson;

interface

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

type
  Tfrmchangeperson = class(TForm)
    grp1: TGroupBox;
    pnl1: TPanel;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    btn1: TBitBtn;
    btn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure edt1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edt2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmchangeperson: Tfrmchangeperson;

implementation
uses UDM;

{$R *.dfm}

procedure Tfrmchangeperson.FormShow(Sender: TObject);
begin
      EDT1.Text:='';
      EDT2.Text:='';
      EDT3.Text:='';

    edt1.Text:=dm.qrylogin2.FieldByName('userid').AsString;
    edt2.Text:=dm.qrylogin2.FieldByName('username').AsString;
    edt3.Text:=dm.qrylogin2.fieldbyname('userpsd').AsString;

end;

procedure Tfrmchangeperson.btn2Click(Sender: TObject);
begin
  close;
end;

procedure Tfrmchangeperson.btn1Click(Sender: TObject);
begin

    dm.qrylogin2.Edit;
    dm.qrylogin2.FieldByName('userid').AsString:=trim(edt1.Text);
    dm.qrylogin2.FieldByName('username').AsString:=trim(edt2.Text);
    dm.qrylogin2.FieldByName('userpsd').AsString:=trim(edt3.Text);
    dm.qrylogin2.Post;
    showmessage('数据保存成功！');
end;

procedure Tfrmchangeperson.edt1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=$0D THEN
 EDT2.SetFocus;

end;

procedure Tfrmchangeperson.edt2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=$0D THEN
 EDT3.SetFocus;
end;

end.