rights.pas

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

unit Rights;

interface

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

type
  TRightsForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Lbluser: TLabel;
    DBGrid1: TDBGridEh;
    lbxType: TListBox;
    Label2: TLabel;
    Label3: TLabel;
    cmdOk: TSpeedButton;
    cmdExit: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure lbxTypeClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cmdOkClick(Sender: TObject);
    procedure cmdExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    xNumber:string;
  public
    { Public declarations }
    procedure SetRights;
    property  sNumber :string read xNumber write xNumber;
  end;

var
  RightsForm: TRightsForm;

implementation
uses datamodule1;
{$R *.dfm}

procedure TRightsForm.SetRights;
begin
  with DataE2.Querysum do
  begin
    filter:='type='+''''+lbxType.items[lbxType.itemindex]+'''';
    filtered:=true;
  end;
end;

procedure TRightsForm.FormCreate(Sender: TObject);
begin
  lbxType.ItemIndex:=0;
  //SetRights;
end;

procedure TRightsForm.lbxTypeClick(Sender: TObject);
begin
  SetRights;
end;

procedure TRightsForm.FormShow(Sender: TObject);
begin
  with dataE2 do
  begin
    lblUser.Caption :=sNumber ;
    begin
      if querySum.active then querySum.Close;
      querySum.filtered:=false;

      querySum.sql.clear;
      querySum.SQL.add('select * from rights where number= :number');
      querySum.Parameters[0].value:=sNumber;
      querySum.open;

      if querySum.Eof then  InsertRightsReopen(sNumber);

      dbGrid1.DataSource :=dsSum;
    end;
  end;
end;

procedure TRightsForm.cmdOkClick(Sender: TObject);
begin
  with dataE2 do
    QuerySum.UpdateBatch; 
end;

procedure TRightsForm.cmdExitClick(Sender: TObject);
begin
  close;
end;

procedure TRightsForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  with dataE2 do
  begin
    if querySum.state in [dsEdit,dsInsert] then
       QuerySum.CancelBatch;
    //若不加此行，会导致后续调用querysum出现找不到目标错误2005-01-28
    querySum.Filtered :=false;
    querySum.close;
  end;
  dbGrid1.DataSource :=nil;
end;

end.