sal_enter_backshiporderh.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Enter_BackShipOrderH: TFrm_Sal_Enter_BackShipOrderH
  Left = 29
  Top = 132
  Caption = '销售退货(销售发货红冲)'
  ClientHeight = 410
  ClientWidth = 757
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 757
  end
  inherited Pnl_Title: TPanel
    Width = 757
    Caption = '销售退货(销售发货红冲)'
    inherited Image2: TImage
      Width = 757
    end
  end
  inherited Pnl_Head: TPanel
    Width = 757
    inherited Image1: TImage
      Width = 757
    end
    inherited Lbl_Condition: TLabel
      Width = 72
      Caption = '未审核退货单'
    end
    inherited Lbl_Order: TLabel
      Width = 102
      Caption = '客户代码/退货日期'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 406
    Width = 757
    Height = 4
    inherited Image4: TImage
      Width = 757
      Height = 4
    end
  end
  inherited Pnl_Body: TPanel
    Width = 757
    Height = 309
    inherited Image3: TImage
      Width = 757
      Height = 309
    end
    inherited DBGridEh: TDBGridEh
      Width = 757
      Height = 309
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'CUSTOMERCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '客户代码'
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '客户名称'
          Width = 229
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '退货日期'
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '退货单号'
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleType'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售类型'
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售部门代码'
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售部门名称'
          Width = 91
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售人员代码'
          Width = 85
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售人员名称'
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CURRENCYCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币代码'
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币名称'
          Width = 59
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBilltaxrate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售税率'
          Width = 59
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款条款代码'
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款条款名称'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillWHCHCK'
          PickList.Strings = (
            '0 未审核'
            '1 已审核')
          Title.Alignment = taCenter
          Title.Caption = '仓库审核否'
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'Sal_EmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '制单人员代码'
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '制单人员名称'
          Width = 87
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货方式代码'
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货方式名称'
          Width = 161
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddresSCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货地址代码'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddressName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货地址名称'
          Width = 195
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 209
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 573
    Top = 195
  end
  inherited ActionList: TActionList
    Left = 176
    Top = 200
  end
  inherited AdoQry_Head: 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 InvOutBill.* ,Warehouse.WhName,WhPosition.WhPositionName' +
        ',Customer.CustomerName,Dept.DeptName,'
      
        '                       Employee.EmployeeName, SaleType.SaleTypeN' +
        'ame,'
      
        '                       Currency.CurrencyName,PayTerm.PayTermName' +
        ','
      
        '                       Employee.EmployeeName As CreateEmployeeNa' +
        'me,'
      
        '                       ShipMode.ShipModeName,CustomerShipAddress' +
        '.ShipAddressName '
      '                 From InvOutBill   '
      
        '                 Left Join Warehouse on InvOutBill.WhCode=WAreHo' +
        'use.WhCode '
      
        '                 Left Join WhPosition on InvOutBill.WhCode=Whpos' +
        'ition.WhCode '
      
        '                                      and InvOutBill.WhPositionC' +
        'ode=WhPosition.WhPositionCode '
      '                 Join Customer '
      
        '                   On Customer.CustomerCode=InvOutBill.CustomerC' +
        'ode '
      '                 Left Join Dept  '
      '                   On Dept.DeptCode=InvOutBill.DeptCode '
      '                 Left Join Employee  '
      
        '                   On Employee.EmployeeCode=InvOutBill.SaleEmplo' +
        'yeeCode  '
      '                 left Join Currency '
      
        '                   On Currency.CurrencyCode=InvOutBill.CurrencyC' +
        'ode '
      '                 left Join PayTerm  '
      
        '                   On PayTerm.PayTermCode=InvOutBill.PayTermCode' +
        '  '
      '                 Left Join ShipMode  '
      
        '                   On ShipMode.ShipModeCode=InvOutBill.ShipModeC' +
        'ode  '
      '                 left Join SaleType '
      
        '                   On SaleType.SaleTypeCode=InvOutBill.SaleType ' +
        ' '
      '                 left Join CustomerShipAddress  '
      
        '                   On CustomerShipAddress.ShipAddresSCode=InvOut' +
        'Bill.ShipAddresSCode '
      'where  InvBillWhChCk=0 ')
    Left = 352
    Top = 217
    object AdoQry_HeadInvBillId: TFloatField
      FieldName = 'InvBillId'
      Origin = 'InvOutBill'
      ReadOnly = True
    end
    object AdoQry_HeadInvBillNo: TStringField