unit5.~pas

ERP库存管理系统,分为ABC管理库存上下限报警等功能

unit Unit5;

interface

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

type
  Tmodify_passwd = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Edit3: TEdit;
    Edit4: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  modify_passwd: Tmodify_passwd;
  user_name:string;
  user_passwd:string;
  user_repasswd:string;
implementation

uses Unit4;

{$R *.dfm}

procedure Tmodify_passwd.Button1Click(Sender: TObject);
var
  sSQL:string;
begin
   if ( edit1.Text='') or (edit2.Text='' ) then
    exit;

  sSQL:='select * from passwd where ps_user = '''+user_name+'''';
  with datamodule4 do
  begin
    ADOQuery1.Close;
    ADOQuery1.SQL.clear;
    ADOQuery1.SQL.Add(sSQL);
    ADOQuery1.Open;
    if ADOQuery1.RecordCount>0 then
    begin
      user_passwd:=trim(ADOQuery1.FieldValues['ps_passwd']);
    end;
  end;
  if user_passwd=edit2.Text then
    begin
//       button2.Visible:=true;
//       button3.Visible:=true;
//  button4.Visible:=false;
    end;
end;

procedure Tmodify_passwd.Edit1Change(Sender: TObject);
begin
  user_name:=edit1.Text;
end;

procedure Tmodify_passwd.Edit2Change(Sender: TObject);
begin
  user_passwd:=edit2.Text
end;

procedure Tmodify_passwd.Edit3Change(Sender: TObject);
begin
  user_passwd:=edit3.Text
end;

procedure Tmodify_passwd.Edit4Change(Sender: TObject);
begin
  user_repasswd:=edit4.Text
end;

end.