taxi.vb

VB.BET编的出租车计费PPC程序,使用SQLCE.

Public Class Form1
    Inherits System.Windows.Forms.Form
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        MyBase.Dispose(disposing)
    End Sub

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents StartFee As System.Windows.Forms.TextBox
    Friend WithEvents StartDistance As System.Windows.Forms.TextBox
    Friend WithEvents GroupBox1 As OpenNETCF.Windows.Forms.GroupBox
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents Price2 As System.Windows.Forms.TextBox
    Friend WithEvents Price1 As System.Windows.Forms.TextBox
    Friend WithEvents Distance As System.Windows.Forms.TextBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents StartTime As System.Windows.Forms.TextBox
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents FeeOfPerMinute As System.Windows.Forms.TextBox
    Friend WithEvents GroupBox2 As OpenNETCF.Windows.Forms.GroupBox
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents thisDistance As System.Windows.Forms.TextBox
    Friend WithEvents ThisTime As System.Windows.Forms.TextBox
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Fee As System.Windows.Forms.TextBox
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents N1 As System.Windows.Forms.Button
    Friend WithEvents N2 As System.Windows.Forms.Button
    Friend WithEvents N4 As System.Windows.Forms.Button
    Friend WithEvents N3 As System.Windows.Forms.Button
    Friend WithEvents N8 As System.Windows.Forms.Button
    Friend WithEvents N7 As System.Windows.Forms.Button
    Friend WithEvents N6 As System.Windows.Forms.Button
    Friend WithEvents N5 As System.Windows.Forms.Button
    Friend WithEvents N0 As System.Windows.Forms.Button
    Friend WithEvents N9 As System.Windows.Forms.Button
    Friend WithEvents Ndot As System.Windows.Forms.Button
    Friend WithEvents GroupBox3 As OpenNETCF.Windows.Forms.GroupBox
    Friend WithEvents Lable As System.Windows.Forms.Label
    Friend WithEvents ZK As System.Windows.Forms.TextBox
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents NBack As System.Windows.Forms.Button
    Friend WithEvents NWrite As System.Windows.Forms.Button
    Friend WithEvents Night As System.Windows.Forms.CheckBox
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents Timer1 As System.Windows.Forms.Timer
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.MenuItem4 = New System.Windows.Forms.MenuItem
        Me.MenuItem3 = New System.Windows.Forms.MenuItem
        Me.MenuItem5 = New System.Windows.Forms.MenuItem
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.Label1 = New System.Windows.Forms.Label
        Me.StartFee = New System.Windows.Forms.TextBox
        Me.Label2 = New System.Windows.Forms.Label
        Me.StartDistance = New System.Windows.Forms.TextBox
        Me.GroupBox1 = New OpenNETCF.Windows.Forms.GroupBox
        Me.FeeOfPerMinute = New System.Windows.Forms.TextBox
        Me.Label5 = New System.Windows.Forms.Label
        Me.StartTime = New System.Windows.Forms.TextBox
        Me.Price1 = New System.Windows.Forms.TextBox
        Me.Distance = New System.Windows.Forms.TextBox
        Me.Label4 = New System.Windows.Forms.Label
        Me.Price2 = New System.Windows.Forms.TextBox
        Me.TextBox3 = New System.Windows.Forms.TextBox
        Me.Label3 = New System.Windows.Forms.Label
        Me.GroupBox2 = New OpenNETCF.Windows.Forms.GroupBox
        Me.NWrite = New System.Windows.Forms.Button
        Me.Night = New System.Windows.Forms.CheckBox
        Me.GroupBox3 = New OpenNETCF.Windows.Forms.GroupBox
        Me.ZK = New System.Windows.Forms.TextBox
        Me.Lable = New System.Windows.Forms.Label
        Me.Label9 = New System.Windows.Forms.Label
        Me.Button1 = New System.Windows.Forms.Button
        Me.Fee = New System.Windows.Forms.TextBox
        Me.Label8 = New System.Windows.Forms.Label
        Me.ThisTime = New System.Windows.Forms.TextBox
        Me.thisDistance = New System.Windows.Forms.TextBox
        Me.Label7 = New System.Windows.Forms.Label
        Me.Label6 = New System.Windows.Forms.Label
        Me.N1 = New System.Windows.Forms.Button
        Me.N2 = New System.Windows.Forms.Button
        Me.N4 = New System.Windows.Forms.Button
        Me.N3 = New System.Windows.Forms.Button
        Me.N8 = New System.Windows.Forms.Button
        Me.N7 = New System.Windows.Forms.Button
        Me.N6 = New System.Windows.Forms.Button
        Me.N5 = New System.Windows.Forms.Button
        Me.N0 = New System.Windows.Forms.Button
        Me.N9 = New System.Windows.Forms.Button
        Me.Ndot = New System.Windows.Forms.Button
        Me.NBack = New System.Windows.Forms.Button
        Me.Timer1 = New System.Windows.Forms.Timer
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.Add(Me.MenuItem4)
        Me.MainMenu1.MenuItems.Add(Me.MenuItem1)
        Me.MainMenu1.MenuItems.Add(Me.MenuItem2)
        '
        'MenuItem4
        '
        Me.MenuItem4.MenuItems.Add(Me.MenuItem3)
        Me.MenuItem4.MenuItems.Add(Me.MenuItem5)
        Me.MenuItem4.Text = "乘车记录"
        '
        'MenuItem3
        '
        Me.MenuItem3.Text = "查看乘车记录"
        '
        'MenuItem5
        '
        Me.MenuItem5.Text = "清空乘车记录"
        '
        'MenuItem1
        '
        Me.MenuItem1.Text = "关于"
        '
        'MenuItem2
        '
        Me.MenuItem2.Text = "退出"
        '
        'Label1
        '
        Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
        Me.Label1.ForeColor = System.Drawing.Color.Red
        Me.Label1.Location = New System.Drawing.Point(8, 16)
        Me.Label1.Size = New System.Drawing.Size(56, 16)
        Me.Label1.Text = "起步价："
        '
        'StartFee
        '
        Me.StartFee.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
        Me.StartFee.ForeColor = System.Drawing.Color.Blue
        Me.StartFee.Location = New System.Drawing.Point(64, 16)
        Me.StartFee.Size = New System.Drawing.Size(32, 22)
        Me.StartFee.Text = "10"
        '
        'Label2
        '
        Me.Label2.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
        Me.Label2.ForeColor = System.Drawing.Color.Red
        Me.Label2.Location = New System.Drawing.Point(104, 16)
        Me.Label2.Size = New System.Drawing.Size(80, 20)
        Me.Label2.Text = "起步公理数："
        '
        'StartDistance
        '
        Me.StartDistance.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
        Me.StartDistance.ForeColor = System.Drawing.Color.Blue
        Me.StartDistance.Location = New System.Drawing.Point(184, 16)
        Me.StartDistance.Size = New System.Drawing.Size(32, 22)
        Me.StartDistance.Text = "3"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.FeeOfPerMinute)
        Me.GroupBox1.Controls.Add(Me.Label5)
        Me.GroupBox1.Controls.Add(Me.StartTime)
        Me.GroupBox1.Controls.Add(Me.Price1)
        Me.GroupBox1.Controls.Add(Me.Distance)
        Me.GroupBox1.Controls.Add(Me.Label4)
        Me.GroupBox1.Controls.Add(Me.Price2)
        Me.GroupBox1.Controls.Add(Me.TextBox3)
        Me.GroupBox1.Controls.Add(Me.Label3)
        Me.GroupBox1.Controls.Add(Me.StartDistance)
        Me.GroupBox1.Controls.Add(Me.StartFee)
        Me.GroupBox1.Controls.Add(Me.Label1)
        Me.GroupBox1.Controls.Add(Me.Label2)
        Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold)
        Me.GroupBox1.ForeColor = System.Drawing.Color.Blue
        Me.GroupBox1.Location = New System.Drawing.Point(8, 3)
        Me.GroupBox1.Size = New System.Drawing.Size(224, 112)
        Me.GroupBox1.Text = "计价规则设置"
        '
        'FeeOfPerMinute
        '
        Me.FeeOfPerMinute.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
        Me.FeeOfPerMinute.ForeColor = System.Drawing.Color.Blue
        Me.FeeOfPerMinute.Location = New System.Drawing.Point(184, 88)
        Me.FeeOfPerMinute.Size = New System.Drawing.Size(32, 22)
        Me.FeeOfPerMinute.Text = "2"
        '
        'Label5
        '
        Me.Label5.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
        Me.Label5.ForeColor = System.Drawing.Color.Red
        Me.Label5.Location = New System.Drawing.Point(48, 88)
        Me.Label5.Size = New System.Drawing.Size(136, 20)
        Me.Label5.Text = "分钟后等待计价每分钟"
        '
        'StartTime
        '
        Me.StartTime.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
        Me.StartTime.ForeColor = System.Drawing.Color.Blue
        Me.StartTime.Location = New System.Drawing.Point(16, 88)
        Me.StartTime.Size = New System.Drawing.Size(24, 22)
        Me.StartTime.Text = "0"
        '
        'Price1
        '
        Me.Price1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
        Me.Price1.ForeColor = System.Drawing.Color.Blue
        Me.Price1.Location = New System.Drawing.Point(184, 40)
        Me.Price1.Size = New System.Drawing.Size(32, 22)
        Me.Price1.Text = "2"
        '
        'Distance
        '
        Me.Distance.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
        Me.Distance.ForeColor = System.Drawing.Color.Blue
        Me.Distance.Location = New System.Drawing.Point(16, 40)
        Me.Distance.Size = New System.Drawing.Size(24, 22)
        Me.Distance.Text = "10"
        '
        'Label4
        '
        Me.Label4.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
        Me.Label4.ForeColor = System.Drawing.Color.Red
        Me.Label4.Location = New System.Drawing.Point(48, 40)
        Me.Label4.Size = New System.Drawing.Size(120, 20)
        Me.Label4.Text = "公里内每公里价格为"
        '
        'Price2
        '
        Me.Price2.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
        Me.Price2.ForeColor = System.Drawing.Color.Blue
        Me.Price2.Location = New System.Drawing.Point(184, 64)
        Me.Price2.Size = New System.Drawing.Size(32, 22)
        Me.Price2.Text = "3"
        '
        'TextBox3
        '
        Me.TextBox3.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
        Me.TextBox3.ForeColor = System.Drawing.Color.Blue
        Me.TextBox3.Location = New System.Drawing.Point(16, 64)
        Me.TextBox3.Size = New System.Drawing.Size(24, 22)
        Me.TextBox3.Text = "10"
        '
        'Label3
        '
        Me.Label3.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)