bas_customer.dfm

一个MRPII系统源代码版本

        end
        Item
          FieldName = 'OtherSaleCoStkmName'
          PickList.Strings = ()
          Width = 145
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CUSTOMERREMArK'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CUSTOMERClass1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'CustomerClass'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CUSTOMERClass2'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'CustomerClass'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CUSTOMERClass3'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'CustomerClass'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CUSTOMERClass4'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'CustomerClass'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CUSTOMERClass5'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'CustomerClass'
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 533
    Top = 49
  end
  inherited ActionList: TActionList
    Left = 350
    Top = 195
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=ExtDA' +
      'TASERVER;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      'Select customerCode,'
      '                        customerName,'
      '                        customershortName,'
      '                        customer.AreaCode,'
      '                        customer.SalInvoiceCancelmode,'
      '                        Area.AreaName,'
      
        '                       -- customer.AreaCode+'#39' '#39'+Area.AreaName as' +
        ' Areaflag,'
      '                        customerShipModeCode,'
      '                        ShipMode.ShipModeName,'
      '                        customercurrencyCode,'
      '                        currency.currencyName,'
      '                        customerPayTermCode,'
      '                        PayTerm.PayTermName,'
      '                        customerSaleTypeCode,'
      '                        SaleType.SaleTypeName,'
      '                        customerSaleDeptCode,'
      '                        Dept.DeptName,'
      '                        customerSaleEmployeeCode,'
      '                        Employee.EmployeeName,'
      '                        SalePricecontrl,'
      '                        customercreditCtrl,'
      '                        customercredit,'
      '                        customerAddress,'
      '                        customeremail,'
      '                        customertel,'
      '                        customerfax,'
      '                        customerbank,'
      '                        customerbankaccno,'
      '                        customertaxrate_Percent,'
      '                        customertaxno,'
      '                        customercontact,'
      '                        customerowner,'
      '                        customerceo,'
      '                        customercreatetime,'
      '                        customermodifytime,'
      '                        customerremArk,'
      '                        DisableShip,'
      '                        InvoiceArKmCode,'
      '                        Gl_AccountSubject.KmName,'
      
        '                        InvoiceArKmCode+'#39' '#39'+Gl_AccountSubject.Km' +
        'Name as InvoiceArKmCodeName,'
      '                        customerClass1,'
      '                        customerClass2,'
      '                        customerClass3,'
      '                        customerClass4,'
      '                        customerClass5,'
      '                        GenerallyInvoiceArKmCode,'
      '                        SepcialInvoiceArKmCode,'
      '                        G1.KmName As GenerallyInvoiceArKmName,'
      '                        G2.KmName As SepcialInvoiceArKmName, '
      '                 from customer'
      '   left outer join Area on customer.AreaCode=Area.AreaCode '
      
        ' join ShipMode on customer.customerShipModeCode=ShipMode.ShiPmod' +
        'eCode'
      
        ' join currency on customer.customercurrencyCode=currency.currenc' +
        'yCode'
      
        ' join PayTerm on customer.customerPayTermCode=PayTerm.PayTermcod' +
        'e'
      
        ' join SaleType on customer.customerSaleTypeCode=SaleType.Saletyp' +
        'eCode'
      ' join Dept on customer.customerSaleDeptCode=Dept.DeptCode'
      
        ' join Employee on customer.customerSaleEmployeeCode=Employee.emp' +
        'loyeeCode'
      
        ' left join Gl_AccountSubject on customer.InvoiceArKmCode=Gl_Acco' +
        'untSubject.KmCode'
      
        ' Left Join Gl_AccountSubject G1 on customer.GenerallyInvoiceArKm' +
        'Code=G1.KmCode '
      
        ' Left Join Gl_AccountSubject G2 on customer.SepcialInvoiceArKmCo' +
        'de=G2.KmCode ')
    Left = 202
    Top = 196
    object AdoQry_MainCUSTOMERCode: TStringField
      FieldName = 'CUSTOMERCode'
      Origin = 'customer'
      Size = 12
    end
    object AdoQry_MainCUSTOMERName: TStringField
      FieldName = 'CUSTOMERName'
      Origin = 'customer'
      Size = 60
    end
    object AdoQry_MainCUSTOMERSHORTName: TStringField
      FieldName = 'CUSTOMERSHORTName'
      Origin = 'customer'
    end
    object AdoQry_MainCUSTOMERCREDITCtrl: TIntegerField
      FieldName = 'CUSTOMERCREDITCtrl'
      Origin = 'customer'
    end
    object AdoQry_MainCUSTOMERCREDIT: TIntegerField
      FieldName = 'CUSTOMERCREDIT'
      Origin = 'customer'
    end
    object AdoQry_MainCUSTOMERAdDRESS: TStringField
      FieldName = 'CUSTOMERAdDRESS'
      Origin = 'customer'
      Size = 60
    end
    object AdoQry_MainCUSTOMEREMAIL: TStringField
      FieldName = 'CUSTOMEREMAIL'
      Origin = 'customer'
      Size = 40
    end
    object AdoQry_MainCUSTOMERTEL: TStringField
      FieldName = 'CUSTOMERTEL'
      Origin = 'customer'
      Size = 40
    end
    object AdoQry_MainCUSTOMERFAX: TStringField
      FieldName = 'CUSTOMERFAX'
      Origin = 'customer'
      Size = 40
    end
    object AdoQry_MainCUSTOMERBANK: TStringField
      FieldName = 'CUSTOMERBANK'
      Origin = 'customer'
      Size = 60
    end
    object AdoQry_MainCUSTOMERBANKACCNO: TStringField
      FieldName = 'CUSTOMERBANKACCNO'
      Origin = 'customer'
      Size = 40
    end
    object AdoQry_MainCUSTOMERTAXRATE_PERCENT: TIntegerField
      FieldName = 'CUSTOMERTAXRATE_PERCENT'
      Origin = 'customer'
    end
    object AdoQry_MainCUSTOMERTAXNO: TStringField
      FieldName = 'CUSTOMERTAXNO'
      Origin = 'customer'
      Size = 40
    end
    object AdoQry_MainCUSTOMERCONTACT: TStringField
      FieldName = 'CUSTOMERCONTACT'
      Origin = 'customer'
      Size = 40
    end
    object AdoQry_MainCUSTOMEROWNER: TStringField
      FieldName = 'CUSTOMEROWNER'
      Origin = 'customer'
      Size = 40
    end
    object AdoQry_MainCUSTOMERCEO: TStringField
      FieldName = 'CUSTOMERCEO'
      Origin = 'customer'
      Size = 40
    end
    object AdoQry_MainCUSTOMERCREATETIME: TDateTimeField
      FieldName = 'CUSTOMERCREATETIME'
      Origin = 'customer'
    end
    object AdoQry_MainCUSTOMERMODIFYTIME: TDateTimeField
      FieldName = 'CUSTOMERMODIFYTIME'
      Origin = 'customer'
    end
    object AdoQry_MainCUSTOMERREMArK: TStringField
      FieldName = 'CUSTOMERREMArK'
      Size = 60
    end
    object AdoQry_MainCUSTOMERClass1: TStringField
      FieldName = 'CUSTOMERClass1'
      Size = 16
    end
    object AdoQry_MainCUSTOMERClass2: TStringField
      FieldName = 'CUSTOMERClass2'
      Size = 16
    end
    object AdoQry_MainCUSTOMERClass3: TStringField
      FieldName = 'CUSTOMERClass3'
      Size = 16
    end
    object AdoQry_MainCUSTOMERClass4: TStringField
      FieldName = 'CUSTOMERClass4'
      Size = 16
    end
    object AdoQry_MainCUSTOMERClass5: TStringField
      FieldName = 'CUSTOMERClass5'
      Size = 16
    end
    object AdoQry_MainDisableShip: TIntegerField
      FieldName = 'DisableShip'
    end
    object AdoQry_MainAreaCode: TStringField
      DisplayLabel = '区域代码'
      FieldName = 'AreaCode'
      Origin = 'customer'
      Size = 6
    end
    object AdoQry_MainAreaName: TStringField
      DisplayLabel = '区域名称'
      FieldName = 'AreaName'
      Origin = 'Area'
      Size = 30
    end
    object AdoQry_MainSalePricecontrl: TIntegerField
      DisplayLabel = '销售价格控制方式'
      FieldName = 'SalePricecontrl'
      Origin = 'customer'
    end
    object AdoQry_MaincustomerShipModeCode: TStringField
      DisplayLabel = '发货方式代码'
      FieldName = 'customerShipModeCode'
      Origin = 'customer'
      Size = 6
    end
    object AdoQry_MainShipModeName: TStringField
      DisplayLabel = '发货方式名称'
      FieldName = 'ShipModeName'
      Origin = 'ShipMode'
      Size = 120
    end
    object AdoQry_MaincustomercurrencyCode: TStringField
      DisplayLabel = '货币代码'
      FieldName = 'customercurrencyCode'
      Origin = 'customer'
      Size = 2
    end
    object AdoQry_MaincurrencyName: TStringField
      DisplayLabel = '货币名称'
      FieldName = 'currencyName'
      Origin = 'currency'
      Size = 30
    end
    object AdoQry_MaincustomerPayTermCode: TStringField
      DisplayLabel = '付款条款代码'
      FieldName = 'customerPayTermCode'
      Origin = 'customer'
      Size = 3
    end
    object AdoQry_MainPayTermName: TStringField
      DisplayLabel = '付款条款名称'
      FieldName = 'PayTermName'
      Origin = 'PayTerm'
      Size = 30
    end
    object AdoQry_MaincustomerSaleTypeCode: TStringField
      DisplayLabel = '销售类型代码'
      FieldName = 'customerSaleTypeCode'
      Origin = 'customer'
      Size = 6
    end
    object AdoQry_MainSaleTypeName: TStringField
      DisplayLabel = '销售类型名称'
      FieldName = 'SaleTypeName'
      Origin = 'SaleType'
      Size = 30
    end
    object AdoQry_MaincustomerSaleDeptCode: TStringField
      DisplayLabel = '销售部门代码'
      FieldName = 'customerSaleDeptCode'
      Origin = 'customer'
      Size = 8
    end
    object AdoQry_MainDeptName: TStringField
      DisplayLabel = '销售类型名称'
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_MaincustomerSaleEmployeeCode: TStringField
      DisplayLabel = '营销业务员代码'
      FieldName = 'customerSaleEmployeeCode'
      Origin = 'customer'
      Size = 30
    end
    object AdoQry_MainEmployeeName: TStringField
      DisplayLabel = '营销业务员名称'
      FieldName = 'EmployeeName'
      Origin = 'Employee'
      Size = 60
    end
    object AdoQry_MainSalInvoiceCancelmode: TIntegerField
      DisplayLabel = '销售发票核销方式'
      FieldName = 'SalInvoiceCancelmode'
      Origin = 'customer'
    end
    object AdoQry_MainInvoiceArKmCode: TStringField
      FieldName = 'InvoiceArKmCode'
      Origin = 'customer'
      Size = 15
    end
    object AdoQry_MainKmName: TStringField
      FieldName = 'KmName'
      Origin = 'Gl_AccountSubject'
      Size = 40
    end
    object AdoQry_MainInvoiceArKmCodeName: TStringField
      FieldName = 'InvoiceArKmCodeName'
      ReadOnly = True
      Size = 56
    end
    object AdoQry_MainGenerallyInvoiceArKmCode: TStringField
      FieldName = 'GenerallyInvoiceArKmCode'
      Origin = 'Customer'
      Size = 15
    end
    object AdoQry_MainSepcialInvoiceArKmCode: TStringField
      FieldName = 'SepcialInvoiceArKmCode'
      Origin = 'Customer'
      Size = 15
    end
    object AdoQry_MainGenerallyInvoiceArKmName: TStringField
      FieldName = 'GenerallyInvoiceArKmName'
      Size = 40
    end
    object AdoQry_MainSepcialInvoiceArKmName: TStringField
      FieldName = 'SepcialInvoiceArKmName'
      Size = 40
    end
    object AdoQry_MainSaleCoStkMCode: TStringField
      FieldName = 'SaleCoStkMCode'
      Size = 15
    end
    object AdoQry_MainSaleCoStkMName: TStringField
      FieldName = 'SaleCoStkMName'
      Size = 40
    end
    object AdoQry_MainOtherSaleCoStkmCode: TStringField
      DisplayLabel = '其它业务支出科目代码'
      FieldName = 'OtherSaleCoStkmCode'
      Size = 15
    end
    object AdoQry_MainOtherSaleCoStkmName: TStringField
      DisplayLabel = '其它业务支出科目名称'
      DisplayWidth = 40
      FieldName = 'OtherSaleCoStkmName'
      Size = 40
    end
  end
  inherited DataSource: TDataSource
    Left = 494
    Top = 41
  end
  inherited ExtPrintReport: TExtPrintReport
    Title1 = '客户资料维护'
  end
end