bas_vendor.dfm

一个MRPII系统源代码版本

          KeyList.Strings = ()
        end
        Item
          FieldName = 'NoInvoiceApKmCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '无票应付帐款科目'
          Width = 118
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvoiceApKmCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '有票应付帐款科目'
          Width = 126
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvoiceCancelMode'
          PickList.Strings = (
            '1 余额承前法'
            '2 逐票核消法')
          Title.Alignment = taCenter
          Title.Caption = '发票取消法'
          Width = 83
          KeyList.Strings = (
            '1'
            '2')
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 533
    Top = 49
  end
  inherited ActionList: TActionList
    Left = 398
    Top = 59
    inherited Action1: TAction
      ShortCut = 0
    end
    inherited Action3: TAction
      Enabled = False
      Hint = '无效/有效(空格)'
      ShortCut = 32
      OnExecute = Action3Execute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii;Data Source=ExtDATASERVER;' +
      'Use procedure for Prepare=1;Auto Translate=True;Packet Size=4096' +
      ';Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      'Select Vendor.VendorCode,'
      '                        Vendor.VendorName,'
      '                        Vendor.VendorshortName,'
      '                        Vendor.VendorAddress,'
      '                        Vendor.Vendoremail,'
      '                        Vendor.Vendortel,'
      '                        Vendor.Vendorfax,'
      '                        Vendor.Vendorbank,'
      '                        Vendor.VendorUsable,'
      '                        Vendor.Vendorbankaccno,'
      '                        Vendor.Vendortaxrate_Percent,'
      '                        Vendor.Vendortaxno,'
      '                        Vendor.Vendorcontact,'
      '                        Vendor.Vendorowner,'
      '                        Vendor.Vendorceo,'
      '                        Vendor.Vendorcreatetime,'
      '                        Vendor.Vendormodifytime,'
      '                        Vendor.Vendordisabletime,'
      '                        Vendor.currencyCode,'
      '                        currency.currencyName,'
      
        '                        Vendor.currencyCode+'#39' '#39'+currency.currenc' +
        'yName as currencyCodeName, '
      '                        Vendor.VendorremArk,'
      '                        Vendor.VendorQFund,'
      '                        Vendor.VendorCredit,'
      '                        Vendor.VendorWebPage,'
      '                        Vendor.NoInvoiceApKmCode,'
      '                        Gl_AccountSubject.KmName,'
      
        '                        Vendor.NoInvoiceApKmCode+'#39' '#39'+Gl_AccountS' +
        'ubject.KmName as NoInvoiceApKmCodeName,'
      '                        Vendor.InvoiceApKmCode,'
      '                        g.KmName as KmName1,'
      
        '                        Vendor.InvoiceApKmCode+'#39' '#39'+g.KmName as I' +
        'nvoiceApKmCodeName,'
      '                        Vendor.AreaCode,'
      '                        Area.AreaName,  '
      '                        Vendor.VendorClass1,'
      '                        Vendor.VendorClass2,'
      '                        Vendor.VendorClass3,'
      '                        Vendor.VendorClass4,'
      '                        Vendor.VendorClass5,'
      '                        Vendor.InvoiceCancelMode '
      '                 from Vendor '
      
        '                  left join currency  on Vendor.currencyCode=cur' +
        'rency.currencyCode '
      
        '                  left join Gl_AccountSubject on Vendor.NoInvoic' +
        'eApKmCode=Gl_AccountSubject.KmCode '
      
        '                  left join Gl_AccountSubject g on Vendor.Invoic' +
        'eApKmCode=g.KmCode'
      
        '                  left join Area on Vendor.AreaCode=Area.Areacod' +
        'e')
    Left = 122
    Top = 236
    object AdoQry_MaInvendorCode: TStringField
      FieldName = 'VendorCode'
      Origin = 'Vendor'
      Size = 12
    end
    object AdoQry_MaInvendorName: TStringField
      FieldName = 'VendorName'
      Origin = 'Vendor'
      Size = 60
    end
    object AdoQry_MaInvendorSHORTName: TStringField
      FieldName = 'VendorSHORTName'
      Origin = 'Vendor'
    end
    object AdoQry_MaInvendorAdDRESS: TStringField
      FieldName = 'VendorAdDRESS'
      Origin = 'Vendor'
      Size = 60
    end
    object AdoQry_MaInvendorEMAIL: TStringField
      FieldName = 'VendorEMAIL'
      Origin = 'Vendor'
      Size = 40
    end
    object AdoQry_MaInvendorTEL: TStringField
      FieldName = 'VendorTEL'
      Origin = 'Vendor'
      Size = 40
    end
    object AdoQry_MaInvendorFAX: TStringField
      FieldName = 'VendorFAX'
      Origin = 'Vendor'
      Size = 40
    end
    object AdoQry_MaInvendorBANK: TStringField
      FieldName = 'VendorBANK'
      Origin = 'Vendor'
      Size = 60
    end
    object AdoQry_MaInvendorBANKACCNO: TStringField
      FieldName = 'VendorBANKACCNO'
      Origin = 'Vendor'
      Size = 40
    end
    object AdoQry_MaInvendorTAXRATE_PERCENT: TIntegerField
      FieldName = 'VendorTAXRATE_PERCENT'
      Origin = 'Vendor'
    end
    object AdoQry_MaInvendorTAXNO: TStringField
      FieldName = 'VendorTAXNO'
      Origin = 'Vendor'
      Size = 40
    end
    object AdoQry_MaInvendorCONTACT: TStringField
      FieldName = 'VendorCONTACT'
      Origin = 'Vendor'
      Size = 40
    end
    object AdoQry_MaInvendorOWNER: TStringField
      FieldName = 'VendorOWNER'
      Origin = 'Vendor'
      Size = 40
    end
    object AdoQry_MaInvendorCEO: TStringField
      FieldName = 'VendorCEO'
      Origin = 'Vendor'
      Size = 40
    end
    object AdoQry_MaInvendorCREATETIME: TDateTimeField
      FieldName = 'VendorCREATETIME'
      Origin = 'Vendor'
    end
    object AdoQry_MaInvendorMODIFYTIME: TDateTimeField
      FieldName = 'VendorMODIFYTIME'
      Origin = 'Vendor'
    end
    object AdoQry_MaInvendorREMArK: TStringField
      FieldName = 'VendorREMArK'
      Size = 60
    end
    object AdoQry_MaInvendorClass1: TStringField
      FieldName = 'VendorClass1'
      Size = 16
    end
    object AdoQry_MaInvendorClass2: TStringField
      FieldName = 'VendorClass2'
      Size = 16
    end
    object AdoQry_MaInvendorClass3: TStringField
      FieldName = 'VendorClass3'
      Size = 16
    end
    object AdoQry_MaInvendorClass4: TStringField
      FieldName = 'VendorClass4'
      Size = 16
    end
    object AdoQry_MaInvendorClass5: TStringField
      FieldName = 'VendorClass5'
      Size = 16
    end
    object AdoQry_MaincurrencyCode: TStringField
      FieldName = 'currencyCode'
      Size = 2
    end
    object AdoQry_MaincurrencyName: TStringField
      FieldName = 'currencyName'
      Size = 30
    end
    object AdoQry_MaincurrencyCodeName: TStringField
      FieldName = 'currencyCodeName'
      ReadOnly = True
      Size = 33
    end
    object AdoQry_MaInvendorQFund: TFloatField
      FieldName = 'VendorQFund'
    end
    object AdoQry_MaInvendorCredit: TFloatField
      FieldName = 'VendorCredit'
    end
    object AdoQry_MaInvendorWebPage: TStringField
      FieldName = 'VendorWebPage'
      Size = 40
    end
    object AdoQry_MaInvendorUsable: TIntegerField
      FieldName = 'VendorUsable'
    end
    object AdoQry_MaInvendordisabletime: TDateTimeField
      FieldName = 'Vendordisabletime'
    end
    object AdoQry_MainNoInvoiceApKmCode: TStringField
      FieldName = 'NoInvoiceApKmCode'
      Origin = 'Vendor'
      Visible = False
      Size = 15
    end
    object AdoQry_MainKmName: TStringField
      FieldName = 'KmName'
      Origin = 'Gl_AccountSubject'
      Visible = False
      Size = 40
    end
    object AdoQry_MainNoInvoiceApKmCodeName: TStringField
      FieldName = 'NoInvoiceApKmCodeName'
      Origin = 'Vendor'
      ReadOnly = True
      Size = 56
    end
    object AdoQry_MainInvoiceApKmCode: TStringField
      FieldName = 'InvoiceApKmCode'
      Visible = False
      Size = 15
    end
    object AdoQry_MainKmName1: TStringField
      FieldName = 'KmName1'
      Origin = 'g'
      Visible = False
      Size = 40
    end
    object AdoQry_MainInvoiceApKmCodeName: TStringField
      FieldName = 'InvoiceApKmCodeName'
      ReadOnly = True
      Size = 56
    end
    object AdoQry_MainAreaCode: TStringField
      FieldName = 'AreaCode'
      Size = 6
    end
    object AdoQry_MainAreaName: TStringField
      FieldName = 'AreaName'
      Size = 30
    end
    object AdoQry_MainInvoiceCancelMode: TIntegerField
      FieldName = 'InvoiceCancelMode'
      Origin = 'Vendor'
    end
  end
  inherited DataSource: TDataSource
    Left = 494
    Top = 41
  end
  inherited ExtPrintReport: TExtPrintReport
    Title1 = '供应商资料维护'
  end
end