hyxfcx1.dfm

不错的代码 希望大家喜欢 别忘了看完以后联系我

          Height = 25
          Caption = '查询&Q'
          TabOrder = 3
          OnClick = BitBtn3Click
        end
        object RxCalcEdit3: TRxCalcEdit
          Left = 72
          Top = 8
          Width = 65
          Height = 21
          AutoSize = False
          DisplayFormat = '0.##'
          ButtonWidth = 0
          NumGlyphs = 2
          TabOrder = 4
          Value = 100
        end
        object BitBtn4: TBitBtn
          Left = 104
          Top = 224
          Width = 75
          Height = 25
          Caption = '积分清零'
          TabOrder = 5
          OnClick = BitBtn4Click
        end
        object BitBtn5: TBitBtn
          Left = 14
          Top = 161
          Width = 75
          Height = 25
          Caption = '打印'
          TabOrder = 6
          OnClick = BitBtn5Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
            00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
            8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
            8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
            8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
            03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
            03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
            33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
            33333337FFFF7733333333300000033333333337777773333333}
          NumGlyphs = 2
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 64
    Top = 80
  end
  object dxComponentPrinter1: TdxComponentPrinter
    CurrentLink = dxComponentPrinter1Link1
    PreviewOptions.Caption = '会员销费情况表'
    PreviewOptions.RegistryPath = 'Software\Developer Express\PrintingSystem\DesignTime'
    PrintTitle = '会员销费情况表'
    Left = 144
    Top = 80
    object dxComponentPrinter1Link1: TdxDBGridReportLink
      Active = True
      Component = dxDBGrid1
      DateTime = 37835.808646875
      DesignerHelpContext = 0
      PrinterPage.Footer = 6350
      PrinterPage.Header = 6350
      PrinterPage.Margins.Bottom = 12700
      PrinterPage.Margins.Left = 12700
      PrinterPage.Margins.Right = 12700
      PrinterPage.Margins.Top = 12700
      PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageFooter.Font.Color = clWindowText
      PrinterPage.PageFooter.Font.Height = -11
      PrinterPage.PageFooter.Font.Name = 'Tahoma'
      PrinterPage.PageFooter.Font.Style = []
      PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageHeader.Font.Color = clWindowText
      PrinterPage.PageHeader.Font.Height = -11
      PrinterPage.PageHeader.Font.Name = 'Tahoma'
      PrinterPage.PageHeader.Font.Style = []
      PrinterPage.PageSize.X = 215900
      PrinterPage.PageSize.Y = 279400
      PrinterPage._dxMeasurementUnits_ = 0
      PrinterPage._dxLastMU_ = 2
      ReportTitle.Font.Charset = DEFAULT_CHARSET
      ReportTitle.Font.Color = clWindowText
      ReportTitle.Font.Height = -19
      ReportTitle.Font.Name = 'Times New Roman'
      ReportTitle.Font.Style = [fsBold]
      ReportTitle.Text = '会员销费情况表'
      BandFont.Charset = DEFAULT_CHARSET
      BandFont.Color = clWindowText
      BandFont.Height = -11
      BandFont.Name = 'Times New Roman'
      BandFont.Style = []
      EvenFont.Charset = DEFAULT_CHARSET
      EvenFont.Color = clWindowText
      EvenFont.Height = -11
      EvenFont.Name = 'Times New Roman'
      EvenFont.Style = []
      FixedTransparent = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = []
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'Times New Roman'
      FooterFont.Style = []
      GroupNodeFont.Charset = DEFAULT_CHARSET
      GroupNodeFont.Color = clWindowText
      GroupNodeFont.Height = -11
      GroupNodeFont.Name = 'Times New Roman'
      GroupNodeFont.Style = []
      HeaderFont.Charset = DEFAULT_CHARSET
      HeaderFont.Color = clWindowText
      HeaderFont.Height = -11
      HeaderFont.Name = 'Times New Roman'
      HeaderFont.Style = []
      OddFont.Charset = DEFAULT_CHARSET
      OddFont.Color = clWindowText
      OddFont.Height = -11
      OddFont.Name = 'Times New Roman'
      OddFont.Style = []
      Options = [tlpoBands, tlpoHeaders, tlpoFooters, tlpoRowFooters, tlpoPreview, tlpoPreviewGrid, tlpoGrid, tlpoFlatCheckMarks, tlpoSoft3D, tlpoRowFooterGrid]
      PreviewFont.Charset = DEFAULT_CHARSET
      PreviewFont.Color = clWindowText
      PreviewFont.Height = -11
      PreviewFont.Name = 'Times New Roman'
      PreviewFont.Style = []
      RowFooterFont.Charset = DEFAULT_CHARSET
      RowFooterFont.Color = clWindowText
      RowFooterFont.Height = -11
      RowFooterFont.Name = 'Times New Roman'
      RowFooterFont.Style = []
    end
  end
  object Query1: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'hyid'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = '%'
      end
      item
        Name = 'hyname'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = '%'
      end
      item
        Name = 'rq1'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = 37563d
      end
      item
        Name = 'rq2'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = 37563d
      end>
    SQL.Strings = (
      'select * from hyxf_v'
      
        'where hyid like :hyid and hyname like :hyname and xsrq>=:rq1 and' +
        ' xsrq<=:rq2')
    Left = 104
    Top = 80
    object Query1hyid: TStringField
      DisplayLabel = '会员卡号'
      FieldName = 'hyid'
      Origin = 'SERVER.hyxf_v.hyid'
      FixedChar = True
    end
    object Query1hyname: TStringField
      DisplayLabel = '会员名称'
      FieldName = 'hyname'
      Origin = 'SERVER.hyxf_v.hyname'
      FixedChar = True
      Size = 50
    end
    object Query1xsid: TStringField
      DisplayLabel = '销售单号'
      FieldName = 'xsid'
      Origin = 'SERVER.hyxf_v.xsid'
      FixedChar = True
      Size = 12
    end
    object Query1xsrq: TDateTimeField
      DisplayLabel = '销售日期'
      FieldName = 'xsrq'
      Origin = 'SERVER.hyxf_v.xsrq'
    end
    object Query1code: TStringField
      DisplayLabel = '商品编码'
      FieldName = 'code'
      Origin = 'SERVER.hyxf_v.code'
      FixedChar = True
      Size = 10
    end
    object Query1barcode: TStringField
      DisplayLabel = '条码'
      FieldName = 'barcode'
      Origin = 'SERVER.hyxf_v.barcode'
      FixedChar = True
      Size = 15
    end
    object Query1name: TStringField
      DisplayLabel = '商品名称'
      FieldName = 'name'
      Origin = 'SERVER.hyxf_v.name'
      FixedChar = True
      Size = 50
    end
    object Query1dj: TCurrencyField
      DisplayLabel = '会员价'
      FieldName = 'dj'
      Origin = 'SERVER.hyxf_v.dj'
    end
    object Query1sl: TFloatField
      DisplayLabel = '数量'
      FieldName = 'sl'
      Origin = 'SERVER.hyxf_v.sl'
    end
    object Query1je: TCurrencyField
      DisplayLabel = '会员价金额'
      FieldName = 'je'
      Origin = 'SERVER.hyxf_v.je'
    end
    object Query1lsj: TBCDField
      DisplayLabel = '零售价'
      FieldName = 'lsj'
      Precision = 18
      Size = 2
    end
    object Query1jhj: TBCDField
      DisplayLabel = '进货价'
      FieldName = 'jhj'
      Precision = 18
      Size = 2
    end
    object Query1lsje: TBCDField
      DisplayLabel = '零售金额'
      FieldName = 'lsje'
      ReadOnly = True
      Precision = 32
      Size = 6
    end
    object Query1jhje: TBCDField
      DisplayLabel = '进价金额'
      FieldName = 'jhje'
      ReadOnly = True
      Precision = 32
      Size = 6
    end
    object Query1lshyc: TBCDField
      DisplayLabel = '会员价销售差'
      FieldName = 'lshyc'
      ReadOnly = True
      Precision = 32
      Size = 6
    end
    object Query1hyjxc: TBCDField
      DisplayLabel = '会员价进销差'
      FieldName = 'hyjxc'
      ReadOnly = True
      Precision = 32
      Size = 6
    end
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery1
    Left = 56
    Top = 176
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from hyda')
    Left = 104
    Top = 176
    object ADOQuery1code: TStringField
      DisplayLabel = '会员编号'
      FieldName = 'code'
    end
    object ADOQuery1name: TStringField
      DisplayLabel = '会员名称'
      FieldName = 'name'
      Size = 50
    end
    object ADOQuery1jf: TBCDField
      DisplayLabel = '目前积分'
      FieldName = 'jf'
      Precision = 18
      Size = 2
    end
  end
  object ADOQuery2: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 196
    Top = 255
  end
  object dxComponentPrinter2: TdxComponentPrinter
    CurrentLink = dxComponentPrinter2Link1
    PreviewOptions.Caption = '会员积分表'
    PreviewOptions.RegistryPath = 'Software\Developer Express\PrintingSystem\DesignTime'
    PrintTitle = '会员积分表'
    Left = 144
    Top = 176
    object dxComponentPrinter2Link1: TdxDBGridReportLink
      Active = True
      Component = dxDBGrid2
      DateTime = 37835.808646875
      DesignerHelpContext = 0
      PrinterPage.DMPaper = 256
      PrinterPage.Footer = 6350
      PrinterPage.Header = 6350
      PrinterPage.Margins.Bottom = 12700
      PrinterPage.Margins.Left = 12700
      PrinterPage.Margins.Right = 12700
      PrinterPage.Margins.Top = 12700
      PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageFooter.Font.Color = clWindowText
      PrinterPage.PageFooter.Font.Height = -11
      PrinterPage.PageFooter.Font.Name = 'Tahoma'
      PrinterPage.PageFooter.Font.Style = []
      PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageHeader.Font.Color = clWindowText
      PrinterPage.PageHeader.Font.Height = -11
      PrinterPage.PageHeader.Font.Name = 'Tahoma'
      PrinterPage.PageHeader.Font.Style = []
      PrinterPage.PageSize.X = 215900
      PrinterPage.PageSize.Y = 279400
      PrinterPage.ScaleMode = smFit
      PrinterPage._dxMeasurementUnits_ = 0
      PrinterPage._dxLastMU_ = 2
      ReportTitle.Font.Charset = DEFAULT_CHARSET
      ReportTitle.Font.Color = clWindowText
      ReportTitle.Font.Height = -19
      ReportTitle.Font.Name = 'Times New Roman'
      ReportTitle.Font.Style = [fsBold]
      ReportTitle.Text = '会员积分表'
      ShrinkToPageWidth = True
      BandFont.Charset = DEFAULT_CHARSET
      BandFont.Color = clWindowText
      BandFont.Height = -11
      BandFont.Name = 'Times New Roman'
      BandFont.Style = []
      EvenFont.Charset = DEFAULT_CHARSET
      EvenFont.Color = clWindowText
      EvenFont.Height = -11
      EvenFont.Name = 'Times New Roman'
      EvenFont.Style = []
      FixedTransparent = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = []
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'Times New Roman'
      FooterFont.Style = []
      GroupNodeFont.Charset = DEFAULT_CHARSET
      GroupNodeFont.Color = clWindowText
      GroupNodeFont.Height = -11
      GroupNodeFont.Name = 'Times New Roman'
      GroupNodeFont.Style = []
      HeaderFont.Charset = DEFAULT_CHARSET
      HeaderFont.Color = clWindowText
      HeaderFont.Height = -11
      HeaderFont.Name = 'Times New Roman'
      HeaderFont.Style = []
      OddFont.Charset = DEFAULT_CHARSET
      OddFont.Color = clWindowText
      OddFont.Height = -11
      OddFont.Name = 'Times New Roman'
      OddFont.Style = []
      Options = [tlpoBands, tlpoHeaders, tlpoFooters, tlpoRowFooters, tlpoPreview, tlpoPreviewGrid, tlpoGrid, tlpoFlatCheckMarks, tlpoSoft3D, tlpoRowFooterGrid]
      PreviewFont.Charset = DEFAULT_CHARSET
      PreviewFont.Color = clWindowText
      PreviewFont.Height = -11
      PreviewFont.Name = 'Times New Roman'
      PreviewFont.Style = []
      RowFooterFont.Charset = DEFAULT_CHARSET
      RowFooterFont.Color = clWindowText
      RowFooterFont.Height = -11
      RowFooterFont.Name = 'Times New Roman'
      RowFooterFont.Style = []
    end
  end
end