⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 hyxfcx1.dfm

📁 不错的代码 希望大家喜欢 别忘了看完以后联系我
💻 DFM
📖 第 1 页 / 共 2 页
字号:
object hyxfcx: Thyxfcx
  Left = 148
  Top = 145
  Width = 729
  Height = 471
  Caption = '会员消费查询'
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 721
    Height = 444
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '消费明细'
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 713
        Height = 41
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Label1: TLabel
          Left = 8
          Top = 22
          Width = 36
          Height = 12
          Caption = '会员:'
        end
        object Label2: TLabel
          Left = 144
          Top = 22
          Width = 36
          Height = 12
          Caption = '日期:'
        end
        object Label3: TLabel
          Left = 271
          Top = 22
          Width = 12
          Height = 12
          Caption = '至'
        end
        object BitBtn1: TBitBtn
          Left = 472
          Top = 9
          Width = 75
          Height = 25
          Caption = '打印'
          TabOrder = 0
          OnClick = BitBtn1Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
            00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
            8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
            8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
            8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
            03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
            03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
            33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
            33333337FFFF7733333333300000033333333337777773333333}
          NumGlyphs = 2
        end
        object BitBtn2: TBitBtn
          Left = 384
          Top = 9
          Width = 75
          Height = 25
          Caption = '查询'
          TabOrder = 1
          OnClick = BitBtn2Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333FF3FF3333333333CC30003333333333773777333333333C33
            3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
            33003377333337F33377333333333C333300333F333337F33377339333333C33
            3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
            330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
            330077F377F337F33377993399333C33330077FF773337F33377399993333C33
            33333777733337F333FF333333333C33300033333333373FF7773333333333CC
            3000333333333377377733333333333333333333333333333333}
          NumGlyphs = 2
        end
        object Edit1: TEdit
          Left = 40
          Top = 14
          Width = 89
          Height = 20
          TabOrder = 2
        end
        object DateTimePicker1: TDateTimePicker
          Left = 176
          Top = 14
          Width = 89
          Height = 20
          CalAlignment = dtaLeft
          Date = 37563
          Time = 37563
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 3
        end
        object DateTimePicker2: TDateTimePicker
          Left = 288
          Top = 14
          Width = 89
          Height = 20
          CalAlignment = dtaLeft
          Date = 37563.9999884259
          Time = 37563.9999884259
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 4
        end
      end
      object dxDBGrid1: TdxDBGrid
        Left = 0
        Top = 41
        Width = 713
        Height = 376
        Bands = <
          item
            Caption = '会员档案'
            Width = 155
          end>
        DefaultLayout = False
        HeaderPanelRowCount = 1
        KeyField = 'hyid'
        ShowSummaryFooter = True
        SummaryGroups = <>
        SummarySeparator = ', '
        Align = alClient
        Color = 15524050
        Font.Charset = GB2312_CHARSET
        Font.Color = 7479077
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        BandFont.Charset = GB2312_CHARSET
        BandFont.Color = clWindowText
        BandFont.Height = -12
        BandFont.Name = '宋体'
        BandFont.Style = []
        DataSource = DataSource1
        Filter.Active = True
        Filter.Criteria = {00000000}
        GridLineColor = 7479077
        HeaderFont.Charset = GB2312_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -12
        HeaderFont.Name = '宋体'
        HeaderFont.Style = []
        LookAndFeel = lfFlat
        OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoStoreToRegistry, edgoTabThrough, edgoVertThrough]
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartRefresh, edgoSmartReload, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clBlue
        PreviewFont.Height = -12
        PreviewFont.Name = '宋体'
        PreviewFont.Style = []
        RegistryPath = '\Software\server\hyxfcx'
        ShowRowFooter = True
        object dxDBGrid1hyid: TdxDBGridMaskColumn
          Width = 83
          BandIndex = 0
          RowIndex = 0
          FieldName = 'hyid'
        end
        object dxDBGrid1hyname: TdxDBGridMaskColumn
          Width = 142
          BandIndex = 0
          RowIndex = 0
          FieldName = 'hyname'
        end
        object dxDBGrid1xsid: TdxDBGridMaskColumn
          Width = 76
          BandIndex = 0
          RowIndex = 0
          FieldName = 'xsid'
        end
        object dxDBGrid1xsrq: TdxDBGridDateColumn
          Width = 72
          BandIndex = 0
          RowIndex = 0
          FieldName = 'xsrq'
        end
        object dxDBGrid1code: TdxDBGridMaskColumn
          Width = 88
          BandIndex = 0
          RowIndex = 0
          FieldName = 'code'
        end
        object dxDBGrid1name: TdxDBGridMaskColumn
          Width = 139
          BandIndex = 0
          RowIndex = 0
          FieldName = 'name'
        end
        object dxDBGrid1barcode: TdxDBGridMaskColumn
          Width = 94
          BandIndex = 0
          RowIndex = 0
          FieldName = 'barcode'
        end
        object dxDBGrid1dj: TdxDBGridCurrencyColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'dj'
        end
        object dxDBGrid1sl: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'sl'
        end
        object dxDBGrid1je: TdxDBGridCurrencyColumn
          Width = 90
          BandIndex = 0
          RowIndex = 0
          FieldName = 'je'
          SummaryFooterType = cstSum
        end
        object dxDBGrid1lsj: TdxDBGridMaskColumn
          Width = 118
          BandIndex = 0
          RowIndex = 0
          FieldName = 'lsj'
        end
        object dxDBGrid1lsje: TdxDBGridMaskColumn
          Width = 93
          BandIndex = 0
          RowIndex = 0
          FieldName = 'lsje'
          SummaryFooterType = cstSum
        end
        object dxDBGrid1lshyc: TdxDBGridMaskColumn
          Width = 106
          BandIndex = 0
          RowIndex = 0
          FieldName = 'lshyc'
          SummaryFooterType = cstSum
        end
        object dxDBGrid1jhj: TdxDBGridMaskColumn
          Width = 92
          BandIndex = 0
          RowIndex = 0
          FieldName = 'jhj'
        end
        object dxDBGrid1jhje: TdxDBGridMaskColumn
          Width = 80
          BandIndex = 0
          RowIndex = 0
          FieldName = 'jhje'
          SummaryFooterType = cstSum
        end
        object dxDBGrid1hyjxc: TdxDBGridMaskColumn
          Width = 110
          BandIndex = 0
          RowIndex = 0
          FieldName = 'hyjxc'
          SummaryFooterType = cstSum
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '积分情况'
      ImageIndex = 1
      object dxDBGrid2: TdxDBGrid
        Left = 0
        Top = 0
        Width = 528
        Height = 417
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'code'
        SummaryGroups = <>
        SummarySeparator = ', '
        Align = alClient
        TabOrder = 0
        DataSource = DataSource2
        Filter.Criteria = {00000000}
        OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
        object dxDBGrid2code: TdxDBGridMaskColumn
          Width = 124
          BandIndex = 0
          RowIndex = 0
          FieldName = 'code'
        end
        object dxDBGrid2name: TdxDBGridMaskColumn
          Width = 160
          BandIndex = 0
          RowIndex = 0
          FieldName = 'name'
        end
        object dxDBGrid2jf: TdxDBGridMaskColumn
          Width = 118
          BandIndex = 0
          RowIndex = 0
          FieldName = 'jf'
        end
      end
      object Panel2: TPanel
        Left = 528
        Top = 0
        Width = 185
        Height = 417
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 1
        object Label4: TLabel
          Left = 8
          Top = 56
          Width = 48
          Height = 12
          Caption = '会员编号'
        end
        object Label5: TLabel
          Left = 8
          Top = 104
          Width = 48
          Height = 12
          Caption = '会员积分'
        end
        object Label6: TLabel
          Left = 80
          Top = 128
          Width = 12
          Height = 12
          Caption = '至'
        end
        object Label7: TLabel
          Left = 8
          Top = 16
          Width = 60
          Height = 12
          Caption = '积分基数:'
        end
        object Bevel1: TBevel
          Left = 8
          Top = 40
          Width = 169
          Height = 9
          Shape = bsTopLine
        end
        object Bevel2: TBevel
          Left = 8
          Top = 200
          Width = 169
          Height = 9
          Shape = bsTopLine
        end
        object Edit2: TEdit
          Left = 8
          Top = 72
          Width = 169
          Height = 20
          TabOrder = 0
        end
        object RxCalcEdit1: TRxCalcEdit
          Left = 8
          Top = 120
          Width = 65
          Height = 21
          AutoSize = False
          DisplayFormat = '0.##'
          ButtonWidth = 0
          NumGlyphs = 2
          TabOrder = 1
          Value = 100
        end
        object RxCalcEdit2: TRxCalcEdit
          Left = 96
          Top = 120
          Width = 81
          Height = 21
          AutoSize = False
          DisplayFormat = '0.##'
          ButtonWidth = 0
          NumGlyphs = 2
          TabOrder = 2
          Value = 1000
        end
        object BitBtn3: TBitBtn
          Left = 104
          Top = 160
          Width = 75

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -