unit1.dfm

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

object MainForm: TMainForm
  Left = 192
  Top = 107
  Width = 759
  Height = 577
  Caption = '出租车计价器数据采集系统'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 520
    Width = 45
    Height = 13
    Caption = '串口号:  '
  end
  object Label2: TLabel
    Left = 144
    Top = 520
    Width = 45
    Height = 13
    Caption = '波特率:  '
  end
  object Label3: TLabel
    Left = 280
    Top = 520
    Width = 45
    Height = 13
    Caption = '数据位:  '
  end
  object Label4: TLabel
    Left = 408
    Top = 520
    Width = 45
    Height = 13
    Caption = '停止位:  '
  end
  object Label5: TLabel
    Left = 536
    Top = 520
    Width = 45
    Height = 13
    Caption = '校验位:  '
  end
  object Label6: TLabel
    Left = 344
    Top = 488
    Width = 36
    Height = 13
    Caption = 'ms/次  '
  end
  object shpSerial: TShape
    Left = 16
    Top = 488
    Width = 25
    Height = 17
    Brush.Color = clRed
    Shape = stCircle
  end
  object Label7: TLabel
    Left = 16
    Top = 120
    Width = 75
    Height = 13
    Caption = '运营车辆号:    '
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label48: TLabel
    Left = 160
    Top = 16
    Width = 384
    Height = 32
    Caption = '出租车计价器数据采集系统'
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -32
    Font.Name = '隶书'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label49: TLabel
    Left = 512
    Top = 48
    Width = 84
    Height = 13
    Caption = '沈阳博通电子    '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clOlive
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label50: TLabel
    Left = 96
    Top = 120
    Width = 177
    Height = 13
    Caption = '                                                           '
  end
  object Label13: TLabel
    Left = 16
    Top = 144
    Width = 63
    Height = 13
    Caption = '运营记录:    '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object MSComm: TMSComm
    Left = 656
    Top = 24
    Width = 32
    Height = 32
    OnComm = MSCommComm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000020000040000
      00020100C01200000000080000000000000000003F00000001000000}
  end
  object cmbbxComNum: TComboBox
    Left = 72
    Top = 520
    Width = 57
    Height = 21
    ImeName = '金山英文写作助手'
    ItemHeight = 13
    TabOrder = 1
    Text = 'COM2'
    Items.Strings = (
      'COM1'
      'COM2'
      'COM3')
  end
  object cmbbxBaud: TComboBox
    Left = 200
    Top = 520
    Width = 57
    Height = 21
    ImeName = '金山英文写作助手'
    ItemHeight = 13
    TabOrder = 2
    Text = '4800'
    Items.Strings = (
      '110'
      '300'
      '600'
      '1200'
      '2400'
      '4800'
      '9600'
      '14400'
      '19200'
      '38400'
      '56000')
  end
  object cmbbxDataNum: TComboBox
    Left = 336
    Top = 520
    Width = 57
    Height = 21
    ImeName = '金山英文写作助手'
    ItemHeight = 13
    TabOrder = 3
    Text = '8'
    Items.Strings = (
      '5'
      '6'
      '7'
      '8')
  end
  object cmbbxStopBit: TComboBox
    Left = 464
    Top = 520
    Width = 57
    Height = 21
    ImeName = '金山英文写作助手'
    ItemHeight = 13
    TabOrder = 4
    Text = '1'
    Items.Strings = (
      '1'
      '2')
  end
  object cmbbxCheckBit: TComboBox
    Left = 592
    Top = 520
    Width = 57
    Height = 21
    ImeName = '金山英文写作助手'
    ItemHeight = 13
    TabOrder = 5
    Text = 'N'
    Items.Strings = (
      'N'
      'E'
      'M'
      'O'
      'S')
  end
  object btnSerial: TButton
    Left = 56
    Top = 488
    Width = 75
    Height = 25
    Caption = '打开串口'
    TabOrder = 6
    OnClick = btnSerialClick
  end
  object chckbxTimer: TCheckBox
    Left = 184
    Top = 488
    Width = 81
    Height = 25
    Caption = '定时采集  '
    TabOrder = 7
    OnClick = chckbxTimerClick
  end
  object btnSend: TButton
    Left = 440
    Top = 488
    Width = 89
    Height = 25
    Caption = '手动采集'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnClick = btnSendClick
  end
  object edtTime: TEdit
    Left = 280
    Top = 488
    Width = 57
    Height = 21
    ImeName = '金山英文写作助手'
    TabOrder = 9
    Text = '75'
  end
  object Button1: TButton
    Left = 600
    Top = 488
    Width = 81
    Height = 25
    Caption = '退出系统 '
    TabOrder = 10
    OnClick = Button1Click
  end
  object ListView1: TListView
    Left = 16
    Top = 168
    Width = 713
    Height = 313
    Columns = <
      item
        Caption = '      编号     '
        Width = 70
      end
      item
        Caption = '          日期'
        Width = 100
      end
      item
        Caption = '上车(时 : 分)'
        Width = 80
      end
      item
        Caption = '下车(时 : 分)'
        Width = 80
      end
      item
        Caption = '侯时(小时 : 分)'
        Width = 90
      end
      item
        Caption = '      单价(元 )'
        Width = 90
      end
      item
        Caption = '    里程(公里 )'
        Width = 90
      end
      item
        Caption = '      金额(元)'
        Width = 90
      end>
    TabOrder = 11
    ViewStyle = vsReport
  end
  object Button2: TButton
    Left = 16
    Top = 80
    Width = 121
    Height = 25
    Caption = '每日汇总'
    TabOrder = 12
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 152
    Top = 80
    Width = 113
    Height = 25
    Caption = '每月汇总'
    TabOrder = 13
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 280
    Top = 80
    Width = 113
    Height = 25
    Caption = '阶段汇总'
    TabOrder = 14
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 408
    Top = 80
    Width = 105
    Height = 25
    Caption = '车辆信息录入'
    TabOrder = 15
    OnClick = Button5Click
  end
  object tmrSend: TTimer
    Enabled = False
    OnTimer = tmrSendTimer
    Left = 616
    Top = 24
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from yyjl where 日期='#39'2006.4.0'#39)
    Left = 32
    Top = 24
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
      'Source=D:\My Task\db2.mdb;Mode=Share Deny None;Extended Properti' +
      'es="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Je' +
      't OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:D' +
      'atabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet O' +
      'LEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password=' +
      '"";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Data' +
      'base=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLED' +
      'B:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 88
    Top = 24
  end
end