untadjustattrdispose.pas

是分布式粮库程序,是采用Delphi实现的

unit UntAdjustAttrDispose;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, DB, DBTables, DBCtrls, StdCtrls, Grids,
  DBGrids, Buttons;

type
  TFrmAdjustAttrDispose = class(TForm)
    Panel1: TPanel;
    Splitter1: TSplitter;
    PnlLeft: TPanel;
    Panel3: TPanel;
    Splitter2: TSplitter;
    PnlBotn: TPanel;
    Panel4: TPanel;
    PnlBrowse: TPanel;
    Splitter3: TSplitter;
    PnlItemGrid: TPanel;
    btnExit: TBitBtn;
    PageCtrlNoty: TPageControl;
    tsUnfinished: TTabSheet;
    tsFinished: TTabSheet;
    DBGrdMasterFinished: TDBGrid;
    DBGrdMasterUnfinished: TDBGrid;
    lblTitle: TLabel;
    lblQianfa: TLabel;
    LblManager: TLabel;
    LblClerk: TLabel;
    Label1: TLabel;
    Label13: TLabel;
    DBGridItem: TDBGrid;
    DBTxtDatetime: TDBText;
    DBTxtAdjustID: TDBText;
    DBText3: TDBText;
    DBTxtManager: TDBText;
    DBTxtClerk: TDBText;
    Shape4: TShape;
    Shape2: TShape;
    Shape9: TShape;
    Shape5: TShape;
    Shape6: TShape;
    tsAllNoty: TTabSheet;
    BitBtnAdjusted: TBitBtn;
    TblUnit_info: TTable;
    DataSourceUnit_info: TDataSource;
    DBTxtUnitName: TDBText;
    LblUnitName: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    TblMaster: TTable;
    TblInStack: TTable;
    DataSourceMaster: TDataSource;
    DataSourceInStack: TDataSource;
    TblMasterUNIT_ID: TIntegerField;
    TblMasterADJUST_ID: TStringField;
    TblMasterINSTACK_ID: TStringField;
    TblMasterSITE_ID: TIntegerField;
    TblMasterDEPOT_ID: TIntegerField;
    TblMasterFOODPOSITION_ID: TIntegerField;
    TblMasterATTR: TStringField;
    TblMasterNEW_ATTR: TStringField;
    TblMasterFOODTYPE: TStringField;
    TblMasterQUANTITY: TFloatField;
    TblMasterDATETIME: TDateTimeField;
    TblMasterMANAGER: TStringField;
    TblMasterCLERK: TStringField;
    TblMasterMEMO: TStringField;
    TblMasterUnitName: TStringField;
    Label4: TLabel;
    DBTxtInStackID: TDBText;
    Label5: TLabel;
    Label6: TLabel;
    DBTxtNewAttr: TDBText;
    DBTxtAttr: TDBText;
    DBTxtQuantity: TDBText;
    DBTxtfoodType: TDBText;
    Shape1: TShape;
    Shape3: TShape;
    Label8: TLabel;
    Label9: TLabel;
    Shape7: TShape;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    TblMasterAdjustor: TStringField;
    TblInStackUNIT_ID: TIntegerField;
    TblInStackSITE_ID: TIntegerField;
    TblInStackDEPOT_ID: TIntegerField;
    TblInStackINSTACK_ID: TStringField;
    TblInStackCASE_ID: TStringField;
    TblInStackADJUST_ID: TStringField;
    TblInStackFOODPOSITION_ID: TIntegerField;
    TblInStackNOTY_ITEM_ID: TStringField;
    TblInStackNOTY_FOOD: TStringField;
    TblInStackFROM_STATION: TStringField;
    TblInStackFREIGHT_NUMBER: TStringField;
    TblInStackTO_STATION: TStringField;
    TblInStackFREIGHT: TFloatField;
    TblInStackIN_TIME: TDateTimeField;
    TblInStackIN_QUANTITY: TFloatField;
    TblInStackSTORAGE: TFloatField;
    TblInStackPRICE: TFloatField;
    TblInStackREAP_YEAR: TIntegerField;
    TblInStackPROD_AREA: TStringField;
    TblInStackNEW: TIntegerField;
    TblInStackOLD: TIntegerField;
    TblInStackMISC: TIntegerField;
    TblInStackFQ_MOISTURE: TFloatField;
    TblInStackFQ_IMPURITY: TFloatField;
    TblInStackFQ_ITEM1: TFloatField;
    TblInStackFQ_ITEM2: TFloatField;
    TblInStackFQ_ITEM3: TFloatField;
    TblInStackFQ_ITEM5: TFloatField;
    TblInStackFQ_ITEM4: TFloatField;
    TblInStackFQ_CLASS: TStringField;
    TblInStackATTRIBUTE: TStringField;
    TblInStackMEMO: TStringField;
    TblInStackNOTY_QUANTITY: TFloatField;
    TblInStackIN_FOOD: TStringField;
    TblInStackSUPPLYER: TStringField;
    TblInStackARRIVAL_TIME: TDateTimeField;
    TblInStackCLERK: TStringField;
    TblInStackMANAGER: TStringField;
    TblInStackATTACHMENT: TStringField;
    TblInStackR_NEW: TIntegerField;
    TblInStackR_OLD: TIntegerField;
    TblInStackR_MISC: TIntegerField;
    TblInStackADJUSTOR: TStringField;
    TblMasterstatus: TIntegerField;
    DBGrdMasterAll: TDBGrid;
    procedure PageCtrlNotyChange(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure BitBtnAdjustedClick(Sender: TObject);
    procedure DBGrdMasterAllDrawColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TColumn;
      State: TGridDrawState);
    procedure DBGrdMasterUnfinishedDrawColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TColumn;
      State: TGridDrawState);
    procedure DBGridItemDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmAdjustAttrDispose: TFrmAdjustAttrDispose;

implementation

uses UnitDataModul,Global;

{$R *.dfm}

procedure TFrmAdjustAttrDispose.PageCtrlNotyChange(Sender: TObject);
begin
// STATUS：0－未处理；1－部分处理；2－已处理。
if PageCtrlNoty.ActivePage = tsAllNoty then
  begin
    TblMaster.Close;
    TblMaster.Filtered := False;
    TblMaster.Filter := 'UNIT_ID='+IntToStr(global.g_user.UnitID);
    TblMaster.Filtered := true;
    TblMaster.Open;
  end;
if PageCtrlNoty.ActivePage = tsUnFinished then
  begin
    TblMaster.Close;
    TblMaster.Filtered := False;
    TblMaster.Filter := '(STATUS=0 OR STATUS=1) and UNIT_ID='+IntToStr(global.g_user.UnitID);
    TblMaster.Filtered := true;
    TblMaster.Open;
  end;

if PageCtrlNoty.ActivePage = tsFinished then
  begin
    TblMaster.Close;
    TblMaster.Filtered := False;
    TblMaster.Filter := 'STATUS=2 and UNIT_ID='+IntToStr(global.g_user.UnitID);
    TblMaster.Filtered := true;
    TblMaster.Open;
  end;
end;

procedure TFrmAdjustAttrDispose.btnExitClick(Sender: TObject);
begin
  close;
end;
 
procedure TFrmAdjustAttrDispose.BitBtnAdjustedClick(Sender: TObject);
begin
  if TblInstack.FieldByName('INSTACK_ID').AsString = '' then
    begin
      showmessage('请选择要处理的库存台帐编号！');
      exit;
    end;
  TblInstack.Edit;
  TblInstack.FieldByName('ADJUST_ID').AsString:=TblMaster.fieldByName('ADJUST_ID').AsString;
  TblInstack.FieldByName('ATTRIBUTE').AsString:=TblMaster.fieldByName('New_Attr').AsString;
  TblInstack.FieldByName('ADJUSTOR').AsString:=Global.g_user.UserName;
  TblInstack.Post;
  TblMaster.Edit;
  TblMaster.FieldByName('ADJUSTOR').AsString:=Global.g_user.UserName;
  TblMaster.FieldByName('Status').AsInteger:=2;
  TblMaster.Post;
  showmessage('粮油性质已调整!');
end;

procedure TFrmAdjustAttrDispose.DBGrdMasterAllDrawColumnCell(
  Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if TblMaster.FieldByName('STATUS').AsInteger = 0 then
    DBGrdMasterAll.Canvas.Font.Color := clRed;
  if TblMaster.FieldByName('STATUS').AsInteger = 1 then
    DBGrdMasterAll.Canvas.Font.Color := clBlue;
  DBGrdMasterAll.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TFrmAdjustAttrDispose.DBGrdMasterUnfinishedDrawColumnCell(
  Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if TblMaster.FieldByName('STATUS').AsInteger = 0 then
    DBGrdMasterUnfinished.Canvas.Font.Color := clRed;
  if TblMaster.FieldByName('STATUS').AsInteger = 1 then
    DBGrdMasterUnfinished.Canvas.Font.Color := clBlue;
  DBGrdMasterUnfinished.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TFrmAdjustAttrDispose.DBGridItemDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (TblInstack.FieldByName('ADJUST_ID').AsString = '') or ((TblInstack.FieldByName('ADJUST_ID').IsNull)) then
    DBGridItem.Canvas.Font.Color := clRed;
  DBGridItem.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TFrmAdjustAttrDispose.FormCreate(Sender: TObject);
begin
  TblMaster.Close;
  TblMaster.Filtered := False;
  TblMaster.Filter := 'UNIT_ID='+IntToStr(global.g_user.UnitID);
  TblMaster.Filtered := true;
  TblMaster.Open;
end;

end.