Unit5.pas
上传用户:szyozho
上传日期:2013-04-13
资源大小:3688k
文件大小:1k
源码类别:

教育系统应用

开发平台:

Delphi

  1. unit Unit5;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, StdCtrls, Buttons, ExtCtrls, DB, DBTables;
  6. type
  7.   Tchangemi = class(TForm)
  8.     Image1: TImage;
  9.     Label1: TLabel;
  10.     Label2: TLabel;
  11.     Label3: TLabel;
  12.     Edit1: TEdit;
  13.     Edit2: TEdit;
  14.     Edit3: TEdit;
  15.     BitBtn1: TBitBtn;
  16.     BitBtn2: TBitBtn;
  17.     Query2: TQuery;
  18.     Query2ID: TStringField;
  19.     Query2mi: TStringField;
  20.     Query2qx: TStringField;
  21.     procedure BitBtn1Click(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  27. var
  28.   changemi: Tchangemi;
  29. implementation
  30. uses Unit1, Unit3,Unit4;
  31. {$R *.dfm}
  32. procedure Tchangemi.BitBtn1Click(Sender: TObject);
  33. var
  34. newmi:string;
  35. begin
  36. if edit1.text<>mainform.password then
  37. showmessage('原密码不正确,不能修改密码!')
  38. else
  39. if (trim(edit2.text)='') or(trim(edit3.text)='') then
  40. showmessage('新密码不能为空!')
  41. else
  42. if edit2.Text=edit3.Text then
  43. begin
  44. newmi:=edit2.text;
  45. query2.Close;
  46. Query2.RequestLive := true;
  47. query2.SQL.Clear; query2.SQL.text:='update u set mi='''+newmi+''' where ID='''+mainform.username+''''; query2.ExecSQL;
  48. //query2.open;
  49. ShowMessage('密码修改成功!');
  50.    changemi.Close;
  51. // form3.Enabled:=true;
  52. //edit1.Text:='';
  53. //edit2.Text:='';
  54. //edit3.Text:='';
  55. end
  56. else
  57. begin
  58. showMessage('新密码和确认密码不一致');
  59. edit2.Clear;
  60. edit3.Clear  ;
  61. edit2.SetFocus;
  62. end;
  63. end;
  64. end.