untslctsaleitemid.pas

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

unit UntSlctSaleItemID;

interface

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

type
  TFrmSlctSaleItemID = class(TFrmSlctField)
    TblSlctSALEITEM_ID: TStringField;
    TblSlctSALE_ID: TStringField;
    TblSlctFOOD_TYPE: TStringField;
    TblSlctQUANTITY: TFloatField;
    TblSlctPRICE: TFloatField;
    TblSlctREMAIN: TFloatField;
    TblSlctSTATUS: TIntegerField;
    TblSlctMEMO: TStringField;
    QrySlct: TQuery;
    QrySlctSALEITEM_ID: TStringField;
    QrySlctSALE_ID: TStringField;
    QrySlctFOOD_TYPE: TStringField;
    QrySlctQUANTITY: TFloatField;
    QrySlctPRICE: TFloatField;
    QrySlctREMAIN: TFloatField;
    QrySlctsitename: TStringField;
    QrySlctdepotname: TStringField;
    QrySlctfoodposition: TStringField;
    procedure BitBtnOkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure SltFlds(OwnerForm: TForm);

var
  FrmSlctSaleItemID: TFrmSlctSaleItemID;
  s_SaleItemID: string;

implementation

uses Global;

{$R *.dfm}

procedure SltFlds(OwnerForm: TForm);
begin
  FrmSlctSaleItemID := TFrmSlctSaleItemID.create(OwnerForm);
  try
    if FrmSlctSaleItemID.ShowModal = mrOK then
      begin
        if FrmSlctSaleItemID.Owner = FrmSaleOutStack  then
        begin
          FrmSaleOutStack.SaleItemID := s_SaleItemID;
        end;
      end
  finally
    FrmSlctSaleItemID.Free;
    FrmSlctSaleItemID := nil;
  end;
end;


procedure TFrmSlctSaleItemID.BitBtnOkClick(Sender: TObject);
begin
  //s_SaleItemID := TblSlct.FieldByName('SALEITEM_ID').AsString;
  s_SaleItemID := QrySlct.FieldByName('SALEITEM_ID').AsString;
  inherited;
end;



procedure TFrmSlctSaleItemID.FormCreate(Sender: TObject);
begin
  inherited;
  QrySlct.SQL.Clear;
  QrySlct.SQL.Text:='select ENT_SALE_ITEM.SALEITEM_ID,ENT_SALE_ITEM.SALE_ID,ENT_SALE_ITEM.FOOD_TYPE,ENT_SALE_ITEM.REMAIN,ENT_SALE_ITEM.QUANTITY,ENT_SALE_ITEM.PRICE,ENT_SALE_ITEM.sitename,ENT_SALE_ITEM.depotname,ENT_SALE_ITEM.foodposition '+
                    'from ENT_SALE_ITEM,ENT_SALE where ENT_SALE_ITEM.SALE_id=ENT_SALE.SALE_id and ENT_SALE.unit_id='+inttostr(global.g_user.UnitID)+' and ENT_SALE_ITEM.status=0';
  QrySlct.Prepare;
  QrySlct.Open;
  QrySlct.Last;
  if QrySlct.RecordCount>0 then
    BitBtnOk.Enabled:=true;
end;

end.