unttransferinstack.pas

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

unit UntTransferInStack;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UnitStandard1, Mask, DBCtrls, DBTables, DB, Menus, ImgList,
  Grids, DBGrids, ComCtrls, StdCtrls, ExtCtrls, Buttons, ToolWin,UntTransferStore;

type
  TFrmTransferInStack = class(TFrmStandard1)
    Label26: TLabel;
    DBEditTransferID: TDBEdit;
    Label30: TLabel;
    Label29: TLabel;
    Label39: TLabel;
    DBEditStore: TDBEdit;
    DBEditQuantity: TDBEdit;
    DBLkpCmbxInFood: TDBLookupComboBox;
    Label33: TLabel;
    Label36: TLabel;
    Label49: TLabel;
    Label34: TLabel;
    Label31: TLabel;
    DBEdit11: TDBEdit;
    DBEditInTime: TDBEdit;
    DBEditClerk: TDBEdit;
    TblFood: TTable;
    DataSourceFood: TDataSource;
    BitBtnSlctTransferID: TBitBtn;
    QrySQLINSTACK_ID: TStringField;
    QrySQLCASE_ID: TStringField;
    QrySQLFREIGHT_NUMBER: TStringField;
    QrySQLFREIGHT: TFloatField;
    QrySQLIN_QUANTITY: TFloatField;
    QrySQLSTORAGE: TFloatField;
    QrySQLPRICE: TFloatField;
    QrySQLNEW: TIntegerField;
    QrySQLOLD: TIntegerField;
    QrySQLMISC: TIntegerField;
    QrySQLFQ_MOISTURE: TFloatField;
    QrySQLFQ_IMPURITY: TFloatField;
    QrySQLFQ_ITEM1: TFloatField;
    QrySQLFQ_ITEM2: TFloatField;
    QrySQLFQ_ITEM3: TFloatField;
    QrySQLFQ_ITEM4: TFloatField;
    QrySQLFQ_CLASS: TStringField;
    QrySQLATTRIBUTE: TStringField;
    QrySQLMEMO: TStringField;
    QrySQLSUPPLYER: TStringField;
    QrySQLCLERK: TStringField;
    QrySQLMANAGER: TStringField;
    QrySQLPROD_AREA: TStringField;
    QrySQLIN_FOOD: TStringField;
    QrySQLADJUST_ID: TStringField;
    QrySQLNOTY_ITEM_ID: TStringField;
    QrySQLNOTY_FOOD: TStringField;
    QrySQLFROM_STATION: TStringField;
    QrySQLTO_STATION: TStringField;
    QrySQLNOTY_QUANTITY: TFloatField;
    GroupBox7: TGroupBox;
    Label43: TLabel;
    LblItem4: TLabel;
    LblItem3: TLabel;
    Label46: TLabel;
    LblItem1: TLabel;
    LblItem2: TLabel;
    Label51: TLabel;
    LblItem5: TLabel;
    DBEditFqClass: TDBEdit;
    DBEditMoisture: TDBEdit;
    DBEditItem1: TDBEdit;
    DBEditItem2: TDBEdit;
    DBEditItem3: TDBEdit;
    DBEditItem4: TDBEdit;
    DBEditImpurity: TDBEdit;
    DBEditItem5: TDBEdit;
    Label57: TLabel;
    Label58: TLabel;
    QrySQLUNIT_ID: TIntegerField;
    QrySQLSITE_ID: TIntegerField;
    QrySQLDEPOT_ID: TIntegerField;
    QrySQLIN_TIME: TDateTimeField;
    QrySQLFQ_ITEM5: TFloatField;
    QrySQLATTACHMENT: TStringField;
    QrySQLR_NEW: TIntegerField;
    QrySQLR_OLD: TIntegerField;
    QrySQLR_MISC: TIntegerField;
    QrySQLFOODPOSITION_ID: TIntegerField;
    QrySQLARRIVAL_TIME: TDateTimeField;
    QrySQLREAP_YEAR: TIntegerField;
    Label55: TLabel;
    DBEditUnitID: TDBEdit;
    Label50: TLabel;
    DBMemo2: TDBMemo;
    QryFoodStyle: TQuery;
    DataSourcePosition: TDataSource;
    DataSourceSite: TDataSource;
    DataSourceDepot: TDataSource;
    QrySQLAdjustor: TStringField;
    QrySQLCOM_FLAG: TIntegerField;
    TblAttribute: TTable;
    DataSourceAttribute: TDataSource;
    TblAtechment: TTable;
    DataSourceAtechmet: TDataSource;
    DBLkpCmbxAttribute: TDBLookupComboBox;
    DBLkpCmbxAtechment: TDBLookupComboBox;
    QrySQLINTYPE: TStringField;
    QrySQLTORN: TIntegerField;
    QrySQLKNIT: TIntegerField;
    QrySQLR_TORN: TIntegerField;
    QrySQLR_KNIT: TIntegerField;
    QrySQLSURPLUS: TFloatField;
    GroupBox6: TGroupBox;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label25: TLabel;
    Label44: TLabel;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdtTorn: TDBEdit;
    DBEdtKnit: TDBEdit;
    GroupBox8: TGroupBox;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    DBLkpCmbxPosition: TDBLookupComboBox;
    DBLkpCmbxSite: TDBLookupComboBox;
    DBLkpCmbxDepot: TDBLookupComboBox;
    Label45: TLabel;
    DBCmbxInType: TDBComboBox;
    Label48: TLabel;
    Label47: TLabel;
    DBEdit1: TDBEdit;
    DBEdit5: TDBEdit;
    DBComboBox1: TDBComboBox;
    TblUnitInfo: TTable;
    DataSourceUnitInfo: TDataSource;
    DBLkpCmbxSuppler: TDBLookupComboBox;
    DBEditSurplus: TDBEdit;
    Label56: TLabel;
    QryPosition: TQuery;
    QryDepot: TQuery;
    QrySite: TQuery;
    LblFqFat: TLabel;
    DBEditFqFat: TDBEdit;
    QrySQLFQ_FAT: TFloatField;
    procedure BitBtnSlctTransferIDClick(Sender: TObject);
    procedure DBEditQuantityExit(Sender: TObject);
    procedure BitBtnSaveClick(Sender: TObject);
    procedure DBLkpCmbxInFoodClick(Sender: TObject);
    procedure BitBtnNewClick(Sender: TObject);
    procedure DBLkpCmbxSiteDropDown(Sender: TObject);
    procedure DBEditKeyExit(Sender: TObject);
    procedure DBLkpCmbxSiteExit(Sender: TObject);
    procedure DBLkpCmbxDepotExit(Sender: TObject);
    procedure DBLkpCmbxPositionExit(Sender: TObject);
    procedure DBLkpCmbxDepotDropDown(Sender: TObject);
    procedure DBLkpCmbxPositionDropDown(Sender: TObject);
    procedure QrySQLAfterScroll(DataSet: TDataSet);
    procedure DBEditQuantityEnter(Sender: TObject);
    procedure DBEditTransferIDExit(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure QrySQLIN_TIMESetText(Sender: TField; const Text: String);
  private
    { Private declarations }
    OldQuantity: double;
  public
    { Public declarations }
    TransferID: string;
  end;

var
  FrmTransferInStack: TFrmTransferInStack;

implementation

uses UntSlctTransferID,global;

{$R *.dfm}

procedure TFrmTransferInStack.BitBtnSlctTransferIDClick(Sender: TObject);
begin
  inherited;
  TransferID := '';
  UntSlctTransferId.SltFlds(Self);

  if Length(TransferID)<>0 then
  begin
    DBGrid1.DataSource.DataSet.Edit;
    DBEditTransferID.Field.AsString := TransferID;
  end;
end;

procedure TFrmTransferInStack.DBEditQuantityExit(Sender: TObject);
var
  OldStore: double;
begin
  inherited;
  if DBEditStore.Text='' then
    OldStore:=0
  else
    OldStore := strToFloat(DBEditStore.Text);
  DBEditStore.Text := floatToStr(OldStore+DBEditQuantity.Field.AsFloat-OldQuantity);
end;

procedure TFrmTransferInStack.BitBtnSaveClick(Sender: TObject);
begin
  if DBEditKey.Text='' then
    begin
      showmessage('请输入库单编号！');
      DBEditKey.SetFocus;
      DBEditKey.Enabled:=true;
      exit;
    end;
  if DBLkpCmbxSite.Text='' then
  begin
    Showmessage('库点号不能为空，请输入！');
    DBLkpCmbxSite.SetFocus;
    exit;
  end;
  if DBLkpCmbxDepot.Text='' then
  begin
    Showmessage('仓库号不能为空，请输入！');
    DBLkpCmbxDepot.SetFocus;
    exit;
  end;
  if DBLkpCmbxPosition.Text='' then
  begin
    Showmessage('货位号不能为空，请输入！');
    DBLkpCmbxPosition.SetFocus;
    exit;
  end;
  inherited;
  DBEditKey.Enabled:=false;
end;

procedure TFrmTransferInStack.DBLkpCmbxInFoodClick(Sender: TObject);
begin
  inherited;
  QryFoodStyle.Active:=false;
  QryFoodStyle.SQL.Clear;
  QryFoodStyle.SQL.Add('select * from ENT_FOOD_TYPE where FOOD_TYPE='''+DBLkpCmbxInFood.Text+'''');
  QryFoodStyle.Open;
  if QryFoodStyle.RecordCount<>1 then
    showmessage('入库的品种不对！');
  if QryFoodStyle.FieldByName('Food_style').AsString='大豆' then
    begin
    LblItem1.Enabled:=true;
    DBEditItem1.Enabled:=true;
    LblItem1.Caption:='纯粮率';
    LblItem2.Enabled:=false;
    LblItem3.Enabled:=false;
    LblItem4.Enabled:=false;
    LblItem5.Enabled:=false;
    DBEditItem2.Enabled:=false;
    DBEditItem3.Enabled:=false;
    DBEditItem4.Enabled:=false;
    DBEditItem5.Enabled:=false;
    LblFqFat.Enabled:=false;
    DBEditFqFat.Enabled:=false;
    end;
  if QryFoodStyle.FieldByName('Food_style').AsString='大米' then
    begin
    LblItem1.Enabled:=false;
    DBEditItem1.Enabled:=false;
    LblItem2.Enabled:=true;
    DBEditItem2.Enabled:=true;
    LblItem5.Enabled:=true;
    LblItem5.Caption:='稻谷率';
    DBEditItem5.Enabled:=true;
    LblItem3.Enabled:=false;
    LblItem4.Enabled:=false;
    DBEditItem3.Enabled:=false;
    DBEditItem4.Enabled:=false;
    LblFqFat.Enabled:=false;
    DBEditFqFat.Enabled:=false;
    end;
  if QryFoodStyle.FieldByName('Food_style').AsString='小麦' then
    begin
    LblItem1.Enabled:=false;
    DBEditItem1.Enabled:=false;
    LblItem2.Enabled:=true;
    DBEditItem2.Enabled:=true;
    LblItem5.Enabled:=true;
    LblItem5.Caption:='容重';
    DBEditItem5.Enabled:=true;
    LblItem3.Enabled:=false;
    LblItem4.Enabled:=false;
    DBEditItem3.Enabled:=false;
    DBEditItem4.Enabled:=false;
    LblFqFat.Enabled:=false;
    DBEditFqFat.Enabled:=false;
    end;
  if QryFoodStyle.FieldByName('Food_style').AsString='玉米' then
    begin
    LblItem1.Enabled:=true;
    DBEditItem1.Enabled:=true;
    LblItem1.Caption:='纯粮率';
    LblItem2.Enabled:=true;
    LblItem3.Enabled:=false;
    LblItem4.Enabled:=false;
    LblItem5.Enabled:=false;
    DBEditItem2.Enabled:=true;
    DBEditItem3.Enabled:=false;
    DBEditItem4.Enabled:=false;
    DBEditItem5.Enabled:=false;
    LblFqFat.Enabled:=false;
    DBEditFqFat.Enabled:=false;
    end;
  if QryFoodStyle.FieldByName('Food_style').AsString='稻谷' then
    begin
    LblItem1.Enabled:=true;
    DBEditItem1.Enabled:=true;
    LblItem1.Caption:='黄粒：';
    LblItem2.Enabled:=true;
    LblItem3.Enabled:=true;
    LblItem4.Enabled:=true;
    LblItem5.Enabled:=true;
    LblItem5.Caption:='出糙率';
    DBEditItem2.Enabled:=true;
    DBEditItem3.Enabled:=true;
    DBEditItem4.Enabled:=true;
    DBEditItem5.Enabled:=true;
    LblFqFat.Enabled:=true;
    DBEditFqFat.Enabled:=true;
    end;
  if QryFoodStyle.FieldByName('Food_style').AsString='油' then
    begin
    LblItem1.Enabled:=true;
    DBEditItem1.Enabled:=true;
    LblItem1.Caption:='酸价';
    LblItem2.Enabled:=false;
    LblItem3.Enabled:=false;
    LblItem4.Enabled:=false;
    LblItem5.Enabled:=false;
    LblItem5.Caption:='高过氧化值';
    DBEditItem2.Enabled:=false;
    DBEditItem3.Enabled:=false;
    DBEditItem4.Enabled:=false;
    DBEditItem5.Enabled:=false;
    LblFqFat.Enabled:=false;
    DBEditFqFat.Enabled:=false;
    end;
  DBEditFqClass.Field.AsString:='';
  DBEditImpurity.Field.AsFloat:=0;
  DBEditMoisture.Field.AsFloat:=0;
  DBEditItem1.Field.AsFloat:=0;
  DBEditItem2.Field.AsFloat:=0;