ar_qry_chginfogathering.dfm

一个MRPII系统源代码版本

          FieldName = 'ChgType'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作类型'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ChgEmployeeCode'
          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 = 'ChgEmployeeB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作人员'
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ChgTime'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作时间'
          Width = 78
          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 Ar_GatheringHistory.CustomerCode,'
      #9'Customer.CustomerName,'
      
        '        Ar_GatheringHistory.CustomerCode+'#39' '#39'+Customer.CustomerNa' +
        'me as CustomerB,'
      #9'Ar_GatheringHistory.GatheringNo,'
      #9'Ar_GatheringHistory.GatheringDate,'
      #9'Ar_GatheringHistory.BillNo,'
      #9'Ar_GatheringHistory.BalanceTypeCode,'
      #9'BalanceType.BalanceTypeName,'
      
        #9'Ar_GatheringHistory.BalanceTypeCode+'#39' '#39'+BalanceType.BalanceType' +
        'Name as BalanceTypeB,'
      #9'Ar_GatheringHistory.CurrencyCode,'
      #9'Currency.CurrencyName,'
      
        #9'Ar_GatheringHistory.CurrencyCode+'#39' '#39'+Currency.CurrencyName As C' +
        'urrencyB,'
      #9'Ar_GatheringHistory.ExchangeRate,'
      #9'Ar_GatheringHistory.ActSubjectCode,'
      #9'Gl_AccountSubject.KmName,'
      
        #9'Ar_GatheringHistory.ActSubjectCode+'#39' '#39'+Gl_AccountSubject.KmName' +
        ' as ActSubjectB,'
      #9'Ar_GatheringHistory.CustomerBank,'
      #9'Ar_GatheringHistory.CustomerBankActNo,'
      #9'Ar_GatheringHistory.TotalTaxAmount,'
      #9'Ar_GatheringHistory.SaleDeptCode,'
      #9'Dept.DeptName,'
      #9'Ar_GatheringHistory.SaleDeptCode+'#39' '#39'+Dept.DeptName as DeptB,'
      #9'Ar_GatheringHistory.SaleEmployeeCode,'
      #9'E1.EmployeeName,'
      
        #9'Ar_GatheringHistory.SaleEmployeeCode+'#39' '#39'+E1.EmployeeName as Sal' +
        'eEmployeeB,'
      #9'Ar_GatheringHistory.RemArk,'
      #9'Ar_GatheringHistory.CreateEmployeeCode,'
      #9'E2.EmployeeName,'
      
        #9'Ar_GatheringHistory.CreateEmployeeCode+'#39' '#39'+E2.EmployeeName as C' +
        'reateEmployeeB,'
      #9'Ar_GatheringHistory.CreateDate,'
      #9'Ar_GatheringHistory.ChgType,'
      #9'Ar_GatheringHistory.ChgEmployeeCode,'
      #9'E3.EmployeeName,'
      
        #9'Ar_GatheringHistory.ChgEmployeeCode+'#39' '#39'+E3.EmployeeName as ChgE' +
        'mployeeB,'
      #9'Ar_GatheringHistory.ChgTime'
      'from  Ar_GatheringHistory'
      
        'left join Customer on Ar_GatheringHistory.CustomerCode=Customer.' +
        'CustomerCode'
      
        'left join BalanceType on Ar_GatheringHistory.BalanceTypeCode=Bal' +
        'anceType.BalanceTypeCode'
      
        'left join Currency on Ar_GatheringHistory.CurrencyCode=Currency.' +
        'CurrencyCode'
      
        'left join Gl_AccountSubject on Ar_GatheringHistory.ActSubjectCod' +
        'e=Gl_AccountSubject.KmCode'
      'left join Dept on Ar_GatheringHistory.SaleDeptCode=Dept.DeptCode'
      
        'left join Employee E1 on Ar_GatheringHistory.SaleEmployeeCode=E1' +
        '.EmployeeCode'
      
        'left join Employee E2 on Ar_GatheringHistory.CreateEmployeeCode=' +
        'E2.EmployeeCode'
      
        'left join Employee E3 on Ar_GatheringHistory.ChgEmployeeCode=E3.' +
        'EmployeeCode')
    Left = 328
    Top = 249
    object AdoQry_MainCustomerCode: TStringField
      FieldName = 'CustomerCode'
      Origin = 'Ar_GatheringHistory'
      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_MainGatheringNo: TStringField
      FieldName = 'GatheringNo'
      Origin = 'Ar_GatheringHistory'
      Size = 16
    end
    object AdoQry_MainGatheringDate: TDateTimeField
      FieldName = 'GatheringDate'
      Origin = 'Ar_GatheringHistory'
    end
    object AdoQry_MaInBillNo: TStringField
      FieldName = 'BillNo'
      Origin = 'Ar_GatheringHistory'
      Size = 16
    end
    object AdoQry_MainBalanceTypeCode: TStringField
      FieldName = 'BalanceTypeCode'
      Origin = 'Ar_GatheringHistory'
      Size = 3
    end
    object AdoQry_MainBalanceTypeName: TStringField
      FieldName = 'BalanceTypeName'
      Origin = 'BalanceType'
      Size = 30
    end
    object AdoQry_MainBalanceTypeB: TStringField
      FieldName = 'BalanceTypeB'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_MainCurrencyCode: TStringField
      FieldName = 'CurrencyCode'
      Origin = 'Ar_GatheringHistory'
      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_MainExchangeRate: TFloatField
      FieldName = 'ExchangeRate'
      Origin = 'Ar_GatheringHistory'
    end
    object AdoQry_MainActSubjectCode: TStringField
      FieldName = 'ActSubjectCode'
      Origin = 'Ar_GatheringHistory'
      Size = 15
    end
    object AdoQry_MainKmName: TStringField
      FieldName = 'KmName'
      Size = 40
    end
    object AdoQry_MainActSubjectB: TStringField
      FieldName = 'ActSubjectB'
      ReadOnly = True
      Size = 56
    end
    object AdoQry_MainCustomerBank: TStringField
      FieldName = 'CustomerBank'
      Origin = 'Ar_GatheringHistory'
      Size = 60
    end
    object AdoQry_MainCustomerBankActNo: TStringField
      FieldName = 'CustomerBankActNo'
      Origin = 'Ar_GatheringHistory'
      Size = 40
    end
    object AdoQry_MainTotalTaxAmount: TFloatField
      FieldName = 'TotalTaxAmount'
      Origin = 'Ar_GatheringHistory'
    end
    object AdoQry_MainSaleDeptCode: TStringField
      FieldName = 'SaleDeptCode'
      Origin = 'Ar_GatheringHistory'
      Size = 8
    end
    object AdoQry_MainDeptName: TStringField
      FieldName = 'DeptName'
      Size = 40
    end
    object AdoQry_MainDeptB: TStringField
      FieldName = 'DeptB'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_MainSaleEmployeeCode: TStringField
      FieldName = 'SaleEmployeeCode'
      Origin = 'Ar_GatheringHistory'
      Size = 30
    end
    object AdoQry_MainEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Size = 60
    end
    object AdoQry_MainSaleEmployeeB: TStringField
      FieldName = 'SaleEmployeeB'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainRemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'Ar_GatheringHistory'
      Size = 60
    end
    object AdoQry_MainCreateEmployeeCode: TStringField
      FieldName = 'CreateEmployeeCode'
      Origin = 'Ar_GatheringHistory'
      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_MainCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      Origin = 'Ar_GatheringHistory'
    end
    object AdoQry_MainChgType: TStringField
      FieldName = 'ChgType'
      Origin = 'Ar_GatheringHistory'
      Size = 10
    end
    object AdoQry_MainChgEmployeeCode: TStringField
      FieldName = 'ChgEmployeeCode'
      Origin = 'Ar_GatheringHistory'
      Size = 30
    end
    object AdoQry_MainEmployeeName_2: TStringField
      FieldName = 'EmployeeName_2'
      Size = 60
    end
    object AdoQry_MainChgEmployeeB: TStringField
      FieldName = 'ChgEmployeeB'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainChgTime: TDateTimeField
      FieldName = 'ChgTime'
      Origin = 'Ar_GatheringHistory'
    end
  end
  inherited PopuPmenu: TPopuPmenu
    Top = 177
  end
end