c_editpass.pas

《delphi数据库设计与实例开发》随书光盘

unit c_editpass;

interface

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

type
  Tcfrm_editpass = class(TForm)
    GroupBox1: TGroupBox;
    Label6: TLabel;
    Label9: TLabel;
    Label7: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label8: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    e_zl_name: TEdit;
    e_zl_zlx: TEdit;
    e_zl_sex: TEdit;
    e_zl_yj: TEdit;
    e_zl_tel: TEdit;
    e_zl_nl: TEdit;
    e_zl_zh: TEdit;
    e_zl_addr: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure e_zl_zhExit(Sender: TObject);
    procedure e_zl_zhChange(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure e_zl_zhKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfrm_editpass: Tcfrm_editpass;

implementation
uses datam,c_pass, CommonRoutines;

{$R *.dfm}

procedure Tcfrm_editpass.FormShow(Sender: TObject);
begin
e_zl_zh.SetFocus();
end;

procedure Tcfrm_editpass.e_zl_zhExit(Sender: TObject);
begin
 if e_zl_zh.Text='' then exit
  else
   begin
     if Length(e_zl_zh.Text)<5 then
       case Length(e_zl_zh.Text) of
          1: e_zl_zh.text:='0000'+e_zl_zh.text;
          2: e_zl_zh.text:='000'+e_zl_zh.text;
          3: e_zl_zh.text:='00'+e_zl_zh.text;
          4: e_zl_zh.text:='0'+e_zl_zh.text;
       end
   end;
  dm.ADO_vip.Open;
  dm.ADO_vip.First;
  if not dm.ADO_vip.Locate('证号',e_zl_zh.Text,[]) then
   begin
    Application.MessageBox(PChar('证号错误,请重新录入！')
      , PChar('提示'),MB_ICONEXCLAMATION);
      e_zl_zh.Text:='';
      e_zl_zh.SetFocus();
      exit;
   end;
   e_zl_name.Text:=dm.ADO_vip.fieldbyname('姓名').asstring;
   e_zl_sex.Text:=dm.ADO_vip.fieldbyname('性别').asstring;
   e_zl_nl.Text:=dm.ADO_vip.fieldbyname('年龄').asstring;
   e_zl_zlx.Text:=dm.ADO_vip.fieldbyname('证类型').asstring;
   e_zl_yj.Text:=dm.ADO_vip.fieldbyname('押金').asstring;
   e_zl_tel.Text:=dm.ADO_vip.fieldbyname('电话').asstring;
   e_zl_addr.Text:=dm.ADO_vip.fieldbyname('地址').asstring;
end;

procedure Tcfrm_editpass.e_zl_zhChange(Sender: TObject);
begin
e_zl_name.Text:='';
   e_zl_nl.Text:='';
   e_zl_sex.Text:='';
   e_zl_zlx.Text:='';
   e_zl_yj.Text:='';
   e_zl_tel.Text:='';
   e_zl_addr.Text:='';
end;

procedure Tcfrm_editpass.BitBtn1Click(Sender: TObject);
var
  mes:string;
begin
   e_zl_name.SetFocus();
   mes:='会员<'+dm.ADO_vip.fieldbyname('证号').AsString+' '+
       dm.ADO_vip.fieldbyname('姓名').AsString+'>密码已清除！';
   if e_zl_name.Text='' then exit;
   dm.ADO_vip.Edit;
   dm.ADO_vip.FieldByName('pass').AsString:='';
   dm.ADO_vip.Post;
   application.MessageBox(pchar(mes),pchar('提示'),64);
   e_zl_zh.Text:='';
   e_zl_name.Text:='';
   e_zl_nl.Text:='';
   e_zl_sex.Text:='';
   e_zl_zlx.Text:='';
   e_zl_yj.Text:='';
   e_zl_tel.Text:='';
   e_zl_addr.Text:='';
   e_zl_zh.SetFocus();
end;

procedure Tcfrm_editpass.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  dm.ADO_vip.Close;
  cfrm_pass.close;
  release;
end;

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

procedure Tcfrm_editpass.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
   begin
    key:=#0;
    perform(wm_nextdlgctl,0,0);
   end;
end;

procedure Tcfrm_editpass.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
EnterToTab(Self, Key, Shift);
end;

procedure Tcfrm_editpass.e_zl_zhKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
EnterToTab(Self, Key, Shift);
end;

end.