inv_monthsumqry_d.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 64 行

unit Inv_MonthSumQry_D;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Detail, Db, AdODB, ExtCtrls, StdCtrls;

Type
  TFrm_Inv_MonthSumQry_D = Class(TFrm_Base_Detail)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Lbl_InvLMQty: TLabel;
    Lbl_InvInQty: TLabel;
    Lbl_InvOutQty: TLabel;
    Lbl_InvBlncQty: TLabel;
    Lbl_InvLMPrice: TLabel;
    Lbl_InvInPrice: TLabel;
    Lbl_InvOutPrice: TLabel;
    Lbl_InvBlncPrice: TLabel;
    Lbl_InvLMAmount: TLabel;
    Lbl_InvInAmount: TLabel;
    Lbl_InvOutAmount: TLabel;
    Lbl_InvBlncAmount: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitControls; Override;
  end;

var
  Frm_Inv_MonthSumQry_D: TFrm_Inv_MonthSumQry_D;

implementation

{$R *.DFM}

{ TFrm_Inv_MonthSumQry_D }

procedure TFrm_Inv_MonthSumQry_D.InitControls;
begin
  inherited;
  with AdoQry_Maintain do
  begin
    Lbl_InvLMQty.Caption:=fieldbyname('InvLMQty').AsString;
    Lbl_InvInQty.Caption:=fieldbyname('InvInQty').AsString;
    Lbl_InvOutQty.Caption:=fieldbyname('InvOutQty').AsString;
    Lbl_InvBlncQty.Caption:=fieldbyname('InvBlncQty').AsString;
    Lbl_InvLMPrice.Caption:=fieldbyname('InvLMPrice').AsString;
    Lbl_InvInPrice.Caption:=fieldbyname('InvInPrice').AsString;
    Lbl_InvOutPrice.Caption:=fieldbyname('InvOutPrice').AsString;
    Lbl_InvBlncPrice.Caption:=fieldbyname('InvBlncPrice').AsString;
    Lbl_InvLMAmount.Caption:=fieldbyname('InvLMAmount').AsString;
    Lbl_InvInAmount.Caption:=fieldbyname('InvInAmount').AsString;
    Lbl_InvOutAmount.Caption:=fieldbyname('InvOutAmount').AsString;
    Lbl_InvBlncAmount.Caption:=fieldbyname('InvBlncAmount').AsString;
  end;
end;

end.