frm_patinfo.vb

application file which contains the notes on Ado.net

        Me.TextBox6.TabIndex = 15
        Me.TextBox6.Text = ""
        '
        'ComboBox2
        '
        Me.ComboBox2.BackColor = System.Drawing.SystemColors.Info
        Me.ComboBox2.Items.AddRange(New Object() {"Single", "Married", "Divorced"})
        Me.ComboBox2.Location = New System.Drawing.Point(88, 248)
        Me.ComboBox2.Name = "ComboBox2"
        Me.ComboBox2.Size = New System.Drawing.Size(88, 21)
        Me.ComboBox2.TabIndex = 16
        '
        'TextBox7
        '
        Me.TextBox7.BackColor = System.Drawing.SystemColors.Info
        Me.TextBox7.Location = New System.Drawing.Point(88, 120)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.Size = New System.Drawing.Size(224, 20)
        Me.TextBox7.TabIndex = 17
        Me.TextBox7.Text = ""
        '
        'TextBox8
        '
        Me.TextBox8.BackColor = System.Drawing.SystemColors.Info
        Me.TextBox8.Location = New System.Drawing.Point(88, 152)
        Me.TextBox8.Name = "TextBox8"
        Me.TextBox8.Size = New System.Drawing.Size(152, 20)
        Me.TextBox8.TabIndex = 18
        Me.TextBox8.Text = ""
        '
        'TextBox9
        '
        Me.TextBox9.BackColor = System.Drawing.SystemColors.Info
        Me.TextBox9.Location = New System.Drawing.Point(224, 216)
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.TabIndex = 19
        Me.TextBox9.Text = ""
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.Button2)
        Me.GroupBox2.Controls.Add(Me.Button4)
        Me.GroupBox2.Controls.Add(Me.Button1)
        Me.GroupBox2.Controls.Add(Me.Button5)
        Me.GroupBox2.Controls.Add(Me.Button3)
        Me.GroupBox2.Controls.Add(Me.Button11)
        Me.GroupBox2.Location = New System.Drawing.Point(264, 280)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(128, 112)
        Me.GroupBox2.TabIndex = 21
        Me.GroupBox2.TabStop = False
        '
        'Button2
        '
        Me.Button2.BackColor = System.Drawing.SystemColors.ControlLight
        Me.Button2.Location = New System.Drawing.Point(8, 48)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(104, 24)
        Me.Button2.TabIndex = 1
        Me.Button2.Text = "Edit Patient"
        '
        'Button4
        '
        Me.Button4.BackColor = System.Drawing.SystemColors.ControlLight
        Me.Button4.Location = New System.Drawing.Point(8, 16)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(104, 23)
        Me.Button4.TabIndex = 26
        Me.Button4.Text = "Add Patient"
        Me.Button4.Visible = False
        '
        'Button1
        '
        Me.Button1.BackColor = System.Drawing.SystemColors.ControlLight
        Me.Button1.Location = New System.Drawing.Point(8, 16)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(104, 24)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Add New Patient"
        '
        'Button5
        '
        Me.Button5.BackColor = System.Drawing.SystemColors.ControlLight
        Me.Button5.Location = New System.Drawing.Point(8, 80)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(104, 24)
        Me.Button5.TabIndex = 26
        Me.Button5.Text = "Cancel"
        Me.Button5.Visible = False
        '
        'Button3
        '
        Me.Button3.BackColor = System.Drawing.SystemColors.ControlLight
        Me.Button3.Location = New System.Drawing.Point(8, 80)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(104, 23)
        Me.Button3.TabIndex = 2
        Me.Button3.Text = "Search Patient"
        '
        'Button11
        '
        Me.Button11.BackColor = System.Drawing.SystemColors.ControlLight
        Me.Button11.Enabled = False
        Me.Button11.Location = New System.Drawing.Point(8, 48)
        Me.Button11.Name = "Button11"
        Me.Button11.Size = New System.Drawing.Size(104, 24)
        Me.Button11.TabIndex = 36
        Me.Button11.Text = "Edit Now"
        Me.Button11.Visible = False
        '
        'TextBox10
        '
        Me.TextBox10.BackColor = System.Drawing.SystemColors.Info
        Me.TextBox10.Location = New System.Drawing.Point(200, 88)
        Me.TextBox10.Name = "TextBox10"
        Me.TextBox10.Size = New System.Drawing.Size(176, 20)
        Me.TextBox10.TabIndex = 23
        Me.TextBox10.Text = ""
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(8, 192)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(112, 16)
        Me.Label14.TabIndex = 24
        Me.Label14.Text = "BirthDate(mm/dd/yy)"
        '
        'TextBox11
        '
        Me.TextBox11.BackColor = System.Drawing.SystemColors.Info
        Me.TextBox11.Location = New System.Drawing.Point(128, 184)
        Me.TextBox11.Name = "TextBox11"
        Me.TextBox11.Size = New System.Drawing.Size(80, 20)
        Me.TextBox11.TabIndex = 25
        Me.TextBox11.Text = ""
        '
        'Button6
        '
        Me.Button6.BackColor = System.Drawing.SystemColors.ControlLight
        Me.Button6.Location = New System.Drawing.Point(8, 16)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(120, 23)
        Me.Button6.TabIndex = 26
        Me.Button6.Text = "Make Appointment"
        '
        'Button7
        '
        Me.Button7.BackColor = System.Drawing.SystemColors.ControlLight
        Me.Button7.Location = New System.Drawing.Point(8, 48)
        Me.Button7.Name = "Button7"
        Me.Button7.Size = New System.Drawing.Size(120, 23)
        Me.Button7.TabIndex = 27
        Me.Button7.Text = "Check Appointment"
        '
        'ComboBox3
        '
        Me.ComboBox3.BackColor = System.Drawing.SystemColors.Info
        Me.ComboBox3.Items.AddRange(New Object() {"O +ive", "O -ive", "A +ive", "A -ive", "B +ive", "B -ive", "AB +ive", "AB -ive"})
        Me.ComboBox3.Location = New System.Drawing.Point(256, 248)
        Me.ComboBox3.Name = "ComboBox3"
        Me.ComboBox3.Size = New System.Drawing.Size(72, 21)
        Me.ComboBox3.TabIndex = 29
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(184, 256)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(64, 16)
        Me.Label15.TabIndex = 30
        Me.Label15.Text = "Blood Type"
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.Button9)
        Me.GroupBox3.Controls.Add(Me.Button7)
        Me.GroupBox3.Controls.Add(Me.Button6)
        Me.GroupBox3.Location = New System.Drawing.Point(120, 280)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(136, 112)
        Me.GroupBox3.TabIndex = 31
        Me.GroupBox3.TabStop = False
        '
        'Button9
        '
        Me.Button9.BackColor = System.Drawing.SystemColors.ControlLight
        Me.Button9.Location = New System.Drawing.Point(8, 80)
        Me.Button9.Name = "Button9"
        Me.Button9.Size = New System.Drawing.Size(120, 23)
        Me.Button9.TabIndex = 29
        Me.Button9.Text = "Patient Alerts"
        '
        'Label16
        '
        Me.Label16.Location = New System.Drawing.Point(688, 16)
        Me.Label16.Name = "Label16"
        Me.Label16.TabIndex = 32
        '
        'Timer1
        '
        Me.Timer1.Enabled = True
        Me.Timer1.Interval = 1000
        '
        'Button8
        '
        Me.Button8.BackColor = System.Drawing.SystemColors.ControlLight
        Me.Button8.Location = New System.Drawing.Point(8, 16)
        Me.Button8.Name = "Button8"
        Me.Button8.Size = New System.Drawing.Size(88, 23)
        Me.Button8.TabIndex = 33
        Me.Button8.Text = "Admit Patient"
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.Button13)
        Me.GroupBox4.Controls.Add(Me.Button12)
        Me.GroupBox4.Controls.Add(Me.Button8)
        Me.GroupBox4.Location = New System.Drawing.Point(8, 280)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(104, 112)
        Me.GroupBox4.TabIndex = 34
        Me.GroupBox4.TabStop = False
        '
        'Button13
        '
        Me.Button13.BackColor = System.Drawing.SystemColors.ControlLight
        Me.Button13.Enabled = False
        Me.Button13.Location = New System.Drawing.Point(8, 80)
        Me.Button13.Name = "Button13"
        Me.Button13.Size = New System.Drawing.Size(88, 23)
        Me.Button13.TabIndex = 35
        Me.Button13.Text = "Delete!"
        '
        'Button12
        '
        Me.Button12.BackColor = System.Drawing.SystemColors.ControlLight
        Me.Button12.Location = New System.Drawing.Point(8, 48)
        Me.Button12.Name = "Button12"
        Me.Button12.Size = New System.Drawing.Size(88, 23)
        Me.Button12.TabIndex = 34
        Me.Button12.Text = "Delete Patient"
        Me.Button12.TextAlign = System.Drawing.ContentAlignment.TopCenter
        '
        'Button10
        '
        Me.Button10.BackColor = System.Drawing.SystemColors.ControlLight
        Me.Button10.Location = New System.Drawing.Point(640, 400)
        Me.Button10.Name = "Button10"
        Me.Button10.Size = New System.Drawing.Size(96, 23)
        Me.Button10.TabIndex = 35
        Me.Button10.Text = "Cancel"
        '
        'Label17
        '
        Me.Label17.Location = New System.Drawing.Point(8, 40)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(40, 16)
        Me.Label17.TabIndex = 36
        Me.Label17.Text = "Ward"
        '
        'ComboBox4
        '
        Me.ComboBox4.BackColor = System.Drawing.SystemColors.Info
        Me.ComboBox4.Location = New System.Drawing.Point(48, 32)
        Me.ComboBox4.Name = "ComboBox4"
        Me.ComboBox4.Size = New System.Drawing.Size(72, 21)
        Me.ComboBox4.TabIndex = 37
        '
        'Label18
        '
        Me.Label18.Location = New System.Drawing.Point(8, 64)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(48, 16)
        Me.Label18.TabIndex = 38
        Me.Label18.Text = "Doctor"
        '
        'ComboBox5
        '
        Me.ComboBox5.BackColor = System.Drawing.SystemColors.Info
        Me.ComboBox5.Location = New System.Drawing.Point(56, 56)
        Me.ComboBox5.Name = "ComboBox5"
        Me.ComboBox5.Size = New System.Drawing.Size(64, 21)
        Me.ComboBox5.TabIndex = 39
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.Add(Me.Label13)
        Me.GroupBox5.Controls.Add(Me.ComboBox4)
        Me.GroupBox5.Controls.Add(Me.Label18)
        Me.GroupBox5.Controls.Add(Me.ComboBox5)
        Me.GroupBox5.Controls.Add(Me.Label17)
        Me.GroupBox5.Controls.Add(Me.ComboBox6)
        Me.GroupBox5.Location = New System.Drawing.Point(656, 256)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(144, 128)
        Me.GroupBox5.TabIndex = 40
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "Hospital Information"
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(8, 88)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(48, 16)
        Me.Label13.TabIndex = 40
        Me.Label13.Text = "Sponser"
        '
        'ComboBox6
        '
        Me.ComboBox6.BackColor = System.Drawing.SystemColors.Info
        Me.ComboBox6.Items.AddRange(New Object() {"Private", "Company"})
        Me.ComboBox6.Location = New System.Drawing.Point(56, 80)
        Me.ComboBox6.Name = "ComboBox6"
        Me.ComboBox6.Size = New System.Drawing.Size(64, 21)
        Me.ComboBox6.TabIndex = 41
        '
        'GroupBox6
        '
        Me.GroupBox6.Controls.Add(Me.TextBox12)
        Me.GroupBox6.Controls.Add(Me.Label21)
        Me.GroupBox6.Controls.Add(Me.TextBox16)
        Me.GroupBox6.Controls.Add(Me.TextBox14)
        Me.GroupBox6.Controls.Add(Me.TextBox15)
        Me.GroupBox6.Controls.Add(Me.Label19)
        Me.GroupBox6.Controls.Add(Me.Label20)
        Me.GroupBox6.Location = New System.Drawing.Point(352, 120)
        Me.GroupBox6.Name = "GroupBox6"
        Me.GroupBox6.Size = New System.Drawing.Size(456, 128)
        Me.GroupBox6.TabIndex = 41
        Me.GroupBox6.TabStop = False
        Me.GroupBox6.Text = "Hospital Information"
        '
        'TextBox12
        '
        Me.TextBox12.BackColor = System.Drawing.SystemColors.Info
        Me.TextBox12.Location = New System.Drawing.Point(8, 16)
        Me.TextBox12.Multiline = True
        Me.TextBox12.Name = "TextBox12"
        Me.TextBox12.Size = New System.Drawing.Size(224, 104)
        Me.TextBox12.TabIndex = 0
        Me.TextBox12.Text = ""
        '
        'Label21
        '
        Me.Label21.Location = New System.Drawing.Point(240, 96)
        Me.Label21.Name = "Label21"
        Me.Label21.Size = New System.Drawing.Size(88, 16)
        Me.Label21.TabIndex = 2
        Me.Label21.Text = "Company Ins No"
        '
        'TextBox16
        '
        Me.TextBox16.BackColor = System.Drawing.SystemColors.Info
        Me.TextBox16.Location = New System.Drawing.Point(344, 96)
        Me.TextBox16.Name = "TextBox16"
        Me.TextBox16.TabIndex = 5
        Me.TextBox16.Text = ""
        '
        'TextBox14
        '
        Me.TextBox14.BackColor = System.Drawing.SystemColors.Info
        Me.TextBox14.Location = New System.Drawing.Point(344, 32)