sal_qry_chginfoshiporderh.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 564 行 · 第 1/2 页

          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注2'
          Width = 178
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ChgType'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作类型'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ChgEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作人员代码'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName_2'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作人员名称'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ChgEmployeeB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作人员'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ChgTime'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作时间'
          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_ShipOrderHistory.CustomerCode,'
      #9'Customer.CustomerName,'
      
        #9'Sa_ShipOrderHistory.CustomerCode+'#39#39'+Customer.CustomerName as Cu' +
        'stomerB,        '
      #9'Sa_ShipOrderHistory.ShipNo,'
      #9'Sa_ShipOrderHistory.SaleTypeCode,'
      #9'SaleType.SaleTypeName,'
      
        #9'Sa_ShipOrderHistory.SaleTypeCode+'#39' '#39'+SaleType.SaleTypeName as S' +
        'aleTypeB,'
      #9'Sa_ShipOrderHistory.SaleDeptCode,'
      '        Dept.DeptName,'
      #9'Sa_ShipOrderHistory.SaleDeptCode+'#39' '#39'+Dept.DeptName as DeptB,'
      #9'Sa_ShipOrderHistory.SaleEmployeeCode,'
      #9'Employee.EmployeeName,'
      
        #9'Sa_ShipOrderHistory.SaleEmployeeCode+'#39' '#39'+Employee.EmployeeName ' +
        'as EmployeeB,'
      #9'Sa_ShipOrderHistory.CurrencyCode,'
      #9'Currency.CurrencyName,'
      
        #9'Sa_ShipOrderHistory.CurrencyCode+'#39' '#39'+Currency.CurrencyName as C' +
        'urrencyB,'
      #9'Sa_ShipOrderHistory.TaxRate_Percent,      '
      #9'Sa_ShipOrderHistory.PayTermCode,'
      '        PayTerm.PayTermName,'
      
        #9'Sa_ShipOrderHistory.PayTermCode+'#39' '#39'+PayTerm.PayTermName as PayT' +
        'ermB,'
      #9'Sa_ShipOrderHistory.Assess,'
      #9'Sa_ShipOrderHistory.CreateEmployeeCode,'
      '        e.EmployeeName,'
      
        #9'Sa_ShipOrderHistory.CreateEmployeeCode+'#39' '#39'+e.EmployeeName as Cr' +
        'eateEmployeeB,'
      #9'Sa_ShipOrderHistory.ShipModeCode,'
      #9'ShipMode.ShipModeName,'
      
        #9'Sa_ShipOrderHistory.ShipModeCode+'#39' '#39'+ShipMode.ShipModeName as S' +
        'hiPmodeB ,'
      #9'Sa_ShipOrderHistory.ShipAddresSCode,'
      '        CustomerShipAddress.ShipAddressName,'
      
        #9'Sa_ShipOrderHistory.ShipAddresSCode+'#39' '#39'+CustomerShipAddress.Shi' +
        'pAddressName as ShipAddressB,'
      #9'Sa_ShipOrderHistory.RemArk,'
      #9'Sa_ShipOrderHistory.RemArk1,'
      #9'Sa_ShipOrderHistory.ChgType,'
      #9'Sa_ShipOrderHistory.ChgEmployeeCode,'
      '        E1.EmployeeName,'
      
        #9'Sa_ShipOrderHistory.ChgEmployeeCode+'#39' '#39'+E1.EmployeeName as ChgE' +
        'mployeeB ,'
      #9'Sa_ShipOrderHistory.ChgTime'
      'from Sa_ShipOrderHistory'
      
        'join Customer on Sa_ShipOrderHistory.CustomerCode=Customer.Custo' +
        'merCode'
      
        'join SaleType on Sa_ShipOrderHistory.SaleTypeCode=SaleType.SaleT' +
        'ypeCode'
      'join Dept on Sa_ShipOrderHistory.SaleDeptCode=Dept.DeptCode'
      
        'join Employee on Sa_ShipOrderHistory.SaleEmployeeCode=Employee.e' +
        'mployeeCode'
      
        'join Currency on Sa_ShipOrderHistory.CurrencyCode=Currency.Curre' +
        'ncyCode'
      
        'join PayTerm on Sa_ShipOrderHistory.PayTermCode=PayTerm.PayTermC' +
        'ode'
      
        'join Employee E on Sa_ShipOrderHistory.CreateEmployeeCode=e.empl' +
        'oyeeCode'
      
        'join ShipMode on Sa_ShipOrderHistory.ShipModeCode=ShipMode.ShiPm' +
        'odeCode'
      
        'join CustomerShipAddress on Sa_ShipOrderHistory.ShipAddresSCode=' +
        'CustomerShipAddress.ShipAddresSCode'
      
        'join Employee E1 on Sa_ShipOrderHistory.ChgEmployeeCode=E1.emplo' +
        'yeeCode'
      '')
    Left = 328
    Top = 249
    object AdoQry_MainCustomerCode: TStringField
      FieldName = 'CustomerCode'
      Origin = 'Sa_ShipOrderHistory'
      Size = 12
    end
    object AdoQry_MainCustomerName: TStringField
      FieldName = 'CustomerName'
      Origin = 'Customer'
      Size = 60
    end
    object AdoQry_MainShipNo: TStringField
      FieldName = 'ShipNo'
      Origin = 'Sa_ShipOrderHistory'
      Size = 16
    end
    object AdoQry_MainSaleTypeCode: TStringField
      FieldName = 'SaleTypeCode'
      Origin = 'Sa_ShipOrderHistory'
      Size = 6
    end
    object AdoQry_MainSaleTypeName: TStringField
      FieldName = 'SaleTypeName'
      Origin = 'SaleType'
      Size = 30
    end
    object AdoQry_MainSaleDeptCode: TStringField
      FieldName = 'SaleDeptCode'
      Origin = 'Sa_ShipOrderHistory'
      Size = 8
    end
    object AdoQry_MainDeptName: TStringField
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_MainSaleEmployeeCode: TStringField
      FieldName = 'SaleEmployeeCode'
      Origin = 'Sa_ShipOrderHistory'
      Size = 30
    end
    object AdoQry_MainEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Origin = 'Employee'
      Size = 60
    end
    object AdoQry_MainCurrencyCode: TStringField
      FieldName = 'CurrencyCode'
      Origin = 'Sa_ShipOrderHistory'
      Size = 3
    end
    object AdoQry_MainCurrencyName: TStringField
      FieldName = 'CurrencyName'
      Origin = 'currency'
      Size = 30
    end
    object AdoQry_MainTaxRate_Percent: TFloatField
      FieldName = 'TaxRate_Percent'
      Origin = 'Sa_ShipOrderHistory'
    end
    object AdoQry_MainPayTermCode: TStringField
      FieldName = 'PayTermCode'
      Origin = 'Sa_ShipOrderHistory'
      Size = 3
    end
    object AdoQry_MainPayTermName: TStringField
      FieldName = 'PayTermName'
      Origin = 'PayTerm'
      Size = 30
    end
    object AdoQry_MainAssess: TIntegerField
      FieldName = 'Assess'
      Origin = 'Sa_ShipOrderHistory'
    end
    object AdoQry_MainCreateEmployeeCode: TStringField
      FieldName = 'CreateEmployeeCode'
      Origin = 'Sa_ShipOrderHistory'
      Size = 30
    end
    object AdoQry_MainEmployeeName_1: TStringField
      FieldName = 'EmployeeName_1'
      Origin = 'e'
      Size = 60
    end
    object AdoQry_MainShipModeCode: TStringField
      FieldName = 'ShipModeCode'
      Origin = 'Sa_ShipOrderHistory'
      Size = 6
    end
    object AdoQry_MainShipModeName: TStringField
      FieldName = 'ShipModeName'
      Origin = 'ShipMode'
      Size = 120
    end
    object AdoQry_MainShipAddresSCode: TStringField
      FieldName = 'ShipAddresSCode'
      Origin = 'Sa_ShipOrderHistory'
      Size = 6
    end
    object AdoQry_MainShipAddressName: TStringField
      FieldName = 'ShipAddressName'
      Origin = 'CustomerShipAddress'
      Size = 60
    end
    object AdoQry_MainChgType: TStringField
      FieldName = 'ChgType'
      Origin = 'Sa_ShipOrderHistory'
      Size = 10
    end
    object AdoQry_MainChgEmployeeCode: TStringField
      FieldName = 'ChgEmployeeCode'
      Origin = 'Sa_ShipOrderHistory'
      Size = 30
    end
    object AdoQry_MainEmployeeName_2: TStringField
      FieldName = 'EmployeeName_2'
      Origin = 'e1'
      Size = 60
    end
    object AdoQry_MainChgTime: TDateTimeField
      FieldName = 'ChgTime'
      Origin = 'Sa_ShipOrderHistory'
    end
  end
  inherited PopuPmenu: TPopuPmenu
    Top = 177
  end
end