POS消费机VB.NET软件界面
详细代码：
Public Class Form1
Inherits System.Windows.Forms.Form
'广州荣士电子有限公司，联系电话020-82318861,82322852,定制13826029618 网址http://www.icmcu.com
#Region " Windows 窗体设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents IC操作管理 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
Friend WithEvents TextBox8 As System.Windows.Forms.TextBox
Friend WithEvents TextBox9 As System.Windows.Forms.TextBox
Friend WithEvents TextBox10 As System.Windows.Forms.TextBox
Friend WithEvents TextBox11 As System.Windows.Forms.TextBox
Friend WithEvents TextBox12 As System.Windows.Forms.TextBox
Friend WithEvents TextBox13 As System.Windows.Forms.TextBox
Friend WithEvents TextBox14 As System.Windows.Forms.TextBox
Friend WithEvents TextBox15 As System.Windows.Forms.TextBox
Friend WithEvents TextBox16 As System.Windows.Forms.TextBox
Friend WithEvents TextBox17 As System.Windows.Forms.TextBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents Label16 As System.Windows.Forms.Label
Friend WithEvents Label17 As System.Windows.Forms.Label
Friend WithEvents Label18 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Label19 As System.Windows.Forms.Label
Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents Button8 As System.Windows.Forms.Button
Friend WithEvents Button9 As System.Windows.Forms.Button
Friend WithEvents Label37 As System.Windows.Forms.Label
Friend WithEvents Label36 As System.Windows.Forms.Label
Friend WithEvents TextBox34 As System.Windows.Forms.TextBox
Friend WithEvents TextBox33 As System.Windows.Forms.TextBox
Friend WithEvents TextBox32 As System.Windows.Forms.TextBox
Friend WithEvents TextBox31 As System.Windows.Forms.TextBox
Friend WithEvents TextBox30 As System.Windows.Forms.TextBox
Friend WithEvents TextBox29 As System.Windows.Forms.TextBox
Friend WithEvents Label35 As System.Windows.Forms.Label
Friend WithEvents Label34 As System.Windows.Forms.Label
Friend WithEvents Label33 As System.Windows.Forms.Label
Friend WithEvents Button21 As System.Windows.Forms.Button
Friend WithEvents ListView1 As System.Windows.Forms.ListView
Friend WithEvents Label32 As System.Windows.Forms.Label
Friend WithEvents Button20 As System.Windows.Forms.Button
Friend WithEvents TextBox28 As System.Windows.Forms.TextBox
Friend WithEvents TextBox27 As System.Windows.Forms.TextBox
Friend WithEvents Button19 As System.Windows.Forms.Button
Friend WithEvents Button18 As System.Windows.Forms.Button
Friend WithEvents TextBox26 As System.Windows.Forms.TextBox
Friend WithEvents Label31 As System.Windows.Forms.Label
Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
Friend WithEvents Button17 As System.Windows.Forms.Button
Friend WithEvents Button16 As System.Windows.Forms.Button
Friend WithEvents Button15 As System.Windows.Forms.Button
Friend WithEvents TextBox25 As System.Windows.Forms.TextBox
Friend WithEvents Label29 As System.Windows.Forms.Label
Friend WithEvents Label28 As System.Windows.Forms.Label
Friend WithEvents Label27 As System.Windows.Forms.Label
Friend WithEvents Label26 As System.Windows.Forms.Label
Friend WithEvents Label25 As System.Windows.Forms.Label
Friend WithEvents TextBox24 As System.Windows.Forms.TextBox
Friend WithEvents TextBox23 As System.Windows.Forms.TextBox
Friend WithEvents TextBox22 As System.Windows.Forms.TextBox
Friend WithEvents TextBox21 As System.Windows.Forms.TextBox
Friend WithEvents TextBox20 As System.Windows.Forms.TextBox
Friend WithEvents Button14 As System.Windows.Forms.Button
Friend WithEvents Button13 As System.Windows.Forms.Button
Friend WithEvents Button12 As System.Windows.Forms.Button
Friend WithEvents TextBox19 As System.Windows.Forms.TextBox
Friend WithEvents Label24 As System.Windows.Forms.Label
Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents Button11 As System.Windows.Forms.Button
Friend WithEvents Button10 As System.Windows.Forms.Button
Friend WithEvents Label23 As System.Windows.Forms.Label
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents Label22 As System.Windows.Forms.Label
Friend WithEvents Label21 As System.Windows.Forms.Label
Friend WithEvents TextBox18 As System.Windows.Forms.TextBox
Friend WithEvents Label30 As System.Windows.Forms.Label
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents Label41 As System.Windows.Forms.Label
Friend WithEvents Button22 As System.Windows.Forms.Button
Friend WithEvents TextBox35 As System.Windows.Forms.TextBox
Friend WithEvents TextBox36 As System.Windows.Forms.TextBox
Friend WithEvents TextBox37 As System.Windows.Forms.TextBox
Friend WithEvents TextBox38 As System.Windows.Forms.TextBox
Friend WithEvents Button23 As System.Windows.Forms.Button
Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox6 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox7 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox8 As System.Windows.Forms.CheckBox
Friend WithEvents AxPOS011 As AxPOS01Lib.AxPOS01
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader4 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader5 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader6 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader7 As System.Windows.Forms.ColumnHeader
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
Me.IC操作管理 = New System.Windows.Forms.GroupBox
Me.Button9 = New System.Windows.Forms.Button
Me.Button8 = New System.Windows.Forms.Button
Me.Button7 = New System.Windows.Forms.Button
Me.Button6 = New System.Windows.Forms.Button
Me.Label20 = New System.Windows.Forms.Label
Me.Label19 = New System.Windows.Forms.Label
Me.Button5 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Button1 = New System.Windows.Forms.Button
Me.Label18 = New System.Windows.Forms.Label
Me.Label17 = New System.Windows.Forms.Label
Me.Label16 = New System.Windows.Forms.Label
Me.Label15 = New System.Windows.Forms.Label
Me.Label14 = New System.Windows.Forms.Label
Me.Label13 = New System.Windows.Forms.Label
Me.Label12 = New System.Windows.Forms.Label
Me.TextBox17 = New System.Windows.Forms.TextBox
Me.TextBox16 = New System.Windows.Forms.TextBox
Me.TextBox15 = New System.Windows.Forms.TextBox
Me.TextBox14 = New System.Windows.Forms.TextBox
Me.TextBox13 = New System.Windows.Forms.TextBox
Me.TextBox12 = New System.Windows.Forms.TextBox
Me.TextBox11 = New System.Windows.Forms.TextBox
Me.TextBox10 = New System.Windows.Forms.TextBox
Me.TextBox9 = New System.Windows.Forms.TextBox
Me.TextBox8 = New System.Windows.Forms.TextBox
Me.TextBox7 = New System.Windows.Forms.TextBox
Me.TextBox6 = New System.Windows.Forms.TextBox
Me.TextBox5 = New System.Windows.Forms.TextBox
Me.TextBox4 = New System.Windows.Forms.TextBox
Me.TextBox3 = New System.Windows.Forms.TextBox
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Label11 = New System.Windows.Forms.Label
Me.Label10 = New System.Windows.Forms.Label
Me.Label9 = New System.Windows.Forms.Label
Me.Label8 = New System.Windows.Forms.Label
Me.Label7 = New System.Windows.Forms.Label
Me.Label6 = New System.Windows.Forms.Label
Me.Label5 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.Label37 = New System.Windows.Forms.Label
Me.Label36 = New System.Windows.Forms.Label
Me.TextBox34 = New System.Windows.Forms.TextBox
Me.TextBox33 = New System.Windows.Forms.TextBox
Me.TextBox32 = New System.Windows.Forms.TextBox
Me.TextBox31 = New System.Windows.Forms.TextBox
Me.TextBox30 = New System.Windows.Forms.TextBox
Me.TextBox29 = New System.Windows.Forms.TextBox
Me.Label35 = New System.Windows.Forms.Label
Me.Label34 = New System.Windows.Forms.Label
Me.Label33 = New System.Windows.Forms.Label
Me.Button21 = New System.Windows.Forms.Button
Me.ListView1 = New System.Windows.Forms.ListView
Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader3 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader4 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader5 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader6 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader7 = New System.Windows.Forms.ColumnHeader
Me.Label32 = New System.Windows.Forms.Label
Me.Button20 = New System.Windows.Forms.Button
Me.TextBox28 = New System.Windows.Forms.TextBox
Me.TextBox27 = New System.Windows.Forms.TextBox
Me.Button19 = New System.Windows.Forms.Button
Me.Button18 = New System.Windows.Forms.Button
Me.TextBox26 = New System.Windows.Forms.TextBox
Me.Label31 = New System.Windows.Forms.Label
Me.ComboBox2 = New System.Windows.Forms.ComboBox
Me.Button17 = New System.Windows.Forms.Button
Me.Button16 = New System.Windows.Forms.Button
Me.Button15 = New System.Windows.Forms.Button
Me.TextBox25 = New System.Windows.Forms.TextBox
Me.Label29 = New System.Windows.Forms.Label
Me.Label28 = New System.Windows.Forms.Label
Me.Label27 = New System.Windows.Forms.Label
Me.Label26 = New System.Windows.Forms.Label
Me.Label25 = New System.Windows.Forms.Label
Me.TextBox24 = New System.Windows.Forms.TextBox
Me.TextBox23 = New System.Windows.Forms.TextBox
Me.TextBox22 = New System.Windows.Forms.TextBox
Me.TextBox21 = New System.Windows.Forms.TextBox
Me.TextBox20 = New System.Windows.Forms.TextBox
Me.Button14 = New System.Windows.Forms.Button
Me.Button13 = New System.Windows.Forms.Button
Me.Button12 = New System.Windows.Forms.Button
Me.TextBox19 = New System.Windows.Forms.TextBox
Me.Label24 = New System.Windows.Forms.Label
Me.CheckBox4 = New System.Windows.Forms.CheckBox
Me.CheckBox3 = New System.Windows.Forms.CheckBox
Me.CheckBox2 = New System.Windows.Forms.CheckBox
Me.CheckBox1 = New System.Windows.Forms.CheckBox
Me.Button11 = New System.Windows.Forms.Button
Me.Button10 = New System.Windows.Forms.Button
Me.Label23 = New System.Windows.Forms.Label
Me.ComboBox1 = New System.Windows.Forms.ComboBox
Me.Label22 = New System.Windows.Forms.Label
Me.Label21 = New System.Windows.Forms.Label
Me.TextBox18 = New System.Windows.Forms.TextBox
Me.Label30 = New System.Windows.Forms.Label
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.CheckBox8 = New System.Windows.Forms.CheckBox
Me.CheckBox7 = New System.Windows.Forms.CheckBox
Me.CheckBox6 = New System.Windows.Forms.CheckBox
Me.CheckBox5 = New System.Windows.Forms.CheckBox
Me.Button23 = New System.Windows.Forms.Button
Me.TextBox38 = New System.Windows.Forms.TextBox
Me.TextBox37 = New System.Windows.Forms.TextBox
Me.TextBox36 = New System.Windows.Forms.TextBox
Me.TextBox35 = New System.Windows.Forms.TextBox
Me.Button22 = New System.Windows.Forms.Button
Me.Label41 = New System.Windows.Forms.Label
Me.AxPOS011 = New AxPOS01Lib.AxPOS01
Me.IC操作管理.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.AxPOS011, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'IC操作管理
'
Me.IC操作管理.Controls.Add(Me.Button9)
Me.IC操作管理.Controls.Add(Me.Button8)
Me.IC操作管理.Controls.Add(Me.Button7)
Me.IC操作管理.Controls.Add(Me.Button6)
Me.IC操作管理.Controls.Add(Me.Label20)
Me.IC操作管理.Controls.Add(Me.Label19)
Me.IC操作管理.Controls.Add(Me.Button5)
Me.IC操作管理.Controls.Add(Me.Button4)
Me.IC操作管理.Controls.Add(Me.Button3)
Me.IC操作管理.Controls.Add(Me.Button2)
Me.IC操作管理.Controls.Add(Me.Button1)
Me.IC操作管理.Controls.Add(Me.Label18)
Me.IC操作管理.Controls.Add(Me.Label17)
Me.IC操作管理.Controls.Add(Me.Label16)
Me.IC操作管理.Controls.Add(Me.Label15)
Me.IC操作管理.Controls.Add(Me.Label14)
Me.IC操作管理.Controls.Add(Me.Label13)
Me.IC操作管理.Controls.Add(Me.Label12)
Me.IC操作管理.Controls.Add(Me.TextBox17)
Me.IC操作管理.Controls.Add(Me.TextBox16)
Me.IC操作管理.Controls.Add(Me.TextBox15)
Me.IC操作管理.Controls.Add(Me.TextBox14)
Me.IC操作管理.Controls.Add(Me.TextBox13)
Me.IC操作管理.Controls.Add(Me.TextBox12)
Me.IC操作管理.Controls.Add(Me.TextBox11)
Me.IC操作管理.Controls.Add(Me.TextBox10)
Me.IC操作管理.Controls.Add(Me.TextBox9)
Me.IC操作管理.Controls.Add(Me.TextBox8)
Me.IC操作管理.Controls.Add(Me.TextBox7)
Me.IC操作管理.Controls.Add(Me.TextBox6)
Me.IC操作管理.Controls.Add(Me.TextBox5)
Me.IC操作管理.Controls.Add(Me.TextBox4)
Me.IC操作管理.Controls.Add(Me.TextBox3)
Me.IC操作管理.Controls.Add(Me.TextBox2)
Me.IC操作管理.Controls.Add(Me.TextBox1)
Me.IC操作管理.Controls.Add(Me.Label11)
Me.IC操作管理.Controls.Add(Me.Label10)
Me.IC操作管理.Controls.Add(Me.Label9)
Me.IC操作管理.Controls.Add(Me.Label8)
Me.IC操作管理.Controls.Add(Me.Label7)
Me.IC操作管理.Controls.Add(Me.Label6)
Me.IC操作管理.Controls.Add(Me.Label5)
Me.IC操作管理.Controls.Add(Me.Label4)
Me.IC操作管理.Controls.Add(Me.Label3)
Me.IC操作管理.Controls.Add(Me.Label2)
Me.IC操作管理.Controls.Add(Me.Label1)
Me.IC操作管理.Location = New System.Drawing.Point(32, 32)
Me.IC操作管理.Name = "IC操作管理"
Me.IC操作管理.Size = New System.Drawing.Size(1016, 272)
Me.IC操作管理.TabIndex = 1
Me.IC操作管理.TabStop = False
Me.IC操作管理.Text = "IC卡操作管理"
'
'Button9
'
Me.Button9.Location = New System.Drawing.Point(680, 216)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(320, 32)
Me.Button9.TabIndex = 46
Me.Button9.Text = "清空消费卡"
'
'Button8
'
Me.Button8.Location = New System.Drawing.Point(680, 160)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(320, 32)
Me.Button8.TabIndex = 45
Me.Button8.Text = "出厂卡初始化成消费卡"
'
'Button7
'
Me.Button7.Location = New System.Drawing.Point(680, 88)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(320, 32)
Me.Button7.TabIndex = 44
Me.Button7.Text = "清空密码卡"
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(680, 32)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(320, 32)
Me.Button6.TabIndex = 43
Me.Button6.Text = "制作密码卡，用于刷卡更改批定POS机的消费卡区号密码"
'
'Label20
'
Me.Label20.Location = New System.Drawing.Point(432, 224)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(32, 23)
Me.Label20.TabIndex = 42
Me.Label20.Text = "分钱"
'
'Label19
'
Me.Label19.Location = New System.Drawing.Point(136, 224)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(32, 23)
Me.Label19.TabIndex = 41
Me.Label19.Text = "分钱"
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(472, 216)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(96, 32)
Me.Button5.TabIndex = 40
Me.Button5.Text = "POS退费"
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(176, 216)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(96, 32)
Me.Button4.TabIndex = 39
Me.Button4.Text = "POS充值"
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(440, 160)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(144, 32)
Me.Button3.TabIndex = 38
Me.Button3.Text = "POSCardWrite"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(240, 160)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(144, 32)
Me.Button2.TabIndex = 37
Me.Button2.Text = "POSCardRead"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(64, 160)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(128, 32)
Me.Button1.TabIndex = 36
Me.Button1.Text = "POSPcbBeep"
'
'Label18
'
Me.Label18.Location = New System.Drawing.Point(24, 224)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(32, 23)
Me.Label18.TabIndex = 35
Me.Label18.Text = "充值"
'
'Label17
'
Me.Label17.Location = New System.Drawing.Point(432, 120)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(144, 23)
Me.Label17.TabIndex = 34
Me.Label17.Text = "当餐超过需按密码的金额"
'
'Label16
'
Me.Label16.Location = New System.Drawing.Point(432, 96)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(112, 23)
Me.Label16.TabIndex = 33
Me.Label16.Text = "当餐累计消费次数"
'
'Label15
'
Me.Label15.Location = New System.Drawing.Point(392, 120)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(40, 23)
Me.Label15.TabIndex = 32
Me.Label15.Text = "分钱"
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(392, 96)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(40, 23)
Me.Label14.TabIndex = 31
Me.Label14.Text = "分钱"
'
'Label13
'
Me.Label13.Location = New System.Drawing.Point(408, 72)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(72, 23)
Me.Label13.TabIndex = 30
Me.Label13.Text = "日，餐次："
'
'Label12
'
Me.Label12.Location = New System.Drawing.Point(368, 72)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(16, 23)
Me.Label12.TabIndex = 29
Me.Label12.Text = "月"
'
'TextBox17
'
Me.TextBox17.Location = New System.Drawing.Point(352, 224)
Me.TextBox17.Name = "TextBox17"
Me.TextBox17.Size = New System.Drawing.Size(72, 21)
Me.TextBox17.TabIndex = 27
Me.TextBox17.Text = "0"
'
'TextBox16
'
Me.TextBox16.Location = New System.Drawing.Point(64, 224)
Me.TextBox16.Name = "TextBox16"
Me.TextBox16.Size = New System.Drawing.Size(72, 21)
Me.TextBox16.TabIndex = 26
Me.TextBox16.Text = "0"
'
'TextBox15
'
Me.TextBox15.Location = New System.Drawing.Point(576, 120)
Me.TextBox15.Name = "TextBox15"
Me.TextBox15.Size = New System.Drawing.Size(72, 21)
Me.TextBox15.TabIndex = 25
Me.TextBox15.Text = "0"
'
'TextBox14
'
Me.TextBox14.Location = New System.Drawing.Point(544, 96)
Me.TextBox14.Name = "TextBox14"
Me.TextBox14.Size = New System.Drawing.Size(64, 21)
Me.TextBox14.TabIndex = 24
Me.TextBox14.Text = "0"
'
'TextBox13
'
Me.TextBox13.Location = New System.Drawing.Point(304, 120)
Me.TextBox13.Name = "TextBox13"
Me.TextBox13.Size = New System.Drawing.Size(80, 21)
Me.TextBox13.TabIndex = 23
Me.TextBox13.Text = "0"
'
'TextBox12
'
Me.TextBox12.Location = New System.Drawing.Point(304, 96)
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.Size = New System.Drawing.Size(80, 21)
Me.TextBox12.TabIndex = 22
Me.TextBox12.Text = "0"
'
'TextBox11
'
Me.TextBox11.Location = New System.Drawing.Point(480, 72)
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Size = New System.Drawing.Size(24, 21)
Me.TextBox11.TabIndex = 21
Me.TextBox11.Text = "0"
'
'TextBox10
'
Me.TextBox10.Location = New System.Drawing.Point(384, 72)
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Size = New System.Drawing.Size(24, 21)
Me.TextBox10.TabIndex = 20
Me.TextBox10.Text = "00"
'
'TextBox9
'
Me.TextBox9.Location = New System.Drawing.Point(344, 72)
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.Size = New System.Drawing.Size(24, 21)
Me.TextBox9.TabIndex = 19
Me.TextBox9.Text = "00"
'
'TextBox8
'
Me.TextBox8.Location = New System.Drawing.Point(304, 72)
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Size = New System.Drawing.Size(24, 21)
Me.TextBox8.TabIndex = 18
Me.TextBox8.Text = "00"
'
'TextBox7
'
Me.TextBox7.Location = New System.Drawing.Point(280, 48)
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Size = New System.Drawing.Size(80, 21)
Me.TextBox7.TabIndex = 17
Me.TextBox7.Text = "0"
'
'TextBox6
'
Me.TextBox6.Location = New System.Drawing.Point(280, 24)
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Size = New System.Drawing.Size(80, 21)
Me.TextBox6.TabIndex = 16
Me.TextBox6.Text = "张三"
'
'TextBox5
'
Me.TextBox5.Location = New System.Drawing.Point(88, 120)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Size = New System.Drawing.Size(80, 21)
Me.TextBox5.TabIndex = 15
Me.TextBox5.Text = "0"
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(88, 96)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(80, 21)
Me.TextBox4.TabIndex = 14
Me.TextBox4.Text = "0"
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(88, 72)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(80, 21)
Me.TextBox3.TabIndex = 13
Me.TextBox3.Text = "000001"
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(88, 48)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(80, 21)
Me.TextBox2.TabIndex = 12
Me.TextBox2.Text = "01"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(88, 24)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(80, 21)
Me.TextBox1.TabIndex = 11
Me.TextBox1.Text = "01"
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(328, 72)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(24, 23)
Me.Label11.TabIndex = 10
Me.Label11.Text = "年"
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(192, 120)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(104, 23)
Me.Label10.TabIndex = 9
Me.Label10.Text = "当天累计消费金额"
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(192, 96)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(104, 23)
Me.Label9.TabIndex = 8
Me.Label9.Text = "当餐累计消费金额"
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(192, 72)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(88, 23)
Me.Label8.TabIndex = 7
Me.Label8.Text = "最后消费餐次"
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(192, 48)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(80, 23)
Me.Label7.TabIndex = 6
Me.Label7.Text = "卡金额"
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(192, 24)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(80, 23)
Me.Label6.TabIndex = 5
Me.Label6.Text = "持卡人姓名"
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(16, 120)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(72, 23)
Me.Label5.TabIndex = 4
Me.Label5.Text = "持卡人密码"
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(16, 96)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(72, 23)
Me.Label4.TabIndex = 3
Me.Label4.Text = "充值次数"
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(16, 72)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(72, 23)
Me.Label3.TabIndex = 2
Me.Label3.Text = "自编卡号"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(16, 48)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(72, 23)
Me.Label2.TabIndex = 1
Me.Label2.Text = "卡类别"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(16, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(72, 23)
Me.Label1.TabIndex = 0
Me.Label1.Text = "单位代码"
'
'GroupBox1
'
Me.GroupBox1.Location = New System.Drawing.Point(0, 24)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(888, 304)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "IC操作管理"
'
'Label37
'
Me.Label37.Location = New System.Drawing.Point(568, 208)
Me.Label37.Name = "Label37"
Me.Label37.Size = New System.Drawing.Size(72, 23)
Me.Label37.TabIndex = 79
Me.Label37.Text = "远程电脑IP"
'
'Label36
'
Me.Label36.Location = New System.Drawing.Point(480, 208)
Me.Label36.Name = "Label36"
Me.Label36.Size = New System.Drawing.Size(32, 23)
Me.Label36.TabIndex = 78
Me.Label36.Text = "端口"
'
'TextBox34
'
Me.TextBox34.Location = New System.Drawing.Point(816, 208)
Me.TextBox34.Name = "TextBox34"
Me.TextBox34.Size = New System.Drawing.Size(80, 21)
Me.TextBox34.TabIndex = 77
Me.TextBox34.Text = "0000000000"
'
'TextBox33
'
Me.TextBox33.Location = New System.Drawing.Point(640, 208)
Me.TextBox33.Name = "TextBox33"
Me.TextBox33.Size = New System.Drawing.Size(104, 21)
Me.TextBox33.TabIndex = 76
Me.TextBox33.Text = "255.255.255.255"
'
'TextBox32
'
Me.TextBox32.Location = New System.Drawing.Point(512, 208)
Me.TextBox32.Name = "TextBox32"
Me.TextBox32.Size = New System.Drawing.Size(48, 21)
Me.TextBox32.TabIndex = 75
Me.TextBox32.Text = "39190"
'
'TextBox31
'
Me.TextBox31.Location = New System.Drawing.Point(384, 208)
Me.TextBox31.Name = "TextBox31"
Me.TextBox31.Size = New System.Drawing.Size(88, 21)
Me.TextBox31.TabIndex = 74
Me.TextBox31.Text = "192.168.1.1"
'
'TextBox30
'
Me.TextBox30.Location = New System.Drawing.Point(256, 208)
Me.TextBox30.Name = "TextBox30"
Me.TextBox30.Size = New System.Drawing.Size(88, 21)
Me.TextBox30.TabIndex = 73
Me.TextBox30.Text = "255.255.255.0"
'
'TextBox29
'
Me.TextBox29.Location = New System.Drawing.Point(104, 208)
Me.TextBox29.Name = "TextBox29"
Me.TextBox29.Size = New System.Drawing.Size(88, 21)
Me.TextBox29.TabIndex = 72
Me.TextBox29.Text = "192.168.1.218"
'
'Label35
'
Me.Label35.Location = New System.Drawing.Point(352, 208)
Me.Label35.Name = "Label35"
Me.Label35.Size = New System.Drawing.Size(32, 23)
Me.Label35.TabIndex = 71
Me.Label35.Text = "网关"
'
'Label34
'
Me.Label34.Location = New System.Drawing.Point(200, 208)
Me.Label34.Name = "Label34"
Me.Label34.Size = New System.Drawing.Size(56, 23)
Me.Label34.TabIndex = 70
Me.Label34.Text = "子网掩码"
'
'Label33
'
Me.Label33.Location = New System.Drawing.Point(16, 208)
Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(72, 23)
Me.Label33.TabIndex = 69
Me.Label33.Text = "模块IP地址"
'
'Button21
'
Me.Button21.Location = New System.Drawing.Point(544, 96)
Me.Button21.Name = "Button21"
Me.Button21.Size = New System.Drawing.Size(112, 32)
Me.Button21.TabIndex = 68
Me.Button21.Text = "清空以下列表"
'
'ListView1
'
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3, Me.ColumnHeader4, Me.ColumnHeader5, Me.ColumnHeader6, Me.ColumnHeader7})
Me.ListView1.Location = New System.Drawing.Point(16, 136)
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(944, 64)
Me.ListView1.TabIndex = 67
Me.ListView1.View = System.Windows.Forms.View.Details
'
'ColumnHeader1
'
Me.ColumnHeader1.Text = "模块IP地址"
Me.ColumnHeader1.Width = 112
'
'ColumnHeader2
'
Me.ColumnHeader2.Text = "子网掩码"
Me.ColumnHeader2.Width = 117
'
'ColumnHeader3
'
Me.ColumnHeader3.Text = "网关"
Me.ColumnHeader3.Width = 99
'
'ColumnHeader4
'
Me.ColumnHeader4.Text = "端口"
Me.ColumnHeader4.Width = 94
'
'ColumnHeader5
'
Me.ColumnHeader5.Text = "远程电脑IP地址"
Me.ColumnHeader5.Width = 130
'
'ColumnHeader6
'
Me.ColumnHeader6.Text = "模块MAC地址"
Me.ColumnHeader6.Width = 135
'
'ColumnHeader7
'
Me.ColumnHeader7.Text = "模块硬件号"
Me.ColumnHeader7.Width = 150
'
'Label32
'
Me.Label32.Location = New System.Drawing.Point(160, 96)
Me.Label32.Name = "Label32"
Me.Label32.Size = New System.Drawing.Size(168, 23)
Me.Label32.TabIndex = 66
'
'Button20
'
Me.Button20.Location = New System.Drawing.Point(16, 88)
Me.Button20.Name = "Button20"
Me.Button20.Size = New System.Drawing.Size(128, 40)
Me.Button20.TabIndex = 65
Me.Button20.Text = "搜寻所有联网的模块"
'
'TextBox28
'
Me.TextBox28.Location = New System.Drawing.Point(808, 64)
Me.TextBox28.Name = "TextBox28"
Me.TextBox28.Size = New System.Drawing.Size(152, 21)
Me.TextBox28.TabIndex = 64
Me.TextBox28.Text = ""
'
'TextBox27
'
Me.TextBox27.Location = New System.Drawing.Point(808, 40)
Me.TextBox27.Name = "TextBox27"
Me.TextBox27.Size = New System.Drawing.Size(152, 21)
Me.TextBox27.TabIndex = 63
Me.TextBox27.Text = ""
'
'Button19
'
Me.Button19.Location = New System.Drawing.Point(672, 40)
Me.Button19.Name = "Button19"
Me.Button19.Size = New System.Drawing.Size(128, 48)
Me.Button19.TabIndex = 62
Me.Button19.Text = "读取电脑IP地址及网卡MAC地址>>"
'
'Button18
'
Me.Button18.Location = New System.Drawing.Point(544, 48)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(64, 32)
Me.Button18.TabIndex = 61
Me.Button18.Text = "PING"
'
'TextBox26
'
Me.TextBox26.Location = New System.Drawing.Point(432, 56)
Me.TextBox26.Name = "TextBox26"
Me.TextBox26.TabIndex = 60
Me.TextBox26.Text = "192.168.1.218"
'
'Label31
'
Me.Label31.Location = New System.Drawing.Point(384, 56)
Me.Label31.Name = "Label31"
Me.Label31.Size = New System.Drawing.Size(48, 23)
Me.Label31.TabIndex = 59
Me.Label31.Text = "IP地址"
'
'ComboBox2
'
Me.ComboBox2.ItemHeight = 12
Me.ComboBox2.Items.AddRange(New Object() {"RS-485", "以太网TCPIP", "433MHz无线通信"})
Me.ComboBox2.Location = New System.Drawing.Point(72, 24)
Me.ComboBox2.Name = "ComboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(72, 20)
Me.ComboBox2.TabIndex = 58
Me.ComboBox2.Text = "RS-485"
'
'Button17
'
Me.Button17.Location = New System.Drawing.Point(904, 296)
Me.Button17.Name = "Button17"
Me.Button17.Size = New System.Drawing.Size(104, 24)
Me.Button17.TabIndex = 57
Me.Button17.Text = "设定时间至设备"
'
'Button16
'
Me.Button16.Location = New System.Drawing.Point(808, 296)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(88, 24)
Me.Button16.TabIndex = 56
Me.Button16.Text = "读取时间"
'
'Button15
'
Me.Button15.Location = New System.Drawing.Point(704, 296)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(96, 24)
Me.Button15.TabIndex = 55
Me.Button15.Text = "<<取电脑时间"
'
'TextBox25
'
Me.TextBox25.Location = New System.Drawing.Point(544, 296)
Me.TextBox25.Name = "TextBox25"
Me.TextBox25.Size = New System.Drawing.Size(24, 21)
Me.TextBox25.TabIndex = 54
Me.TextBox25.Text = "00"
'
'Label29
'
Me.Label29.Location = New System.Drawing.Point(488, 296)
Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(8, 23)
Me.Label29.TabIndex = 53
Me.Label29.Text = "："
'
'Label28
'
Me.Label28.Location = New System.Drawing.Point(424, 296)
Me.Label28.Name = "Label28"
Me.Label28.Size = New System.Drawing.Size(16, 23)
Me.Label28.TabIndex = 52
Me.Label28.Text = "日"
'
'Label27
'
Me.Label27.Location = New System.Drawing.Point(528, 296)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(8, 23)
Me.Label27.TabIndex = 51
Me.Label27.Text = "："
'
'Label26
'
Me.Label26.Location = New System.Drawing.Point(384, 296)
Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(16, 23)
Me.Label26.TabIndex = 50
Me.Label26.Text = "月"
'
'Label25
'
Me.Label25.Location = New System.Drawing.Point(344, 296)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(16, 23)
Me.Label25.TabIndex = 49
Me.Label25.Text = "年"
'
'TextBox24
'
Me.TextBox24.Location = New System.Drawing.Point(504, 296)
Me.TextBox24.Name = "TextBox24"
Me.TextBox24.Size = New System.Drawing.Size(24, 21)
Me.TextBox24.TabIndex = 48
Me.TextBox24.Text = "00"
'
'TextBox23
'
Me.TextBox23.Location = New System.Drawing.Point(464, 296)
Me.TextBox23.Name = "TextBox23"
Me.TextBox23.Size = New System.Drawing.Size(24, 21)
Me.TextBox23.TabIndex = 47
Me.TextBox23.Text = "00"
'
'TextBox22
'
Me.TextBox22.Location = New System.Drawing.Point(400, 296)
Me.TextBox22.Name = "TextBox22"
Me.TextBox22.Size = New System.Drawing.Size(24, 21)
Me.TextBox22.TabIndex = 46
Me.TextBox22.Text = "00"
'
'TextBox21
'
Me.TextBox21.Location = New System.Drawing.Point(360, 296)
Me.TextBox21.Name = "TextBox21"
Me.TextBox21.Size = New System.Drawing.Size(24, 21)
Me.TextBox21.TabIndex = 45
Me.TextBox21.Text = "00"
'
'TextBox20
'
Me.TextBox20.Location = New System.Drawing.Point(320, 296)
Me.TextBox20.Name = "TextBox20"
Me.TextBox20.Size = New System.Drawing.Size(24, 21)
Me.TextBox20.TabIndex = 44
Me.TextBox20.Text = "00"
'
'Button14
'
Me.Button14.Location = New System.Drawing.Point(424, 336)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(248, 32)
Me.Button14.TabIndex = 43
Me.Button14.Text = "打开设备参数远程设定与读取窗口"
'
'Button13
'
Me.Button13.Location = New System.Drawing.Point(208, 336)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(176, 32)
Me.Button13.TabIndex = 42
Me.Button13.Text = "打开IC卡挂失操作窗口"
'
'Button12
'
Me.Button12.Location = New System.Drawing.Point(16, 336)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(160, 32)
Me.Button12.TabIndex = 41
Me.Button12.Text = "打开消费记录操作窗口"
'
'TextBox19
'
Me.TextBox19.Location = New System.Drawing.Point(632, 296)
Me.TextBox19.Name = "TextBox19"
Me.TextBox19.Size = New System.Drawing.Size(64, 21)
Me.TextBox19.TabIndex = 40
Me.TextBox19.Text = "0"
'
'Label24
'
Me.Label24.Location = New System.Drawing.Point(576, 296)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(56, 23)
Me.Label24.TabIndex = 39
Me.Label24.Text = "总挂失数"
'
'CheckBox4
'
Me.CheckBox4.Location = New System.Drawing.Point(272, 296)
Me.CheckBox4.Name = "CheckBox4"
Me.CheckBox4.Size = New System.Drawing.Size(56, 32)
Me.CheckBox4.TabIndex = 38
Me.CheckBox4.Text = "通讯加密"
'
'CheckBox3
'
Me.CheckBox3.Location = New System.Drawing.Point(208, 296)
Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(64, 32)
Me.CheckBox3.TabIndex = 37
Me.CheckBox3.Text = "设备时间正确"
'
'CheckBox2
'
Me.CheckBox2.Location = New System.Drawing.Point(160, 296)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(56, 32)
Me.CheckBox2.TabIndex = 36
Me.CheckBox2.Text = "记录已满"
'
'CheckBox1
'
Me.CheckBox1.Location = New System.Drawing.Point(112, 296)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(56, 32)
Me.CheckBox1.TabIndex = 35
Me.CheckBox1.Text = "有新记录"
'
'Button11
'
Me.Button11.Location = New System.Drawing.Point(16, 296)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(88, 32)
Me.Button11.TabIndex = 34
Me.Button11.Text = "查询设备状态"
'
'Button10
'
Me.Button10.Location = New System.Drawing.Point(272, 48)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(80, 32)
Me.Button10.TabIndex = 33
Me.Button10.Text = "打开端口"
'
'Label23
'
Me.Label23.BackColor = System.Drawing.Color.Lime
Me.Label23.Location = New System.Drawing.Point(16, 272)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(992, 16)
Me.Label23.TabIndex = 32
Me.Label23.Text = "设备状态查询与设备时间管理"
'
'ComboBox1
'
Me.ComboBox1.ItemHeight = 12
Me.ComboBox1.Items.AddRange(New Object() {"COM1", "COM2", "COM3", "COM4", "COM5", "COM6", "COM7", "COM8", "COM9", "COM10", "COM11", "COM12", "COM13", "COM14", "COM15", "COM16", "COM17", "COM18", "COM19", "COM20"})
Me.ComboBox1.Location = New System.Drawing.Point(72, 56)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(72, 20)
Me.ComboBox1.TabIndex = 31
Me.ComboBox1.Text = "COM1"
'
'Label22
'
Me.Label22.Location = New System.Drawing.Point(152, 56)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(32, 23)
Me.Label22.TabIndex = 30
Me.Label22.Text = "机号"
'
'Label21
'
Me.Label21.Location = New System.Drawing.Point(16, 56)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(48, 23)
Me.Label21.TabIndex = 29
Me.Label21.Text = "串 口"
'
'TextBox18
'
Me.TextBox18.Location = New System.Drawing.Point(184, 56)
Me.TextBox18.Name = "TextBox18"
Me.TextBox18.Size = New System.Drawing.Size(72, 21)
Me.TextBox18.TabIndex = 28
Me.TextBox18.Text = "00002"
'
'Label30
'
Me.Label30.Location = New System.Drawing.Point(16, 24)
Me.Label30.Name = "Label30"
Me.Label30.Size = New System.Drawing.Size(56, 23)
Me.Label30.TabIndex = 0
Me.Label30.Text = "通讯方式"
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.CheckBox8)
Me.GroupBox2.Controls.Add(Me.CheckBox7)
Me.GroupBox2.Controls.Add(Me.CheckBox6)
Me.GroupBox2.Controls.Add(Me.CheckBox5)
Me.GroupBox2.Controls.Add(Me.Button23)
Me.GroupBox2.Controls.Add(Me.TextBox38)
Me.GroupBox2.Controls.Add(Me.TextBox37)
Me.GroupBox2.Controls.Add(Me.TextBox36)
Me.GroupBox2.Controls.Add(Me.TextBox35)
Me.GroupBox2.Controls.Add(Me.Button22)
Me.GroupBox2.Controls.Add(Me.Label41)
Me.GroupBox2.Controls.Add(Me.Label37)
Me.GroupBox2.Controls.Add(Me.Label36)
Me.GroupBox2.Controls.Add(Me.TextBox34)
Me.GroupBox2.Controls.Add(Me.TextBox33)
Me.GroupBox2.Controls.Add(Me.TextBox32)
Me.GroupBox2.Controls.Add(Me.TextBox31)
Me.GroupBox2.Controls.Add(Me.TextBox30)
Me.GroupBox2.Controls.Add(Me.TextBox29)
Me.GroupBox2.Controls.Add(Me.Label35)
Me.GroupBox2.Controls.Add(Me.Label34)
Me.GroupBox2.Controls.Add(Me.Label33)
Me.GroupBox2.Controls.Add(Me.Button21)
Me.GroupBox2.Controls.Add(Me.ListView1)
Me.GroupBox2.Controls.Add(Me.Label32)
Me.GroupBox2.Controls.Add(Me.Button20)
Me.GroupBox2.Controls.Add(Me.TextBox28)
Me.GroupBox2.Controls.Add(Me.TextBox27)
Me.GroupBox2.Controls.Add(Me.Button19)
Me.GroupBox2.Controls.Add(Me.Button18)
Me.GroupBox2.Controls.Add(Me.TextBox26)
Me.GroupBox2.Controls.Add(Me.Label31)
Me.GroupBox2.Controls.Add(Me.ComboBox2)
Me.GroupBox2.Controls.Add(Me.Button17)
Me.GroupBox2.Controls.Add(Me.Button16)
Me.GroupBox2.Controls.Add(Me.Button15)
Me.GroupBox2.Controls.Add(Me.TextBox25)
Me.GroupBox2.Controls.Add(Me.Label29)
Me.GroupBox2.Controls.Add(Me.Label28)
Me.GroupBox2.Controls.Add(Me.Label27)
Me.GroupBox2.Controls.Add(Me.Label26)
Me.GroupBox2.Controls.Add(Me.Label25)
Me.GroupBox2.Controls.Add(Me.TextBox24)
Me.GroupBox2.Controls.Add(Me.TextBox23)
Me.GroupBox2.Controls.Add(Me.TextBox22)
Me.GroupBox2.Controls.Add(Me.TextBox21)
Me.GroupBox2.Controls.Add(Me.TextBox20)
Me.GroupBox2.Controls.Add(Me.Button14)
Me.GroupBox2.Controls.Add(Me.Button13)
Me.GroupBox2.Controls.Add(Me.Button12)
Me.GroupBox2.Controls.Add(Me.TextBox19)
Me.GroupBox2.Controls.Add(Me.Label24)
Me.GroupBox2.Controls.Add(Me.CheckBox4)
Me.GroupBox2.Controls.Add(Me.CheckBox3)
Me.GroupBox2.Controls.Add(Me.CheckBox2)
Me.GroupBox2.Controls.Add(Me.CheckBox1)
Me.GroupBox2.Controls.Add(Me.Button11)
Me.GroupBox2.Controls.Add(Me.Button10)
Me.GroupBox2.Controls.Add(Me.Label23)
Me.GroupBox2.Controls.Add(Me.ComboBox1)
Me.GroupBox2.Controls.Add(Me.Label22)
Me.GroupBox2.Controls.Add(Me.Label21)
Me.GroupBox2.Controls.Add(Me.TextBox18)
Me.GroupBox2.Controls.Add(Me.Label30)
Me.GroupBox2.Location = New System.Drawing.Point(32, 320)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(1016, 384)
Me.GroupBox2.TabIndex = 47
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "通讯操作"
'
'CheckBox8
'
Me.CheckBox8.Location = New System.Drawing.Point(496, 240)
Me.CheckBox8.Name = "CheckBox8"
Me.CheckBox8.Size = New System.Drawing.Size(136, 24)
Me.CheckBox8.TabIndex = 94
Me.CheckBox8.Text = "远程电脑主机IP地址"
'
'CheckBox7
'
Me.CheckBox7.Location = New System.Drawing.Point(352, 240)
Me.CheckBox7.Name = "CheckBox7"
Me.CheckBox7.Size = New System.Drawing.Size(48, 24)
Me.CheckBox7.TabIndex = 93
Me.CheckBox7.Text = "端口"
'
'CheckBox6
'
Me.CheckBox6.Location = New System.Drawing.Point(200, 240)
Me.CheckBox6.Name = "CheckBox6"
Me.CheckBox6.Size = New System.Drawing.Size(56, 24)
Me.CheckBox6.TabIndex = 92
Me.CheckBox6.Text = "网关"
'
'CheckBox5
'
Me.CheckBox5.Location = New System.Drawing.Point(16, 240)
Me.CheckBox5.Name = "CheckBox5"
Me.CheckBox5.Size = New System.Drawing.Size(80, 24)
Me.CheckBox5.TabIndex = 91
Me.CheckBox5.Text = "子网掩码"
'
'Button23
'
Me.Button23.Location = New System.Drawing.Point(808, 240)
Me.Button23.Name = "Button23"
Me.Button23.Size = New System.Drawing.Size(184, 24)
Me.Button23.TabIndex = 90
Me.Button23.Text = "批量更改所有联网模块的部分参数"
'
'TextBox38
'
Me.TextBox38.Location = New System.Drawing.Point(648, 240)
Me.TextBox38.Name = "TextBox38"
Me.TextBox38.Size = New System.Drawing.Size(104, 21)
Me.TextBox38.TabIndex = 88
Me.TextBox38.Text = "255.255.255.255"
'
'TextBox37
'
Me.TextBox37.Location = New System.Drawing.Point(408, 240)
Me.TextBox37.Name = "TextBox37"
Me.TextBox37.Size = New System.Drawing.Size(64, 21)
Me.TextBox37.TabIndex = 87
Me.TextBox37.Text = "39190"
'
'TextBox36
'
Me.TextBox36.Location = New System.Drawing.Point(256, 240)
Me.TextBox36.Name = "TextBox36"
Me.TextBox36.Size = New System.Drawing.Size(88, 21)
Me.TextBox36.TabIndex = 86
Me.TextBox36.Text = "192.168.1.1"
'
'TextBox35
'
Me.TextBox35.Location = New System.Drawing.Point(104, 240)
Me.TextBox35.Name = "TextBox35"
Me.TextBox35.Size = New System.Drawing.Size(88, 21)
Me.TextBox35.TabIndex = 85
Me.TextBox35.Text = "255.255.255.0"
'
'Button22
'
Me.Button22.Location = New System.Drawing.Point(904, 208)
Me.Button22.Name = "Button22"
Me.Button22.Size = New System.Drawing.Size(88, 24)
Me.Button22.TabIndex = 84
Me.Button22.Text = "更改模块参数"
'
'Label41
'
Me.Label41.Location = New System.Drawing.Point(744, 208)
Me.Label41.Name = "Label41"
Me.Label41.Size = New System.Drawing.Size(72, 23)
Me.Label41.TabIndex = 83
Me.Label41.Text = "模块硬件号"
'
'AxPOS011
'
Me.AxPOS011.Enabled = True
Me.AxPOS011.Location = New System.Drawing.Point(48, 0)
Me.AxPOS011.Name = "AxPOS011"
Me.AxPOS011.OcxState = CType(resources.GetObject("AxPOS011.OcxState"), System.Windows.Forms.AxHost.State)
Me.AxPOS011.Size = New System.Drawing.Size(168, 24)
Me.AxPOS011.TabIndex = 48
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(1056, 726)
Me.Controls.Add(Me.AxPOS011)
Me.Controls.Add(Me.IC操作管理)
Me.Controls.Add(Me.GroupBox2)
Me.Name = "Form1"
Me.Text = "Form1"
Me.IC操作管理.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
CType(Me.AxPOS011, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AxPOS011.PcdBeep(38)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
AxPOS011.CardAreaNumber = 8 '区号
AxPOS011.CardKeyHexStr = "888888888888" '密码
AxPOS011.CardRead()
If AxPOS011.OperatingResults = 0 Then
AxPOS011.PcdBeep(38)
TextBox1.Text = CStr(AxPOS011.CardUnit)
TextBox2.Text = CStr(AxPOS011.CardClass) '卡类别
TextBox3.Text = CStr(AxPOS011.CardCustomNumberStr)
TextBox4.Text = CStr(AxPOS011.CardRechargeTimes)
TextBox5.Text = CStr(AxPOS011.CardHolderPwdStr)
TextBox6.Text = CStr(AxPOS011.CardHolderName)
TextBox7.Text = CStr(AxPOS011.CardMoney)
TextBox18.Text = CStr(AxPOS011.CardLastYear)
TextBox19.Text = CStr(AxPOS011.CardLastMonth)
TextBox10.Text = CStr(AxPOS011.CardLastDay)
TextBox11.Text = CStr(AxPOS011.CardLastMealType)
TextBox12.Text = CStr(AxPOS011.CardLastMealMoney)
TextBox13.Text = CStr(AxPOS011.CardLastMealTimes)
TextBox14.Text = CStr(AxPOS011.CardLastDayMoney)
TextBox15.Text = CStr(AxPOS011.CardLastDayNeedPwdMoney)
MsgBox("读金额成功！")
ElseIf AxPOS011.OperatingResults = 8 Then
MsgBox("寻不到卡！")
ElseIf AxPOS011.OperatingResults = 60 Then
MsgBox("卡金额乱码！")
Else
MsgBox(AxPOS011.OperatingResults)
End If
'其他返回值说明请看文件尾
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
AxPOS011.CardAreaNumber = 8 '区号
AxPOS011.CardKeyHexStr = "888888888888" '密码
AxPOS011.CardUnit = CInt(TextBox1.Text) '单位代码
AxPOS011.CardClass = CInt(TextBox2.Text) '卡类别
AxPOS011.CardCustomNumberStr = TextBox3.Text '自编卡号
AxPOS011.CardRechargeTimes = CLng(TextBox4.Text) '充值次料
AxPOS011.CardHolderPwdStr = TextBox5.Text '持卡人密码
AxPOS011.CardHolderName = TextBox6.Text '持卡人姓名
AxPOS011.CardMoney = CLng(TextBox7.Text) '卡金额
AxPOS011.CardLastYear = CInt(TextBox8.Text) '年
AxPOS011.CardLastMonth = CInt(TextBox9.Text) '月
AxPOS011.CardLastDay = CInt(TextBox10.Text) '日
AxPOS011.CardLastMealType = CInt(TextBox11.Text) '餐次：0为早餐，1为中餐，2为晚餐，3为夜宵
AxPOS011.CardLastMealMoney = CLng(TextBox12.Text)
AxPOS011.CardLastMealTimes = CLng(TextBox13.Text)
AxPOS011.CardLastDayMoney = CLng(TextBox14.Text)
AxPOS011.CardLastDayNeedPwdMoney = CLng(TextBox15.Text)
AxPOS011.CardWrite()
If AxPOS011.OperatingResults = 0 Then
AxPOS011.PcdBeep(38)
MsgBox("写金额成功！")
End If
'其他返回值说明请看文件尾
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
AxPOS011.CardAreaNumber = 8 '区号
AxPOS011.CardKeyHexStr = "888888888888" '密码
AxPOS011.CardMoneyAdd(TextBox16.Text)
If AxPOS011.OperatingResults = 0 Then
AxPOS011.PcdBeep(38)
TextBox1.Text = CStr(AxPOS011.CardUnit)
TextBox2.Text = CStr(AxPOS011.CardClass)
TextBox3.Text = CStr(AxPOS011.CardCustomNumberStr)
TextBox4.Text = CStr(AxPOS011.CardRechargeTimes)
TextBox5.Text = CStr(AxPOS011.CardHolderPwdStr)
TextBox6.Text = CStr(AxPOS011.CardHolderName)
TextBox7.Text = CStr(AxPOS011.CardMoney)
TextBox8.Text = CStr(AxPOS011.CardLastYear)
TextBox9.Text = CStr(AxPOS011.CardLastMonth)
TextBox10.Text = CStr(AxPOS011.CardLastDay)
TextBox11.Text = CStr(AxPOS011.CardLastMealType)
TextBox12.Text = CStr(AxPOS011.CardLastMealMoney)
TextBox14.Text = CStr(AxPOS011.CardLastDayMoney)
TextBox15.Text = CStr(AxPOS011.CardLastDayNeedPwdMoney)
MsgBox("充值成功！")
ElseIf AxPOS011.OperatingResults = 62 Then
TextBox1.Text = CStr(AxPOS011.CardUnit)
TextBox2.Text = CStr(AxPOS011.CardClass)
TextBox3.Text = CStr(AxPOS011.CardCustomNumberStr)
TextBox4.Text = CStr(AxPOS011.CardRechargeTimes)
TextBox5.Text = CStr(AxPOS011.CardHolderPwdStr)
TextBox6.Text = CStr(AxPOS011.CardHolderName)
TextBox7.Text = CStr(AxPOS011.CardMoney)
TextBox8.Text = CStr(AxPOS011.CardLastYear)
TextBox9.Text = CStr(AxPOS011.CardLastMonth)
TextBox10.Text = CStr(AxPOS011.CardLastDay)
TextBox11.Text = CStr(AxPOS011.CardLastMealType)
TextBox12.Text = CStr(AxPOS011.CardLastMealMoney)
TextBox14.Text = CStr(AxPOS011.CardLastDayMoney)
TextBox15.Text = CStr(AxPOS011.CardLastDayNeedPwdMoney)
MsgBox("充值失败，原因是如果充值金额将溢出！")
Else
MsgBox(AxPOS011.OperatingResults)
End If
'其他返回值说明请看文件尾
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
AxPOS011.CardAreaNumber = 8 '区号
AxPOS011.CardKeyHexStr = "888888888888" '密码
AxPOS011.CardMoneySub(TextBox17.Text)
If AxPOS011.OperatingResults = 0 Then
AxPOS011.PcdBeep(38)
TextBox1.Text = CStr(AxPOS011.CardUnit)
TextBox2.Text = CStr(AxPOS011.CardClass)
TextBox3.Text = CStr(AxPOS011.CardCustomNumberStr)
TextBox4.Text = CStr(AxPOS011.CardRechargeTimes)
TextBox5.Text = CStr(AxPOS011.CardHolderPwdStr)
TextBox6.Text = CStr(AxPOS011.CardHolderName)
TextBox7.Text = CStr(AxPOS011.CardMoney)
TextBox8.Text = CStr(AxPOS011.CardLastYear)
TextBox9.Text = CStr(AxPOS011.CardLastMonth)
TextBox10.Text = CStr(AxPOS011.CardLastDay)
TextBox11.Text = CStr(AxPOS011.CardLastMealType)
TextBox12.Text = CStr(AxPOS011.CardLastMealMoney)
TextBox14.Text = CStr(AxPOS011.CardLastDayMoney)
TextBox15.Text = CStr(AxPOS011.CardLastDayNeedPwdMoney)
MsgBox("退费成功！")
ElseIf AxPOS011.OperatingResults = 61 Then
TextBox1.Text = CStr(AxPOS011.CardUnit)
TextBox2.Text = CStr(AxPOS011.CardClass)
TextBox3.Text = CStr(AxPOS011.CardCustomNumberStr)
TextBox4.Text = CStr(AxPOS011.CardRechargeTimes)
TextBox5.Text = CStr(AxPOS011.CardHolderPwdStr)
TextBox6.Text = CStr(AxPOS011.CardHolderName)
TextBox7.Text = CStr(AxPOS011.CardMoney)
TextBox8.Text = CStr(AxPOS011.CardLastYear)
TextBox9.Text = CStr(AxPOS011.CardLastMonth)
TextBox10.Text = CStr(AxPOS011.CardLastDay)
TextBox11.Text = CStr(AxPOS011.CardLastMealType)
TextBox12.Text = CStr(AxPOS011.CardLastMealMoney)
TextBox14.Text = CStr(AxPOS011.CardLastDayMoney)
TextBox15.Text = CStr(AxPOS011.CardLastDayNeedPwdMoney)
MsgBox("退费失败，原因是金额不足以退费！")
Else
MsgBox(AxPOS011.OperatingResults)
End If
'其他返回值说明请看文件尾
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
AxPOS011.CardAreaNumber = 8 '区号
AxPOS011.CardNewKeyAHexStr = "FFFFFFFFFFFF" '新A密码，消费机用A密码
AxPOS011.CardAdminLockEn = 0 '提示：为0不锁定，为1表示POS机刷密码卡更改后锁定该密码，不能再次更改了
AxPOS011.CardAdminSet()
If AxPOS011.OperatingResults = 0 Then
AxPOS011.PcdBeep(38)
MsgBox("制作密码卡成功，请拿到POS机上刷卡设定！")
ElseIf AxPOS011.OperatingResults = 8 Then
MsgBox("寻不到卡!")
ElseIf AxPOS011.OperatingResults = 23 Then
MsgBox("读写器没插上或驱动程序没安装!")
Else
MsgBox(AxPOS011.OperatingResults)
End If
'其他返回值说明请看文件尾
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
AxPOS011.CardAdminClear()
If AxPOS011.OperatingResults = 0 Then
AxPOS011.PcdBeep(38)
MsgBox("清空密码卡成功！")
ElseIf AxPOS011.OperatingResults = 8 Then
MsgBox("寻不到卡!")
ElseIf AxPOS011.OperatingResults = 23 Then
MsgBox("读写器没插上或驱动程序没安装!")
Else
MsgBox(AxPOS011.OperatingResults)
End If
'其他返回值说明请看文件尾
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
AxPOS011.CardAreaNumber = 8 '区号
AxPOS011.CardHaltEn = 1 '初始化后休眠该卡，之后必须拿开卡再放回感应区卡才能做其他操作
AxPOS011.CardNewKeyAHexStr = "FFFFFFFFFFFF" '新A密码，消费机用A密码
AxPOS011.CardNewKeyBHexStr = "888888888888" '新B密码，管理软件用B密码
AxPOS011.CardInit()
If AxPOS011.OperatingResults = 0 Then
AxPOS011.PcdBeep(38)
MsgBox("卡片初始化成消费卡成功！")
ElseIf AxPOS011.OperatingResults = 8 Then
MsgBox("寻不到卡！")
Else
MsgBox(AxPOS011.OperatingResults)
End If
'其他返回值说明请看文件尾
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
AxPOS011.CardAreaNumber = 8 '区号
AxPOS011.CardKeyHexStr = "888888888888" '密码
AxPOS011.CardHaltEn = 1 '初始化后休眠该卡，之后必须拿开卡再放回感应区卡才能做其他操作
AxPOS011.CardClear()
If AxPOS011.OperatingResults = 0 Then
AxPOS011.PcdBeep(38)
MsgBox("卡片清空成功！")
ElseIf AxPOS011.OperatingResults = 8 Then
MsgBox("寻不到卡！")
Else
MsgBox(AxPOS011.OperatingResults)
End If
'其他返回值说明请看文件尾
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
If Button10.Text = "打开端口" Then
AxPOS011.DevComPort = Microsoft.VisualBasic.Right(ComboBox1.Text, Len(ComboBox1.Text) - 3) '端口号
AxPOS011.DevComPortOpen = 1
If AxPOS011.DevComPortOpen = 1 Then
Button10.Text = "关闭端口"
End If
Else
AxPOS011.DevComPortOpen = 0
Button10.Text = "打开端口"
End If
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Dim mydate As DateTime
mydate = Now
TextBox20.Text = mydate.Year - 2000
TextBox21.Text = mydate.Month
TextBox22.Text = mydate.Day
TextBox23.Text = mydate.Hour
TextBox24.Text = mydate.Minute
TextBox25.Text = mydate.Second
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
If AxPOS011.DevComPortOpen = 1 Then
AxPOS011.DevNumber = CLng(TextBox18.Text)
AxPOS011.DevTimeRead()
If AxPOS011.OperatingResults = 0 Then
TextBox20.Text = CStr(AxPOS011.DevTimeYear)
TextBox21.Text = CStr(AxPOS011.DevTimeMonth)
TextBox22.Text = CStr(AxPOS011.DevTimeDay)
TextBox23.Text = CStr(AxPOS011.DevTimeHour)
TextBox24.Text = CStr(AxPOS011.DevTimeMinute)
TextBox25.Text = CStr(AxPOS011.DevTimeSecond)
ElseIf AxPOS011.OperatingResults = 101 Then
MsgBox("机号不能为零！")
Else
MsgBox("设备通讯不通！")
End If
Else
MsgBox("端口未打开！")
End If
'其他返回值说明请看文件尾
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
If AxPOS011.DevComPortOpen = 1 Then
AxPOS011.DevNumber = CLng(TextBox18.Text)
AxPOS011.DevTimeYear = TextBox20.Text
AxPOS011.DevTimeMonth = TextBox21.Text
AxPOS011.DevTimeDay = TextBox22.Text
AxPOS011.DevTimeHour = TextBox23.Text
AxPOS011.DevTimeMinute = TextBox24.Text
AxPOS011.DevTimeSecond = TextBox25.Text
AxPOS011.DevTimeWrite()
If AxPOS011.OperatingResults = 0 Then
MsgBox("时间设定成功！")
Else
MsgBox("设备通讯不通！")
End If
Else
MsgBox("端口未打开！")
End If
'其他返回值说明请看文件尾
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Dim f2 As New Form2
f2.Owner = Me
f2.Show()
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Dim f3 As New Form3
f3.Owner = Me
f3.Show()
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Dim f4 As New Form4
f4.Owner = Me
f4.Show()
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
If AxPOS011.DevComPortOpen = 1 Then
AxPOS011.DevNumber = CLng(TextBox18.Text)
AxPOS011.DevStateRead()
If AxPOS011.OperatingResults = 0 Then
If AxPOS011.DevStateRecNew > 0 Then '有新记录
CheckBox1.Checked = True
Else
CheckBox1.Checked = False
End If
If AxPOS011.DevStateRecOver > 0 Then '记录满
CheckBox2.Checked = True
Else
CheckBox2.Checked = False
End If
If AxPOS011.DevStateTimer > 0 Then '时间乱
CheckBox3.Checked = True
Else
CheckBox3.Checked = False
End If
If AxPOS011.DevStateLinkEncrypt > 0 Then '设备配置了加密方式
CheckBox4.Checked = True
Else
CheckBox4.Checked = False
End If
TextBox19.Text = AxPOS011.DevLossTotal '被挂失卡号数量
Else
MsgBox("设备通讯不通！")
End If
Else
MsgBox("端口未打开！")
End If
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
AxPOS011.DevIpAddrStr = TextBox26.Text
AxPOS011.DevPing()
If AxPOS011.OperatingResults = 0 Then
MsgBox(AxPOS011.DevIpAddrStr + ",Ping成功！")
Else
MsgBox(AxPOS011.DevIpAddrStr + ",错误代码：" + CStr(AxPOS011.OperatingResults))
End If
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
ListView1.Items.Clear()
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
AxPOS011.PcReadIpAddrAndMac()
TextBox27.Text = AxPOS011.PcIpAddrStr
TextBox28.Text = AxPOS011.PcMacStr
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
Dim plist As ListViewItem
Dim i As Long
Label32.Text = ""
AxPOS011.DevSearch()
Label32.Text = "正在搜索，请稍候......."
If AxPOS011.DevBufferTotal > 0 Then
ListView1.Items.Clear()
For i = 0 To AxPOS011.DevBufferTotal - 1
AxPOS011.DevBufferPoint = 0
plist = ListView1.Items.Add(AxPOS011.DevBufferIpAddrStr)
plist.SubItems.Add(AxPOS011.DevBufferMaskStr)
plist.SubItems.Add(AxPOS011.DevBufferGatewayStr)
plist.SubItems.Add(CStr(AxPOS011.DevBufferPort))
plist.SubItems.Add(AxPOS011.DevBufferRemoteAddrStr)
plist.SubItems.Add(AxPOS011.DevBufferMacStr)
plist.SubItems.Add(AxPOS011.DevBufferNumberDecStr)
Next i
End If
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
AxPOS011.DevIpAddrStr = TextBox29.Text
AxPOS011.DevMaskStr = TextBox30.Text
AxPOS011.DevGatewayStr = TextBox31.Text
AxPOS011.DevUdpPort = CLng(TextBox32.Text)
AxPOS011.DevRemoteAddrStr = TextBox33.Text
AxPOS011.DevSerialDecStr = TextBox34.Text
AxPOS011.DevProUdpSet()
If AxPOS011.OperatingResults = 0 Then
MsgBox("修改成功!")
ElseIf AxPOS011.OperatingResults = 3 Then
MsgBox("接收超时，请检查模块是否联网或模块硬件号输入不对!")
Else
MsgBox("错误代码：" + CStr(AxPOS011.OperatingResults))
End If
End Sub
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
If CheckBox5.Checked = True Then
AxPOS011.DevMaskChgEn = 1
AxPOS011.DevMaskStr = TextBox35.Text
Else
AxPOS011.DevMaskChgEn = 0
End If
If CheckBox6.Checked = True Then
AxPOS011.DevGatewayChgEn = 1
AxPOS011.DevGatewayStr = TextBox36.Text
Else
AxPOS011.DevGatewayChgEn = 0
End If
If CheckBox7.Checked = True Then
AxPOS011.DevUdpPortChgEn = 1
AxPOS011.DevUdpPort = CLng(TextBox37.Text)
Else
AxPOS011.DevUdpPortChgEn = 0
End If
If CheckBox8.Checked = True Then
AxPOS011.DevRemoteAddrChgEn = 1
AxPOS011.DevRemoteAddrStr = TextBox38.Text
Else
AxPOS011.DevRemoteAddrChgEn = 0
End If
AxPOS011.DevProUdpSetAll()
If AxPOS011.OperatingResults = 0 Then
MsgBox("修改成功!")
ElseIf AxPOS011.OperatingResults = 140 Then
MsgBox("没有需有修改的选项！")
Else
MsgBox("错误代码：" + CStr(AxPOS011.OperatingResults))
End If
End Sub
End Class
扫一扫
1032
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
