shopdb/docs/archive/CLAUDE_REFERENCE.md

ShopDB Quick Reference for Claude.ai

Database Tables

machines (unified - all devices)

Column	Type	Notes
machineid	INT	Primary key
machinetypeid	INT	FK to machinetypes
machinenumber	VARCHAR	Equipment number or hostname
hostname	VARCHAR	PC hostname
serialnumber	VARCHAR	Serial number
alias	VARCHAR	Friendly name
pctypeid	INT	NOT NULL = PC, NULL = equipment
osid	INT	FK to operatingsystems (PCs)
modelnumberid	INT	FK to models
businessunitid	INT	FK to businessunits
machinestatusid	INT	FK to machinestatus
isactive	TINYINT	1=active, 0=inactive
lastupdated	DATETIME	Auto-updated

communications (network interfaces)

Column	Type	Notes
communicationid	INT	Primary key
machineid	INT	FK to machines
comstypeid	INT	FK to comstypes (1=IP, 2=Serial)
address	VARCHAR	IP address or COM port
macaddress	VARCHAR	MAC address
port	INT	Port number
isprimary	TINYINT	Primary interface flag

machinerelationships

Column	Type	Notes
relationshipid	INT	Primary key
machineid	INT	Source machine (e.g., PC)
related_machineid	INT	Target machine (e.g., Equipment)
relationshiptypeid	INT	FK to relationshiptypes

printers (separate table)

Column	Type	Notes
printerid	INT	Primary key
name	VARCHAR	Printer name
address	VARCHAR	IP or hostname
modelid	INT	FK to models
isactive	TINYINT	Active flag

Machine Type IDs

Equipment (1-15)

• 1: LocationOnly
• 2-14: Various equipment (Lathe, Mill, CMM, etc.)
• 15: Printer (legacy)

Network Devices (16-20)

• 16: Access Point
• 17: IDF
• 18: Camera
• 19: Switch
• 20: Server

PCs (33-35)

• 33: Standard PC
• 34: Engineering PC
• 35: Shopfloor PC

Common Queries

-- All active PCs with details
SELECT m.machineid, m.hostname, m.serialnumber,
       pt.pctype, mo.modelnumber, os.osname
FROM machines m
LEFT JOIN pctype pt ON m.pctypeid = pt.pctypeid
LEFT JOIN models mo ON m.modelnumberid = mo.modelnumberid
LEFT JOIN operatingsystems os ON m.osid = os.osid
WHERE m.pctypeid IS NOT NULL AND m.isactive = 1;

-- PC's network interfaces
SELECT m.hostname, c.address, c.macaddress
FROM machines m
JOIN communications c ON m.machineid = c.machineid
WHERE m.pctypeid IS NOT NULL;

-- PC controlling equipment
SELECT
    pc.hostname AS pc_name,
    eq.machinenumber AS equipment
FROM machinerelationships mr
JOIN machines pc ON mr.machineid = pc.machineid
JOIN machines eq ON mr.related_machineid = eq.machineid
JOIN relationshiptypes rt ON mr.relationshiptypeid = rt.relationshiptypeid
WHERE rt.relationshiptype = 'Controls';

-- Network devices
SELECT m.machineid, m.machinenumber, mt.machinetype, c.address
FROM machines m
JOIN machinetypes mt ON m.machinetypeid = mt.machinetypeid
LEFT JOIN communications c ON m.machineid = c.machineid AND c.isprimary = 1
WHERE m.machinetypeid IN (16,17,18,19,20);

ASP Code Patterns

Safe Database Query

Dim cmd, rs
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = objConn
cmd.CommandText = "SELECT hostname, serialnumber FROM machines WHERE machineid = ?"
cmd.Parameters.Append cmd.CreateParameter("@id", 3, 1, , Request("id"))
Set rs = cmd.Execute()

If NOT rs.EOF Then
    Dim hostname, serial
    hostname = rs("hostname") & ""  ' Convert to string
    serial = rs("serialnumber") & ""
    Response.Write("<p>" & Server.HTMLEncode(hostname) & "</p>")
End If

rs.Close
Set rs = Nothing
Set cmd = Nothing

Form Handling

' Get and sanitize input
Dim machineId, hostname
machineId = Request.Form("machineid")
hostname = Trim(Request.Form("hostname"))

' Validate
If machineId = "" Or Not IsNumeric(machineId) Then
    Response.Write("Invalid machine ID")
    Response.End
End If

' Update with parameterized query
Dim cmdUpdate
Set cmdUpdate = Server.CreateObject("ADODB.Command")
cmdUpdate.ActiveConnection = objConn
cmdUpdate.CommandText = "UPDATE machines SET hostname = ? WHERE machineid = ?"
cmdUpdate.Parameters.Append cmdUpdate.CreateParameter("@host", 200, 1, 100, hostname)
cmdUpdate.Parameters.Append cmdUpdate.CreateParameter("@id", 3, 1, , CLng(machineId))
cmdUpdate.Execute

Error Handling

On Error Resume Next
' risky operation
If Err.Number <> 0 Then
    Response.Write("Error: " & Server.HTMLEncode(Err.Description))
    Err.Clear
End If
On Error GoTo 0

File Reference

Main Pages

File	Purpose
displaymachines.asp	List all machines
displaymachine.asp	Single machine details
displaypcs.asp	List all PCs
displaypc.asp	Single PC details
displayprinters.asp	List printers
network_map.asp	Visual network map
network_devices.asp	Network device list
api.asp	REST API endpoint

Form Pages

File	Purpose
addmachine.asp	Add new machine form
editmachine.asp	Edit machine form
savemachine.asp	Save machine handler
addprinter.asp	Add printer form
editprinter.asp	Edit printer form

Includes

File	Purpose
includes/header.asp	Page header, nav
includes/footer.asp	Page footer
includes/sql.asp	Database connection
includes/functions.asp	Helper functions

Environment

• Dev Server: 192.168.122.151:8080
• Database: MySQL in Docker (dev-mysql container)
• Git: Gitea at localhost:3000
• Project Path: /home/camp/projects/windows/shopdb/