inv_amountadjust_b.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_AmountAdjust_B: TFrm_Inv_AmountAdjust_B
  Left = 11
  Top = 104
  Caption = ''
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited TlBtn_Preview: TToolButton
        Hint = '打印预览(不计打印次数)'
      end
    end
  end
  inherited Pnl_Head: TPanel
    Height = 56
    object Label1: TLabel
      Left = 34
      Top = 6
      Width = 36
      Height = 12
      Caption = '仓库：'
    end
    object Label5: TLabel
      Left = 540
      Top = 30
      Width = 48
      Height = 12
      Caption = '日  期：'
    end
    object Label7: TLabel
      Left = 290
      Top = 6
      Width = 60
      Height = 12
      Caption = '入库类型：'
    end
    object Label8: TLabel
      Left = 34
      Top = 30
      Width = 36
      Height = 12
      Caption = '备注：'
    end
    object Label10: TLabel
      Left = 539
      Top = 6
      Width = 48
      Height = 12
      Caption = '单据号：'
    end
    object MEdt_Date: TMaskEdit
      Left = 587
      Top = 26
      Width = 67
      Height = 20
      EditMask = '9999.99.99;1; '
      MaxLength = 10
      TabOrder = 4
      Text = '    .  .  '
      OnExit = DateCheck
    end
    object CmBx_WhCode: TComboBox
      Left = 76
      Top = 2
      Width = 145
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
    end
    object CmBx_BillType2Code: TComboBox
      Left = 356
      Top = 2
      Width = 145
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
    end
    object Edt_RemArk: TEdit
      Left = 76
      Top = 26
      Width = 425
      Height = 20
      TabOrder = 3
      Text = 'Edt_RemArk'
    end
    object Edt_BillNo: TEdit
      Left = 587
      Top = 2
      Width = 105
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 2
      Text = 'Edt_BillNo'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 464
    Height = 4
  end
  inherited Pnl_Body: TPanel
    Top = 113
    Height = 351
    inherited DBGridEh: TDBGridEh
      Height = 351
      Columns = <
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillnotaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BilllineremArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 152
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Top = 200
    inherited Act_New: TAction
      Enabled = True
    end
    inherited Act_Hint: TAction
      Enabled = False
      Visible = False
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = ''
    SQL.Strings = (
      
        'select bl.InvBillid,bl.InvBilllineno,bl.InvBillqty,bl.ItemCode,i' +
        '.ItemName,u.UomName,bl.BilllineremArk '
      '            from InvInBillline bl,Item i,Uom u '
      '             where bl.InvBillid=1'
      '               and bl.ItemCode=i.ItemCode '
      '               and i.UomCode=u.UomCode ')
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 120
    Top = 225
  end
  object AdoQry_HeadNew: TAdoQuery
    LockType = ltBatchOptimistic
    EnableBCD = False
    Parameters = <>
    Left = 328
    Top = 233
  end
end