posright.pas

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

unit PosRight;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, DBGridEh, StdCtrls, Buttons;

type
  TPosRightfrm = class(TForm)
    DBGridEh1: TDBGridEh;
    Panel1: TPanel;
    chk1: TCheckBox;
    chk2: TCheckBox;
    chk3: TCheckBox;
    chk4: TCheckBox;
    chk5: TCheckBox;
    chk6: TCheckBox;
    BtnOK: TBitBtn;
    BtnCancel: TBitBtn;
    procedure BtnOKClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGridEh1CellClick(Column: TColumnEh);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PosRightfrm: TPosRightfrm;

implementation

uses datamodule1;

{$R *.dfm}

procedure TPosRightfrm.BtnOKClick(Sender: TObject);
var
  s:string;
begin
  s:='';
  if chk1.checked  then s:='1' else s:='0';
  if chk2.checked  then s:=s+'1' else s:=s+'0';
  if chk3.checked  then s:=s+'1' else s:=s+'0';
  if chk4.checked  then s:=s+'1' else s:=s+'0';
  if chk5.checked  then s:=s+'1' else s:=s+'0';
  if chk6.checked  then s:=s+'1' else s:=s+'0';
  with DataE2.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('update Operator set rights=:rights');
    SQL.Add('where number=:number');
    Parameters[0].Value:=s;
    Parameters[1].Value:=dataE2.queryTmp.FieldByName('number').asstring;
    ExecSQL;
  end;
  dataE2.queryTmp.Refresh;
end;

procedure TPosRightfrm.FormShow(Sender: TObject);
begin
  with dataE2.QueryTmp do
  begin
    Close;
    sql.clear;
    sql.add('select * from Operator');
    open;
    DBGridEh1.DataSource:=DataE2.dsTmp;
    BtnCancel.SetFocus;
  end;
end;

procedure TPosRightfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  dataE2.queryTmp.close;
  DBGridEh1.DataSource:=nil;
end;

procedure TPosRightfrm.DBGridEh1CellClick(Column: TColumnEh);
var
  s:string;
begin
  s:=Trim(DataE2.QueryTmp.FieldByName('rights').asstring);
  if s='' then
    s:='000000';
  chk1.checked:=s[1]='1';
  chk2.checked:=s[2]='1';
  chk3.checked:=s[3]='1';
  chk4.checked:=s[4]='1';
  chk5.checked:=s[5]='1';
  chk6.checked:=s[6]='1';
end;

end.