xiugaikouling.pas

来自「Delphi实战演练一书的配套光盘」· PAS 代码 · 共 83 行

unit XiugaiKouling;

interface

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

type
  TXiugaiKoulingFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    Edit4: TEdit;
    Query1: TQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XiugaiKoulingFrm: TXiugaiKoulingFrm;

implementation

{$R *.DFM}

procedure TXiugaiKoulingFrm.BitBtn1Click(Sender: TObject);
begin
  Close;
end;

procedure TXiugaiKoulingFrm.BitBtn2Click(Sender: TObject);
begin
  if (Edit1.Text='') or (Edit3.Text<>Edit4.Text) then
  begin
    if Edit1.Text='' then
    begin
      showMessage('请输入用户号！');
      Edit1.SetFocus;
    end
    else if Edit3.Text<>Edit4.Text then
    begin
      showMessage('新口令确认不一致！');
      Edit1.SetFocus;
    end;
  end
  else
  begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('Select 雇员号,口令 from Guyuan');
    Query1.SQL.Add('Where 雇员号='+Edit1.Text);
    Query1.SQL.Add('And 口令='''+Edit2.Text+'''');
    Query1.Open;

    if (Query1.RecordCount<>1) or (Edit2.Text<>Query1.FieldValues['口令']) then
    begin
      showMessage('口令不对，请检查。');
      Edit1.SetFocus;
    end
    else
    begin
      Query1.Edit;
      Query1.FieldValues['口令']:=Edit3.Text;
      Query1.Post;
      ShowMessage('口令更改成功！');
      Close;
    end;
  end;
end;

end.