inv_journalqry_d.pas

一个MRPII系统源代码版本

unit Inv_JournalQry_D;

Interface

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

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

var
  Frm_Inv_JournalQry_D: TFrm_Inv_JournalQry_D;

implementation

{$R *.DFM}

{ TFrm_Inv_MonthSumQry_D }

procedure TFrm_Inv_JournalQry_D.InitControls;
begin
  inherited;
  with AdoQry_Maintain do
  begin
    Lbl_InvLMQty.Caption:=fieldbyname('InvBillQty').AsString;
    Lbl_InvInQty.Caption:=fieldbyname('OInvBillQty').AsString;
    Lbl_InvOutQty.Caption:=fieldbyname('InvBlncQty').AsString;
    Lbl_InvLMPrice.Caption:=fieldbyname('InvBillPrice').AsString;
    Lbl_InvInPrice.Caption:=fieldbyname('OInvBillPrice').AsString;
    Lbl_InvOutPrice.Caption:=fieldbyname('InvBlncPrice').AsString;
    Lbl_InvLMAmount.Caption:=fieldbyname('InvBillAmount').AsString;
    Lbl_InvInAmount.Caption:=fieldbyname('OInvBillAmount').AsString;
    Lbl_InvOutAmount.Caption:=fieldbyname('InvBlncAmount').AsString;
  end;
end;

end.