Convert RSView32 Datalog DBF File to CVS File Format

Public Class frm_time
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    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

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents bt_Cancel As System.Windows.Forms.Button
    Friend WithEvents RB_Range As System.Windows.Forms.RadioButton
    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 Txt_to As System.Windows.Forms.TextBox
    Friend WithEvents group1 As System.Windows.Forms.GroupBox
    Friend WithEvents rb_allrow As System.Windows.Forms.RadioButton
    Friend WithEvents txt_from As System.Windows.Forms.TextBox
    Friend WithEvents bt_Convert As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.group1 = New System.Windows.Forms.GroupBox
        Me.GroupBox1 = New System.Windows.Forms.GroupBox
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label1 = New System.Windows.Forms.Label
        Me.RB_Range = New System.Windows.Forms.RadioButton
        Me.rb_allrow = New System.Windows.Forms.RadioButton
        Me.bt_Cancel = New System.Windows.Forms.Button
        Me.txt_from = New System.Windows.Forms.TextBox
        Me.Txt_to = New System.Windows.Forms.TextBox
        Me.bt_Convert = New System.Windows.Forms.Button
        Me.group1.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        Me.SuspendLayout()
        '
        'group1
        '
        Me.group1.Controls.Add(Me.bt_Convert)
        Me.group1.Controls.Add(Me.GroupBox1)
        Me.group1.Controls.Add(Me.RB_Range)
        Me.group1.Controls.Add(Me.rb_allrow)
        Me.group1.Controls.Add(Me.bt_Cancel)
        Me.group1.Location = New System.Drawing.Point(8, 8)
        Me.group1.Name = "group1"
        Me.group1.Size = New System.Drawing.Size(288, 152)
        Me.group1.TabIndex = 0
        Me.group1.TabStop = False
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.Txt_to)
        Me.GroupBox1.Controls.Add(Me.txt_from)
        Me.GroupBox1.Controls.Add(Me.Label2)
        Me.GroupBox1.Controls.Add(Me.Label1)
        Me.GroupBox1.Location = New System.Drawing.Point(8, 48)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(264, 64)
        Me.GroupBox1.TabIndex = 5
        Me.GroupBox1.TabStop = False
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(136, 16)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(40, 16)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "To :"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(16, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(40, 16)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "From :"
        '
        'RB_Range
        '
        Me.RB_Range.Font = New System.Drawing.Font("Times New Roman", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.RB_Range.Location = New System.Drawing.Point(152, 16)
        Me.RB_Range.Name = "RB_Range"
        Me.RB_Range.Size = New System.Drawing.Size(112, 32)
        Me.RB_Range.TabIndex = 4
        Me.RB_Range.Text = "Range of Time"
        '
        'rb_allrow
        '
        Me.rb_allrow.Font = New System.Drawing.Font("Times New Roman", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.rb_allrow.Location = New System.Drawing.Point(8, 16)
        Me.rb_allrow.Name = "rb_allrow"
        Me.rb_allrow.Size = New System.Drawing.Size(128, 32)
        Me.rb_allrow.TabIndex = 3
        Me.rb_allrow.Text = "Select All Row"
        '
        'bt_Cancel
        '
        Me.bt_Cancel.Location = New System.Drawing.Point(184, 120)
        Me.bt_Cancel.Name = "bt_Cancel"
        Me.bt_Cancel.Size = New System.Drawing.Size(88, 24)
        Me.bt_Cancel.TabIndex = 2
        Me.bt_Cancel.Text = "Cancel"
        '
        'txt_from
        '
        Me.txt_from.Location = New System.Drawing.Point(56, 16)
        Me.txt_from.Name = "txt_from"
        Me.txt_from.Size = New System.Drawing.Size(72, 20)
        Me.txt_from.TabIndex = 2
        Me.txt_from.Text = ""
        '
        'Txt_to
        '
        Me.Txt_to.Location = New System.Drawing.Point(160, 16)
        Me.Txt_to.Name = "Txt_to"
        Me.Txt_to.Size = New System.Drawing.Size(72, 20)
        Me.Txt_to.TabIndex = 3
        Me.Txt_to.Text = ""
        '
        'bt_Convert
        '
        Me.bt_Convert.Location = New System.Drawing.Point(8, 120)
        Me.bt_Convert.Name = "bt_Convert"
        Me.bt_Convert.Size = New System.Drawing.Size(88, 24)
        Me.bt_Convert.TabIndex = 6
        Me.bt_Convert.Text = "Convert"
        '
        'frm_time
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(306, 170)
        Me.Controls.Add(Me.group1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
        Me.Name = "frm_time"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Time Range"
        Me.group1.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub frm_time_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rb_allrow.Checked = True
        txt_from.Enabled = False
        Txt_to.Enabled = False
    End Sub

    Private Sub bt_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Cancel.Click
        Me.Close()
    End Sub

    Private Sub RB_Range_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RB_Range.CheckedChanged
        txt_from.Enabled = True
        Txt_to.Enabled = True

    End Sub

    Private Sub rb_allrow_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb_allrow.CheckedChanged
        txt_from.Enabled = False
        Txt_to.Enabled = False
    End Sub

    Private Sub bt_Convert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Convert.Click
        Dim StartTime, EndTime As String


        If rb_allrow.Checked = True Then
            OpenTagFile(GSheetName, GPathName & GFileName & ".dbf", 2)
            Me.Close()
        Else
            If txt_from.Text = Nothing Then
                StartTime = Format(CDate("00:00"), "HH:mm")
            Else
                StartTime = Format(CDate(txt_from.Text), "HH:mm")
            End If
            If Txt_to.Text = Nothing Then
                EndTime = Format(CDate("23:59"), "HH:mm")
            Else
                EndTime = Format(CDate(Txt_to.Text), "HH:mm")
            End If
            OpenTagFile(GSheetName, GPathName & GFileName & ".dbf", StartTime, EndTime)
            Me.Close()
        End If
    End Sub
End Class