inv_outpricediffanalyse.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_OutPriceDiffAnalyse: TFrm_Inv_OutPriceDiffAnalyse
  Left = 8
  Top = 85
  Caption = '本厂物料发出价格差异分析'
  ClientHeight = 440
  ClientWidth = 784
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 784
  end
  inherited Pnl_Title: TPanel
    Width = 784
    Caption = '本厂物料发出价格差异分析'
  end
  inherited Pnl_Head: TPanel
    Width = 784
    Height = 45
    inherited Lbl_OrderTitle: TLabel
      Top = 26
    end
    inherited Lbl_ConditionTitle: TLabel
      Caption = '统计月份：'
    end
    inherited Lbl_Order: TLabel
      Top = 26
      Width = 54
      Caption = '仓库/物料'
    end
    object Label1: TLabel
      Left = 440
      Top = 24
      Width = 258
      Height = 12
      Caption = '只显示金额差异大于                 元的记录'
    end
    object Edit1: TEdit
      Left = 555
      Top = 20
      Width = 88
      Height = 20
      TabOrder = 0
      Text = '0'
      OnChange = Edit1Change
      OnExit = FloatCheck
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 414
    Width = 784
    object Label2: TLabel
      Left = 8
      Top = 8
      Width = 84
      Height = 12
      Caption = '差异记录总数：'
    end
    object Label3: TLabel
      Left = 176
      Top = 8
      Width = 84
      Height = 12
      Caption = '差异金额总计：'
    end
    object Label4: TLabel
      Left = 352
      Top = 8
      Width = 96
      Height = 12
      Caption = '显示差异记录数：'
    end
    object Label5: TLabel
      Left = 552
      Top = 8
      Width = 108
      Height = 12
      Caption = '显示差异金额合计：'
    end
    object Label6: TLabel
      Left = 96
      Top = 8
      Width = 6
      Height = 12
    end
    object Label7: TLabel
      Left = 264
      Top = 8
      Width = 6
      Height = 12
    end
    object Label8: TLabel
      Left = 448
      Top = 8
      Width = 6
      Height = 12
    end
    object Label9: TLabel
      Left = 664
      Top = 8
      Width = 6
      Height = 12
    end
  end
  inherited Pnl_Body: TPanel
    Top = 102
    Width = 784
    Height = 312
    inherited DBGridEh: TDBGridEh
      Width = 784
      Height = 312
      OnDblClick = Act_LookExecute
      Columns = <
        Item
          FieldName = 'WHCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库标识'
          Width = 98
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 357
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvInPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '收入方平均价'
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvOutPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发出方平均价'
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvOutQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发出方数量'
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiffAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '金额差异'
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 453
    Top = 171
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 200
    inherited Act_Filter: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_LookExecute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    Left = 320
    Top = 225
  end
  inherited DataSource: TDataSource
    Left = 384
    Top = 185
  end
end