sumstock_unit.pas

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

unit SUMSTOCK_Unit;

interface

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


 type
   PShRec=^RShRec;
  RShRec=record
    ShName:String;
    Num:integer;
 end;
  TSUMSTOCK_Form = class(TForm)
    CoolBar1: TCoolBar;
    ScrollBox3: TScrollBox;
    BitBtn10: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    DBGridEh2: TDBGridEh;
    BitBtn3: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBGridEh2DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure FormShow(Sender: TObject);
  private
    m:Tstringlist;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SUMSTOCK_Form: TSUMSTOCK_Form;

implementation

uses DMUnit, RPTUnit, U_CheckRights;

{$R *.dfm}

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

procedure TSUMSTOCK_Form.FormDestroy(Sender: TObject);
begin
//  SUMSTOCK_FORM:=nil;
end;

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

procedure TSUMSTOCK_Form.FormCreate(Sender: TObject);
var
 ShRec:PShRec;
begin
  m:=tstringlist.Create;
  with DM.SUMSTOCK_ADOQ DO
  begin
    Close;
    open;
  end;
  while not DM.SUMSTOCK_ADOQ.Eof do
  begin
    New(ShRec);
    ShRec^.ShName:=DM.SUMSTOCK_ADOQ.FieldByName('产品名称').AsString;
    ShRec^.Num:=DM.SUMSTOCK_ADOQ.FieldByName('数量').AsInteger;
    m.AddObject(ShRec^.ShName,TObject(ShRec));
    DM.SUMSTOCK_ADOQ.Next;
  end;
end;

procedure TSUMSTOCK_Form.BitBtn6Click(Sender: TObject);
begin
DM.SUMSTOCK_ADOQ.First;
end;

procedure TSUMSTOCK_Form.BitBtn7Click(Sender: TObject);
begin
  DM.SUMSTOCK_ADOQ.Prior;
end;

procedure TSUMSTOCK_Form.BitBtn8Click(Sender: TObject);
begin
  DM.SUMSTOCK_ADOQ.Next;
end;

procedure TSUMSTOCK_Form.BitBtn9Click(Sender: TObject);
begin
  DM.SUMSTOCK_ADOQ.Last;
end;

procedure TSUMSTOCK_Form.BitBtn3Click(Sender: TObject);
begin
  RPTDM.SUMSTOCK_Rpt.LoadFromFile(ExtractFilePath(ParamStr(0)) +   'RPT/仓库盘点.frf');
  RPTDM.SUMSTOCK_Rpt.ShowReport;
end;

procedure TSUMSTOCK_Form.DBGridEh2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
var
  Text:String;
begin
  Text:=TDBGridEh(Sender).DataSource.DataSet.FieldByName('产品名称').AsString;
  with DM.FINDADO do
  begin
    Close;
    SQl.Clear;
    SQL.Add('SELECT ITEM_NUM FROM ITEM_ITEM WHERE ITEM_NAME='''+TEXT+'''');
    OPEN;
  end;
  if M.IndexOf(Text)<>-1 then
  begin
    if PShRec(M.Objects[M.IndexOf(Text)])^.Num<DM.FINDADO.Fields[0].AsInteger then
      DBGridEh2.Canvas.Brush.Color:=clred;
  end;
  DBGridEh2.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TSUMSTOCK_Form.FormShow(Sender: TObject);
begin
  BitBtn6.Enabled:=CheckRights('盘点库存','最前');
  BitBtn7.Enabled:=CheckRights('盘点库存','向前');
  BitBtn8.Enabled:=CheckRights('盘点库存','向后');
  BitBtn9.Enabled:=CheckRights('盘点库存','最后');
  BitBtn3.Enabled:=CheckRights('盘点库存','打印');
end;

end.