sal_qry_chginfosaleorderh.dfm

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

          KeyList.Strings = ()
        end
        Item
          FieldName = 'ChgEmployeeCodeB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作人员标识'
          Width = 97
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ChgType'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作类型'
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ChgTime'
          PickList.Strings = ()
          Title.Caption = '操作时间'
          Width = 66
          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_Puyuan_010207;Data Source=' +
      '192.168.0.151;Use procedure for Prepare=1;Auto Translate=True;Pa' +
      'cket Size=4096;Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      'select Sa_SaleOrderHistory.CustomerCode,'
      #9'Customer.CustomerName,'
      
        #9'Sa_SaleOrderHistory.CustomerCode+'#39' '#39'+Customer.CustomerName As C' +
        'ustomerB,'
      #9'Sa_SaleOrderHistory .CreateDate,'
      #9'Sa_SaleOrderHistory.SloNo,'
      #9'Sa_SaleOrderHistory.SaleTypeCode,'
      #9'SaleType.SaleTypeName,'
      
        #9'Sa_SaleOrderHistory.SaleTypeCode+'#39' '#39'+SaleType.SaleTypeName as S' +
        'aleTypeB,'
      #9'Sa_SaleOrderHistory.SaleDeptCode,'
      #9'Dept.DeptName,'
      #9'Sa_SaleOrderHistory.SaleDeptCode+'#39' '#39'+Dept.DeptName As DeptB,'
      #9'Sa_SaleOrderHistory.SaleEmployeeCode,'
      #9'Employee.EmployeeName,'
      
        #9'Sa_SaleOrderHistory.SaleEmployeeCode+'#39' '#39'+Employee.EmployeeName ' +
        'as EmployeeB,'
      #9'Sa_SaleOrderHistory.CurrencyCode,'
      #9'Currency.CurrencyName,'
      
        #9'Sa_SaleOrderHistory.CurrencyCode+'#39' '#39'+Currency.CurrencyName as C' +
        'urrencyB,'
      #9'Sa_SaleOrderHistory.TaxRate_Percent,'
      #9'Sa_SaleOrderHistory.PayTermCode,'
      #9'PayTerm.PayTermName,'
      
        #9'Sa_SaleOrderHistory.PayTermCode+'#39' '#39'+PayTerm.PayTermName as PayT' +
        'ermB,'
      #9'Sa_SaleOrderHistory.ShipModeCode,'
      #9'ShipMode.ShipModeName,'
      
        #9'Sa_SaleOrderHistory.ShipModeCode+'#39' '#39'+ShipMode.ShipModeName as S' +
        'hiPmodeB,'
      '  '#9'Sa_SaleOrderHistory.ShipAddresSCode,'
      #9'CustomerShipAddress.ShipAddressName,'
      #9'Sa_SaleOrderHistory.TotalNoTaxAmount,'
      #9'Sa_SaleOrderHistory.TotalTaxAmount,'
      #9'Sa_SaleOrderHistory.RemArk,'
      #9'Sa_SaleOrderHistory.RemArk1,'
      #9'Sa_SaleOrderHistory.CreateEmployeeCode,'
      #9'E1.EmployeeName,'
      
        #9'Sa_SaleOrderHistory.CreateEmployeeCode+'#39' '#39'+E1.EmployeeName as C' +
        'reateEmployeeCodeB,'
      #9'Sa_SaleOrderHistory.EditDate,'
      #9'Sa_SaleOrderHistory.EdItEmployeeCode,'
      #9'E2.EmployeeName,'
      
        #9'Sa_SaleOrderHistory.EdItEmployeeCode+'#39' '#39'+E2.EmployeeName as Edi' +
        'TEmployeeCodeB,'
      #9'Sa_SaleOrderHistory.ChgEmployeeCode,'
      #9'E3.EmployeeName,'
      
        #9'Sa_SaleOrderHistory.ChgEmployeeCode+'#39' '#39'+E3.EmployeeName As ChgE' +
        'mployeeCodeB,'
      #9'Sa_SaleOrderHistory.ChgType,'
      #9'Sa_SaleOrderHistory.ChgTime'
      'from Sa_SaleOrderHistory'
      
        'left join Customer on Sa_SaleOrderHistory.CustomerCode=Customer.' +
        'CustomerCode'
      
        'left join SaleType on Sa_SaleOrderHistory.SaleTypeCode=SaleType.' +
        'SaleTypeCode'
      'left join Dept on Sa_SaleOrderHistory.SaleDeptCode=Dept.DeptCode'
      
        'left join Employee on Sa_SaleOrderHistory.SaleEmployeeCode=Emplo' +
        'yee.EmployeeCode'
      
        'left join Currency on Sa_SaleOrderHistory.CurrencyCode=Currency.' +
        'CurrencyCode'
      
        'left join PayTerm on Sa_SaleOrderHistory.PayTermCode=PayTerm.Pay' +
        'TermCode'
      
        'left join ShipMode on Sa_SaleOrderHistory.ShipModeCode=ShipMode.' +
        'ShipModeName'
      
        'left join CustomerShipAddress on Sa_SaleOrderHistory.ShipAddress' +
        'Code=CustomerShipAddress.ShipAddresSCode'
      
        'left join (select * from Employee )E1 on Sa_SaleOrderHistory.Cre' +
        'ateEmployeeCode=E1.EmployeeCode'
      
        'left join (select * from Employee )E2 on Sa_SaleOrderHistory.Edi' +
        'TEmployeeCode=E2.EmployeeCode'
      
        'left join (select * from Employee )E3 on Sa_SaleOrderHistory.Chg' +
        'EmployeeCode=E3.EmployeeCode'
      ''
      ''
      ''
      ''
      ''
      '')
    Left = 328
    Top = 249
    object AdoQry_MainCustomerCode: TStringField
      FieldName = 'CustomerCode'
      Origin = 'Sa_SaleOrderHistory'
      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_MainCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      Origin = 'Sa_SaleOrderHistory'
    end
    object AdoQry_MainSloNo: TStringField
      FieldName = 'SloNo'
      Origin = 'Sa_SaleOrderHistory'
      Size = 16
    end
    object AdoQry_MainSaleTypeCode: TStringField
      FieldName = 'SaleTypeCode'
      Origin = 'Sa_SaleOrderHistory'
      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_SaleOrderHistory'
      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_SaleOrderHistory'
      Size = 30
    end
    object AdoQry_MainEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Origin = 'Employee'
      Size = 60
    end
    object AdoQry_MainEmployeeB: TStringField
      FieldName = 'EmployeeB'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainCurrencyCode: TStringField
      FieldName = 'CurrencyCode'
      Origin = 'Sa_SaleOrderHistory'
      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_SaleOrderHistory'
    end
    object AdoQry_MainPayTermCode: TStringField
      FieldName = 'PayTermCode'
      Origin = 'Sa_SaleOrderHistory'
      Size = 3
    end
    object AdoQry_MainPayTermName: TStringField
      FieldName = 'PayTermName'
      Size = 30
    end
    object AdoQry_MainPayTermB: TStringField
      FieldName = 'PayTermB'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_MainShipModeCode: TStringField
      FieldName = 'ShipModeCode'
      Origin = 'Sa_SaleOrderHistory'
      Size = 6
    end
    object AdoQry_MainShipModeName: TStringField
      FieldName = 'ShipModeName'
      Origin = 'ShipMode'
      Size = 120
    end
    object AdoQry_MainShipModeB: TStringField
      FieldName = 'ShipModeB'
      ReadOnly = True
      Size = 127
    end
    object AdoQry_MainShipAddresSCode: TStringField
      FieldName = 'ShipAddresSCode'
      Origin = 'Sa_SaleOrderHistory'
      Size = 6
    end
    object AdoQry_MainShipAddressName: TStringField
      FieldName = 'ShipAddressName'
      Origin = 'CustomerShipAddress'
      Size = 60
    end
    object AdoQry_MainTotalNoTaxAmount: TFloatField
      FieldName = 'TotalNoTaxAmount'
      Origin = 'Sa_SaleOrderHistory'
    end
    object AdoQry_MainTotalTaxAmount: TFloatField
      FieldName = 'TotalTaxAmount'
      Origin = 'Sa_SaleOrderHistory'
    end
    object AdoQry_MainRemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'Sa_SaleOrderHistory'
      Size = 60
    end
    object AdoQry_MainRemArk1: TStringField
      FieldName = 'RemArk1'
      Origin = 'Sa_SaleOrderHistory'
      Size = 60
    end
    object AdoQry_MainCreateEmployeeCode: TStringField
      FieldName = 'CreateEmployeeCode'
      Origin = 'Sa_SaleOrderHistory'
      Size = 30
    end
    object AdoQry_MainEmployeeName_1: TStringField
      FieldName = 'EmployeeName_1'
      Origin = 'Employee'
      Size = 60
    end
    object AdoQry_MainCreateEmployeeCodeB: TStringField
      FieldName = 'CreateEmployeeCodeB'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainEditDate: TDateTimeField
      FieldName = 'EditDate'
      Origin = 'Sa_SaleOrderHistory'
    end
    object AdoQry_MainEdItEmployeeCode: TStringField
      FieldName = 'EdItEmployeeCode'
      Origin = 'Sa_SaleOrderHistory'
      Size = 30
    end
    object AdoQry_MainEmployeeName_2: TStringField
      FieldName = 'EmployeeName_2'
      Origin = 'Employee'
      Size = 60
    end
    object AdoQry_MainEdItEmployeeCodeB: TStringField
      FieldName = 'EdItEmployeeCodeB'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainChgEmployeeCode: TStringField
      FieldName = 'ChgEmployeeCode'
      Origin = 'Sa_SaleOrderHistory'
      Size = 30
    end
    object AdoQry_MainEmployeeName_3: TStringField
      FieldName = 'EmployeeName_3'
      Origin = 'Employee'
      Size = 60
    end
    object AdoQry_MainChgEmployeeCodeB: TStringField
      FieldName = 'ChgEmployeeCodeB'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainChgType: TStringField
      FieldName = 'ChgType'
      Origin = 'Sa_SaleOrderHistory'
      Size = 10
    end
    object AdoQry_MainChgTime: TDateTimeField
      FieldName = 'ChgTime'
    end
  end
  inherited PopuPmenu: TPopuPmenu
    Top = 177
  end
end