inv_otheropout_b.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_OtherOpOut_B: TFrm_Inv_OtherOpOut_B
  Left = -2
  Top = 117
  Caption = '无订单委外发料'
  ClientHeight = 448
  ClientWidth = 786
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 786
    inherited ToolBar: TToolBar
      inherited ToolButton7: TToolButton
        Visible = False
      end
      inherited TlBtn_Preview: TToolButton
        Hint = '打印预览(不计打印次数)'
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 786
    Caption = '无订单委外发料'
    inherited Image2: TImage
      Width = 786
    end
  end
  inherited Pnl_Head: TPanel
    Width = 786
    Height = 74
    inherited Image1: TImage
      Width = 786
      Height = 74
    end
    object Label2: TLabel
      Left = 43
      Top = 8
      Width = 36
      Height = 12
      Caption = '仓库：'
    end
    object Label4: TLabel
      Left = 42
      Top = 55
      Width = 36
      Height = 12
      Caption = '备注：'
    end
    object Label5: TLabel
      Left = 335
      Top = 8
      Width = 36
      Height = 12
      Caption = '货位：'
    end
    object Label6: TLabel
      Left = 7
      Top = 31
      Width = 72
      Height = 12
      Caption = '供应商代码：'
    end
    object Label8: TLabel
      Left = 216
      Top = 31
      Width = 72
      Height = 12
      Caption = '供应商名称：'
    end
    object Label9: TLabel
      Left = 608
      Top = 8
      Width = 48
      Height = 12
      Caption = '单据号：'
    end
    object Label10: TLabel
      Left = 620
      Top = 31
      Width = 36
      Height = 12
      Caption = '日期：'
    end
    object Lbl_OutName: TLabel
      Left = 291
      Top = 31
      Width = 6
      Height = 12
    end
    object Label7: TLabel
      Left = 385
      Top = 8
      Width = 60
      Height = 12
      Caption = '出库类型：'
      Visible = False
    end
    object Cmbx_WhCodeName: TComboBox
      Left = 76
      Top = 4
      Width = 205
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      OnChange = Cmbx_WhCodeNameChange
      OnExit = Cmbx_WhCodeNameExit
    end
    object Cmbx_Position: TComboBox
      Left = 368
      Top = 4
      Width = 180
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      OnChange = Cmbx_PositionChange
    end
    object Edt_Memo: TEdit
      Left = 75
      Top = 50
      Width = 521
      Height = 20
      TabOrder = 5
    end
    object Edt_BillNo: TEdit
      Left = 653
      Top = 4
      Width = 113
      Height = 20
      Enabled = False
      TabOrder = 6
    end
    object Medt_Date: TMaskEdit
      Left = 653
      Top = 27
      Width = 113
      Height = 20
      EditMask = '!9999/99/00;1;_'
      MaxLength = 10
      TabOrder = 4
      Text = ' -  .  .  '
      OnExit = Medt_DateExit
    end
    object Edt_OutCode: TExtEdit
      Left = 76
      Top = 27
      Width = 121
      Height = 20
      TabOrder = 3
      OnExit = Edt_OutCodeExit
      OnKeyDown = Edt_OutCodeKeyDown
      DispLabel = Lbl_OutName
    end
    object Cmbx_BillType2CodeName: TComboBox
      Left = 608
      Top = 70
      Width = 157
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 2
      Visible = False
      OnChange = Cmbx_BillType2CodeNameChange
      OnExit = Cmbx_BillType2CodeNameExit
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 422
    Width = 786
    inherited Image4: TImage
      Width = 786
    end
    object Label1: TLabel
      Left = 768
      Top = 24
      Width = 36
      Height = 12
      Caption = 'Label1'
    end
  end
  inherited Pnl_Body: TPanel
    Top = 131
    Width = 786
    Height = 291
    inherited Image3: TImage
      Width = 786
      Height = 291
    end
    inherited DBGridEh: TDBGridEh
      Width = 786
      Height = 291
      OnDblClick = Act_ModifyExecute
      OnKeyDown = DBGridEhKeyDown
      Columns = <
        Item
          FieldName = 'InvBillId'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillLineNo'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        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 = 31
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BatchNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '批次号'
          Width = 118
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNoTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税价'
          Width = 79
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNoTaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 80
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillLineReMArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 103
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Top = 256
    inherited Act_New: TAction
      Tag = 4
    end
    inherited Act_Modify: TAction
      Hint = '修改'
    end
    inherited Act_InsertLine: TAction
      Caption = '增加一行'
      Hint = '增加一行'
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B;Data Source=192.168.0.' +
      '151;Use procedure for Prepare=1;Auto Translate=True;Packet Size=' +
      '4096;Workstation ID=XYB'
    AfterPost = AdoQry_BodyAfterPost
    AfterScroll = AdoQry_BodyAfterScroll
    SQL.Strings = (
      'select B.InvBillId,B.InvBillLineNo,B.InvBillQty,B.ItemCode, '
      '                   I.ItemName,U.UomName,B.InvBillNoTaxPrice,'
      '                   B.InvBillNoTaxAmount,IB.InvBillMonth,'
      '                   B.BatchNo,'
      '                   B.BillLineReMArk'
      '             from InvOutBillLine B'
      '             Left join Item I'
      '               on B.ItemCode=I.ItemCode'
      '             Left Join Uom U'
      '               on I.UomCode=U.UomCode'
      '             Left JOin InvOutBill IB'
      '               on IB.InvBillid=B.InvBillid')
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 136
    Top = 273
  end
end