u_usermain.pas

河南师范大学餐饮进销存软件,只要控制库存的数据。

unit u_UserMain;

interface

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

type
  TfrmUserMain = class(TForm)
    DBGrid1: TDBGrid;
    Qry: TADOQuery;
    DataSource1: TDataSource;
    BtnAdd: TBitBtn;
    BtnEdit: TBitBtn;
    BtnDrop: TBitBtn;
    BtnClose: TBitBtn;
    BtnStat: TBitBtn;
    BtnEnd: TBitBtn;
    btnGrant: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnCloseClick(Sender: TObject);
    procedure BtnAddClick(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
    procedure BtnStatClick(Sender: TObject);
    procedure BtnEndClick(Sender: TObject);
    procedure BtnDropClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure btnGrantClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmUserMain: TfrmUserMain;

implementation

uses u_DataCtrl, u_UserAdd, u_UserEdit, md5, u_UserGrant;

{$R *.dfm}

procedure TfrmUserMain.FormShow(Sender: TObject);
begin
  Qry.Active :=true;
end;

procedure TfrmUserMain.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := CaFree ;
end;

procedure TfrmUserMain.BtnCloseClick(Sender: TObject);
begin
  Close ;
end;

procedure TfrmUserMain.BtnAddClick(Sender: TObject);
begin
  frmUserAdd.ShowModal ;
end;

procedure TfrmUserMain.BtnEditClick(Sender: TObject);
begin
  frmUserEdit.edtBH.Text := Qry.FieldValues['UserBH'] ;
  frmUserEdit.edtName.Text := Qry.FieldValues['UserName'] ;
  frmUserEdit.ShowModal ;
end;

procedure TfrmUserMain.BtnStatClick(Sender: TObject);
var
  QCheck : TADOQuery ;
  UserBH : String ;
begin
  if Qry.FieldValues['InUse'] then
     begin
       showmessage('当前用户已经是在职操作员！');
       exit;
     end;
  UserBH := Qry.FieldValues['UserBH'] ;
  QCheck := TADOQuery.Create(self);
  QCheck.Connection := frmDataCtrl.ADOConn ;
  QCheck.Close;
  QCheck.SQL.Clear;
  QCheck.SQL.Add('Update tb_Users Set InUse=1 Where UserBH='+QuoTedStr(UserBH));
  try
    QCheck.ExecSQL;
    Qry.Close;
    Qry.Open;
  except
    ShowMessage('数据库操作失败！');
  end;
end;

procedure TfrmUserMain.BtnEndClick(Sender: TObject);
var
  QCheck : TADOQuery ;
  UserBH : String ;
begin
  if Not Qry.FieldValues['InUse'] then
     begin
       showmessage('当前用户已经是离职操作员！');
       exit;
     end;
  UserBH := Qry.FieldValues['UserBH'] ;
  QCheck := TADOQuery.Create(self);
  QCheck.Connection := frmDataCtrl.ADOConn ;
  QCheck.Close;
  QCheck.SQL.Clear;
  QCheck.SQL.Add('Update tb_Users Set InUse=0 Where UserBH='+QuoTedStr(UserBH));
  try
    QCheck.ExecSQL;
    Qry.Close;
    Qry.Open;
  except
    ShowMessage('数据库操作失败！');
  end;
end;

procedure TfrmUserMain.BtnDropClick(Sender: TObject);
var
  QCheck : TADOQuery ;
  UserBH : String ;
begin
  UserBH := Qry.FieldValues['UserBH'] ;
  QCheck := TADOQuery.Create(self);
  QCheck.Connection := frmDataCtrl.ADOConn ;
  QCheck.Close;
  QCheck.SQL.Clear;
  QCheck.SQL.Add('Update tb_Users Set UserPass='+QuoTedStr(Copy(MD5Print(MD5String('')),1,20)));
  QCheck.SQL.Add(' Where UserBH='+QuoTedStr(UserBH));
  try
    QCheck.ExecSQL;
    Qry.Close;
    Qry.Open;
  except
    ShowMessage('数据库操作失败！');
  end;
end;

procedure TfrmUserMain.DBGrid1DblClick(Sender: TObject);
begin
  if qry.IsEmpty then
  begin
    Application.MessageBox('记录为空','警告',mb_ok);
    Exit;
  end
  else
  BtnEdit.Click;
end;

procedure TfrmUserMain.btnGrantClick(Sender: TObject);
begin
  frmUserGrant.ShowModal;
end;

end.