inv_otherout_b.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_OtherOut_B: TFrm_Inv_OtherOut_B
  Left = -7
  Top = 92
  Caption = '其他出库制单'
  ClientHeight = 446
  ClientWidth = 786
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 786
    inherited ToolBar: TToolBar
      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 = 73
    inherited Image1: TImage
      Width = 786
      Height = 73
    end
    object Label2: TLabel
      Left = 24
      Top = 8
      Width = 36
      Height = 12
      Caption = '仓库：'
    end
    object Label3: TLabel
      Left = 0
      Top = 31
      Width = 60
      Height = 12
      Caption = '出库对象：'
    end
    object Label4: TLabel
      Left = 24
      Top = 56
      Width = 36
      Height = 12
      Caption = '备注：'
    end
    object Label5: TLabel
      Left = 216
      Top = 8
      Width = 36
      Height = 12
      Caption = '货位：'
    end
    object Label6: TLabel
      Left = 216
      Top = 31
      Width = 36
      Height = 12
      Caption = '代码：'
    end
    object Label7: TLabel
      Left = 381
      Top = 8
      Width = 60
      Height = 12
      Caption = '出库类型：'
    end
    object Label8: TLabel
      Left = 404
      Top = 31
      Width = 36
      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 = 439
      Top = 31
      Width = 6
      Height = 12
    end
    object Cmbx_WhCodeName: TComboBox
      Left = 58
      Top = 4
      Width = 121
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      OnChange = Cmbx_WhCodeNameChange
      OnExit = Cmbx_WhCodeNameExit
    end
    object Cmbx_OutType: TComboBox
      Left = 58
      Top = 27
      Width = 121
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 3
      OnChange = Cmbx_OutTypeChange
      Items.Strings = (
        '部门'
        '')
    end
    object Cmbx_Position: TComboBox
      Left = 249
      Top = 4
      Width = 121
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      OnChange = Cmbx_PositionChange
    end
    object Cmbx_BillType2CodeName: TComboBox
      Left = 438
      Top = 4
      Width = 156
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 2
      OnChange = Cmbx_BillType2CodeNameChange
      OnExit = Cmbx_BillType2CodeNameExit
    end
    object Edt_Memo: TEdit
      Left = 58
      Top = 50
      Width = 515
      Height = 20
      TabOrder = 6
    end
    object Edt_BillNo: TEdit
      Left = 653
      Top = 4
      Width = 113
      Height = 20
      Enabled = False
      TabOrder = 7
    end
    object Medt_Date: TMaskEdit
      Left = 653
      Top = 27
      Width = 113
      Height = 20
      EditMask = '!9999/99/99;1;_'
      MaxLength = 10
      TabOrder = 5
      Text = ' -  .  .  '
      OnExit = Medt_DateExit
    end
    object Edt_OutCode: TExtEdit
      Left = 249
      Top = 27
      Width = 121
      Height = 20
      TabOrder = 4
      OnExit = Edt_OutCodeExit
      OnKeyDown = Edt_OutCodeKeyDown
      DispLabel = Lbl_OutName
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 420
    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 = 130
    Width = 786
    Height = 290
    inherited Image3: TImage
      Width = 786
      Height = 290
    end
    inherited DBGridEh: TDBGridEh
      Width = 786
      Height = 290
      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 = 32
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BatchNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '批次号'
          Width = 115
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNoTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税价'
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNoTaxAmount'
          PickList.Strings = ()
          Title.Caption = '未税金额'
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillLineReMArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 119
          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