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

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
U_xgmm.pas
资源名称：Delphi7经典问题解析源代码.rar　[点击查看]
上传用户：psxgmh
上传日期：2013-04-08
资源大小：15112k
文件大小：3k
源码类别：

Delphi/CppBuilder

开发平台：

Delphi

U_xgmm.pas：源码内容
  1. unit U_xgmm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, DBClient, Buttons, StdCtrls, Mask, ExtCtrls;
  9. type
  10.   TfrmXgmm = class(TForm)
  11.     Panel1: TPanel;
  12.     Label1: TLabel;
  13.     Label2: TLabel;
  14.     Label3: TLabel;
  15.     Panel2: TPanel;
  16.     btnOK: TSpeedButton;
  17.     btnCancel: TSpeedButton;
  18.     edtOldPassword: TEdit;
  19.     edtNewPassword: TEdit;
  20.     edtConPassword: TEdit;
  21.     procedure btnOKClick(Sender: TObject);
  22.     procedure btnCancelClick(Sender: TObject);
  23.     procedure edtOldPasswordKeyDown(Sender: TObject; var Key: Word;
  24.       Shift: TShiftState);
  25.     procedure edtNewPasswordKeyDown(Sender: TObject; var Key: Word;
  26.       Shift: TShiftState);
  27.     procedure edtConPasswordKeyDown(Sender: TObject; var Key: Word;
  28.       Shift: TShiftState);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.   end;
  35. var
  36.   frmXgmm: TfrmXgmm;
  38. implementation
  40. uses U_mainform, u_public;
  42. {$R *.DFM}
  44. //确定按钮点击过程
  45. procedure TfrmXgmm.btnOKClick(Sender: TObject);
  46. var
  47.   Yhbh, Zh, Logined, succeed: OleVariant;
  48.   AliasName, Password: string;
  49. begin
  50.   AliasName := CurrentParam.userAliasName;
  51.   Password := edtOldPassword.Text;
  52.   //调用应用服务器的Logined方法，判断旧密码是否正确
  53.   frmMain.SocketConnection.AppServer.Logined(AliasName, Password, Yhbh, zh, Logined);
  54.   if not Logined then
  55.   begin
  56.     application.messagebox('旧密码输入不正确', '物资管理系统', mb_iconinformation + mb_defbutton1);
  57.     edtOldPassword.text := '';
  58.     edtOldPassword.SetFocus;
  59.     exit;
  60.   end;
  61.   if edtConPassword.text <> edtNewPassword.text then
  62.   begin
  63.     application.messagebox('密码输入不一致', '物资管理系统', mb_iconinformation + mb_defbutton1);
  64.     edtConPassword.text := '';
  65.     edtNewPassword.text := '';
  66.     edtNewPassword.SetFocus;
  67.     exit;
  68.   end;
  69.   Password := edtNewPassword.Text;
  70.   //调用应用服务器的UpdatePassword方法更新密码
  71.   frmMain.SocketConnection.AppServer.UpdatePassword(AliasName, Password, succeed);
  72.   if succeed then
  73.     application.messagebox('密码修改成功', '物资管理系统', mb_iconinformation + mb_defbutton1)
  74.   else
  75.   begin
  76.     application.messagebox('密码修改失败', '物资管理系统', mb_iconinformation + mb_defbutton1);
  77.     exit;
  78.   end;
  79.   close;
  80. end;
  82. //取消按钮点击过程
  83. procedure TfrmXgmm.btnCancelClick(Sender: TObject);
  84. begin
  85.   close;
  86. end;
  88. //旧密码输入框按键处理过程
  89. procedure TfrmXgmm.edtOldPasswordKeyDown(Sender: TObject; var Key: Word;
  90.   Shift: TShiftState);
  91. begin
  92.   //如果按键是“回车键”，就输入焦点切换到新密码输入框
  93.   if key = 13 then
  94.     edtNewPassword.SetFocus;
  95. end;
  97. //新密码输入框按键处理过程
  98. procedure TfrmXgmm.edtNewPasswordKeyDown(Sender: TObject; var Key: Word;
  99.   Shift: TShiftState);
  100. begin
  101.   //如果按键是“回车键”，就输入焦点切换到确认密码输入框
  102.   if key = 13 then
  103.     edtConPassword.SetFocus;
  104. end;
  106. //确认密码输入框按键处理过程
  107. procedure TfrmXgmm.edtConPasswordKeyDown(Sender: TObject; var Key: Word;
  108.   Shift: TShiftState);
  109. begin
  110.   //如果按键是“回车键”,调用“确定”按钮点击过程
  111.   if key = 13 then
  112.     btnOK.click;
  113. end;
  115. end.