unit4.~pas

教学管理系统源码

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, DB, ADODB;

type
  TForm4 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    MaskEdit1: TMaskEdit;
    MaskEdit3: TMaskEdit;
    MaskEdit2: TMaskEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);
begin
if Edit1.Text='' then
begin
Application.MessageBox('请输入用户名','警告！',MB_OK);
Edit1.SetFocus;
exit;
end;
if MaskEdit2.Text<>MaskEdit3.Text then
begin
Application.MessageBox('口令不一致，请查询','警告！',MB_OK);
Edit1.SetFocus;
MaskEdit1.Text:='';
MaskEdit2.Text:='';
MaskEdit3.Text:='';
exit;
end;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT 人员代号,密码 from password');
ADOQuery1.SQL.Add('WHERE 人员代号='''+Edit1.Text+'''');
ADOQuery1.SQL.Add('And 密码='''+MaskEdit1.Text+'''');
ADOQuery1.Open;
if (ADOQuery1.RecordCount=0) //or
//(MaskEdit2.Text<>ADOQuery1.FieldValues['密码'])
then
begin
Application.MessageBox('口令错误，请查询','警告！',MB_OK);
MaskEdit1.SetFocus;
MaskEdit2.Text:='';
MaskEdit3.Text:='';
end
else
begin
ADOQuery1.Edit;
ADOQuery1.FieldValues['密码']:=MaskEdit2.Text;
ADOQuery1.Post;
Application.MessageBox('口令修改成功！','恭喜！',MB_OK);
close;
end;
end;
//end;

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.