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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
am_yhgl_mms.pas
资源名称：挡案管理系统.rar　[点击查看]
上传用户：szruida
上传日期：2007-06-01
资源大小：6518k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

am_yhgl_mms.pas：源码内容
  1. unit am_yhgl_mms;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, StdCtrls, Buttons, Mask, DBCtrlsEh, DB;
  9. type
  10.   Tam_yhgl_mm = class(TForm)
  11.     Image1: TImage;
  12.     Label1: TLabel;
  13.     GroupBox1: TGroupBox;
  14.     GroupBox2: TGroupBox;
  15.     DataSource1: TDataSource;
  16.     DBEditEh1: TDBEditEh;
  17.     DBEditEh2: TDBEditEh;
  18.     DBEditEh4: TDBEditEh;
  19.     Label2: TLabel;
  20.     Label3: TLabel;
  21.     Label4: TLabel;
  22.     Label5: TLabel;
  23.     SpeedButton1: TSpeedButton;
  24.     SpeedButton2: TSpeedButton;
  25.     DBEditEh3: TDBEditEh;
  26.     procedure SpeedButton2Click(Sender: TObject);
  27.     procedure DBEditEh2KeyPress(Sender: TObject; var Key: Char);
  28.     procedure DBEditEh3KeyPress(Sender: TObject; var Key: Char);
  29.     procedure DBEditEh4KeyPress(Sender: TObject; var Key: Char);
  30.     procedure DBEditEh2Exit(Sender: TObject);
  31.     procedure DBEditEh4Exit(Sender: TObject);
  32.     procedure SpeedButton1Click(Sender: TObject);
  33.     procedure FormCreate(Sender: TObject);
  34.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  35.   private
  36.     { Private declarations }
  37.   public
  38.     { Public declarations }
  39.   end;
  41. var
  42.   am_yhgl_mm: Tam_yhgl_mm;
  44. implementation
  45. uses dms,u_public,mainfrms;
  46. {$R *.dfm}
  48. procedure Tam_yhgl_mm.SpeedButton2Click(Sender: TObject);
  49. begin
  50.  close;
  51. end;
  53. procedure Tam_yhgl_mm.DBEditEh2KeyPress(Sender: TObject; var Key: Char);
  54. begin
  55.   if key=#13 then
  56.    begin
  57.      key:=#0;
  58.      selectNext(ActiveControl,true,true);
  59.    end;
  60. end;
  62. procedure Tam_yhgl_mm.DBEditEh3KeyPress(Sender: TObject; var Key: Char);
  63. begin
  64.    if key=#13 then
  65.    begin
  66.      key:=#0;
  67.      selectNext(ActiveControl,true,true);
  68.    end;
  70. end;
  72. procedure Tam_yhgl_mm.DBEditEh4KeyPress(Sender: TObject; var Key: Char);
  73. begin
  74.   {if key=#13 then
  75.    begin
  76.      key:=#0;
  77.      selectNext(ActiveControl,true,true);
  78.    end;}
  79. end;
  81. procedure Tam_yhgl_mm.DBEditEh2Exit(Sender: TObject);
  82. begin
  83.   if user_passWord<>Encrypt(trim(dbediteh2.Text)) then
  84.    begin
  85.       application.MessageBox('旧密码不正确','提示',mb_ok+mb_iconinformation);
  86.       dbediteh2.Text:='';
  87.       dbediteh2.SetFocus;
  88.       exit;
  89.    end;
  90. end;
  92. procedure Tam_yhgl_mm.DBEditEh4Exit(Sender: TObject);
  93. begin
  94.   if dbediteh4.Text<>dbediteh3.Text then
  95.    begin
  96.      application.MessageBox('请输入相同的密码','提示',mb_ok+mb_iconinformation);
  97.      dbediteh3.SetFocus;
  98.      exit;
  99.    end;
  100. end;
  102. procedure Tam_yhgl_mm.SpeedButton1Click(Sender: TObject);
  103. var N:integer;
  104. begin
  105.   if dbediteh4.Text<>dbediteh3.Text then
  106.    begin
  107.      application.MessageBox('请输入相同的密码','提示',mb_ok+mb_iconinformation);
  108.      dbediteh3.SetFocus;
  109.      exit;
  110.    end;
  111.   dm.xt_user.Edit;
  112.   dm.xt_user.FieldByName('user_dm').AsString:=user_dm;
  113.   dm.xt_user.FieldByName('user_name').AsString:=user_name;
  114.   dm.xt_user.FieldByName('user_passWord').AsString:=Encrypt(trim(dbediteh3.Text));
  115.   N:=dm.xt_user.ApplyUpdates(0);
  116.   if n=0 then
  117.    begin
  118.      application.MessageBox('密码修改成功','提示',mb_ok+mb_iconinformation);
  119.      close;
  120.    end
  121.   else
  122.    begin
  123.      application.MessageBox('密码修改失败','提示',mb_ok+mb_iconinformation);
  124.      exit;
  125.    end;
  126. end;
  128. procedure Tam_yhgl_mm.FormCreate(Sender: TObject);
  129. begin
  130.   dm.xt_user.Active:=true;
  131.   dm.xt_user.Edit;
  132.   dbediteh1.Text:=user_dm;
  133. end;
  135. procedure Tam_yhgl_mm.FormClose(Sender: TObject; var Action: TCloseAction);
  136. begin
  137.  dm.xt_user.Active:=false; 
  138.  action:=cafree;
  139.  am_yhgl_mm:=nil;
  140. end;
  142. end.