ghkl.pas

服务信息管理系统

unit ghkl;

interface

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

type
  Tfrmghkl = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    czyQuery: TQuery;
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmghkl: Tfrmghkl;

implementation
uses mainform;
{$R *.dfm}

procedure Tfrmghkl.Edit1Enter(Sender: TObject);
begin
  (Sender as TEdit).color := clGradientActiveCaption;
end;

procedure Tfrmghkl.Edit1Exit(Sender: TObject);
begin
  (Sender as TEdit).color := ClWindow;
end;

procedure Tfrmghkl.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    begin
      SelectNext(ActiveControl, True, True);
      Key := #0;
    end;
end;

procedure Tfrmghkl.BitBtn1Click(Sender: TObject);
begin
  CzyQuery.Close;
  CzyQuery.SQL.Clear;
  CzyQuery.SQL.Add('Select czyy_bh,czyy_xm,czyy_mm,czyy_qx from czyxxk');
  CzyQuery.SQL.Add('Where czyy_bh=''' + Trim(sys_czybh) + '''');
  CzyQuery.Open;

  if (CzyQuery.RecordCount <> 1) or (Trim(Edit1.Text) <> Trim(CzyQuery.FieldValues['czyy_mm'])) then
    begin
      MessageDlg('输入的原口令不对', mtWarning, [mbOk], 0);
      Edit1.SetFocus;
    end
  else
    begin
      if Edit2.Text <> Edit3.Text then
        begin
          MessageDlg('输入磨新口令不一致', mtWarning, [mbOk], 0);
          exit;
        end;
      try
        CzyQuery.Close;
        CzyQuery.SQL.Clear;
        CzyQuery.SQL.Add('update czyxxk set czyy_mm=''' + Edit2.Text + '''');
        CzyQuery.SQL.Add('Where czyy_bh=''' + sys_czybh + '''');
        CzyQuery.Prepare;
        CzyQuery.ExecSQL;
        Close;
      except
        MessageDlg('口令更新失败', mtError, [mbOk], 0);
      end;
    end;
end;

end.