unit3.dfm

采用JAVA语言实现的出租车计价器的程序

object Form3: TForm3
  Left = 216
  Top = 198
  Width = 713
  Height = 459
  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 = 24
    Top = 24
    Width = 260
    Height = 20
    Caption = '请输入汇总月份:(格式:200606)           '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 448
    Top = 24
    Width = 105
    Height = 33
    Caption = '确   定'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 568
    Top = 24
    Width = 105
    Height = 33
    Caption = '取   消'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button2Click
  end
  object Edit1: TEdit
    Left = 280
    Top = 24
    Width = 145
    Height = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    Text = ' '
  end
  object ListView1: TListView
    Left = 16
    Top = 64
    Width = 673
    Height = 353
    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 = 3
    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 = 240
  end
end