📄 unit3.dfm
字号:
object Init_Machine: TInit_Machine
Left = 231
Top = 93
AutoScroll = False
BorderIcons = [biSystemMenu]
Caption = #32456#31471#20018#21475#25805#20316
ClientHeight = 593
ClientWidth = 737
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = Close
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object MSComm: TMSComm
Left = 32
Top = 248
Width = 32
Height = 32
OnComm = serreci
ControlData = {
2143341208000000ED030000ED03000001568A64000006000000010000040000
00020000802500000000080000000000000000003F00000001000000}
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 161
Height = 209
Caption = #20018#21475#35774#32622
TabOrder = 1
object Label6: TLabel
Left = 35
Top = 28
Width = 39
Height = 13
Caption = #31471#21475#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 35
Top = 54
Width = 39
Height = 13
Caption = #27874#29305#29575
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 36
Top = 82
Width = 39
Height = 13
Caption = #25968#25454#20301
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 36
Top = 111
Width = 48
Height = 16
Caption = #26657#39564#20301
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 35
Top = 143
Width = 39
Height = 13
Caption = #20572#27490#20301
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Port_Name: TComboBox
Left = 88
Top = 24
Width = 60
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 0
Text = 'COM1'
Items.Strings = (
'COM1'
'COM2'
'COM3'
'COM4')
end
object Baud_Rate: TComboBox
Left = 88
Top = 51
Width = 60
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 1
Text = '9600'
Items.Strings = (
'9600'
'12000'
'14440'
'22200')
end
object Data_Bit: TComboBox
Left = 88
Top = 80
Width = 60
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 2
Text = '8'
Items.Strings = (
'8'
'7'
'6')
end
object Check_Bit: TComboBox
Left = 88
Top = 109
Width = 60
Height = 21
ItemHeight = 13
ItemIndex = 2
TabOrder = 3
Text = 'None'
Items.Strings = (
'Even'
'Odd'
'None'
'Mark'
'Space')
end
object Stop_Bit: TComboBox
Left = 88
Top = 140
Width = 60
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 4
Text = '1'
Items.Strings = (
'1'
'1.5'
'2')
end
object open_click: TBitBtn
Left = 16
Top = 176
Width = 65
Height = 25
Caption = #25171#24320
TabOrder = 5
OnClick = open_clickClick
end
object close_click: TBitBtn
Left = 88
Top = 176
Width = 65
Height = 25
Caption = #20851#38381
TabOrder = 6
OnClick = close_clickClick
end
end
object PageControl1: TPageControl
Left = 176
Top = 16
Width = 521
Height = 561
ActivePage = TabSheet3
TabIndex = 2
TabOrder = 2
object TabSheet1: TTabSheet
Caption = 'GPRS'#32456#31471#35774#32622
object GroupBox2: TGroupBox
Left = 40
Top = 24
Width = 297
Height = 105
Caption = #35774#22791#22320#22336#35774#32622
TabOrder = 0
object Label1: TLabel
Left = 24
Top = 32
Width = 64
Height = 16
Caption = #35774#22791#22320#22336
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object SETADDR: TEdit
Left = 104
Top = 32
Width = 121
Height = 21
MaxLength = 6
TabOrder = 0
Text = '123456'
end
object Button3: TButton
Left = 48
Top = 64
Width = 75
Height = 25
Caption = #21457#36865
TabOrder = 1
OnClick = Button3Click
end
object Button4: TButton
Left = 120
Top = 64
Width = 75
Height = 25
Caption = #25509#25910
TabOrder = 2
end
end
object GroupBox3: TGroupBox
Left = 40
Top = 136
Width = 297
Height = 193
Caption = #20013#24515#22320#22336#35774#32622
TabOrder = 1
object Label2: TLabel
Left = 24
Top = 24
Width = 48
Height = 16
Caption = 'IP'#22320#22336
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 24
Top = 56
Width = 48
Height = 16
Caption = #31471#21475#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 16
Top = 88
Width = 64
Height = 16
Caption = #26102#38388#38388#38548
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 168
Top = 88
Width = 16
Height = 16
Caption = #31186
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object IP1: TEdit
Left = 88
Top = 24
Width = 41
Height = 21
MaxLength = 3
TabOrder = 0
Text = '60'
end
object IP2: TEdit
Left = 128
Top = 24
Width = 41
Height = 21
MaxLength = 3
TabOrder = 1
Text = '208'
end
object IP3: TEdit
Left = 168
Top = 24
Width = 41
Height = 21
MaxLength = 3
TabOrder = 2
Text = '156'
end
object IP4: TEdit
Left = 208
Top = 24
Width = 41
Height = 21
MaxLength = 3
TabOrder = 3
Text = '105'
end
object PORTNUM: TEdit
Left = 88
Top = 56
Width = 73
Height = 21
MaxLength = 6
TabOrder = 4
Text = '9999'
end
object Button5: TButton
Left = 64
Top = 152
Width = 75
Height = 25
Caption = #21457#36865
TabOrder = 5
OnClick = Button5Click
end
object Button6: TButton
Left = 136
Top = 152
Width = 75
Height = 25
Caption = #25509#25910
TabOrder = 6
end
object time_initer: TEdit
Left = 88
Top = 88
Width = 73
Height = 21
TabOrder = 7
Text = '60'
end
end
object GroupBox4: TGroupBox
Left = 40
Top = 344
Width = 297
Height = 113
Caption = 'APN'#25509#20837#28857#35774#32622
TabOrder = 2
object Label13: TLabel
Left = 24
Top = 32
Width = 72
Height = 16
Caption = 'APN'#25509#20837#28857
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object APNSET: TEdit
Left = 104
Top = 32
Width = 121
Height = 21
TabOrder = 0
Text = 'CMNET'
end
object Button7: TButton
Left = 48
Top = 64
Width = 75
Height = 25
Caption = #21457#36865
TabOrder = 1
OnClick = Button7Click
end
object Button8: TButton
Left = 120
Top = 64
Width = 75
Height = 25
Caption = #25509#25910
TabOrder = 2
end
end
object initok_click: TButton
Left = 368
Top = 376
Width = 129
Height = 113
Caption = #21021#22987#21270#23436#27605
TabOrder = 3
end
end
object TabSheet2: TTabSheet
Caption = 'GPRS'#25968#25454#36879#26126#25910#21457
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -