unit4.~dfm

来自「采用JAVA语言实现的出租车计价器的程序」· ~DFM 代码 · 共 170 行

object Form4: TForm4
  Left = 214
  Top = 195
  Width = 717
  Height = 460
  Caption = '阶段汇总'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 48
    Top = 48
    Width = 96
    Height = 20
    Caption = '起始日期:       '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 48
    Top = 88
    Width = 136
    Height = 20
    Caption = '终止日期:                 '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 48
    Top = 16
    Width = 289
    Height = 20
    Caption = '请输入起止日期:(格式:2006.6.20)              '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 152
    Top = 48
    Width = 185
    Height = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Text = ' '
  end
  object Edit2: TEdit
    Left = 152
    Top = 88
    Width = 185
    Height = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object Button1: TButton
    Left = 424
    Top = 80
    Width = 121
    Height = 33
    Caption = '确   定'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 424
    Top = 40
    Width = 121
    Height = 33
    Caption = '取   消'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = Button2Click
  end
  object ListView1: TListView
    Left = 24
    Top = 128
    Width = 681
    Height = 297
    Columns = <
      item
        Caption = '      车号'
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = '单位'
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = '司机'
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = '运营次数'
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = '里程'
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = '侯时'
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = '营业额'
        Width = 90
      end>
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    ViewStyle = vsReport
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Task\db2.mdb;' +
      'Persist Security Info=False'
    Parameters = <>
    Left = 368
    Top = 8
  end
end