untslcttransferid.pas

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

unit UntSlctTransferID;

interface

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

type
  TFrmSlctTransferID = class(TFrmSlctField)
    TblSlctCASE_ID: TStringField;
    TblSlctNOTY_ITEM_ID: TStringField;
    TblSlctNOTY_FOODTYPE: TStringField;
    TblSlctNOTY_QUANTITY: TFloatField;
    TblSlctFOODTYPE: TStringField;
    TblSlctQUANTITY: TFloatField;
    TblSlctCLERK: TStringField;
    TblSlctOPERATE: TStringField;
    TblSlctUNIT_ID: TIntegerField;
    TblSlctDATETIME: TDateTimeField;
    TblSlctRECIEVER: TIntegerField;
    TblSlctOUT_CHECK: TStringField;
    TblSlctIN_CHECK: TStringField;
    procedure BitBtnOkClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure SltFlds(OwnerForm: TForm);

var
  FrmSlctTransferID: TFrmSlctTransferID;
  s_TransferID: string;

implementation

uses global;

{$R *.dfm}

procedure SltFlds(OwnerForm: TForm);
begin
  FrmSlctTransferID := TFrmSlctTransferID.create (OwnerForm);
  try
    if FrmSlctTransferID.ShowModal = mrOK then
      begin
        if FrmSlctTransferID.Owner = FrmTransferOutStack then
        begin
          FrmTransferOutStack.TransferID := s_TransferID;
        end;
        if FrmSlctTransferID.Owner = FrmTransferInStack then
        begin
          FrmTransferInStack.TransferID := s_TransferID;
        end;
      end
  finally
    FrmSlctTransferID.Free;
    FrmSlctTransferID:=nil;
  end;
end;

procedure TFrmSlctTransferID.BitBtnOkClick(Sender: TObject);
begin
  s_TransferID := TblSlct.FieldByName('Case_ID').AsString;
  inherited;
end;

procedure TFrmSlctTransferID.FormShow(Sender: TObject);
var
  strFltr: string;
begin
  inherited;
  if FrmSlctTransferID.Owner = FrmTransferOutStack then
    strFltr:='Unit_id='+inttostr(global.g_user.UnitID)+' and In_check=''是'' and Out_check=''是''';
  if FrmSlctTransferID.Owner = FrmTransferInStack then
    strFltr:='RECIEVER='+inttostr(global.g_user.UnitID)+' and In_check=''是'' and Out_check=''是''';
  TblSlct.Active:=false;
  TblSlct.Filter:=strFltr; 
  TblSlct.Filtered:=true;
  TblSlct.Active:=true;
  if TblSlct.RecordCount > 0 then
    BitBtnOk.Enabled := true ;
end;

end.