bgmima.pas

实现门卫值班时的一些简单功能

unit bgmima;

interface

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

type
  Tbgmimafrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;                                            
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Query1: TQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bgmimafrm: Tbgmimafrm;

implementation

{$R *.dfm}

procedure Tbgmimafrm.FormShow(Sender: TObject);
begin
   edit1.Text :='';
   edit2.Text :='';
   edit3.Text :='';
   edit4.Text :='';
   edit1.SetFocus ;
end;

procedure Tbgmimafrm.Button1Click(Sender: TObject);
var
  sqlstr1:string;
begin         //确认
  if (edit1.Text<>'') and (edit2.Text<>'') then
    begin
      sqlstr1:='select * from 操作人员 where (职责='+''''+'门卫'+''''+') and (姓名='+''''+edit1.Text+''''+') and (密码='+''''+edit2.Text+''''+')';
      query1.Close;
      query1.sql.Clear ;
      query1.SQL.Text :=sqlstr1;
      query1.Open;
      if query1.RecordCount=1 then    //姓名、原密码正确
         begin
            if edit3.Text = edit4.Text then  //检验新密码和新密码验证是否一致
               begin
                  sqlstr1:='update 操作人员 set 密码='+''''+edit3.Text+''''+' where (职责='+''''+'门卫'+''''+') and (姓名='+''''+edit1.Text+''''+') and (密码='+''''+edit2.Text+''''+')';
                  query1.Close;
                  query1.sql.Clear ;
                  query1.SQL.Text :=sqlstr1;
                  query1.execSQL;
                  showmessage('密码变更成功！');
                  close;
               end
               else
               begin
                  showmessage('新密码和新密码验证不一致，请重新输入！');
                  edit3.Text :='';
                  edit4.Text :='';
                  edit3.SetFocus ;
               end;
         end
         else
         begin
            showmessage('姓名、原密码有误！');
            edit1.Text :='';
            edit2.Text :='';
            exit;
         end;
   end
   else
   begin     //姓名或口令未填全
      showmessage('请您填全姓名、原密码！');
      edit1.Text :='';
      edit2.Text :='';
      edit1.SetFocus ;
   end;

end;

procedure Tbgmimafrm.Button2Click(Sender: TObject);
begin        //取消
   query1.Close;     //关闭对操作人员表的查询
   close;
end;

end.