开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
f_xgmm.pas
资源名称：ERP人力资源管理系统毕业设计.rar　[点击查看]
上传用户：lcqxtx
上传日期：2013-02-15
资源大小：530k
文件大小：2k
源码类别：

企业管理

开发平台：

Delphi

f_xgmm.pas：源码内容
  1. unit f_xgmm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Buttons, DB, ADODB;
  9. type
  10.   Tw_xgmm = class(TForm)
  11.     Edit1: TEdit;
  12.     Edit2: TEdit;
  13.     Edit3: TEdit;
  14.     Label3: TLabel;
  15.     Label2: TLabel;
  16.     Label1: TLabel;
  17.     StaticText1: TStaticText;
  18.     ADOQuery1: TADOQuery;
  19.     DataSource1: TDataSource;
  20.     BitBtn1: TBitBtn;
  21.     BitBtn2: TBitBtn;
  22.     ADOQuery1user_id: TIntegerField;
  23.     ADOQuery1user_name: TStringField;
  24.     ADOQuery1user_job: TStringField;
  25.     ADOQuery1user_power: TStringField;
  26.     ADOQuery1user_password: TStringField;
  27.     procedure BitBtn1Click(Sender: TObject);
  28.     procedure BitBtn2Click(Sender: TObject);
  29.     procedure FormCreate(Sender: TObject);
  30.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  37. var
  38.   w_xgmm: Tw_xgmm;
  40. implementation
  42. uses data_1, Unit1, f_main;
  44. {$R *.dfm}
  46. procedure Tw_xgmm.BitBtn1Click(Sender: TObject);
  47. begin
  48.   if trim(edit2.Text)<>trim(edit3.Text) then
  49.    begin
  50.       showmessage('你输入新密码不一致');
  51.    end
  52. else
  53.    begin
  54.    if  trim(edit1.Text)<> trim(s_mima)  then
  55.       begin
  56.         showmessage('输入的原密码不正确');
  57.       end
  58.  else
  59.    begin
  60.        adoquery1.Close;
  61.        adoquery1.SQL.Clear;
  62.        adoquery1.SQL.Add('update username set user_password='+char(39)+trim(edit2.Text)
  63.        +char(39)+'where user_name ='+char(39)+trim(w_Main.auser.name)+char(39));
  64.        adoquery1.execsql;
  65.        application.MessageBox('修改密码成功了',char(48));
  66.        edit1.Clear;
  67.        edit2.Clear;
  68.        edit3.Clear;
  69.        //self.Close;
  70.        //w_main.Enabled:=true;
  71.       end;
  72.    end;
  73. end;
  75. procedure Tw_xgmm.BitBtn2Click(Sender: TObject);
  76. begin
  77. close;
  78. w_main.Enabled:=true;
  79. end;
  81. procedure Tw_xgmm.FormCreate(Sender: TObject);
  82. begin
  83. w_main.Enabled:=FALSE;
  84. end;
  85. procedure Tw_xgmm.FormClose(Sender: TObject; var Action: TCloseAction);
  86. begin
  87. w_main.Enabled:=true;
  88. end;
  89. end.