inv_otherin_b.dfm

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

inherited Frm_Inv_OtherIn_B: TFrm_Inv_OtherIn_B
  Left = 1
  Top = 93
  Caption = '其它入库'
  ClientHeight = 553
  ClientWidth = 793
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 793
    inherited ToolBar: TToolBar
      inherited TlBtn_Preview: TToolButton
        Hint = '打印预览(不计打印次数)'
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 793
    Caption = '其它入库'
    inherited Image2: TImage
      Width = 793
    end
  end
  inherited Pnl_Head: TPanel
    Width = 793
    Height = 109
    inherited Image1: TImage
      Width = 793
      Height = 109
    end
    object Label1: TLabel
      Left = 77
      Top = 16
      Width = 36
      Height = 12
      Caption = '仓库：'
      TransParent = True
    end
    object Label2: TLabel
      Left = 288
      Top = 59
      Width = 84
      Height = 12
      Caption = '入库对象名称：'
      TransParent = True
    end
    object Label4: TLabel
      Left = 336
      Top = 16
      Width = 36
      Height = 12
      Caption = '货位：'
      TransParent = True
    end
    object Label5: TLabel
      Left = 605
      Top = 35
      Width = 48
      Height = 12
      Caption = '日  期：'
      TransParent = True
    end
    object Label7: TLabel
      Left = 53
      Top = 37
      Width = 60
      Height = 12
      Caption = '入库类型：'
      TransParent = True
    end
    object Label8: TLabel
      Left = 336
      Top = 82
      Width = 36
      Height = 12
      Caption = '备注：'
      TransParent = True
    end
    object Label10: TLabel
      Left = 604
      Top = 16
      Width = 48
      Height = 12
      Caption = '单据号：'
      TransParent = True
    end
    object Label13: TLabel
      Left = 312
      Top = 37
      Width = 60
      Height = 12
      Caption = '入库对象：'
      TransParent = True
    end
    object Label16: TLabel
      Left = 29
      Top = 59
      Width = 84
      Height = 12
      Caption = '入库对象代码：'
      TransParent = True
    end
    object Label6: TLabel
      Left = 64
      Top = 82
      Width = 48
      Height = 12
      Caption = '税  率：'
      TransParent = True
    end
    object Label9: TLabel
      Left = 153
      Top = 82
      Width = 36
      Height = 12
      Caption = '货币：'
      TransParent = True
    end
    object Extedt_Billno: TExtEdit
      Left = 650
      Top = 10
      Width = 68
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 0
    end
    object medt_Date: TMaskEdit
      Left = 651
      Top = 31
      Width = 67
      Height = 20
      EditMask = '9999.99.99;1; '
      MaxLength = 10
      TabOrder = 5
      Text = '    .  .  '
      OnExit = DateCheck
    end
    object Extedt_memo: TExtEdit
      Left = 370
      Top = 78
      Width = 348
      Height = 20
      TabOrder = 6
    end
    object cmbbx_WhCode: TComboBox
      Left = 111
      Top = 12
      Width = 140
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      OnChange = cmbbx_WhCodeChange
    end
    object cmbbx_WhPositionCode: TComboBox
      Left = 370
      Top = 12
      Width = 163
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 2
    end
    object cmbbx_BillType2Code: TComboBox
      Left = 111
      Top = 33
      Width = 140
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 3
      OnExit = cmbbx_BillType2CodeExit
    end
    object cmbbx_OutType: TComboBox
      Left = 370
      Top = 33
      Width = 163
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 4
      OnExit = cmbbx_OutTypeExit
    end
    object lbl_OutName: TEdit
      Left = 370
      Top = 55
      Width = 163
      Height = 20
      ReadOnly = True
      TabOrder = 7
    end
    object Extedt_OutCode: TLinkEdit
      Left = 111
      Top = 55
      Width = 84
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 8
      OnButtonClick = Extedt_OutCodeButtonClick
      OnExit = Extedt_OutCodeExit
      OnKeyDown = Extedt_OutCodeKeyDown
    end
    object lb_Vendortaxrate_Percent: TEdit
      Left = 110
      Top = 78
      Width = 36
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 9
    end
    object lbl_CurrencyName: TEdit
      Left = 187
      Top = 78
      Width = 63
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 10
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 518
    Width = 793
    Height = 35
    inherited Image4: TImage
      Width = 793
      Height = 35
    end
    object Label3: TLabel
      Left = 40
      Top = 15
      Width = 96
      Height = 12
      Caption = '当前行物料描述：'
    end
    object DBText1: TDBText
      Left = 144
      Top = 14
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Top = 166
    Width = 793
    Height = 352
    inherited Image3: TImage
      Width = 793
      Height = 352
    end
    inherited DBGridEh: TDBGridEh
      Width = 793
      Height = 352
      Columns = <
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Caption = '物料代码'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Caption = '物料描述'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Caption = '计量单位'
          Width = 51
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillqty'
          PickList.Strings = ()
          Title.Caption = '数量'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Batchno'
          PickList.Strings = ()
          Title.Caption = '批次号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillPrice'
          PickList.Strings = ()
          Title.Caption = '含税价'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillAmount'
          PickList.Strings = ()
          Title.Caption = '含税金额'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillnotaxPrice'
          PickList.Strings = ()
          Title.Caption = '未税价'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillnotaxAmount'
          PickList.Strings = ()
          Title.Caption = '未税金额'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BilllineremArk'
          PickList.Strings = ()
          Title.Caption = '备注'
          Width = 200
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 397
    Top = 211
  end
  inherited ActionList: TActionList
    Left = 504
    Top = 65528
    inherited Act_New: TAction
      Enabled = True
    end
    inherited Act_Hint: TAction
      Enabled = False
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = ''
    BeforePost = AdoQry_BodyBeforePost
    AfterPost = AdoQry_BodyAfterPost
    SQL.Strings = (
      'select '
      '                 bl.InvBillid,'
      '                 bl.InvBilllineno,'
      '                 bl.InvBillqty,'
      '                 bl.ItemCode,'
      '                 i.ItemName,'
      '                 u.UomName,'
      '                 bl.BilllineremArk,'
      '                 bl.InvBillPrice,'
      '                 bl.InvBillAmount,'
      '                 bl.InvBillnotaxPrice,'
      '                 bl.InvBillnotaxAmount '
      '               from InvInBillline bl,Item i,Uom u '
      '               where bl.InvBillid=95270'
      '                 and bl.ItemCode=i.ItemCode '
      '                 and i.UomCode=u.UomCode '
      '                Order by bl.InvBilllineno')
    Top = 209
  end
  inherited DataSource: TDataSource
    Top = 209
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 120
    Top = 225
  end
end