Refactor AddVitamins and update data files

Refactored `AddVitamins` to improve validation logic, added debugging enhancements, and updated font styles across controls. Refactored file path handling in `FilePaths.vb` to use a project-relative directory structure.

Added new patient, prescription, receipt, and schedule entries for Marian Rivera. Updated `Vitamins.txt` with new stock entries for Vitamin A and Vitamin K.

Author: angelomiranda

OB-GYN Clinic/AddVitamins.Designer.vb

@@ -40,21 +40,42 @@ Public Class AddVitamins
     End Sub
 
     Private Sub btnAddVitamin_Click(sender As Object, e As EventArgs) Handles btnAddVitamin.Click
-        ' Only add if all required fields are filled
-        If Not String.IsNullOrEmpty(txbStocksScientificName.Text) AndAlso
-           Not String.IsNullOrEmpty(txbManufactureName.Text) AndAlso
-           Not String.IsNullOrEmpty(txbPricePerPiece.Text) AndAlso
-           Not String.IsNullOrEmpty(txbStocksQuantity.Text) AndAlso
-           Not String.IsNullOrEmpty(cbbVitaminType.Text) Then
-
-            Dim newEntry As String = $"{cbbVitaminType.Text},{txbStocksScientificName.Text},{txbManufactureName.Text},{txbPricePerPiece.Text},{txbStocksQuantity.Text}"
+        If grbDrugDetails.Enabled Then
+            ' Only check Drug Details group box fields
+            If String.IsNullOrWhiteSpace(cbbVitaminType.Text) OrElse
+               String.IsNullOrWhiteSpace(txbStocksScientificName.Text) OrElse
+               String.IsNullOrWhiteSpace(txbManufactureName.Text) OrElse
+               String.IsNullOrWhiteSpace(txbPricePerPiece.Text) OrElse
+               String.IsNullOrWhiteSpace(txbQuantity.Text) Then
+
+                MessageBox.Show("Please fill in all required fields for Drug Details.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                Return
+            End If
+
+            Dim newEntry As String = $"{cbbVitaminType.Text},{txbStocksScientificName.Text},{txbManufactureName.Text},{txbPricePerPiece.Text},{txbQuantity.Text}"
             Using writer As New StreamWriter(filePathVitamins, True)
                 writer.WriteLine(newEntry)
             End Using
-            MessageBox.Show("You have successfully added a Vitamin!", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
+            MessageBox.Show("You have successfully added a new Vitamin!", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
             Me.Close()
-        Else
-            MessageBox.Show("Please fill in all required fields.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+
+        ElseIf gpbAddStocks.Enabled Then
+            ' Add Stocks: Require only scientific name and quantity
+            If String.IsNullOrWhiteSpace(txbStocksScientificName.Text) OrElse
+               String.IsNullOrWhiteSpace(txbStocksQuantity.Text) Then
+
+                MessageBox.Show("Please fill in Scientific Name and Quantity for Add Stocks.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                Return
+            End If
+
+            ' Update stock for existing vitamin
+            Dim stocksToAdd As Integer
+            If Integer.TryParse(txbStocksQuantity.Text, stocksToAdd) Then
+                UpdateStockQuantity(txbStocksScientificName.Text, stocksToAdd)
+                Me.Close()
+            Else
+                MessageBox.Show("Quantity must be a valid number.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            End If
         End If
     End Sub
 
@@ -133,6 +154,9 @@ Public Class AddVitamins
         Dim listBoxWidth As Integer = txbStocksScientificName.Width
         ltbVitamins.Location = New Point(listBoxX, listBoxY)
         ltbVitamins.Width = listBoxWidth
+
+        ' Show the actual file path being used
+        MessageBox.Show(filePathVitamins, "Vitamins File Path")
     End Sub
 
     Private Sub btnSearch_Click(sender As Object, e As EventArgs)

OB-GYN Clinic/AddVitamins.vb

@@ -1,11 +1,9 @@
 Imports System.IO
 
 Public Module FilePaths
-    ' Base path (where your .exe runs)
-    Public ReadOnly BasePath As String = Application.StartupPath
-
-    ' Folder for text files
-    Public ReadOnly TextFolder As String = Path.Combine(BasePath, "Text Files")
+    ' Get the project directory (two levels up from bin\Debug or bin\Release)
+    Public ReadOnly ProjectPath As String = Path.GetFullPath(Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "..\.."))
+    Public ReadOnly TextFolder As String = Path.Combine(ProjectPath, "Text Files")
 
     ' File paths (directly inside Text Files folder)
     Public ReadOnly PatientsFile As String = Path.Combine(TextFolder, "Patients.txt")

OB-GYN Clinic/FilePaths.vb

@@ -0,0 +1 @@
+RL85VPHS,Marian,Rivera,41,Married,12/08/1984 12:00:00 am,Manila,Yes,Caesarean,DingDong,Dantes,Spouse,09876521345,01/09/2025 12:00:00 am,Dr. Manlapaz,26/09/2025 5:33:41 pm

OB-GYN Clinic/Text Files/Patients.txt

@@ -0,0 +1 @@
+Marian Rivera,28/10/2025,Vitamin A,3

OB-GYN Clinic/Text Files/Prescription.txt

@@ -0,0 +1,20 @@
+==================================
+New OB Master Gyn Clinic
+456 Maligaya Street, Tarlac City, Philippines
+Contact: (123) 456-7890
+Clinic #: 54321 | Doctor #: 5678
+Doctor: Dr. Manlapaz | Date: 09/26/2025 
+Patient: Marian Rivera | First Trimester 
+Type of Check-Up: Initial Check-Up
+-----------------------------------------------------------
+Item                               Price      Qty     Total
+-----------------------------------------------------------
+Check-Up Bill: Php. 2000.00
+Next Appointment: 28/10/2025
+Vitamin A: ₱50.00 x 3 = ₱150.00 | 
+-----------------------------------------------------------
+Total:                                           ₱2,150.00
+Payment:                                        ₱3,000.00
+Change:                                             ₱850.00
+=================================
+Thank you for choosing New OB-GYN Clinic!

OB-GYN Clinic/Text Files/Receipt.txt

@@ -0,0 +1 @@
+Marian Rivera,28/10/2025

OB-GYN Clinic/Text Files/Schedule.txt

@@ -0,0 +1,2 @@
+Vitamin A,Vitamin A,Zhejiang NHU Co.,50,47
+Vitamin K,Vitamin D,Keratin,100,56