Initial

MobilizeNet · Aug 25, 2019 · c628125 · c628125
commit c628125
Show file tree

Hide file tree

Showing 92 changed files with 16,594 additions and 0 deletions.
diff --git a/Media/Add.bmp b/Media/Add.bmp
diff --git a/Media/Delete.bmp b/Media/Delete.bmp
diff --git a/Media/Edit.bmp b/Media/Edit.bmp
diff --git a/Media/Logo with letters.bmp b/Media/Logo with letters.bmp
diff --git a/Media/Logo with letters.png b/Media/Logo with letters.png
diff --git a/Media/Logo-large.jpg b/Media/Logo-large.jpg
diff --git a/Media/Logo-small.bmp b/Media/Logo-small.bmp
diff --git a/Media/Market.bmp b/Media/Market.bmp
diff --git a/Media/Market.jpg b/Media/Market.jpg
diff --git a/Media/MobilizeLogos/3bars-Icon-tranparent.png b/Media/MobilizeLogos/3bars-Icon-tranparent.png
diff --git a/Media/MobilizeLogos/3bars-Icon.png b/Media/MobilizeLogos/3bars-Icon.png
diff --git a/Media/MobilizeLogos/mobilize.ico b/Media/MobilizeLogos/mobilize.ico
diff --git a/Media/NewLogo.bmp b/Media/NewLogo.bmp
diff --git a/Media/NewLogo.ico b/Media/NewLogo.ico
diff --git a/Media/NewLogo.png b/Media/NewLogo.png
diff --git a/Media/SKSPhotos/frmAddProductTo.PNG b/Media/SKSPhotos/frmAddProductTo.PNG
diff --git a/Media/SKSPhotos/frmAddStockManual.PNG b/Media/SKSPhotos/frmAddStockManual.PNG
diff --git a/Media/SKSPhotos/frmCustomers.PNG b/Media/SKSPhotos/frmCustomers.PNG
diff --git a/Media/SKSPhotos/frmOrderReception.PNG b/Media/SKSPhotos/frmOrderReception.PNG
diff --git a/Media/SKSPhotos/frmProviders.PNG b/Media/SKSPhotos/frmProviders.PNG
diff --git a/Media/SKSPhotos/frmReceptionApproval.PNG b/Media/SKSPhotos/frmReceptionApproval.PNG
diff --git a/Media/SKSPhotos/frmRequestApproval.PNG b/Media/SKSPhotos/frmRequestApproval.PNG
diff --git a/Media/SKSPhotos/frmSearch.PNG b/Media/SKSPhotos/frmSearch.PNG
diff --git a/Media/SKSVB6.jpg b/Media/SKSVB6.jpg
diff --git a/Media/Save.2.bmp b/Media/Save.2.bmp
diff --git a/Media/Save.bmp b/Media/Save.bmp
diff --git a/Media/Search.bmp b/Media/Search.bmp
diff --git a/Media/newlogo_svI_icon.ico b/Media/newlogo_svI_icon.ico
diff --git a/Media/newlogo_ugr_icon.ico b/Media/newlogo_ugr_icon.ico
diff --git a/Media/search.ico b/Media/search.ico
diff --git a/Media/user.ico b/Media/user.ico
diff --git a/OfrmAccountProfile.frm b/OfrmAccountProfile.frm
diff --git a/OfrmAccountProfile.frx b/OfrmAccountProfile.frx
diff --git a/Orders.mdb b/Orders.mdb
diff --git a/README.md b/README.md
@@ -0,0 +1,71 @@
+# Salmon King Seafood Reference (SKS) App VB6 ![SKSVB6Logo](./Media/SKSVB6.jpg)
+
+
+Salmon King Seafood is the fictitiuos company created by the  Brown brothers in the 80s.
+
+To support their business they created a VB6 app, which has helped them to become successful.
+
+# About the App
+
+This app shows some very common VB6 features and controls. The idea of this app is to provide an example to showcase some the solutions for VB6 migration and app modernization from [Mobilize.NET](https://www.mobilize.net)
+
+# What can you see in this app
+
+The **SKS** is a Multiple Document Interface (MDI) VB6 apps.
+
+The main form is the MDI container, and the rest of the forms are triggered from the menu on this mdi container.
+
+When the app starts after an splash window that is hidden using a VB.Timer, the main MDI pops up with the Orden Reception.
+
+![Order Reception](./Media/SKSPhotos/frmOrderReception.PNG)
+
+This screen uses some standard labels and textboxes and an MSFlexGrid.
+
+From the menu you can trigger some forms like:
+
+![Suppliers](./Media/SKSPhotos/frmProviders.PNG)
+
+or
+
+![Customers](./Media/SKSPhotos/frmCustomers.PNG)
+
+These screens use a Toolbar, Control Arrays, ImageList and an ADO Data Control (ADODC). The textboxes use data binding to connect with the DB.
+
+There are also screens like:
+
+![Add Product](./Media/SKSPhotos/frmAddProductTo.PNG)
+
+or 
+
+![Add Stock](./Media/SKSPhotos/frmAddStockManual.PNG)
+
+or 
+
+![Reception Approval](./Media/SKSPhotos/frmReceptionApproval.PNG)
+
+or 
+
+![Request Approval](./Media/SKSPhotos/frmRequestApproval.PNG)
+
+or
+
+![Search](./Media/SKSPhotos/frmSearch.PNG)
+
+With some events, standard controls, combos and listview controls.
+
+# Technologies used
+
+This application was developed in VB6, it uses mostly the intrinsic VB6 controls 
+    - VB.Label
+    - VB.CommandButton
+    - VB.Combobox
+    - VB.Frame
+    - MSComCtlLib.ImageList
+    - MSComCtlLib.ListView
+    - MSComCtlLib.Toolbar
+    - MSFlexGridLib.MSFlexGrid
+
+The database used is an **MS Access** Database called `Orders.mdb`
+
+It uses *ADODB* to connect to this MDB and also the ADO Data Controls for databinding and data navigation.
+
diff --git a/SKS.vbp b/SKS.vbp
@@ -0,0 +1,69 @@
+Type=Exe
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\WINDOWS\SysWow64\stdole2.tlb#OLE Automation
+Reference=*\G{6B263850-900B-11D0-9484-00A0C91110ED}#1.0#0#..\WINDOWS\SysWOW64\MSSTDFMT.DLL#Microsoft Data Formatting Object Library 6.0 (SP6)
+Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
+Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX
+Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCT2.OCX
+Object={C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0; MSMASK32.OCX
+Form=frmMain.frm
+Form=frmAbout.frm
+Form=frmLogin.frm
+Module=modFunctions; modFunctions.bas
+Module=modConnection; modConnection.bas
+Module=modMain; modMain.bas
+Form=frmSearch.frm
+Form=frmUsersManage.frm
+Form=frmCustomers.frm
+Object={67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0; MSADODC.OCX
+Reference=*\G{00000205-0000-0010-8000-00AA006D2EA4}#2.5#0#..\Program Files (x86)\Common Files\System\ado\msado25.tlb#Microsoft ActiveX Data Objects 2.5 Library
+Form=frmProducts.frm
+Object={F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0; MSDATLST.OCX
+Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
+Form=frmAdjustStockManual.frm
+Form=frmProviders.frm
+Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; MSFLXGRD.OCX
+Form=frmOrderRequest.frm
+Form=frmAddStockManual.frm
+Form=frmOrderReception.frm
+Form=frmAddProductTo.frm
+Form=frmOrderAproval.frm
+Form=frmActionOrderReception.frm
+Form=frmActionOrderRequest.frm
+Form=frmRequestAproval.frm
+Object={65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0; MSCHRT20.OCX
+Reference=*\G{56BF9020-7A2F-11D0-9482-00A0C91110ED}#1.0#0#..\Windows\SysWow64\MSBIND.DLL#Microsoft Data Binding Collection
+Form=frmSplash.frm
+Startup="Sub Main"
+HelpFile=""
+Title="SKS"
+ExeName32="SKS.exe"
+Path32="Release"
+Command32=""
+Name="SKS"
+HelpContextID="0"
+Description="Salmon King Seafood - Mobilize.NET Reference App for Migrations"
+CompatibleMode="0"
+MajorVer=1
+MinorVer=0
+RevisionVer=0
+AutoIncrementVer=0
+ServerSupportFiles=0
+VersionCompanyName="Artinsoft"
+CompilationType=0
+OptimizationType=0
+FavorPentiumPro(tm)=0
+CodeViewDebugInfo=0
+NoAliasing=0
+BoundsCheck=0
+OverflowCheck=0
+FlPointCheck=0
+FDIVCheck=0
+UnroundedFP=0
+StartMode=0
+Unattended=0
+Retained=0
+ThreadPerObject=0
+MaxNumberOfThreads=1
+
+[MS Transaction Server]
+AutoRefresh=1
diff --git a/frmAbout.frm b/frmAbout.frm
@@ -0,0 +1,143 @@
+VERSION 5.00
+Begin VB.Form frmAbout 
+   BorderStyle     =   3  'Fixed Dialog
+   Caption         =   "About SKS Sales agent"
+   ClientHeight    =   3555
+   ClientLeft      =   2340
+   ClientTop       =   1935
+   ClientWidth     =   5910
+   ClipControls    =   0   'False
+   LinkTopic       =   "Form2"
+   MaxButton       =   0   'False
+   MinButton       =   0   'False
+   ScaleHeight     =   2453.724
+   ScaleMode       =   0  'User
+   ScaleWidth      =   5549.795
+   ShowInTaskbar   =   0   'False
+   Begin VB.PictureBox picIcon 
+      AutoSize        =   -1  'True
+      ClipControls    =   0   'False
+      DragIcon        =   "frmAbout.frx":0000
+      Height          =   1980
+      Left            =   240
+      Picture         =   "frmAbout.frx":1296A
+      ScaleHeight     =   1348.48
+      ScaleMode       =   0  'User
+      ScaleWidth      =   1348.48
+      TabIndex        =   1
+      Top             =   240
+      Width           =   1980
+   End
+   Begin VB.CommandButton cmdOK 
+      Cancel          =   -1  'True
+      Caption         =   "OK"
+      Default         =   -1  'True
+      Height          =   345
+      Left            =   4080
+      TabIndex        =   0
+      Top             =   3120
+      Width           =   1620
+   End
+   Begin VB.Line Line1 
+      BorderColor     =   &H00808080&
+      BorderStyle     =   6  'Inside Solid
+      Index           =   1
+      X1              =   84.515
+      X2              =   5309.398
+      Y1              =   1687.583
+      Y2              =   1687.583
+   End
+   Begin VB.Label lblDescription 
+      AutoSize        =   -1  'True
+      Caption         =   "Order Processing Software by Mobilize.net"
+      ForeColor       =   &H00000000&
+      Height          =   195
+      Left            =   2450
+      TabIndex        =   2
+      Top             =   1200
+      Width           =   2985
+   End
+   Begin VB.Label lblTitle 
+      AutoSize        =   -1  'True
+      Caption         =   "Salmon King Seafood"
+      BeginProperty Font 
+         Name            =   "MS Sans Serif"
+         Size            =   8.25
+         Charset         =   0
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      ForeColor       =   &H00000000&
+      Height          =   195
+      Left            =   2445
+      TabIndex        =   4
+      Top             =   360
+      Width           =   1830
+   End
+   Begin VB.Line Line1 
+      BorderColor     =   &H00FFFFFF&
+      BorderWidth     =   2
+      Index           =   0
+      X1              =   98.6
+      X2              =   5309.398
+      Y1              =   1697.936
+      Y2              =   1697.936
+   End
+   Begin VB.Label lblVersion 
+      AutoSize        =   -1  'True
+      Caption         =   "Version: Mobilize - WebMAP "
+      Height          =   195
+      Left            =   2445
+      TabIndex        =   5
+      Top             =   840
+      Width           =   2055
+   End
+   Begin VB.Label lblDisclaimer 
+      AutoSize        =   -1  'True
+      Caption         =   "Warning: This product is protected by copyright laws 2016"
+      ForeColor       =   &H00000000&
+      Height          =   195
+      Left            =   255
+      TabIndex        =   3
+      Top             =   2625
+      Width           =   4110
+   End
+End
+Attribute VB_Name = "frmAbout"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+
+' Reg Key Security Options...
+Const READ_CONTROL = &H20000
+Const KEY_QUERY_VALUE = &H1
+Const KEY_SET_VALUE = &H2
+Const KEY_CREATE_SUB_KEY = &H4
+Const KEY_ENUMERATE_SUB_KEYS = &H8
+Const KEY_NOTIFY = &H10
+Const KEY_CREATE_LINK = &H20
+Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _
+                       KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _
+                       KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL
+
+' Reg Key ROOT Types...
+Const HKEY_LOCAL_MACHINE = &H80000002
+Const ERROR_SUCCESS = 0
+Const REG_SZ = 1                         ' Unicode nul terminated string
+Const REG_DWORD = 4                      ' 32-bit number
+
+
+Private Sub cmdOk_Click()
+  Unload Me
+End Sub
+
+Private Sub Form_Load()
+    Me.Caption = "About " & App.Title
+    'lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
+    lblTitle.Caption = App.Title
+End Sub
+
diff --git a/frmAbout.frx b/frmAbout.frx
diff --git a/frmAccountProfile.frx b/frmAccountProfile.frx