unit_modify.pas

航空人身保险信息管理系统使用SQL和DELHPI开发

unit Unit_Modify;

interface

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

type
  TFrmModify = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmModify: TFrmModify;

implementation

uses unit_DataM, Unit_Common;

{$R *.dfm}

procedure TFrmModify.Button2Click(Sender: TObject);
begin
    FrmModify.Close;
end;

procedure TFrmModify.Button1Click(Sender: TObject);
var
sqlstr:string;
//username:string;
begin

   sqlstr:='select loginname from operator where loginname='+''''
        +gEmpID+''''+'and password='+''''+Edit1.Text+'''';
  //username：=trim(dtm.Qry.FieldByName('loginname'));
 if dtm.DataSetResultCount(sqlstr)=0 then
    begin
   MessageWarning('您输入的原始密码不正确！');
   edit1.Text:='';
   edit2.Text:='';
   edit3.Text:='';
   edit1.SetFocus;
    end
  else
    begin
     if(trim(edit2.Text)='')OR (trim(edit3.Text)='') then
     MessageWarning('新密码和确认密码都不能为空!')
     else
     begin
     if(trim(edit2.Text)<>trim(edit3.Text)) then
     begin
       MessageWarning('您两次输入的密码不一致,请重新输入！');
       edit2.Text:='';
       edit3.Text:='';
       edit2.SetFocus;
     end
     else
     begin
   sqlstr:='update operator set password='+''''+trim(edit2.Text)+''''
   +'where loginname='+''''+gEmpID+'''';
   dtm.ExecuteSQL(sqlstr);
   MessageInformation('密码修改成功');
     end;
     end;
  end;
end;
end.