user.pas

一个仓库管理软件包括,仓库入库,仓库出库,库存信息,单据审核,反审核等功能.

unit User;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Grids, DBGridEh, ComCtrls, ToolWin;

type
  TFrmUser = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    btnFresh: TToolButton;
    ToolButton2: TToolButton;
    btnNew: TToolButton;
    btnEdit: TToolButton;
    btnDelete: TToolButton;
    ToolButton6: TToolButton;
    btnExit: TToolButton;
    ToolButton3: TToolButton;
    DBGridEh1: TDBGridEh;
    Edit1: TEdit;
    Edit2: TEdit;
    BtnOk: TButton;
    BtnCancel: TButton;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit4: TEdit;
    Label4: TLabel;
    qurUser: TADOQuery;
    DataSource1: TDataSource;
    StatusBar1: TStatusBar;
    procedure FormShow(Sender: TObject);
    procedure btnNewClick(Sender: TObject);
    procedure BtnOkClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure btnFreshClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure btnExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    gEdit:Boolean;
    Password:string;
    procedure Clear;
  public
    { Public declarations }
  end;

var
  FrmUser: TFrmUser;

implementation

uses database, MyMath;

{$R *.dfm}

procedure TFrmUser.FormShow(Sender: TObject);
begin
  FrmUser.Width:=400;
  FrmUser.Height:=300;
  FrmUser.Top:=0;
  FrmUser.Left:=0;
  btnFreshClick(Sender);
end;

procedure TFrmUser.btnNewClick(Sender: TObject);
begin
  edit1.Clear;
  edit2.Clear;
  edit3.Clear;
  edit4.Clear;
  edit1.Color:=clWindow;
  edit2.Color:=clBtnFace;
  edit3.Color:=clWindow;
  edit4.Color:=clWindow;
  edit1.Enabled:=true;
  edit2.Enabled:=false;
  edit3.Enabled:=true;
  edit4.Enabled:=true;
  Btnok.Enabled:=true;
  BtnCancel.Enabled:=true;
  edit1.SetFocus;
  gEdit:=false;
end;

procedure TFrmUser.BtnOkClick(Sender: TObject);
begin
  if edit1.Text= '' then begin
    Infook('请输入用户名!');
    exit;
  end;
  if gEdit=true then begin
    if edit2.text <> password then  begin
      Infook('原来密码输入不正确!');
      exit;
    end;
  end;
  if edit3.Text <> edit4.Text then begin
    Infook('两次密码不一致,请重输!');
    exit;
  end;
  if gEdit=false then begin
    DataMod.ExecSQL('insert into 用户信息(用户名,密码) values('''+edit1.Text+''','''+edit4.Text+''')');
    btnFreshClick(Sender);
    Infook('新增成功!');
  end
  else  begin
    DataMod.ExecSQL('update 用户信息 set 用户名='''+edit1.Text+''',密码='''+edit4.Text+''' where 用户名='''+edit1.Text+''' ');
    btnFreshClick(Sender);
    Infook('修改成功!');
  end;
end;

procedure TFrmUser.btnDeleteClick(Sender: TObject);
begin
  Clear;
  if quruser.RecordCount=1 then begin
    Infook('不用删除,至少留一个用户登陆本系统!');
    exit;
  end;
  if QueryDlg('确定用户<'+qurUser.FieldByName('用户名').AsString+'>?')=false then exit;
  if not qurUser.IsEmpty then qurUser.Delete;
end;

procedure TFrmUser.BtnCancelClick(Sender: TObject);
begin
  btnFreshClick(Sender);
end;

procedure TFrmUser.btnEditClick(Sender: TObject);
begin
  edit1.Clear;
  edit2.Clear;
  edit3.Clear;
  edit4.Clear;
  edit1.Color:=clWindow;
  edit2.Color:=clWindow;
  edit3.Color:=clWindow;
  edit4.Color:=clWindow;

  edit2.Enabled:=true;
  edit3.Enabled:=true;
  edit4.Enabled:=true;
  Btnok.Enabled:=true;
  BtnCancel.Enabled:=true;
  gEdit:=true;
  edit1.Text:=quruser.fieldbyname('用户名').AsString;
  edit1.Enabled:=false;
  Password:=quruser.fieldbyname('密码').AsString;
  edit2.SetFocus;
end;

procedure TFrmUser.btnFreshClick(Sender: TObject);
begin
  OpenSQL(FrmUser,QurUser,'select * from 用户信息');
  Clear;
end;

procedure TFrmUser.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    if gEdit=false then edit3.SetFocus
    else edit2.SetFocus;
end;

procedure TFrmUser.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then edit3.SetFocus;
end;

procedure TFrmUser.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then edit4.SetFocus;
end;

procedure TFrmUser.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then Btnok.Click;
end;

procedure TFrmUser.btnExitClick(Sender: TObject);
begin
  Close;
end;

procedure TFrmUser.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FrmUser:=Nil;
  Action:=cafree;
end;

procedure TFrmUser.Clear;
begin
  edit1.Clear;
  edit2.Clear;
  edit3.Clear;
  edit4.Clear;
  edit1.Color:=clBtnFace;
  edit2.Color:=clBtnFace;
  edit3.Color:=clBtnFace;
  edit4.Color:=clBtnFace;
  edit1.Enabled:=false;
  edit2.Enabled:=false;
  edit3.Enabled:=false;
  edit4.Enabled:=false;
  Btnok.Enabled:=false;
  BtnCancel.Enabled:=false;
end;

end.