unit2.pas

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

unit Unit2;

interface

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

type
  Tuser_login = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  user_login: Tuser_login;
  user_name:string;
  user_passwd:string;
implementation

uses Unit4, Unit1;

{$R *.dfm}

procedure Tuser_login.Button1Click(Sender: TObject);
var
  sSQL:string;
begin
  if ( edit1.Text='') or (edit2.Text='' ) then
  begin
    showmessage('用户名或密码空，请重新输入');
    exit;
  end;
  sSQL:='select * from passwd where ps_user = '''+user_name+'''';
  with datamodule4 do
  begin
    user_passwd:='--';
    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

//    main_prog.n5.Enabled:=true;
    main_prog.n13.Enabled:=true;
    main_prog.n8.Enabled:=true;
    main_prog.n9.Enabled:=true;
    main_prog.n10.Enabled:=true;
    main_prog.n11.Enabled:=true;
    main_prog.n12.Enabled:=true;

    main_prog.n20.Enabled:=true;
    main_prog.n21.Enabled:=true;
    main_prog.n22.Enabled:=true;
    main_prog.n23.Enabled:=true;
    main_prog.n15.Enabled:=true;
    main_prog.n16.Enabled:=true;
    main_prog.n24.Enabled:=true;
    main_prog.n25.Enabled:=true;
    main_prog.n26.Enabled:=true;
    main_prog.n35.Enabled:=true;
    main_prog.n34.Enabled:=true;
    main_prog.n27.Enabled:=true;
    main_prog.n29.Enabled:=true;
    main_prog.n30.Enabled:=true;

    main_prog.StatusBar1.SimpleText:= ' 欢迎 '+user_name+' 进入系统!';
    {
    main_prog.N6.Enabled:=true;
    main_prog.N14.Enabled:=true;
    main_prog.N7.Enabled:=true;
    main_prog.N17.Enabled:=true;
    main_prog.N18.Enabled:=true;
    main_prog.N28.Enabled:=true;
}
    user_login.close;
  end
  else
  begin
    showmessage('用户名或密码不正确，请重新输入');
    exit;
  end;
end;

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

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

procedure Tuser_login.Button2Click(Sender: TObject);
begin
  close;
end;

end.