systemmodipwdfm.pas

这个是个简单的关于出票申请的处理

unit systemModipwdFM;

interface

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

type
  Tfrm_ModiPwd = class(TForm)
    Panel1: TPanel;
    Label3: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    EdWorkNo: TEdit;
    EdPwd: TEdit;
    Bevel1: TBevel;
    Edconfirm: TEdit;
    EdNewPwd: TEdit;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses systemLoginFM, systemDM; {Dm_P,sharefunc; }

{$R *.DFM}

procedure Tfrm_ModiPwd.FormActivate(Sender: TObject);
begin
   EdWorkNo.Text :='';
   EdPwd.Text :='';
   EdNewPwd.Text :='';
   EdConfirm.Text :='';
end;

procedure Tfrm_ModiPwd.BitBtn1Click(Sender: TObject);
begin
//  with sysDM.Qr_sysTemp do
//  begin
//    Close;
//    RequestLive:=true;
//    Sql.Clear;
//    //Sql.Add('select * from SysLogin');modify by luxi
//    Sql.Add('select * from dfwf_people');
//    try
//      Prepare;
//      Open;
//      if Locate('WORKID;Password',VarArrayof([Trim(EdWorkNo.text),Trim(EdPwd.text)]),[]) then  //modifiy by luxi
//      begin
//        if Trim(EdNewPwd.Text)=Trim(Edconfirm.text){ and (Trim(EdNewPwd.Text)<>'')} then
//        begin
//          sysDM.DBMain.StartTransaction;
//          Edit;
//          FieldbyName('PASSWORD').asstring:=Trim(EdNewPwd.text);
//          Post;
//          sysDM.DBMain.Commit;
//          ModalResult:=mrok;
//        end else
//        begin
//          messagedlg('确认新密码失败！',mtError,[mbok],0);
//        end;
//      end else
//      begin
//        messagedlg('工号、用户名或密码输入不正确，请重新输入！',mtinformation,[mbok],0);
//      end;
//    finally
//      Close;
//      RequestLive:=false;
//    end;
//  end;
end;

end.