xgmm.pas

来自「实现人力资源的管理」· PAS 代码 · 共 81 行

unit xgmm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls;

type
  Txgmmfrm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xgmmfrm: Txgmmfrm;

implementation

uses dbdata;

{$R *.dfm}

procedure Txgmmfrm.SpeedButton1Click(Sender: TObject);
begin
with data.ADOlogin do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 操作员信息表 where 操作员名称=:a and 操作员密码=:b ');
      parameters.ParamByName('a').Value:=trim(edit1.Text);
      parameters.ParamByName('b').Value:=trim(edit2.Text);
      open;
   end;
if data.ADOlogin.RecordCount>0 then
   if edit3.Text = edit4.Text then
   begin
   with data.ADOlogin do
      begin
         edit;
         data.ADOlogin.FieldByName('操作员密码').Value:=edit3.Text;
         post;
      end;
      application.MessageBox('密码修改成功','提示',64);
      close;
   end
   else
      begin
      application.MessageBox('两次密码输入不一至！','提示',64);
      edit3.SetFocus;
      end
else
   begin
   application.MessageBox('操作员名称或密码错误！','提示',64);
   edit1.SetFocus;
   end;
end;

procedure Txgmmfrm.SpeedButton2Click(Sender: TObject);
begin
close;
end;

end.