inv_otherinaudit_b.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_OtherInAudit_B: TFrm_Inv_OtherInAudit_B
  Left = -53
  Top = 82
  Caption = ''
  ClientHeight = 486
  ClientWidth = 771
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 771
    inherited ToolBar: TToolBar
      inherited TlBtn_Preview: TToolButton
        Hint = '打印预览(不计打印次数)'
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 771
    inherited Image2: TImage
      Width = 771
    end
  end
  inherited Pnl_Head: TPanel
    Width = 771
    Height = 91
    inherited Image1: TImage
      Width = 771
      Height = 91
    end
    object Label1: TLabel
      Left = 34
      Top = 15
      Width = 36
      Height = 12
      Caption = '仓库：'
    end
    object Label2: TLabel
      Left = 408
      Top = 54
      Width = 36
      Height = 12
      Caption = '名称：'
    end
    object Label4: TLabel
      Left = 264
      Top = 15
      Width = 36
      Height = 12
      Caption = '货位：'
    end
    object Label5: TLabel
      Left = 581
      Top = 34
      Width = 36
      Height = 12
      Caption = '日期：'
    end
    object Label7: TLabel
      Left = 10
      Top = 34
      Width = 60
      Height = 12
      Caption = '入库类型：'
    end
    object Label8: TLabel
      Left = 34
      Top = 72
      Width = 36
      Height = 12
      Caption = '备注：'
    end
    object Label10: TLabel
      Left = 568
      Top = 15
      Width = 48
      Height = 12
      Caption = '单据号：'
    end
    object Label13: TLabel
      Left = 10
      Top = 54
      Width = 60
      Height = 12
      Caption = '入库对象：'
    end
    object Label16: TLabel
      Left = 264
      Top = 54
      Width = 36
      Height = 12
      Caption = '代码：'
    end
    object lbl_OutName: TLabel
      Left = 448
      Top = 54
      Width = 6
      Height = 12
    end
    object lbl_WhCode: TLabel
      Left = 72
      Top = 15
      Width = 6
      Height = 12
    end
    object lbl_WhPositionCode: TLabel
      Left = 304
      Top = 15
      Width = 6
      Height = 12
    end
    object lbl_BillType2Code: TLabel
      Left = 72
      Top = 34
      Width = 6
      Height = 12
    end
    object lbl_OutType: TLabel
      Left = 72
      Top = 54
      Width = 6
      Height = 12
    end
    object lbl_OutCode: TLabel
      Left = 304
      Top = 54
      Width = 6
      Height = 12
    end
    object lbl_Date: TLabel
      Left = 621
      Top = 34
      Width = 6
      Height = 12
    end
    object lbl_memo: TLabel
      Left = 72
      Top = 72
      Width = 6
      Height = 12
    end
    object Label6: TLabel
      Left = 265
      Top = 34
      Width = 36
      Height = 12
      Caption = '税率：'
    end
    object Label9: TLabel
      Left = 360
      Top = 32
      Width = 8
      Height = 16
      Caption = '%'
      Font.ChArset = GB2312_CHArSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Extedt_Billno: TExtEdit
      Left = 616
      Top = 8
      Width = 105
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 0
    end
    object Extedt_InvBilltaxrate: TExtEdit
      Left = 303
      Top = 30
      Width = 51
      Height = 20
      TabOrder = 1
      OnExit = Extedt_InvBilltaxrateExit
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 451
    Width = 771
    Height = 35
    inherited Image4: TImage
      Width = 771
      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 = 148
    Width = 771
    Height = 303
    inherited Image3: TImage
      Width = 771
      Height = 303
    end
    inherited DBGridEh: TDBGridEh
      Width = 771
      Height = 303
      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 = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税价'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillnotaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税价'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillnotaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BilllineremArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 150
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_New: TAction
      Visible = False
    end
    inherited Act_InsertLine: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_DeleteLine: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Hint: TAction
      Enabled = False
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = ''
    SQL.Strings = (
      'select '
      '  bl.InvBillid,'
      '  bl.InvBilllineno,'
      '  bl.BilllineremArk,'
      '  bl.InvBillqty,'
      '  bl.ItemCode,'
      '  i.ItemName,'
      '  u.UomName,'
      '  bl.InvBillPrice,'
      '  bl.InvBillAmount,'
      '  bl.InvBillnotaxPrice,'
      '  bl.InvBillnotaxAmount '
      'from InvInBillline bl,Item i,Uom u '
      'where bl.InvBillid=1'
      '  and bl.ItemCode=i.ItemCode '
      '  and i.UomCode=u.UomCode ')
    object AdoQry_BodyInvBillid: TBCDField
      FieldName = 'InvBillid'
      Precision = 18
      Size = 0
    end
    object AdoQry_BodyInvBilllineno: TStringField
      FieldName = 'InvBilllineno'
      Size = 10
    end
    object AdoQry_BodyInvBillqty: TFloatField
      FieldName = 'InvBillqty'
    end
    object AdoQry_BodyItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_BodyItemName: TStringField
      FieldName = 'ItemName'
      Size = 60
    end
    object AdoQry_BodyUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_BodyInvBillPrice: TFloatField
      FieldName = 'InvBillPrice'
    end
    object AdoQry_BodyInvBillAmount: TBCDField
      FieldName = 'InvBillAmount'
      Precision = 12
      Size = 2
    end
    object AdoQry_BodyInvBillnotaxPrice: TFloatField
      FieldName = 'InvBillnotaxPrice'
    end
    object AdoQry_BodyInvBillnotaxAmount: TBCDField
      FieldName = 'InvBillnotaxAmount'
      Precision = 12
      Size = 2
    end
    object AdoQry_BodyBilllineremArk: TStringField
      FieldName = 'BilllineremArk'
      Size = 250
    end
  end
end