password.pas

delphi编的排课管理系统

unit password;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables, ADODB;

type
  Tf_edit_pass = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Panel2: TPanel;
    Panel3: TPanel;
    e_xmima: TEdit;
    e_qrxmima: TEdit;
    Label5: TLabel;
    Label4: TLabel;
    e_yhm: TEdit;
    Label1: TLabel;
    dsdl: TDataSource;
    Button4: TButton;
    Table2: TTable;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_edit_pass: Tf_edit_pass;

implementation

uses yhdl,main;

{$R *.dfm}

procedure Tf_edit_pass.Button1Click(Sender: TObject);
begin
e_xmima.Text:='';
e_qrxmima.Text:='';
if messagedlg('请输入新密码！！',mtinformation,[mbyes,mbno],0)=mryes then
begin
e_xmima.Enabled:=true;
e_qrxmima.Enabled:=true;
button1.Enabled:=false;
button2.Enabled :=true;
end;
end;
procedure Tf_edit_pass.Button2Click(Sender: TObject);
begin
        if (e_xmima.text=e_qrxmima.Text) then
        begin
        table2.Close;
        table2.Filtered :=false;
        table2.Filter :='id='''+e_yhm.Text +'''';
        table2.Filtered :=true;
        table2.Open ;
        if table2.RecordCount =1 then
                begin
                table2.Edit ;
                table2['mima']:=e_xmima.Text;
                table2.Post;
                showmessage('       操作成功！        ');
                e_xmima.Text :='';
                e_qrxmima.Text :='';
                
                button2.Enabled:=false;
                button1.Enabled:=true;
                end else showmessage('操作失败!') ;
        end
        else
                 begin
                 messagedlg('输入的新密码与确认新密码不对，请重新输入！！',mterror,[mbyes],0);
                 e_xmima.Text:='';
                 e_qrxmima.Text:='';
                 end;
end;

procedure Tf_edit_pass.Button3Click(Sender: TObject);
begin

f_edit_pass.Close;

end;

procedure Tf_edit_pass.Button4Click(Sender: TObject);
begin
f_dl.Show ;

f_edit_pass.Close ;

end;

procedure Tf_edit_pass.FormShow(Sender: TObject);
begin
e_yhm.Text :=f_main.sb.Panels[2].Text ;
button1.Enabled :=true;
button2.enabled:=false;
end;

end.