Visual Basic

CREATE PROCEDURE SalesByCategory<br />
    @CategoryName nvarchar(15), @OrdYear nvarchar(4) = '1998'<br />
AS ---------------WORD TO SEARCH---------------<br />
IF @OrdYear != '1996' AND @OrdYear != '1997' AND @OrdYear != '1998' <br />
BEGIN<br />
	SELECT @OrdYear = '1998'<br />
END<br />
<br />
SELECT ProductName,<br />
	TotalPurchase=ROUND(SUM(CONVERT(decimal(14,2), OD.Quantity * (1-OD.Discount) * OD.UnitPrice)), 0)<br />
FROM [Order Details] OD, Orders O, Products P, Categories C<br />
WHERE OD.OrderID = O.OrderID <br />
	AND OD.ProductID = P.ProductID <br />
	AND P.CategoryID = C.CategoryID<br />
	AND C.CategoryName = @CategoryName<br />
	AND SUBSTRING(CONVERT(nvarchar(22), O.OrderDate, 111), 1, 4) = @OrdYear<br />
GROUP BY ProductName<br />
ORDER BY ProductName

CREATE PROCEDURE SalesByCategory<br />
    @CategoryName nvarchar(15), @OrdYear nvarchar(4) = '1998'<br />
WITH ENCRYPTION ---------------ADDED WORD---------------<br />
AS ---------------WORD SEARCHED---------------<br />
IF @OrdYear != '1996' AND @OrdYear != '1997' AND @OrdYear != '1998' <br />
BEGIN<br />
	SELECT @OrdYear = '1998'<br />
END<br />
<br />
SELECT ProductName,<br />
	TotalPurchase=ROUND(SUM(CONVERT(decimal(14,2), OD.Quantity * (1-OD.Discount) * OD.UnitPrice)), 0)<br />
FROM [Order Details] OD, Orders O, Products P, Categories C<br />
WHERE OD.OrderID = O.OrderID <br />
	AND OD.ProductID = P.ProductID <br />
	AND P.CategoryID = C.CategoryID<br />
	AND C.CategoryName = @CategoryName<br />
	AND SUBSTRING(CONVERT(nvarchar(22), O.OrderDate, 111), 1, 4) = @OrdYear<br />
GROUP BY ProductName<br />
ORDER BY ProductName

'http://www.andreavb.com/tip080001.html
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, _
    ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long _
    ) As Long
    
'http://www.windowsdevcenter.com/pub/a/windows/2004/07/27/VB_Registry_Values.html
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" ( _
   ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, _
   lpType As Long, lpData As Any, lpcbData As Long) As Long

Private Sub Form_Load()
   RegOpenKeyEx HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion", _
        0&, KEY_READ, hKey
   RegQueryValueEx hKey, "CommonFilesDir", 0, 0, sValue, iTemp
End Sub