modimm.~pas

本程序是用delphi开发的新生报名管理系统 该程序的数据库是采用SQL server建的

unit modimm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,main,modiuser, DB, DBTables, Buttons;

type
  Tmodimm_Form = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;

    procedure FormClose(Sender: TObject;var Action:TCloseAction);

    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  modimm_Form: Tmodimm_Form;

implementation

{$R *.dfm}

procedure Tmodimm_Form.FormClose(Sender: TObject;var Action:TCloseAction);
  begin
      Main_Form.Open_Form_number:=Main_Form.Open_Form_number-1;
   if  Main_Form.Open_Form_number=0 then
   Main_Form.N15.Enabled:=true;
     Main_Form.N13.Enabled:=true;
    Action:=caFree;
end;
procedure Tmodimm_Form.BitBtn1Click(Sender: TObject);
var
yhm,oldpass,newpass,qrpass,sqlstr:string;

begin
    yhm:=Trim(Main_Form.dlname);
    oldpass:=Trim(Edit1.Text);
    newpass:=trim(Edit2.Text);
    if Length(Newpass)<3 then
     begin
       ShowMessage('密码由3～20个字符组成!');
       exit;
     end;
       qrpass:=Trim(Edit3.Text);
    if Length(qrpass)<3 then
    begin
      ShowMessage('密码由3～20个字符组成!');
      exit;
    end;
    if newpass<>qrpass then
       begin
         ShowMessage('确认密码不相同!');
         exit;
       end;
    sqlstr:='select *from [users] where(用户名='''+yhm+''')and(密码='''+oldpass+''')';
    with TQuery.Create(nil) do
    begin
        try
         close;
          SessionName:=Main_Form.Database1.SessionName;
          DatabaseName:=Main_Form.Database1.DatabaseName;
          SQL.Clear;
          SQl.Add(sqlstr);
          Open;
          if RecordCount<1 then
           begin
             ShowMessage('原密码错误，'+yhm+',改密无效!');
             exit;
           end;
          sqlstr:='update [users] set 密码='''+newpass+'''where(用户名='''+yhm+''')';
           SQL.Clear;
           SQL.Add(sqlstr);
           ExecSQL;
         finally
          Free;
          end;
        end;
        ShowMessage('改密成功');
        Main_Form.N13.Enabled:=true;
        close;
end;


procedure Tmodimm_Form.BitBtn2Click(Sender: TObject);
begin
    Main_Form.N13.Enabled:=true;
    close;

end;

end.