sal_enter_backshiporder_c1.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Enter_BackShipOrder_C1: TFrm_Sal_Enter_BackShipOrder_C1
  Left = 60
  Top = 86
  Caption = '销售发货选择列表'
  ClientHeight = 401
  ClientWidth = 711
  FormStyle = fsNormal
  Position = poDesktopCenter
  Windowstate = wsNormal
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Align = alNone
  end
  inherited Pnl_Title: TPanel
    Top = 0
    Width = 711
    Height = 3
    inherited Image2: TImage
      Width = 711
      Height = 3
    end
  end
  inherited Pnl_Head: TPanel
    Top = 3
    Width = 711
    Height = 0
    inherited Image1: TImage
      Width = 711
      Height = 0
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 340
    Width = 711
    Height = 61
    inherited Image4: TImage
      Width = 711
      Height = 61
    end
    object btn_ok: TButton
      Left = 278
      Top = 14
      Width = 74
      Height = 23
      Anchors = [akRight, akBottom]
      Caption = '确定(&O)'
      TabOrder = 0
      OnClick = btn_okClick
    end
    object btn_Cancel: TButton
      Left = 372
      Top = 14
      Width = 74
      Height = 23
      Anchors = [akRight, akBottom]
      Cancel = True
      Caption = '取消(&C)'
      ModalResult = 2
      TabOrder = 1
      OnClick = btn_CancelClick
    end
    object btn_reselect: TButton
      Left = 183
      Top = 14
      Width = 74
      Height = 23
      Anchors = [akRight, akBottom]
      Caption = '重选(&R)'
      TabOrder = 2
      OnClick = btn_reselectClick
    end
  end
  inherited Pnl_Body: TPanel
    Top = 3
    Width = 711
    Height = 337
    inherited Image3: TImage
      Width = 711
      Height = 337
    end
    inherited DBGridEh: TDBGridEh
      Width = 711
      Height = 337
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = False
      OnTitleClick = DBGridEhTitleClick
      Columns = <
        Item
          FieldName = 'TmpField'
          PickList.Strings = (
            '1'
            '0')
          Title.Alignment = taCenter
          Title.Caption = '标记'
          Title.Color = clActiveBOrder
          Title.Font.ChArset = GB2312_CHArSET
          Title.Font.Color = clBlue
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 35
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'InvBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售发货单号'
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售发货行号'
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillTypeCode'
          PickList.Strings = (
            '材料销售发货'
            '产品销售发货')
          Width = 84
          KeyList.Strings = (
            '0205'
            '0206')
        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 = 'WHCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库代码'
          Width = 59
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库名称'
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货位代码'
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货位名称'
          Width = 99
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyCode'
          PickList.Strings = ()
          Title.Caption = '货币代码'
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          Title.Caption = '货币名称'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货量'
          Width = 73
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 381
    Top = 99
  end
  inherited ActionList: TActionList
    Left = 256
    Top = 48
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_kelong;Data Source=192.168' +
      '.0.100;Use procedure for Prepare=1;Auto Translate=True;Packet Si' +
      'ze=4096;Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      
        'Select Sa_ShipOrderLine.* ,Item.ItemName,Uom.UomName,Warehouse.W' +
        'hName,WhPosition.WhPositionName'
      'From Sa_ShipOrderLine'
      'Join Item'
      '  On Sa_ShipOrderLine.ItemCode=Item.ItemCode'
      'Join Sa_ShipOrder'
      '  On Sa_ShipOrderLine.ShipNo=Sa_ShipOrder.ShipNo'
      'Join Uom'
      '  On Item.UomCode=Uom.UomCode'
      'Join Warehouse'
      '  On Warehouse.WhCode=Sa_ShipOrderLine.WhCode'
      'left Join WhPosition '
      '  On (Sa_ShipOrderLine.WhCode=Warehouse.WhCode'
      
        '    And Sa_ShipOrderLine.WhPositionCode=WhPosition.WhPositionCod' +
        'e)')
    Left = 432
    Top = 209
    object AdoQry_MainShipNo: TStringField
      FieldName = 'InvBillNo'
      Size = 16
    end
    object AdoQry_MainSloNo: TStringField
      FieldName = 'SloNo'
      Size = 16
    end
    object AdoQry_MainSloLineNo: TIntegerField
      FieldName = 'SloLineNo'
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MainShipQty: TFloatField
      FieldName = 'InvBillQty'
    end
    object AdoQry_MainWHCode: TStringField
      FieldName = 'WHCode'
      Size = 4
    end
    object AdoQry_MainWhPositionCode: TStringField
      FieldName = 'WhPositionCode'
      Size = 4
    end
    object AdoQry_MainBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 16
    end
    object AdoQry_MainNoTaxPrice: TFloatField
      FieldName = 'InvBillNoTaxPrice'
    end
    object AdoQry_MainNoTaxAmount: TFloatField
      FieldName = 'InvBillNoTaxAmount'
    end
    object AdoQry_MainTaxPrice: TFloatField
      FieldName = 'InvBillPrice'
    end
    object AdoQry_MainTaxAmount: TFloatField
      FieldName = 'InvBillAmount'
    end
    object AdoQry_MainDiSCountRate: TFloatField
      FieldName = 'DiSCountRate'
    end
    object AdoQry_MainDiSCountAmount: TFloatField
      FieldName = 'DiSCountAmount'
    end
    object AdoQry_MainShipLineRemArk: TStringField
      FieldName = 'BillLineRemArk'
      Size = 60
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Size = 80
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MainWhName: TStringField
      FieldName = 'WhName'
      Size = 40
    end
    object AdoQry_MainWhPositionName: TStringField
      FieldName = 'WhPositionName'
      Size = 40
    end
    object AdoQry_MainInvBillLineNo: TStringField
      FieldName = 'InvBillLineNo'
    end
    object AdoQry_MainTmpField: TFloatField
      FieldName = 'TmpField'
    end
    object AdoQry_MainCurrencyCode: TStringField
      FieldName = 'CurrencyCode'
    end
    object AdoQry_MainCurrencyName: TStringField
      FieldName = 'CurrencyName'
    end
    object AdoQry_MaInBillTypeCode: TStringField
      DisplayLabel = '单据类型'
      FieldName = 'BillTypeCode'
    end
  end
  inherited DataSource: TDataSource
    Left = 472
    Top = 73
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 120
    Top = 137
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 208
    Top = 193
  end
end