frm_bill.vb

application file which contains the notes on Ado.net

        '
        'Button12
        '
        Me.Button12.BackColor = System.Drawing.SystemColors.ControlLight
        Me.Button12.Location = New System.Drawing.Point(192, 416)
        Me.Button12.Name = "Button12"
        Me.Button12.Size = New System.Drawing.Size(104, 23)
        Me.Button12.TabIndex = 59
        Me.Button12.Text = "View Slip Report"
        '
        'GroupBox6
        '
        Me.GroupBox6.Controls.Add(Me.ComboBox2)
        Me.GroupBox6.Controls.Add(Me.TextBox21)
        Me.GroupBox6.Controls.Add(Me.TextBox20)
        Me.GroupBox6.Controls.Add(Me.Label25)
        Me.GroupBox6.Controls.Add(Me.Label24)
        Me.GroupBox6.Controls.Add(Me.Label23)
        Me.GroupBox6.Controls.Add(Me.CheckBox3)
        Me.GroupBox6.Controls.Add(Me.CheckBox2)
        Me.GroupBox6.Controls.Add(Me.CheckBox1)
        Me.GroupBox6.Location = New System.Drawing.Point(448, 152)
        Me.GroupBox6.Name = "GroupBox6"
        Me.GroupBox6.Size = New System.Drawing.Size(224, 256)
        Me.GroupBox6.TabIndex = 60
        Me.GroupBox6.TabStop = False
        Me.GroupBox6.Text = "Payment Details"
        '
        'ComboBox2
        '
        Me.ComboBox2.BackColor = System.Drawing.SystemColors.Info
        Me.ComboBox2.Items.AddRange(New Object() {"Master Card", "Visa", "American Express", "Debit Card"})
        Me.ComboBox2.Location = New System.Drawing.Point(72, 88)
        Me.ComboBox2.Name = "ComboBox2"
        Me.ComboBox2.Size = New System.Drawing.Size(112, 21)
        Me.ComboBox2.TabIndex = 11
        '
        'TextBox21
        '
        Me.TextBox21.BackColor = System.Drawing.SystemColors.Info
        Me.TextBox21.Location = New System.Drawing.Point(120, 120)
        Me.TextBox21.MaxLength = 16
        Me.TextBox21.Name = "TextBox21"
        Me.TextBox21.Size = New System.Drawing.Size(96, 20)
        Me.TextBox21.TabIndex = 10
        Me.TextBox21.Text = ""
        '
        'TextBox20
        '
        Me.TextBox20.BackColor = System.Drawing.SystemColors.Info
        Me.TextBox20.Location = New System.Drawing.Point(128, 152)
        Me.TextBox20.Name = "TextBox20"
        Me.TextBox20.Size = New System.Drawing.Size(80, 20)
        Me.TextBox20.TabIndex = 9
        Me.TextBox20.Text = ""
        '
        'Label25
        '
        Me.Label25.Location = New System.Drawing.Point(8, 96)
        Me.Label25.Name = "Label25"
        Me.Label25.Size = New System.Drawing.Size(64, 16)
        Me.Label25.TabIndex = 6
        Me.Label25.Text = "Card Type"
        '
        'Label24
        '
        Me.Label24.Location = New System.Drawing.Point(8, 160)
        Me.Label24.Name = "Label24"
        Me.Label24.Size = New System.Drawing.Size(120, 16)
        Me.Label24.TabIndex = 5
        Me.Label24.Text = "Valid Date(mm/dd/yy)"
        '
        'Label23
        '
        Me.Label23.Location = New System.Drawing.Point(8, 128)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(112, 16)
        Me.Label23.TabIndex = 4
        Me.Label23.Text = "Card No/Cheque No"
        '
        'CheckBox3
        '
        Me.CheckBox3.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.CheckBox3.Location = New System.Drawing.Point(120, 24)
        Me.CheckBox3.Name = "CheckBox3"
        Me.CheckBox3.Size = New System.Drawing.Size(64, 24)
        Me.CheckBox3.TabIndex = 2
        Me.CheckBox3.Text = "Cash"
        '
        'CheckBox2
        '
        Me.CheckBox2.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.CheckBox2.Location = New System.Drawing.Point(48, 56)
        Me.CheckBox2.Name = "CheckBox2"
        Me.CheckBox2.TabIndex = 1
        Me.CheckBox2.Text = "Credit card"
        '
        'CheckBox1
        '
        Me.CheckBox1.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.CheckBox1.Location = New System.Drawing.Point(8, 24)
        Me.CheckBox1.Name = "CheckBox1"
        Me.CheckBox1.TabIndex = 0
        Me.CheckBox1.Text = "Cheque"
        '
        'ComboBox3
        '
        Me.ComboBox3.BackColor = System.Drawing.SystemColors.Info
        Me.ComboBox3.Location = New System.Drawing.Point(352, 80)
        Me.ComboBox3.Name = "ComboBox3"
        Me.ComboBox3.Size = New System.Drawing.Size(96, 21)
        Me.ComboBox3.TabIndex = 61
        '
        'frm_bill
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.SystemColors.InactiveCaptionText
        Me.ClientSize = New System.Drawing.Size(682, 448)
        Me.Controls.Add(Me.ComboBox3)
        Me.Controls.Add(Me.GroupBox6)
        Me.Controls.Add(Me.Button12)
        Me.Controls.Add(Me.GroupBox5)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.TextBox12)
        Me.Controls.Add(Me.TextBox11)
        Me.Controls.Add(Me.TextBox10)
        Me.Controls.Add(Me.TextBox9)
        Me.Controls.Add(Me.TextBox8)
        Me.Controls.Add(Me.TextBox7)
        Me.Controls.Add(Me.TextBox6)
        Me.Controls.Add(Me.Label16)
        Me.Controls.Add(Me.Label15)
        Me.Controls.Add(Me.ComboBox1)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label12)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.PictureBox1)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.Button9)
        Me.Controls.Add(Me.Button1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frm_bill"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "PrisLogix's PIS"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        Me.GroupBox6.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
#Region "CODE STARTS HERE"
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label15.Text = currentDateTime.Now().ToLongDateString + " " + currentDateTime.Now().ToLongTimeString
    End Sub
    Function clearfields()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        ComboBox3.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
        TextBox11.Text = ""
        TextBox12.Text = ""
        TextBox13.Text = ""
        TextBox14.Text = ""
        TextBox15.Text = ""
        TextBox16.Text = ""
        TextBox17.Text = ""
        ComboBox1.Text = ""
        ListBox1.Items.Clear()
        ComboBox2.Text = ""
        TextBox21.Text = ""
        TextBox20.Text = ""
    End Function
    Function enabledfields()
        TextBox13.Enabled = True
        TextBox14.Enabled = True
        TextBox15.Enabled = True
        TextBox16.Enabled = True
        TextBox17.Enabled = True
    End Function
    Function updatebill()
        '    MyConnection.Open()
        '   MyCommand = New OleDbCommand("UPDATE Accounts SET patcode ='" & TextBox1.Text & "',phycode = '" & ComboBox3.Text & "',roomno ='" & ComboBox1.Text & "', cno='" & TextBox21.Text & "', ctype ='" & ComboBox2.Text & "', validdate ='" & TextBox20.Text & "' WHERE slipno = '" & TextBox6.Text & "'", MyConnection)
        '  Try
        ' MyCommand.ExecuteNonQuery()
        'Catch c As Exception
        '   MsgBox(c.ToString)
        '  MyConnection.Close()
        ' End Try
        'MyCommand.dispose()
    End Function
    'Public Function IsValidCreditCardNumber(ByVal pCardNumber As String) As Boolean
    '     Dim CharPos As Integer
    '  '    '      Dim CheckSum As Integer
    '   Dim tChar As String
    ''
    ' For CharPos = Len(pCardNumber) To 2 Step -2
    '        CheckSum = CheckSum + CInt(Mid(pCardNumber, CharPos, 1))
    '         tChar = CStr((Mid(pCardNumber, CharPos - 1, 1)) * 2)
    '          CheckSum = CheckSum + CInt(Left(tChar, 1))
    ''
    '          If Len(tChar) > 1 Then CheckSum = CheckSum + CInt(Right(tChar, 1))
    '       Next
    '
    '  If Len(pCardNumber) Mod 2 = 1 Then CheckSum = CheckSum + CInt(Left(pCardNumber, 1))

    '   If CheckSum Mod 10 = 0 Then
    '        IsValidCreditCardNumber = True
    '     Else
    '          IsValidCreditCardNumber = False
    '       End If
    '
    'End Function
    Function disablefields()
        TextBox13.Enabled = False
        TextBox14.Enabled = False
        TextBox15.Enabled = False
        TextBox16.Enabled = False
        TextBox17.Enabled = False
    End Function
    Function getpatname()
        MyConnection.Open()
        MyCommand = New OleDbCommand("Select * FROM Patients WHERE patcode ='" & TextBox1.Text & "'", MyConnection)
        MyReader = MyCommand.ExecuteReader()
        While MyReader.Read
            TextBox2.Text = MyReader("patname")
        End While
        MyConnection.Close()
        MyReader.Close()
        MyCommand.dispose()
    End Function
    Function getphyname()
        MyConnection.Open()
        MyCommand = New OleDbCommand("Select * FROM Physicians WHERE phycode='" & ComboBox3.Text & "'", MyConnection)
        MyReader = MyCommand.ExecuteReader()
        While MyReader.Read
            TextBox3.Text = MyReader("Phyname")
            TextBox16.Text = MyReader("Fee")
        End While
        MyConnection.Close()
        MyReader.Close()
        MyCommand.dispose()
    End Function
    Function getids()
        MyConnection.Open()
        MyCommand = New OleDbCommand("Select * from Accounts where slip = '" & TextBox6.Text & "'", MyConnection)
        MyReader = MyCommand.ExecuteReader()
        While MyReader.Read
            TextBox1.Text = MyReader("patcode")
            ComboBox3.Text = MyReader("phycode")
            ComboBox1.Text = MyReader("roomno")
        End While
        MyConnection.Close()
        MyReader.Close()
        MyCommand.dispose()
    End Function
    Function deleteslip()
        MyConnection.Open()
        MyCommand = New OleDbCommand("DELETE FROM Accounts WHERE slipno ='" & TextBox6.Text & "'", MyConnection)
        MyConnection.Close()
        MyCommand.dispose()
    End Function
    Function checkslipbox() As Boolean
        If TextBox6.Text = "" Then
            Return True
        Else
            Return False
        End If
    End Function
    Function checkcard()
        If TextBox21.Text = "" Then
            TextBox21.Text = "None"
        ElseIf TextBox20.Text = "" Then
            TextBox20.Text = "None"
        ElseIf ComboBox2.Text = "" Then
            ComboBox2.Text = "None"
        End If
    End Function
    Function getroom()
        MyConnection.Open()
        MyCommand = New OleDbCommand("SELECT * FROM Rooms WHERE roomno = '" & ComboBox1.Text & "'", MyConnection)
        MyReader = MyCommand.ExecuteReader()
        While MyReader.Read
            TextBox14.Text = MyReader("Roomrate")
        End While
        MyConnection.Close()
        MyReader.Close()
        MyCommand.dispose()
    End Function
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.Close()
    End Sub
    '  an id is generated only when the add slip button is clicked on
    '  if you need to search the database for the specific id

    ' function which generates the slip number
    Function getslip(ByVal some As String) As String
        Dim another As Integer
        Dim newslip2 As String = "SS-0"
        Dim number As String
        another = CInt(some.TrimStart("S", "-"))
        another += 1
        number = another.ToString()
        Return newslip2 + number
    End Function
    'A function which checks the validity of the clip number generated
    Function validslip(ByVal slipno As String) As Boolean
        If slipno.StartsWith("SS-0") = True Then
            Return True
        Else
            Return False