currstock_unit.~pas

餐营的数据核算,模拟入库,出库,库存.对餐营的流程详细叙述

unit CURRSTOCK_Unit;

interface

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

type
  TCURRSTOCK_Form = class(TForm)
    CoolBar1: TCoolBar;
    ScrollBox1: TScrollBox;
    BitBtn10: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn1: TBitBtn;
    DBGridEh2: TDBGridEh;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CURRSTOCK_Form: TCURRSTOCK_Form;

implementation

uses DMUnit, U_CheckRights;

{$R *.dfm}

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

procedure TCURRSTOCK_Form.FormDestroy(Sender: TObject);
begin
  CURRSTOCK_ForM:=NIL;
end;

procedure TCURRSTOCK_Form.BitBtn10Click(Sender: TObject);
begin
Close;
end;

procedure TCURRSTOCK_Form.BitBtn6Click(Sender: TObject);
begin
  DM.CURRSTOCK_ADOQ.First;
end;

procedure TCURRSTOCK_Form.BitBtn7Click(Sender: TObject);
begin
  DM.CURRSTOCK_ADOQ.Prior;
end;

procedure TCURRSTOCK_Form.BitBtn8Click(Sender: TObject);
begin
  DM.CURRSTOCK_ADOQ.Next;
end;

procedure TCURRSTOCK_Form.BitBtn9Click(Sender: TObject);
begin
  DM.CURRSTOCK_ADOQ.Last;
end;

procedure TCURRSTOCK_Form.BitBtn1Click(Sender: TObject);
begin
  DM.CURRSTOCK_ADOQ.Refresh;
end;

procedure TCURRSTOCK_Form.FormCreate(Sender: TObject);
begin
  with DM.CURRSTOCK_ADOQ do
  begin
    Close;
    Open;
  end;
end;

procedure TCURRSTOCK_Form.FormShow(Sender: TObject);
begin
  BitBtn6.Enabled:=CheckRights('实时库存','最前');
  BitBtn7.Enabled:=CheckRights('实时库存','向前');
  BitBtn8.Enabled:=CheckRights('实时库存','向后');
  BitBtn9.Enabled:=CheckRights('实时库存','最后');
  BitBtn1.Enabled:=CheckRights('实时库存','刷新');
end;

end.