gysjs.dfm

售后服务系统优质的售后服务是企业生存和市场竞争的保障

object GysJsForm: TGysJsForm
  Left = 46
  Top = 177
  Width = 681
  Height = 198
  Caption = '供应商结算'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 657
    Height = 153
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 42
      Height = 14
      Caption = '供应商'
    end
    object Label4: TLabel
      Left = 16
      Top = 68
      Width = 56
      Height = 14
      Caption = '起始日期'
    end
    object Label5: TLabel
      Left = 16
      Top = 104
      Width = 56
      Height = 14
      Caption = '终止日期'
    end
    object DateTimePicker1: TDateTimePicker
      Left = 80
      Top = 68
      Width = 145
      Height = 22
      CalAlignment = dtaLeft
      Date = 37412.7195804051
      Time = 37412.7195804051
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object DateTimePicker2: TDateTimePicker
      Left = 80
      Top = 104
      Width = 145
      Height = 22
      CalAlignment = dtaLeft
      Date = 37412.7195804051
      Time = 37412.7195804051
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object dxfColorButton1: TdxfColorButton
      Left = 584
      Top = 64
      Width = 57
      Height = 33
      Cursor = crHandPoint
      Color = clAqua
      Caption.Strings = (
        '明细')
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      Visible = True
      OnClick = dxfColorButton1Click
    end
    object dxfColorButton2: TdxfColorButton
      Left = 584
      Top = 104
      Width = 57
      Height = 33
      Cursor = crHandPoint
      Color = clAqua
      Caption.Strings = (
        '退出')
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      Visible = True
      OnClick = dxfColorButton2Click
    end
    object RadioGroup1: TRadioGroup
      Left = 344
      Top = 24
      Width = 113
      Height = 105
      Caption = '费用类型'
      ItemIndex = 0
      Items.Strings = (
        '安装'
        '维修'
        '调试'
        '回访'
        '全部')
      TabOrder = 2
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 80
      Top = 32
      Width = 249
      Height = 22
      KeyField = 'bh'
      ListField = 'mc'
      ListSource = DataSource1
      TabOrder = 5
    end
    object RadioGroup2: TRadioGroup
      Left = 464
      Top = 24
      Width = 97
      Height = 105
      Caption = '分类方式'
      ItemIndex = 0
      Items.Strings = (
        '商品分类'
        '商品品牌'
        '商品规格')
      TabOrder = 6
    end
    object dxfColorButton3: TdxfColorButton
      Left = 584
      Top = 24
      Width = 57
      Height = 33
      Cursor = crHandPoint
      Color = clAqua
      Caption.Strings = (
        '汇总')
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      Visible = True
      OnClick = dxfColorButton3Click
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuerygysxx
    Left = 192
  end
  object ADOQuerytmp: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'P_gysbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end>
    SQL.Strings = (
      'select * from fwsl')
    Left = 256
  end
  object ADOQuerygysxx: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select *  from gysxx')
    Left = 160
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    DataSource = DataSource2
    Parameters = <>
    SQL.Strings = (
      'select * from fwsl,fwjs')
    Left = 352
  end
  object DataSource2: TDataSource
    DataSet = ADOQuerytmp
    Left = 296
  end
  object ADOQuery2: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select sum(fwjs.mfpjfy),sum(fwjs.mffwfy),'
      'sum(fwjs.gyswgfy),sum(fwjs.gysjtfy),fwsl.flmc,'
      'fwsl.ppmc,fwsl.ggmc,fwsl.zxfwlx '
      'from fwsl,fwjs where fwsl.dabh = fwjs.dabh '
      'group by fwsl.flmc,fwsl.ppmc,fwsl.ggmc,fwsl.zxfwlx')
    Left = 448
  end
end