passchange.pas

企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载 在线数据上传 在线业务申核 申报业务查询 磁盘数据导出 磁盘数据导入 在线业务模块 在线业务

unit passchange;

interface

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

type
  Tpasschange_frm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    FlatEdit1: TFlatEdit;
    FlatEdit3: TFlatEdit;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    FlatEdit2: TFlatEdit;
    procedure FlatButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit1KeyPress(Sender: TObject; var Key: Char);
  private
    password:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passchange_frm: Tpasschange_frm;

implementation

uses datashare, main;

{$R *.dfm}

procedure Tpasschange_frm.FlatButton2Click(Sender: TObject);
begin
   close;
end;

procedure Tpasschange_frm.FormCreate(Sender: TObject);
{var
  str:string; }
var
  I:integer;
begin
 { with datashare_frm.query1 do
  begin
    close;
    sql.clear;
    //str:='select OPPASS from users where OPERID=:p1';
    str:='select oppass from user' ;
    sql.add(str);
    //params[0].value:=main_form.user.operid;
    prepare;
    open;
    password:=fieldbyname('oppass').AsString;
  end;}
  Scaled:=true;
   if screen.Width<>screenwidth then
   begin
     //height:=longint(height)*longint(screen.height) div screenheight;
     //width:=longint(width)*longint(screen.width) div screenwidth;
     scaleby(screen.Width,screenwidth);
     {for i:=0 to componentcount-1 do
     with components[i] do
     begin
       if GetPropInfo(ClassInfo, 'font') <> nil  then
        font.size := (screen.Width  DIV screenWidth) * font.size;
     end; }
     for i:=0 to self.ControlCount-1 do
     begin
       controls[i].Width:=longint(controls[i].Width)*longint(screen.width) div screenwidth;
       controls[i].Height:=longint(controls[i].Height)*longint(screen.height) div screenheight;
     end;
   end;
  password:=main_frm.user.OPPASS ;
end;

procedure Tpasschange_frm.FlatButton1Click(Sender: TObject);
var
  str:string;
begin   
  if trim(flatedit1.Text)='' then
  begin
    application.MessageBox('请输入原口令！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    flatedit1.SetFocus;
    exit;
  end;
  if trim(flatedit2.Text)='' then
  begin
    application.MessageBox('请输入新口令！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    flatedit2.SetFocus;
    exit;
  end;
  if trim(flatedit3.Text)='' then
  begin
    application.MessageBox('请输入核对口令！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    flatedit3.SetFocus;
    exit;
  end;
  if trim(flatedit1.Text)<>trim(main_frm.user.OPPASS) then
  begin
    application.MessageBox('请确认原口令是否正确！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    flatedit1.SetFocus;
    exit;
  end;
  if trim(flatedit2.Text)<>trim(flatedit3.Text) then
  begin
    application.MessageBox('请核对新口令与核对口令是否相符！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
    flatedit3.SetFocus;
    exit;
  end;
  with datashare_frm.Query1 do
  begin
    close;
    sql.Clear;
    str:='update users set OPPASS=:p1 where operid=:p2';
    sql.add(str);
    params[0].AsString:=trim(flatedit2.text);
    params[1].Value:=main_frm.user.OPERID;
    execsql;
    application.MessageBox('密码修改成功！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
  end;
  flatedit1.Text:='';
  flatedit2.Text:='';
  flatedit3.Text:='';
  formcreate(self);

end;

procedure Tpasschange_frm.FlatEdit2KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
    flatedit3.SetFocus;
end;

procedure Tpasschange_frm.FlatEdit3KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
    FlatButton1Click(self);
end;

procedure Tpasschange_frm.FlatEdit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
    flatedit2.SetFocus;
end;

end.