brush.dfm

本系统为演示Delphi的功能而开发设计

object brushinfoForm: TbrushinfoForm
  Left = 159
  Top = 124
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = '刷卡情况统计表'
  ClientHeight = 348
  ClientWidth = 499
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnActivate = FormActivate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 12
    Top = 10
    Width = 14
    Height = 14
    Caption = '从'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 192
    Top = 10
    Width = 14
    Height = 14
    Caption = '至'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object DateTimePickerFrom: TDateTimePicker
    Left = 32
    Top = 8
    Width = 124
    Height = 22
    CalAlignment = dtaLeft
    Date = 36480
    Time = 36480
    DateFormat = dfLong
    DateMode = dmComboBox
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    Kind = dtkDate
    ParseInput = False
    ParentFont = False
    TabOrder = 0
    OnExit = DateTimePickerFromExit
  end
  object DateTimePickerTo: TDateTimePicker
    Left = 216
    Top = 8
    Width = 123
    Height = 22
    CalAlignment = dtaLeft
    Date = 36480.9999884259
    Time = 36480.9999884259
    DateFormat = dfLong
    DateMode = dmComboBox
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    Kind = dtkDate
    ParseInput = False
    ParentFont = False
    TabOrder = 1
    OnExit = DateTimePickerToExit
  end
  object PageControl1: TPageControl
    Left = 7
    Top = 40
    Width = 489
    Height = 265
    ActivePage = TabSheet1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = '详细列表'
      object DBGrid1: TDBGrid
        Left = 8
        Top = 8
        Width = 465
        Height = 217
        DataSource = HuaXiaData.DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'login_name'
            Title.Alignment = taCenter
            Title.Caption = '用户名'
            Width = 125
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'brush_mach_no'
            Title.Alignment = taCenter
            Title.Caption = '刷卡机器号'
            Width = 125
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'brush_date'
            Title.Alignment = taCenter
            Title.Caption = '刷卡时间'
            Width = 177
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = '结果汇总'
      ImageIndex = 1
      object DBGrid2: TDBGrid
        Left = 4
        Top = 16
        Width = 468
        Height = 193
        DataSource = HuaXiaData.DataSource2
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'login_name'
            Title.Alignment = taCenter
            Title.Caption = '用户名称'
            Width = 119
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'brush_mach_no'
            Title.Alignment = taCenter
            Title.Caption = '刷卡机器号'
            Width = 146
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'amount'
            Title.Alignment = taCenter
            Title.Caption = '总计'
            Width = 168
            Visible = True
          end>
      end
    end
  end
  object ButtonSelect: TButton
    Left = 136
    Top = 312
    Width = 75
    Height = 25
    Caption = '查询(&C)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = ButtonSelectClick
  end
  object ButtonClose: TButton
    Left = 288
    Top = 312
    Width = 75
    Height = 25
    Caption = '关闭(&C)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ModalResult = 2
    ParentFont = False
    TabOrder = 4
    OnClick = ButtonCloseClick
  end
end