u_edps.pas

语音坐席,支持录音及语音回访,和自动催款

unit U_EDPS;

interface

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

type
  TFEditPS = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Query1: TQuery;
    Label5: TLabel;
    Image1: TImage;
    Bevel1: TBevel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FEditPS: TFEditPS;

implementation
Uses U_Pub;
{$R *.DFM}

procedure TFEditPS.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     If Key=VK_Return Then
     Begin
          Key:=0;
          SelectNext(ActiveControl,True,True);
     End;
end;

procedure TFEditPS.SpeedButton2Click(Sender: TObject);
begin
     ModalResult:=mrCancel;
end;

procedure TFEditPS.SpeedButton1Click(Sender: TObject);
begin
     If Edit2.Text<>Edit3.Text Then
     Begin
          Application.MessageBox('两次输入的新密码不同，请重新输入！','错误提示',MB_OK+MB_ICONSTOP);
          Edit2.SetFocus;
          Exit;
     End;

     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Add('Select * From CZY Where YHBM='+CZYDM);
     Query1.Open;

     If Edit1.Text<>Query1.FieldByName('YHMM').AsString Then
     Begin
          Application.MessageBox('原密码输入错误，请重新输入！','错误提示',MB_OK+MB_ICONSTOP);
          Edit1.SetFocus;
          Exit;
     End;

     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Add('Update CZY Set YHMM='+#39+Edit2.Text+#39);
     Query1.SQL.Add('Where YHBM='+CZYDM);

     Try
        Query1.ExecSQL;
        Application.MessageBox('密码修改成功，请妥善保管新密码！','修改成功',MB_OK+MB_ICONINFORMATION);
        ModalResult:=mrOK;
     Except
        Application.MessageBox('密码修改失败！','密码修改不成功',MB_OK+MB_ICONERROR);
        ModalResult:=mrCancel;
     End;
end;

end.