unit3.pas

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

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Spin;

type
  Tcreate_user = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    GroupBox3: TGroupBox;
    Label6: TLabel;
    Edit5: TEdit;
    Label7: TLabel;
    Edit6: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit7: TEdit;
    GroupBox4: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    SpinEdit1: TSpinEdit;
    Label11: TLabel;
    DBGrid1: TDBGrid;
    Label12: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  create_user: Tcreate_user;
  user_name:string;
  user_passwd:string;
  user_gread:integer;
implementation

uses Unit4;

{$R *.dfm}

procedure Tcreate_user.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
    ADOQuery1.Close;
    ADOQuery1.SQL.clear;
    ADOQuery1.SQL.Add(sSQL);
    ADOQuery1.Open;
    if ADOQuery1.RecordCount>0 then
    begin
      user_passwd:=trim(ADOQuery1.FieldValues['ps_passwd']);
      user_gread:=ADOQuery1.FieldValues['ps_gread'];
    end;
  end;
  if user_passwd=edit2.Text then
    begin
       button2.Visible:=true;
       button3.Visible:=true;
       button4.Visible:=true;
       label12.Caption:=inttostr(user_gread);
    end
    else
    begin
    showmessage('用户名或密码不正确，请重新输入');
    exit;
  end;
end;

procedure Tcreate_user.FormShow(Sender: TObject);
begin
  button2.Visible:=false;
  button3.Visible:=false;
  button4.Visible:=false;
end;

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

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

procedure Tcreate_user.Button4Click(Sender: TObject);
var
  sSQL:string;
begin
  datamodule4.ADOTable1.Filter:='ps_gread = '+ spinedit1.Text+'';
  datamodule4.ADOTable1.Filtered:=true;
  datamodule4.ADOTable1.Active:=true;
end;

procedure Tcreate_user.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  datamodule4.ADOTable1.Filtered:=false;
  datamodule4.ADOTable1.Active:=false;
end;

procedure Tcreate_user.Button2Click(Sender: TObject);
begin
   if (( edit3.Text='') or (edit4.Text='' ) or (edit7.Text='' )) then
   begin
    showmessage('新建用户名或密码、级别空，请重新输入');
    exit;
   end;
   if strtoint(edit7.Text)>= user_gread then
   begin
    showmessage('新建用户级别越线，请重新输入');
    exit;
   end;
end;

end.