sal_qry_chginfobackshiporderh.dfm

一个MRPII系统源代码版本

          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作人员代码'
          Width = 40
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName_2'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作人员名称'
          Width = 40
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ChgEmployeeCodeB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作人员'
          Width = 73
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ChgTime'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作时间'
          Width = 77
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 277
    Top = 203
  end
  inherited ActionList: TActionList
    Left = 224
    Top = 176
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.151;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      'select Sa_BackShipOrderHistory.CustomerCode,'
      '        Customer.customerName,'
      
        '        Sa_BackShipOrderHistory.CustomerCode+'#39' '#39'+Customer.custom' +
        'erName as CustomerB,'
      #9'Sa_BackShipOrderHistory.BackShipNo,'
      #9'Sa_BackShipOrderHistory.SaleTypeCode,'
      #9'SaleType.SaleTypeName,'
      
        #9'Sa_BackShipOrderHistory.SaleTypeCode+'#39' '#39'+SaleType.SaleTypeName ' +
        'as SaleTypeB,'
      #9'Sa_BackShipOrderHistory.SaleDeptCode,'
      #9'Dept.DeptName,'
      
        #9'Sa_BackShipOrderHistory.SaleDeptCode+'#39' '#39'+Dept.DeptName as DeptB' +
        ','
      #9'Sa_BackShipOrderHistory.SaleEmployeeCode,'
      #9'Employee.EmployeeName,'
      
        #9'Sa_BackShipOrderHistory.SaleEmployeeCode+'#39' '#39'+Employee.Employeen' +
        'ame as SaleEmployeeB,'
      #9'Sa_BackShipOrderHistory.CurrencyCode,'
      #9'Currency.CurrencyName,'
      
        #9'Sa_BackShipOrderHistory.CurrencyCode+'#39' '#39'+Currency.CurrencyName ' +
        'as CurrencyB,'
      #9'Sa_BackShipOrderHistory.TaxRate_Percent,'
      #9'Sa_BackShipOrderHistory.PayTermCode,'
      #9'PayTerm.PayTermName,'
      
        #9'Sa_BackShipOrderHistory.PayTermCode+'#39' '#39'+PayTerm.PayTermName as ' +
        'PayTermB,'
      #9'Sa_BackShipOrderHistory.CreateEmployeeCode,'
      #9'E.EmployeeName,'
      
        #9'Sa_BackShipOrderHistory.CreateEmployeeCode+'#39' '#39'+E.EmployeeName a' +
        's CreateEmployeeB,'
      #9'Sa_BackShipOrderHistory.ShipModeCode,'
      #9'ShipMode.ShipModeName,'
      
        #9'Sa_BackShipOrderHistory.ShipModeCode+'#39' '#39'+ShipMode.ShipModeName ' +
        'as ShipModeB, '
      #9'Sa_BackShipOrderHistory.ShipAddresSCode,'
      #9'CustomerShipAddress.ShipAddressName,'
      
        #9'Sa_BackShipOrderHistory.ShipAddresSCode+'#39' '#39'+CustomerShipAddress' +
        '.ShipAddressName as CustomerShipAddressB,--'
      #9'Sa_BackShipOrderHistory.RemArk,'
      #9'Sa_BackShipOrderHistory.RemArk1,'
      #9'Sa_BackShipOrderHistory.ChgType,'
      #9'Sa_BackShipOrderHistory.ChgEmployeeCode,'
      '        E1.EmployeeName,'
      
        #9'Sa_BackShipOrderHistory.ChgEmployeeCode+'#39#39'+E1.EmployeeName as C' +
        'hgEmployeeCodeB,'
      #9'Sa_BackShipOrderHistory.ChgTime'
      'from Sa_BackShipOrderHistory '
      
        'join Customer on Sa_BackShipOrderHistory.CustomerCode=Customer.C' +
        'ustomerCode'
      
        'join SaleType on Sa_BackShipOrderHistory.SaleTypeCode=SaleType.S' +
        'aleTypeCode'
      'join Dept on Sa_BackShipOrderHistory.SaleDeptCode=Dept.DeptCode'
      
        'join Employee on Sa_BackShipOrderHistory.SaleEmployeeCode=employ' +
        'ee.EmployeeCode'
      
        'join Currency on Sa_BackShipOrderHistory.CurrencyCode=Currency.C' +
        'urrencyCode'
      
        'join PayTerm on Sa_BackShipOrderHistory.PayTermCode=PayTerm.PayT' +
        'ermCode'
      
        'join Employee E on Sa_BackShipOrderHistory.CreateEmployeeCode=E.' +
        'EmployeeCode'
      
        'join ShipMode on Sa_BackShipOrderHistory.ShipModeCode=ShipMode.s' +
        'hiPmodeCode'
      
        'join CustomerShipAddress on Sa_BackShipOrderHistory.ShipAddresSc' +
        'ode=CustomerShipAddress.ShipAddresSCode'
      
        'join Employee E1 on Sa_BackShipOrderHistory.ChgEmployeeCode=E1.e' +
        'mployeeCode'
      ''
      ''
      ''
      ''
      ''
      ''
      '')
    Left = 328
    Top = 249
    object AdoQry_MainCustomerCode: TStringField
      FieldName = 'CustomerCode'
      Origin = 'Sa_BackShipOrderHistory'
      Size = 12
    end
    object AdoQry_MaincustomerName: TStringField
      FieldName = 'customerName'
      Origin = 'customer'
      Size = 60
    end
    object AdoQry_MainCustomerB: TStringField
      FieldName = 'CustomerB'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MainBackShipNo: TStringField
      FieldName = 'BackShipNo'
      Origin = 'Sa_BackShipOrderHistory'
      Size = 16
    end
    object AdoQry_MainSaleTypeCode: TStringField
      FieldName = 'SaleTypeCode'
      Origin = 'Sa_BackShipOrderHistory'
      Size = 6
    end
    object AdoQry_MainSaleTypeName: TStringField
      FieldName = 'SaleTypeName'
      Origin = 'SaleType'
      Size = 30
    end
    object AdoQry_MainSaleTypeB: TStringField
      FieldName = 'SaleTypeB'
      ReadOnly = True
      Size = 37
    end
    object AdoQry_MainSaleDeptCode: TStringField
      FieldName = 'SaleDeptCode'
      Origin = 'Sa_BackShipOrderHistory'
      Size = 8
    end
    object AdoQry_MainDeptName: TStringField
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_MainDeptB: TStringField
      FieldName = 'DeptB'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_MainSaleEmployeeCode: TStringField
      FieldName = 'SaleEmployeeCode'
      Origin = 'Sa_BackShipOrderHistory'
      Size = 30
    end
    object AdoQry_MainEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Origin = 'Employee'
      Size = 60
    end
    object AdoQry_MainSaleEmployeeB: TStringField
      FieldName = 'SaleEmployeeB'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainCurrencyCode: TStringField
      FieldName = 'CurrencyCode'
      Origin = 'Sa_BackShipOrderHistory'
      Size = 3
    end
    object AdoQry_MainCurrencyName: TStringField
      FieldName = 'CurrencyName'
      Origin = 'currency'
      Size = 30
    end
    object AdoQry_MainCurrencyB: TStringField
      FieldName = 'CurrencyB'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_MainTaxRate_Percent: TFloatField
      FieldName = 'TaxRate_Percent'
      Origin = 'Sa_BackShipOrderHistory'
    end
    object AdoQry_MainPayTermCode: TStringField
      FieldName = 'PayTermCode'
      Origin = 'Sa_BackShipOrderHistory'
      Size = 3
    end
    object AdoQry_MainPayTermName: TStringField
      FieldName = 'PayTermName'
      Origin = 'PayTerm'
      Size = 30
    end
    object AdoQry_MainPayTermB: TStringField
      FieldName = 'PayTermB'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_MainCreateEmployeeCode: TStringField
      FieldName = 'CreateEmployeeCode'
      Origin = 'Sa_BackShipOrderHistory'
      Size = 30
    end
    object AdoQry_MainEmployeeName_1: TStringField
      FieldName = 'EmployeeName_1'
      Size = 60
    end
    object AdoQry_MainCreateEmployeeB: TStringField
      FieldName = 'CreateEmployeeB'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainShipModeCode: TStringField
      FieldName = 'ShipModeCode'
      Origin = 'Sa_BackShipOrderHistory'
      Size = 6
    end
    object AdoQry_MainShipModeName: TStringField
      FieldName = 'ShipModeName'
      Size = 120
    end
    object AdoQry_MainShipModeB: TStringField
      FieldName = 'ShipModeB'
      ReadOnly = True
      Size = 127
    end
    object AdoQry_MainShipAddresSCode: TStringField
      FieldName = 'ShipAddresSCode'
      Origin = 'Sa_BackShipOrderHistory'
      Size = 6
    end
    object AdoQry_MainShipAddressName: TStringField
      FieldName = 'ShipAddressName'
      Size = 60
    end
    object AdoQry_MainCustomerShipAddressB: TStringField
      FieldName = 'CustomerShipAddressB'
      ReadOnly = True
      Size = 67
    end
    object AdoQry_MainRemArk: TStringField
      FieldName = 'RemArk'
      Size = 60
    end
    object AdoQry_MainRemArk1: TStringField
      FieldName = 'RemArk1'
      Size = 60
    end
    object AdoQry_MainChgType: TStringField
      FieldName = 'ChgType'
      Origin = 'Sa_BackShipOrderHistory'
      Size = 10
    end
    object AdoQry_MainChgEmployeeCode: TStringField
      FieldName = 'ChgEmployeeCode'
      Origin = 'Sa_BackShipOrderHistory'
      Size = 30
    end
    object AdoQry_MainEmployeeName_2: TStringField
      FieldName = 'EmployeeName_2'
      Size = 60
    end
    object AdoQry_MainChgEmployeeCodeB: TStringField
      FieldName = 'ChgEmployeeCodeB'
      ReadOnly = True
      Size = 90
    end
    object AdoQry_MainChgTime: TDateTimeField
      FieldName = 'ChgTime'
      Origin = 'Sa_BackShipOrderHistory'
    end
  end
  inherited PopuPmenu: TPopuPmenu
    Top = 177
  end
end