?? unit1.dfm
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -