untslctnotyitemid.pas

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

unit UntSlctNotyItemId;

interface

uses
  UntRecieveFdBill,UntTransferStore,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UntSlctField, DB, DBTables, Grids, DBGrids, StdCtrls, Buttons,
  ExtCtrls;

type
  TFrmSlctNotyItemId = class(TFrmSlctField)
    TblSlctNOTY_ITEM_ID: TStringField;
    TblSlctNOTY_ID: TIntegerField;
    TblSlctFOOD_TYPE: TStringField;
    TblSlctATTRIBUTE: TStringField;
    TblSlctATTACHMENT: TStringField;
    TblSlctSETTLEMENT: TStringField;
    TblSlctQUANTITY: TFloatField;
    TblSlctCOST: TFloatField;
    TblSlctPRICE: TFloatField;
    TblSlctSTATUS: TIntegerField;
    TblSlctMEMO: TStringField;
    QrySlct: TQuery;
    QrySlctNOTY_ITEM_ID: TStringField;
    QrySlctNOTY_ID: TIntegerField;
    QrySlctFOOD_TYPE: TStringField;
    QrySlctATTRIBUTE: TStringField;
    QrySlctATTACHMENT: TStringField;
    QrySlctQUANTITY: TFloatField;
    QrySlctPRICE: TFloatField;
    QrySlctdepotname: TStringField;
    QrySlctfoodposition: TStringField;
    QrySlctsitename: TStringField;
    procedure BitBtnOkClick(Sender: TObject);
    procedure FormShow(Sender: TObject);

  private
    { Private declarations }
    
  public
    { Public declarations }

  end;

procedure SltFlds(OwnerForm: TForm);

var
  FrmSlctNotyItemId: TFrmSlctNotyItemId;
  ID,FdType,Nm: string;
  Quantity: Double;

implementation

uses Global;

{$R *.dfm}

procedure TFrmSlctNotyItemId.BitBtnOkClick(Sender: TObject);
begin
  //ID := TblSlct.FieldByName('NOTY_ITEM_ID').AsString;
  //FdType := TblSlct.FieldByName('FOOD_TYPE').AsString;
  //Quantity := TblSlct.FieldByName('QUANTITY').AsFloat;

  ID := QrySlct.FieldByName('NOTY_ITEM_ID').AsString;
  FdType := QrySlct.FieldByName('FOOD_TYPE').AsString;
  Quantity := QrySlct.FieldByName('QUANTITY').AsFloat;
  Nm := '';
  inherited;
end;

procedure SltFlds(OwnerForm: TForm);
begin
  FrmSlctNotyItemId := TFrmSlctNotyItemId.create (OwnerForm);
  try
    if FrmSlctNotyItemId.ShowModal = mrOK then
      begin
        if FrmSlctNotyItemId.Owner = FrmRecieveFdBill  then
        begin
          FrmRecieveFdBill.NotyItemID := ID;
          FrmRecieveFdBill.NotyFdType := FdType;
          FrmRecieveFdBill.NotyQuantity := Quantity;
        end;
        if FrmSlctNotyItemId.Owner = FrmTransferStore then
        begin
          FrmTransferStore.NotyItemID := ID;
          FrmTransferStore.NotyFdType := FdType;
          FrmTransferStore.NotyQuantity := Quantity;
        end;
      end
  finally
    FrmSlctNotyItemId.Free;
    FrmSlctNotyItemId:=nil;
  end;
end;


procedure TFrmSlctNotyItemId.FormShow(Sender: TObject);
begin
  inherited;
  QrySlct.SQL.Clear;
  if FrmSlctNotyItemId.Owner = FrmRecieveFdBill  then
    QrySlct.SQL.Text:='select ENT_NOTY_ITEM.NOTY_ITEM_ID,ENT_NOTY_ITEM.NOTY_ID,ENT_NOTY_ITEM.FOOD_TYPE,ENT_NOTY_ITEM.ATTRIBUTE,ENT_NOTY_ITEM.ATTACHMENT,ENT_NOTY_ITEM.QUANTITY,ENT_NOTY_ITEM.PRICE,ENT_NOTY_ITEM.sitename,ENT_NOTY_ITEM.depotname,ENT_NOTY_ITEM.foodposition '+
                    'from ENT_NOTY_ITEM,ENT_NOTY'+
                    ' where ENT_NOTY_ITEM.noty_id=ENT_NOTY.noty_id and ENT_NOTY.unit_id='+inttostr(global.g_user.UnitID)+' and ENT_NOTY_ITEM.status=0 and Ent_Noty.Noty_type=1';
  if FrmSlctNotyItemId.Owner = FrmTransferStore then
    QrySlct.SQL.Text:='select ENT_NOTY_ITEM.NOTY_ITEM_ID,ENT_NOTY_ITEM.NOTY_ID,ENT_NOTY_ITEM.FOOD_TYPE,ENT_NOTY_ITEM.ATTRIBUTE,ENT_NOTY_ITEM.ATTACHMENT,ENT_NOTY_ITEM.QUANTITY,ENT_NOTY_ITEM.PRICE,ENT_NOTY_ITEM.sitename,ENT_NOTY_ITEM.depotname,ENT_NOTY_ITEM.foodposition '+
                    'from ENT_NOTY_ITEM,ENT_NOTY'+
                    ' where ENT_NOTY_ITEM.noty_id=ENT_NOTY.noty_id and ENT_NOTY.unit_id='+inttostr(global.g_user.UnitID)+' and ENT_NOTY_ITEM.status=0 and Ent_Noty.Noty_type=2';
  QrySlct.Prepare;
  QrySlct.Open;
  qryslct.Last;
  if QrySlct.RecordCount>0 then
    BitBtnok.Enabled:=true;
end;

end.