first commit

This commit is contained in:
christianjesse.oreto 2024-12-12 05:48:13 +08:00
commit e51d51afac
713 changed files with 436609 additions and 0 deletions

1
.svn/entries Normal file
View File

@ -0,0 +1 @@
12

1
.svn/format Normal file
View File

@ -0,0 +1 @@
12

View File

@ -0,0 +1,227 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ts_new.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAwhJREFUOE+N03lI
k2EcB/A557HXY+/mdGrqPLd5tM10hZVRIEVT+yNNQSwlMtN/rDywLCtLOxQtO6g0y+ggqSCxJCOVNK2s
DPLO201nh3ik04l+ezcpws4f/P56nu/neXmf36NP+3vZUssWVIPqmX/s/bEs4XoYXAiINWyKz9Uf3Zuj
N7k1Q18plhtU0+i0OGoX8WfIkJEo201MZDWTuDHFQvEkiStfSVwc5yBPZYHoO2ws8WfWUIDoV8TYeP/6
01wUTXNQNEbi7CAbuQoTZA+YIKuXjbQua+wftEPcOzvYbSA6KMDxZ8RPGsKZK5rh4NJHFvKVJM4PsVGo
csDVYVdcVlnhrJKF9A88xHfyEVrNB+FO3KMAug4hRETJ4TYuCkZYON5ngcxec+T026FbXYnR2T6UforF
0V4jZPezkdJujcgOV3gm8+apqEybZ0pjzPoLvnJwpNsKye1sJLQysK/DCp81PdDW/eEkxLXQkNhugoOd
lohuccbq205gWBkmagF7eSYxcXrEEvFNPJzoCsBNZQJKhlIxNqvSAQ2jd1GsiMNVxU6ktDlje5M9/MsE
IKVEnhZwDD9JTGYM8bDlNRtlqnO60O9KM6dGUrMM4Y028CsTwnSZab4WsAxONfpyQGkDeZ01CnrSoZru
x/D0AGbnNTpnTDOCIXUvWsdfY0ejLwIb+JCWiMAUMDO1gJ50s9GbAwM2CKxzRVCtGCH1Ptj2ai0UUwv/
oLD7FIKfeyK03hfyWiHWvvSCS44LaAb0sIVbsKAnRz/gIqrNFbIKEaSP+VhXJcGwWqkD8tqPwaOchxVP
3LCy0gPeNd4wC+QOaL/++yyYO60zeruLGpKgNyJ4PPKCtNwXWc2ncKXrGiLqIiEso+AKMbxf+GBJqqP2
9KjF0+juspHZGvbUHpveu0P2TAynciEcHgogqFgKac0ySKq8YZvEB4NkHPrTe7Ah3QwLBXtMJ9dc52NV
qRuWl4oguSWE81FHmAdwmqhgxP+8Sk8Dgh5DSpjZLF/TM8ZOxmlUSE612eLwN9MQpbQE+6f/AAAAAElF
TkSuQmCC
</value>
</data>
<data name="ts_edit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAmdJREFUOE91k0to
E1EUhqdd6KKIG3XhSmwTWqwUwYU7V1KqBNy5EmqTggUhEG2yaB6LCEJ3QhcuFBEqNiDioiBFa5tY0dLn
pJkkbdrEpNYmTTJJp5PJ5DHze2dCa2diD/wM53DOd/97uNNCaeMmSS8RQVdvJXmAKK6r/0uv9fQ8m5jw
IfBtDrP+AGZm/Zj6PI1x3weMjr3CA7P5N+m+cRLgrN1uT4FEJl88UjpbwGZyF/PBDaRzBVit1t2TIBe8
Xm+CFyrY/pPRKLWTRjiWILUs8iUeNpstZ6TOvSGg7uNuzns8nrhYrSOdzWuUybJIEkicgDejSYTuvsYS
NQwT1b1KAGcOISqgKsnIscUmFTkRy7/28PHFJELUCAE8QV/r1WaARHawz/EocgdHKvAS+EIKsZ9erGwm
sfB8Gi8HRnGx67JTcwW32xNXlsgLZRyUhIbKJOeKqAdvATEKOyuP8COawPcgja6uK8MagMvtVgFlsQKh
LEKoAgK/jzrTB0QpYIVCLfKUdMhYYyIwdnY6NACnqwGo1mqo1IGKyEGKkGGGDK+2IL/sBcspHUCIYZoB
DqdLBdRlGbUqC3m9F6DJMN2CuP8x1sLbYAsNwhoThtFo1DpwOJ0qQIWwi0BQOZnC0uQA/HM0sjkWkqSs
mQBCDDqaAI4GoEausLcVQvjTEKbe3kdgbhl8SVQHZeJOiaAC6NA5sDtd6lMWBAH00jwWF2hsJfYOTWm+
kfUNtLe3jxxf4imTyTS/f1D674C+OP7Oh7a2tnv6H+t67+077wcfDs2YLZavivp1sgwOzvSbLV8MBoPy
iE4rgL8F11CPeKcziAAAAABJRU5ErkJggg==
</value>
</data>
<data name="ts_delete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAgtJREFUOE+Fk09I
VFEUxr/3ZyYVS2gQnJFACKmhIDBajLtZuMiNm2rRxtUgKm4UN7oIFEkmIypolduQoI3tWoSgUgRWpjA5
TWVOL7N0DEfJmTGP3xme4p8Ze/DjzZzzne/ce969Fo5/Akz7iJDMf7R76UvngEcRE7N3vfgz5MVGjw3n
qoExKlpJWVEjG+hqtpGeKYNkSyFbJyA5kiHLjD0pgYRMjNPg/BETL9ATpTBL0aYJSXHZK2SZ/CJLZM0D
maZx2EKcBjX7TUJNXvzboiDtFqqBsuqivxfV0ICMs8lZA89oYOZNai08nWPxX7ebdizEb8a/a44m3R5s
s/SK1pdGLCzkGPzJpOOKVFgIXYXy3IL4THSpwZlBA+lNBr+pezgsqx0dkmprO0h7u6RaWsTx+SRJ3SQb
XjZwTw1qhoAN3XuCrI+MyHGPU1cnX6l7TULAAzWo7ANW1hj4qIOLRiXnOJJLJo+QTSRkPhiUz9S9JBeB
ATUwrgFTOu05NamokHh1tcT9/oMEAhKvqpKYbedXMEw8wI38V+BZ7X7hTv4d3+/JdBFmGP9ErgMcBSp3
z8KpBuDtF3eQU3wXQk3nyW1SAjQfPo3BJiD2hskf7nY+uKvY7Rrj/35yGrhV7D74eZEed/KrjFI4QV4R
3d5DwgazLLxZ9DLtS1woByI8Znfqgfu1QC9zjeTk4eIdMg1ZuBkfONEAAAAASUVORK5CYII=
</value>
</data>
<data name="ts_revert.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAgxJREFUOE+lkvtL
U2EYx+0PEbtpFwnBKPGKiJImGP0gYhIYs1E5GF5gIxkpA00JRSmMEF0ohMh+GaRWYlqabMVcNdS2QpaI
VqiDIYhk397vA6fXhCjyhYdzeM/5fp7vczkAdeL2cwho7v/wWzT1zcN+Pwhr51uY2/y41PQaF+wzKKiZ
QvaN58g0jyLd5KEUcQbg+84P/Cm2tncQjW3j68YWIqubCC3FcOJc478BAuGoZM6zvoRnakXEruEIjhc4
/g5gZop9c+voGAyLbQIfeBZxLL9BA1jzXvuGbWamuKh+GmmVbswE19A59FEBbmoAG7YbsLtm2mZmiml9
cvabNDwpz6YB7LYBoMXCumkJr7LOmnnHzBQ/9X2Bo2cOibm1GsBREbAQiYmw/8lnuCeWkVzcgnZlnw1j
3HV/wuNXK6i/9x5Hc6wawDlTXHbLJ+LZUBQPRyKwdQdxutwl1h+NLXHh5Ht1ewBHsiwawCW57HyDAfWR
dvl0uhZQ1eqX8aVc7EKLqrum651ATLf9OJx5XQM4KmY0xPzZ0hFAiQJnXB0WwME0E3IsL5B17ZlADqWb
NYDrOepdlcysmTWWOrxqbceRWtaLk0VO1XW72D5Vckd2gMBfq8zdpmUG62NJvKM4+XyziDk24xmfWoGE
s1c0gHPmbrPTpHNJKOCo2G1mZs20zcwUJ5yp1AB5+8/zEwgF5GMVDxh4AAAAAElFTkSuQmCC
</value>
</data>
<data name="ts_save.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAqhJREFUOE+tk8tP
E0Ecxzlo/AM4eFMxhUYJgi1taXmWkoox0YMmRC6aEIiLEqEiWGhR1BgegQClFZAIJPiAIK9wMURxL4Zg
jFGjQpdnFVqRLnT7Alv6dbZA4CB48Zd8spmZnc/8ZuY3ISH/I45e7Am/1DTb2zL8g+4anqSf7EH3yAyt
77bSyit9erL2geD6mYbxwdYvwKIXJAJYD2AXyACJ1xbgxqNpRMYWnN8QGKfeltPAt3k3PE4HHI7dWIHX
7UTHOw9ymy2Iji+6FhSoKhn6cm8AHyxueF0cOG43HFj1uFD9xoVzlZM4JtNQQYHiPkOf7QxgbMZFBHtn
sEoyuP2Sg/IugwjJpkB8x0yrHq9jdMqJtX8I1rxOFA85EadnINgSROrMtNTkx/tZF+Bzwk9++jsc4Hej
YIDDiWIzwkSbGQi1Zlps9CGjg0X2syVkEbKfLyGHp2sDvp31lP/aoTQtI0ZrxuEtQQQRSE0+HK+yQ1jJ
IrxqBcJqQtUygUUE6RNUkH6CsMKOmBoW4pIdAiHZgrzJB1kDC2nNIuKrLUgzWKGqW0BawwLUjTaoDTYo
amyQ1tkhq2chKd0h4M8gocUHeaMDqbXfkV/WiKv5WnQPvML4zCLmbC7M//LgwYAVJ2vtUBhYxOl2CvQM
ndTqR7yJw2mjFTlXCyGPjcJgfw/WfXx5blRg84gdIiJIMK5AXsZsn0FUydex1DYg6aETZ0w2IiiCXBKN
/r4X+L22LWgiAkn9MlIMS0gk13hErMkLFlJ4Zo9OoZtA4r05pOk/I09Tj5ysIrS3DWFsdBqfPi5gcuIn
ytvNkJYySCaTozM6raEHT6VsPeb9h6LyLwhkt3LDRNcpWUIelZ6upZQqDZVMUKkLKXV6ISVSaCj+6gSx
N3NDQ5P5yfv+AM8zgls5SSYnAAAAAElFTkSuQmCC
</value>
</data>
<data name="ts_find.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAqZJREFUOE+Vk2lI
E2AYx/3g5jHaB/PYPDAdJBlUgn0RJiQpBEWWEGSgBcIsWhPPsjBvU1NTl0Z5Ek7zIJvhtUkzx3SZOnRu
MZ3u8phuklLZh+DfqxZo67AXHh6e9/3/f+9tZ/f3xnSkUh8HBQVtsENCwGKx5ER+/h+enWEanX4zOTnV
2i0exNDkDGRqHSTvFKipbQCbHdpFJMw/guh0OqewuAxixSxeKbSQakyQzRghUukgnJhF3+Awwk+Hywjg
wO8gPnFxcZb2YSWeT2gxZvmM6fWv2zH1cRMi3SrqZCrUC9rB8vNLtAEc9vdPrWh4gcIhNZq0q9vRPG9B
C4nmuZ3MV+jxdGAMsbFXt85kb4sIC+stE75FguQD8idNKJleRLlqCWUkF06ZcHfMgGixGjFtw4hPSf9k
Azh75pw8s1OKyz1TSBnVIWPCgEyFkWTjdn1jZA6RfSpEtY6Am3YfNoBT7FBxTtsALnUpyGx6FE8voEK9
BL56GY9Ui8gjq+JINOB0juI6j7dpA/B0ZyTdK6kGt1uBgnEDmuZW0WmwQmhcQ5vOgir1IrhiFQq6ZIi8
cHHyVwDFkUar43CTUflainypBq0zK5Aur2PEvIEewxoqxvUoeqNERhEfHh4eabsBFBeGlyCLDMgVKrS8
7AW/QwSh0gC5wYJxkxUDs2Y0kSvMKX+GgICjImJ2/gmguDF8BNkPq2BctkJrMiOGk4ATwcFm3u0sVNa3
orZFiGyytYjoa19cXZnVux+RvYubpyA9txTzCyswEUBe6RO4M30biegQiSgXhvcDhpdvJdWJxiP18T37
tqc4iq/EJ6F/6D2UGj0xV4OsppmIHPb1aRycnDWJmaVo7OjHrTu5IOewZabuy/xD5H3k2ElJYGDwN/pB
txrSR/kf83e2yZPbDoSo/QAAAABJRU5ErkJggg==
</value>
</data>
</root>

View File

@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xrml="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
<assemblyIdentity name="Kanban System.application" version="1.0.0.25" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" />
<description asmv2:publisher="Ionics EMS, Inc." asmv2:product="Kanban" xmlns="urn:schemas-microsoft-com:asm.v1" />
<deployment install="true" mapFileExtensions="true" />
<dependency>
<dependentAssembly dependencyType="install" codebase="Kanban System.exe.manifest" size="5966">
<assemblyIdentity name="Kanban System.exe" version="1.0.0.25" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>SjxQe2UzV3RB5Ps4UdOcEneq9bk=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
</asmv1:assembly>

View File

@ -0,0 +1,270 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class mainForm
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(mainForm))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
Me.TransactionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.MountingToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.CheckRequestsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.MaintenanceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.MachineToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.FileUploadToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.AdministrationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.UsersToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
Me.tsFirst = New System.Windows.Forms.ToolStripButton
Me.tsPrevious = New System.Windows.Forms.ToolStripButton
Me.tsNext = New System.Windows.Forms.ToolStripButton
Me.tsLast = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator
Me.tsFind = New System.Windows.Forms.ToolStripButton
Me.tsClose = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator19 = New System.Windows.Forms.ToolStripSeparator
Me.tsPreview = New System.Windows.Forms.ToolStripButton
Me.tsPrint = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator20 = New System.Windows.Forms.ToolStripSeparator
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TransactionsToolStripMenuItem, Me.MaintenanceToolStripMenuItem, Me.AdministrationToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(670, 24)
Me.MenuStrip1.TabIndex = 0
Me.MenuStrip1.Text = "MenuStrip1"
'
'TransactionsToolStripMenuItem
'
Me.TransactionsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MountingToolStripMenuItem, Me.CheckRequestsToolStripMenuItem, Me.ExitToolStripMenuItem})
Me.TransactionsToolStripMenuItem.Name = "TransactionsToolStripMenuItem"
Me.TransactionsToolStripMenuItem.Size = New System.Drawing.Size(80, 20)
Me.TransactionsToolStripMenuItem.Text = "Transactions"
'
'MountingToolStripMenuItem
'
Me.MountingToolStripMenuItem.Name = "MountingToolStripMenuItem"
Me.MountingToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
Me.MountingToolStripMenuItem.Text = "Mounting"
'
'CheckRequestsToolStripMenuItem
'
Me.CheckRequestsToolStripMenuItem.Name = "CheckRequestsToolStripMenuItem"
Me.CheckRequestsToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
Me.CheckRequestsToolStripMenuItem.Text = "Check Requests"
'
'ExitToolStripMenuItem
'
Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
Me.ExitToolStripMenuItem.Text = "Exit"
'
'MaintenanceToolStripMenuItem
'
Me.MaintenanceToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MachineToolStripMenuItem, Me.FileUploadToolStripMenuItem})
Me.MaintenanceToolStripMenuItem.Name = "MaintenanceToolStripMenuItem"
Me.MaintenanceToolStripMenuItem.Size = New System.Drawing.Size(80, 20)
Me.MaintenanceToolStripMenuItem.Text = "Maintenance"
'
'MachineToolStripMenuItem
'
Me.MachineToolStripMenuItem.Name = "MachineToolStripMenuItem"
Me.MachineToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
Me.MachineToolStripMenuItem.Text = "Machine"
'
'FileUploadToolStripMenuItem
'
Me.FileUploadToolStripMenuItem.Name = "FileUploadToolStripMenuItem"
Me.FileUploadToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
Me.FileUploadToolStripMenuItem.Text = "Mounting Sequence"
'
'AdministrationToolStripMenuItem
'
Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UsersToolStripMenuItem})
Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem"
Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(87, 20)
Me.AdministrationToolStripMenuItem.Text = "Administration"
'
'UsersToolStripMenuItem
'
Me.UsersToolStripMenuItem.Name = "UsersToolStripMenuItem"
Me.UsersToolStripMenuItem.Size = New System.Drawing.Size(112, 22)
Me.UsersToolStripMenuItem.Text = "Users"
'
'ToolStrip1
'
Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsFirst, Me.tsPrevious, Me.tsNext, Me.tsLast, Me.ToolStripSeparator1, Me.tsFind, Me.tsClose, Me.ToolStripSeparator19, Me.tsPreview, Me.tsPrint, Me.ToolStripSeparator20})
Me.ToolStrip1.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(670, 44)
Me.ToolStrip1.TabIndex = 9
Me.ToolStrip1.Text = "ToolStrip1"
'
'tsFirst
'
Me.tsFirst.Image = CType(resources.GetObject("tsFirst.Image"), System.Drawing.Image)
Me.tsFirst.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.tsFirst.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsFirst.Name = "tsFirst"
Me.tsFirst.Size = New System.Drawing.Size(32, 41)
Me.tsFirst.Text = "First"
Me.tsFirst.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'tsPrevious
'
Me.tsPrevious.Image = CType(resources.GetObject("tsPrevious.Image"), System.Drawing.Image)
Me.tsPrevious.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.tsPrevious.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsPrevious.Name = "tsPrevious"
Me.tsPrevious.Size = New System.Drawing.Size(52, 41)
Me.tsPrevious.Text = "Previous"
Me.tsPrevious.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'tsNext
'
Me.tsNext.Image = CType(resources.GetObject("tsNext.Image"), System.Drawing.Image)
Me.tsNext.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.tsNext.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsNext.Name = "tsNext"
Me.tsNext.Size = New System.Drawing.Size(34, 41)
Me.tsNext.Text = "Next"
Me.tsNext.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'tsLast
'
Me.tsLast.Image = CType(resources.GetObject("tsLast.Image"), System.Drawing.Image)
Me.tsLast.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.tsLast.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsLast.Name = "tsLast"
Me.tsLast.Size = New System.Drawing.Size(31, 41)
Me.tsLast.Text = "Last"
Me.tsLast.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 44)
'
'tsFind
'
Me.tsFind.Image = CType(resources.GetObject("tsFind.Image"), System.Drawing.Image)
Me.tsFind.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.tsFind.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsFind.Name = "tsFind"
Me.tsFind.Size = New System.Drawing.Size(31, 41)
Me.tsFind.Text = "Find"
Me.tsFind.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'tsClose
'
Me.tsClose.Image = CType(resources.GetObject("tsClose.Image"), System.Drawing.Image)
Me.tsClose.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.tsClose.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsClose.Name = "tsClose"
Me.tsClose.Size = New System.Drawing.Size(37, 41)
Me.tsClose.Text = "Close"
Me.tsClose.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripSeparator19
'
Me.ToolStripSeparator19.Name = "ToolStripSeparator19"
Me.ToolStripSeparator19.Size = New System.Drawing.Size(6, 44)
'
'tsPreview
'
Me.tsPreview.Image = CType(resources.GetObject("tsPreview.Image"), System.Drawing.Image)
Me.tsPreview.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.tsPreview.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsPreview.Name = "tsPreview"
Me.tsPreview.Size = New System.Drawing.Size(49, 41)
Me.tsPreview.Text = "Preview"
Me.tsPreview.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'tsPrint
'
Me.tsPrint.Enabled = False
Me.tsPrint.Image = CType(resources.GetObject("tsPrint.Image"), System.Drawing.Image)
Me.tsPrint.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.tsPrint.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsPrint.Name = "tsPrint"
Me.tsPrint.Size = New System.Drawing.Size(33, 41)
Me.tsPrint.Text = "Print"
Me.tsPrint.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripSeparator20
'
Me.ToolStripSeparator20.Name = "ToolStripSeparator20"
Me.ToolStripSeparator20.Size = New System.Drawing.Size(6, 44)
'
'mainForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(670, 528)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.IsMdiContainer = True
Me.MainMenuStrip = Me.MenuStrip1
Me.MaximizeBox = False
Me.Name = "mainForm"
Me.Text = "Mounting Sequence"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents MaintenanceToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FileUploadToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents tsFirst As System.Windows.Forms.ToolStripButton
Friend WithEvents tsPrevious As System.Windows.Forms.ToolStripButton
Friend WithEvents tsNext As System.Windows.Forms.ToolStripButton
Friend WithEvents tsLast As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents tsFind As System.Windows.Forms.ToolStripButton
Friend WithEvents tsClose As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator19 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents tsPreview As System.Windows.Forms.ToolStripButton
Friend WithEvents tsPrint As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator20 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents TransactionsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ExitToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents MountingToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents AdministrationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents UsersToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents MachineToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents CheckRequestsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
End Class

View File

@ -0,0 +1,121 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class uploadMcSeq
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(uploadMcSeq))
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.btn_cancel = New System.Windows.Forms.Button
Me.btn_upload = New System.Windows.Forms.Button
Me.btn_browse = New System.Windows.Forms.Button
Me.txtFName = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.btn_cancel)
Me.GroupBox1.Controls.Add(Me.btn_upload)
Me.GroupBox1.Controls.Add(Me.btn_browse)
Me.GroupBox1.Controls.Add(Me.txtFName)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Location = New System.Drawing.Point(0, 2)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(406, 96)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Choose File to Upload"
'
'btn_cancel
'
Me.btn_cancel.Location = New System.Drawing.Point(217, 61)
Me.btn_cancel.Name = "btn_cancel"
Me.btn_cancel.Size = New System.Drawing.Size(75, 23)
Me.btn_cancel.TabIndex = 4
Me.btn_cancel.Text = "Cancel"
Me.btn_cancel.UseVisualStyleBackColor = True
'
'btn_upload
'
Me.btn_upload.Location = New System.Drawing.Point(114, 61)
Me.btn_upload.Name = "btn_upload"
Me.btn_upload.Size = New System.Drawing.Size(75, 23)
Me.btn_upload.TabIndex = 3
Me.btn_upload.Text = "Upload File"
Me.btn_upload.UseVisualStyleBackColor = True
'
'btn_browse
'
Me.btn_browse.Image = CType(resources.GetObject("btn_browse.Image"), System.Drawing.Image)
Me.btn_browse.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btn_browse.Location = New System.Drawing.Point(359, 18)
Me.btn_browse.Name = "btn_browse"
Me.btn_browse.Size = New System.Drawing.Size(32, 32)
Me.btn_browse.TabIndex = 2
Me.btn_browse.UseVisualStyleBackColor = True
'
'txtFName
'
Me.txtFName.Location = New System.Drawing.Point(38, 25)
Me.txtFName.Name = "txtFName"
Me.txtFName.Size = New System.Drawing.Size(317, 20)
Me.txtFName.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 30)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(26, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "File:"
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'uploadMcSeq
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(405, 99)
Me.ControlBox = False
Me.Controls.Add(Me.GroupBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "uploadMcSeq"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "Upload Machine Sequence"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txtFName As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents btn_browse As System.Windows.Forms.Button
Friend WithEvents btn_cancel As System.Windows.Forms.Button
Friend WithEvents btn_upload As System.Windows.Forms.Button
End Class

View File

@ -0,0 +1,57 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="Mounting_Sequence.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<connectionStrings>
<add name="Mounting_Sequence.My.MySettings.EpsonConnectionString"
connectionString="Data Source=192.168.1.50;Initial Catalog=Epson;Persist Security Info=True;User ID=cats;Password=dogs"
providerName="System.Data.SqlClient" />
</connectionStrings>
<system.diagnostics>
<sources>
<!-- This section defines the logging configuration for My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Uncomment the below section to write to the Application Event Log -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
</switches>
<sharedListeners>
<add name="FileLog"
type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
initializeData="FileLogWriter"/>
<!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<userSettings>
<Mounting_Sequence.My.MySettings>
<setting name="server" serializeAs="String">
<value>192.168.1.50</value>
</setting>
<setting name="database" serializeAs="String">
<value>Epson</value>
</setting>
<setting name="username" serializeAs="String">
<value />
</setting>
<setting name="password" serializeAs="String">
<value />
</setting>
<setting name="dbserver" serializeAs="String">
<value>SQL Server</value>
</setting>
<setting name="isTrusted" serializeAs="String">
<value>True</value>
</setting>
</Mounting_Sequence.My.MySettings>
</userSettings>
</configuration>

View File

@ -0,0 +1,339 @@
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Text
Public Class userForm
Private cnstr = mainForm.cnstr
Private conn As New SqlConnection(cnstr)
Private myQuery As String = String.Empty
Private myCommand As SqlCommand
Private adapter As SqlDataAdapter = New SqlDataAdapter()
Private ds As New DataSet("Users")
Private i, limit As Integer
Private oldUserName As String = String.Empty
Private addMode, editMode As Integer
Private Sub users_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.MdiParent = mainForm
Control.CheckForIllegalCrossThreadCalls = False
Me.Top = 0
Me.Left = 0
fillDataSet()
disableControls()
moveFirst()
addMode = 0
editMode = 0
btn_find.Visible = False
End Sub
Private Sub enableControls()
txtUsername.Enabled = True
txtPassword.Enabled = True
txtPassword2.Enabled = True
txtEmployeeCode.Enabled = True
cmb_userType.Enabled = True
cbActive.Enabled = True
End Sub
Private Sub disableControls()
txtUsername.Enabled = False
txtPassword.Enabled = False
txtPassword2.Enabled = False
txtEmployeeCode.Enabled = False
cmb_userType.Enabled = False
cbActive.Enabled = False
End Sub
Private Sub clear()
txtUsername.Text = String.Empty
txtPassword.Text = String.Empty
txtPassword2.Text = String.Empty
cmb_userType.SelectedIndex = 0
cbActive.Checked = False
End Sub
Public Sub toNormalMode()
ts_new.Enabled = True
ts_edit.Enabled = True
ts_delete.Enabled = True
ts_find.Enabled = True
ts_revert.Enabled = False
ts_save.Enabled = False
disableControls()
End Sub
Public Sub toEditMode()
ts_new.Enabled = False
ts_edit.Enabled = False
ts_delete.Enabled = False
ts_find.Enabled = False
ts_revert.Enabled = True
ts_save.Enabled = True
enableControls()
End Sub
Public Sub toAddMode()
ts_new.Enabled = False
ts_edit.Enabled = False
ts_delete.Enabled = False
ts_find.Enabled = False
ts_revert.Enabled = True
ts_save.Enabled = True
enableControls()
End Sub
Public Sub toSearchMode()
ts_new.Enabled = False
ts_edit.Enabled = False
ts_delete.Enabled = False
ts_find.Enabled = True
ts_revert.Enabled = False
ts_save.Enabled = False
End Sub
Private Sub fillDataSet()
Dim conn As New SqlConnection(cnstr)
myQuery = "SELECT * FROM Users ORDER BY username"
myCommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
adapter.SelectCommand = myCommand
ds.Clear()
adapter.Fill(ds)
i = 0
limit = ds.Tables(0).Rows.Count - 1
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
Private Sub trace(ByVal username As String)
Dim j As Integer = 0
For j = 0 To ds.Tables(0).Rows.Count - 1
If ds.Tables(0).Rows(j).Item("username") = username Then
txtUsername.Text = ds.Tables(0).Rows(j).Item("username")
txtPassword.Text = ds.Tables(0).Rows(j).Item("password")
txtPassword2.Text = ds.Tables(0).Rows(j).Item("password")
txtEmployeeCode.Text = ds.Tables(0).Rows(j).Item("employeecode")
cmb_userType.SelectedIndex = cmb_userType.Items.IndexOf(ds.Tables(0).Rows(j).Item("authentication"))
If ds.Tables(0).Rows(j).Item("active") = 1 Then
cbActive.Checked = True
Else
cbActive.Checked = False
End If
i = j
Exit For
End If
Next
End Sub
Public Sub moveFirst()
If ds.Tables(0).Rows.Count <> 0 And limit > -1 Then
i = 0
txtUsername.Text = ds.Tables(0).Rows(i).Item("username")
oldUserName = ds.Tables(0).Rows(i).Item("username")
txtPassword.Text = ds.Tables(0).Rows(i).Item("password")
txtPassword2.Text = ds.Tables(0).Rows(i).Item("password")
txtEmployeeCode.Text = ds.Tables(0).Rows(i).Item("employeecode")
cmb_userType.SelectedItem = ds.Tables(0).Rows(i).Item("authentication")
If ds.Tables(0).Rows(i).Item("active") = 1 Then
cbActive.Checked = True
Else
cbActive.Checked = False
End If
Else
clear()
End If
End Sub
Public Sub moveNext()
If i < limit And limit > -1 Then
i = i + 1
txtUsername.Text = ds.Tables(0).Rows(i).Item("username")
oldUserName = ds.Tables(0).Rows(i).Item("username")
txtPassword.Text = ds.Tables(0).Rows(i).Item("password")
txtPassword2.Text = ds.Tables(0).Rows(i).Item("password")
txtEmployeeCode.Text = ds.Tables(0).Rows(i).Item("employeecode")
cmb_userType.SelectedItem = ds.Tables(0).Rows(i).Item("authentication")
If ds.Tables(0).Rows(i).Item("active") = 1 Then
cbActive.Checked = True
Else
cbActive.Checked = False
End If
End If
End Sub
Public Sub movePrevious()
If i <> 0 And limit > -1 Then
i = i - 1
txtUsername.Text = ds.Tables(0).Rows(i).Item("username")
oldUserName = ds.Tables(0).Rows(i).Item("username")
txtPassword.Text = ds.Tables(0).Rows(i).Item("password")
txtPassword2.Text = ds.Tables(0).Rows(i).Item("password")
txtEmployeeCode.Text = ds.Tables(0).Rows(i).Item("employeecode")
cmb_userType.SelectedItem = ds.Tables(0).Rows(i).Item("authentication")
If ds.Tables(0).Rows(i).Item("active") = 1 Then
cbActive.Checked = True
Else
cbActive.Checked = False
End If
End If
End Sub
Public Sub moveLast()
If limit > -1 Then
i = limit
txtUsername.Text = ds.Tables(0).Rows(i).Item("username")
oldUserName = ds.Tables(0).Rows(i).Item("username")
txtPassword.Text = ds.Tables(0).Rows(i).Item("password")
txtPassword2.Text = ds.Tables(0).Rows(i).Item("password")
txtEmployeeCode.Text = ds.Tables(0).Rows(i).Item("employeecode")
cmb_userType.SelectedItem = ds.Tables(0).Rows(i).Item("authentication")
If ds.Tables(0).Rows(i).Item("active") = 1 Then
cbActive.Checked = True
Else
cbActive.Checked = False
End If
Else
clear()
End If
End Sub
Public Sub add()
clear()
addMode = 1
editMode = 0
toAddMode()
End Sub
Public Sub edit()
oldUserName = txtUserName.Text
editMode = 1
addMode = 0
toEditMode()
End Sub
Public Sub save()
Dim user As New User(txtUsername.Text)
If addMode Or editMode Then
If txtPassword.Text = txtPassword2.Text Then
If addMode Then
user.add(txtUsername.Text, txtPassword.Text, txtEmployeeCode.Text, cmb_userType.SelectedItem, cbActive.Checked)
ElseIf editMode Then
user.edit(txtUsername.Text, txtPassword.Text, txtEmployeeCode.Text, cmb_userType.SelectedItem, cbActive.Checked)
End If
fillDataSet()
If ds.Tables(0).Rows.Count <> 0 Then
oldUserName = txtUsername.Text
trace(oldUserName)
End If
disableControls()
addMode = 0
editMode = 0
toNormalMode()
Else
MessageBox.Show("Passwords do not match", "User", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End If
End Sub
Public Sub delete()
If txtUserName.Text <> "" Then
If MessageBox.Show("Are you sure you want to delete?", "System User", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes And txtUserName.Text <> "" Then
Dim user As New User(txtUserName.Text)
user.delete(txtUserName.Text)
fillDataSet()
moveFirst()
End If
End If
End Sub
Public Sub revert()
If (editMode Or addMode) Then
disableControls()
clear()
If oldUserName <> "" Then
retrieve(oldUserName)
End If
toNormalMode()
End If
End Sub
Public Sub find()
txtUsername.Enabled = True
txtUserName.Text = String.Empty
txtPassword.Text = String.Empty
cmb_userType.SelectedIndex = 0
cbActive.Visible = False
btn_find.Visible = True
toSearchMode()
End Sub
Private Sub retrieve(ByVal username As String)
fillDataSet()
trace(username)
txtUsername.Enabled = False
cbActive.Visible = True
btn_find.Visible = False
toNormalMode()
End Sub
Private Sub ts_new_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts_new.Click
add()
End Sub
Private Sub ts_edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts_edit.Click
edit()
End Sub
Private Sub ts_delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts_delete.Click
delete()
End Sub
Private Sub ts_find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts_find.Click
find()
End Sub
Private Sub ts_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts_save.Click
save()
End Sub
Private Sub ts_revert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts_revert.Click
revert()
End Sub
Private Sub btn_find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_find.Click
oldUserName = txtUsername.Text
retrieve(oldUserName)
End Sub
Private Sub txtUsername_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtUsername.KeyUp
If e.KeyCode = Keys.Enter Then
oldUserName = txtUsername.Text
retrieve(oldUserName)
End If
End Sub
Private Sub ts_close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Private Sub cbActive_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbActive.CheckedChanged
End Sub
End Class

View File

@ -0,0 +1,24 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="server" Type="System.String" Scope="User">
<Value Profile="(Default)">192.168.1.5</Value>
</Setting>
<Setting Name="database" Type="System.String" Scope="User">
<Value Profile="(Default)">Kanban</Value>
</Setting>
<Setting Name="username" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="password" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="dbserver" Type="System.String" Scope="User">
<Value Profile="(Default)">SQL Server</Value>
</Setting>
<Setting Name="isTrusted" Type="System.String" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
</Settings>
</SettingsFile>

View File

@ -0,0 +1,260 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="menu.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ts_first.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAStJREFUOE9jYBg0
oHDW8/9NC57/z5z4+D8uR4W3P8Apx5A789n/VUfe/8elKL77wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+
///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0v3f1BxRFoa33wJpb1wFt7/z73yX/AG4D
Apsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvgUXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF
7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbAIu/O/9T+11gVGSSd+C+b9vW/bvA83AYY
Zt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPulf8gBXgVDZqMh+wQAPB2wKsSwCgmAAAA
AElFTkSuQmCC
</value>
</data>
<data name="ts_prev.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAL1JREFUOE9jYBgy
ILz9wX+yHRvf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3v
kn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ14A0ChbVd8+3/6nN///bu+/dcpfPffImE9aQaADNFP
Of/fpOjFf5WsT/+NI5eRbgDIEIOkE/9l077+1w2eR54BYJekXv6v4TuNfANAhqh4TKDMALKTMc01AgDQ
FGCYkuTLEQAAAABJRU5ErkJggg==
</value>
</data>
<data name="ts_next.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKtJREFUOE9jYBh0
oHDW8/8UOSp35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78n73v1//OrX//u5VeJt2QyK5H/6ds+/W/
ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuIN8Sj6v7/krnv4JoVXXqI1wyKPvvSu/8D
W56BbSZZM8gAi7w7/20KrpCnGWSAYdZt8jWDDNBJu0GanylKtoNCMwCgfl+gC2KedgAAAABJRU5ErkJg
gg==
</value>
</data>
<data name="ts_last.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAATBJREFUOE9jYBhU
oHDW8/+4HASSa1rw/H/mxMc41TDkznz2P6H7HlYFILlVR97/D29/gNuAjClP/8/b//t/QtcdDEUguYX7
PvwPbriG24CEnif/Z+/79b9z69//bqWXURSC5KZtef/fv/oCbgMiux79n7Lt1/+SpX//J0z/+98m9yxc
MUiud/WH/16lJ3AbENj88H/r2vdgzcYlX/5LR1/7bxy5DKwBJFc3/91/l/wDuA3wqLr/v2TuO7hmRZce
uGKQXP60N//tM7bjNsC+9O7/wJZnYJuRNYNcAJLLnvz6v0XCetwGWOTd+W9TcAVDM8gAkFxq/2u4l7Cm
F8Os21g1gxSD5MJaXv7XDZ6H2wU6aTdwSoLk/Kof/tfwnYbbAHz5yin3yn8VjwlgPKjyHwMAvtG/s0Vm
x8MAAAAASUVORK5CYII=
</value>
</data>
<data name="ts_new.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAU1JREFUOE9jYBi0
4O4C9v+35nH+vzqH6//FGbz/SXbodaDGP48a//952PD/5GQB0g04P50XbsDBHhHSDTg+SRBoe93/Pw+q
/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B/
/nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ/5NyNDENONQrDHbu3/ulQI0FQI3ZQI2p
QI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vAzpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/
O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAN6QgH5898NfyD2+9+arE+6Ad3pumD/gnB9nBHpBrQk
GfxviDf8XxNr/L8y2oR0A0hO++RqAAAkI9ieo+gjUwAAAABJRU5ErkJggg==
</value>
</data>
<data name="ts_delete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAW9JREFUOE+tkk0o
w3EYx3dV3kq5uKBWDiPT8hISMiQsMiEyQ9qBg0hoFwcHUi7kgIvkQFJSTrQ4zdvmrTW1/kuT0i74x+X3
MRal/fEnv8tz+H2fz/N8vz0azX88PG6wmcDp4E881hYR3VUIixF2Nr+FcO2DlbnPGjaWoM+M6DAiOitg
YUoR8rqhsJTBWG/kP6fOMKTegGjKh/7mTyIx0oUw58C0/XubLM8iKtPeQIx2gfcMJgbD0FBVlRE+D7QU
hS2ZshANuTDQqq75fQIHe6GVcxHV6VCr/2VzQIKmAshOQNbHc6+PhTqDOggBP5jzoDCJoLUaLo7fwr3V
hSCr8z8EeHcLbSU8FCfjLU0nuL/70cB4Py5tDLL7UBnC8xMMW6EkhRNdIsGt9QjhTXkGUnsN8rVf4Q72
tpFzEnGlRiH1NIL8qDjJoY1DdjkVADNjSGnReI2ZIF196VW22+D8SAFw6YLJITjaV5e2qotSIXoBiiMD
HEVvQ/IAAAAASUVORK5CYII=
</value>
</data>
<data name="ts_save.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIsSURBVDhPrZPdS5NxFMf3L3TfTdBFtzU1hmuxGjzlHMqq
YVgRvT2RL+XSZZqoWJlGLV8gW+HSScvpJJxU+AamSI2hTCVLM1e0xKGm2EQw+PY7v+j5tTIvoh+cy8/n
POec76NS/Y/37GkUVL72ZbR5l/DYvYDGhgjuO2ZQW/MJ9tsh3CifQmnJBAoLXiMvdxQXzgeh9Cawtweo
qV7FRm9ldQ3GtF4cTnvCSxF4Wxe5oLLiy195giMLK9htfg61WoblkEcI3I/muaC05PO6gp/w+/Ai4kw+
FFyexgFzkxA462e54JLt3R+CX+GRyQi2SV5Yc8aRmuIUgrq7YS7IzhqNEfwODwbD2Kx3Q5YDMJkcQlBd
9ZEL5DMBRbAe3OP/gE2JDThy9AWSkmqF4GblNLq7wE4JHD/5CpZjA3zbtDCamT6bOv+A+3DQ0glJsgvB
1bJJdPjAMgA0ub6xu39F+fU5vlRaGM2cmRFU4OTUdhgMFUJwpXAcnmbgoXONBScKY3pOTJlP2JB+roh3
Tk5h8H4P9PoyIbDljTEYqLoT5Z1JwEKCOK2EobezGJuag5x7DXuNbRzW7nFBpysSAoql4x6UzyYBwWfz
b+FNaB6hmSVcLLYjXu9icCPidz2ANjFfCDIzhtncy3zmrQYPtuyQ0NLRD1/XILr7/Bh4OYR9JgvUunok
MHi7pg4ajVUIKNOnT/XzeFLCKCR0ZzoVbZsWRjNTVyqCdyZkxwr+9a/+Dk60OMVjMFpXAAAAAElFTkSu
QmCC
</value>
</data>
<data name="ts_edit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJjSURBVDhPdZNLaBNRFIanLnRRxI26cNk0ocVKEVy4cyWl
SsCdKzU2CVgQAtEmi06SRQShu4ILF4oIFVsQcVGQorVNjWjoI81jkj4Tk1qbNsnkNZk8Z37vTGjpTOyB
n8u5nP+75x7upShl3CDpA6L7KhlI3qWqVaZX+/ufT05OYeG7F/OeBczNezDzZRYTUx8x9uI1HhqNf4jj
+kmQczabLQkS+9n8kVLpHLYSe/AFN5DK5GCxWPZOglx0u91xjq9h5+++QsndFCKbcbKXRrbMwWq1ZnTU
+bcE1He8mwsulytWrTeRSmcV2k+zSBBIjIC31hII33mDZWoEeqpvlQDOHkJkQF0QkWHzbcoXq1j5fYBP
L6cRpkYJ4CkGT11pBwhkBoUih3yxdKQcJ4DLJbH5yw3/VgKL47N4NTSGS71dtOIKTqcrJg2R4ysolfmW
KiQv5tEM3gQ2Kez6H+PnWhw/ggH09l4eUQAcTqcMqFRr4CtV8HWA5wpoMoPAGgX4KTSiz0iFiBATha6n
x64A0I4WoN5ooNYEatUihCgxM8S82oHsihtsUaoAwgzTDrDTDhnQFEU06izE9QEgQMyBDsQ8TxCK7IDN
tQghJgKdTqfswE7TMkCGsEtAUDqZwvL0EDzeANIZFoIgjZkAwgy62wD2FqBBrnCwHUbk8zBm3t3DgncF
XLkqG0XSnRRBCdCt6sBGO+SnzPM8Ass+LC0GsB0/OGxKsUbXN6DRaEaPD/G0Xq/3FUrl/xrUmxPvp9DZ
2XlX/bGuDdy6/cH8aHjOaDJ9k2RQyWQ2zxmMpq9arVZ6RGckwD94hVAmzojWQQAAAABJRU5ErkJggg==
</value>
</data>
<data name="ts_revert.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYeSURBVGhD7VnfT1NnGNaBzPkLJoJuAtMty66WLSPZbsnC
zUi2OdQMGtnWVKJLw0btXAZnhERPTJATsljCbDmaoC0XQHEpsivQG6+kJF54MRIi8QK57x/A2fu8fT/2
wcroKWcJJiV5856efuc7z/P+/squXcW/ogWKFiha4KWzgOM4u0lKScpWV1dfJb2H5JWXggiACuhy0tUk
R+leBcneHU+CAJYQ4NdIqsbvjTcEvgn85Wv1OUaX8bOQKN2RXpCQKSG9j+RYwk6cbmlpyQT8ASd8OewY
YWMOnoBndhwBLd4PEMDj3b929wB88PugY123nMEbg441YKXxHcJoRxEQ8HsI3CG6rjN+MSxfm88Jh8JZ
8EODjn3bdiJDkTR9f0LWlSG5/0OQ8CgA8Oju/40wElJAvE7ATgYvBlOIdwY/8A94O2Y7pmnCA++T1Eoo
IZw2k2ra9wgJ9j2InPK8ign4vbR55fz8fL3f51+A5SlZGbw9ZLPlIQihzs7O5avG1Wjop1A0FNpaLoUu
/d4/0P/t3NzcR/SOGiF0wBMiGvgqO2qf8vl8DN68YmbBk8UVeNbwwDXTCXYEHSQ11m6p27Lr4FEYB3kl
IVgpHik8vCQ+K2Kx2Jeq0qwDDwKKhK7JK9YNi0kiP7bUtIaJUzHw+Yl0W2DZsqzviMCbhAHeQJ64zxGU
QsQvg28P8EvWYp4AD8YocRUJTfN9IsGJLRrXWwqqGJGBB7lAdIRvSi4dBAnXSa4I9Pb2ZhDfLAC1EWwO
MpuRy0VY3VN7Q5s9Joef/6I/hdwg2e+6u6sQmp2d/WJkZGQ5cSfB4HVLbmbpXJbX7238nj+T53SvweMg
gbyQUQWzVv6hBMbihcoXz1/Ux8fiC4nRf5NQhFQ+gGhiLOEkR5PrNJ5NjtE90vie9e3N94PHjR7DCbQE
MuPj4w2Ep9x1KCkSqNVLS0sfJpPJVC5P4GWwIjw1PT0dnZmZyUto7cPkJJFS3pUwVeEKjZwIBoMIJSQ1
BsX8vYDEwQNSlzF1vjWdmo6ue6HKD9LoxC4a2RvYb2Vl5RNlGPamth+uVYWaujfVIB2+xHVCC4lS6Zg1
ZLkeRQIlU+Ygx+wz8x4lEJ607z7Sh0m/fXf0boobopDgfQeyhDAoUpfvp7VVMKZrAponMEajIhx79PjR
aYrjjOrCKIEySuQ9zGneraB937Vv2mkQ4HJN4FU/Qf8hEvAuh1FBBNRDtMHaWSD9JP1pPE7JLTHc/1s/
xmnMOGX5vkRI4ER3lIzRy8DRBDVBGHV3dS/T2jp06Hz33nSdVqEOP1t49sHExMQfY5Njjyk/vpY4ddV4
ZGypeLrw9GNUHu7gulyzeP6ivU8iArZNQAspWA6TJGYXCMZtjNCuzsVCAEXiPUy53PU1AuZ1k0uqpwT0
vJAqpeZ7V+BlHxSIytit2Bk0L8Q8QHNeKU336O8EEt8TD3i1iVgf1ajWf96fUBMvvMCeoPBhb/TxaQ9j
xfZzwAvwqjTDoqhqNLKfbWxs5CMqwoUJwBPQ8EKflcI6NwViHU6xFMIE3RAW21+o0PM4Vx+SvKkF+Oav
mhd8Z2kKRc0HcCWSD/E78R+kZ7gqEExCVR3SqNfcQdF8ChV6/h3U/dhg7EzrudYELE8EeGxAtdEJSDKj
hOKs7X4qVUlGG5TTMfECXtb0WZPjmXzehEPMGniEj3GFSNBIrc4gw7eGcVLD+Tnv/rIxfFAuqwPnAg+a
W8lS7TRgUaxuSzCkYQ/SKJ2wPINH/BN4kEAziwzwLx1oYIVZXzyAg/1xf7s/jZciTsNdJPgxi16sPhuX
6drNfYBWIuAVAenEmcXFxXqELon72NfGBxCoIcung6FsnCprea3VuTsSiWRmHs6ckkR3d5jZWCZReeAB
sn56zd2KhEdaxTyGOZqt0ovPF+s18K6bY84cCP8YfsBhA3frri/wmq2NRkWjM050ciBCwtZJxYPltwde
r0LD0eELcC0fG3Ek3K5kj5/pqcmpxP0/73dIeT4iCVvYzym5uqzXfQD9A4OZ1HaMB/jfAn5iRKVxPQzm
NRl42YlVB5cxAp0doL2zeF6MiouKFihaoGiBogU0C/wN26gmMETMgssAAAAASUVORK5CYII=
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>25</value>
</metadata>
</root>

View File

@ -0,0 +1,72 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly manifestVersion="1.0" xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1">
<asmv1:assemblyIdentity version="1.0.0.10" name="Kanban System.exe" publicKeyToken="23135af9664d69f7" language="neutral" processorArchitecture="msil" type="win32" />
<application />
<entryPoint>
<assemblyIdentity name="Kanban System" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<commandLine file="Kanban System.exe" parameters="" />
</entryPoint>
<trustInfo>
<security>
<applicationRequestMinimum>
<PermissionSet Unrestricted="true" ID="Custom" SameSite="site" />
<defaultAssemblyRequest permissionSetReference="Custom" />
</applicationRequestMinimum>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- UAC Manifest Options
If you want to change the Windows User Account Control level replace the
requestedExecutionLevel node with one of the following.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Specifying requestedExecutionLevel node will disable file and registry virtualization.
If you want to utilize File and Registry Virtualization for backward
compatibility then delete the requestedExecutionLevel node.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<dependency>
<dependentOS>
<osVersionInfo>
<os majorVersion="4" minorVersion="10" buildNumber="0" servicePackMajor="0" />
</osVersionInfo>
</dependentOS>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Microsoft.Windows.CommonLanguageRuntime" version="2.0.50727.0" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Kanban System.exe" size="613376">
<assemblyIdentity name="Kanban System" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>koFkwzm70FCls89i0qxJ0TqdH+Y=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<file name="Kanban System.exe.config" size="2658">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>Zq+cvR5a4nDEanFdKCQM30cZ5v8=</dsig:DigestValue>
</hash>
</file>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- A list of all Windows versions that this application is designed to work with. Windows will automatically select the most compatible environment.-->
<!-- If your application is designed to work with Windows 7, uncomment the following supportedOS node-->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>-->
</application>
</compatibility>
<publisherIdentity name="CN=IONICS\charlie.gerodias" issuerKeyHash="709f262409d189ec19f7b1912bfef9069d56bffe" /><Signature Id="StrongNameSignature" xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Reference URI=""><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue>bbvlQHWW8DE6eYyojDlLTQnQe/Q=</DigestValue></Reference></SignedInfo><SignatureValue>Kmvles442+ax00bRGMmBzSS1meHqnghRS6romcffFeuuor9ibGX6Pjh31wNLPj1V5xKp8kjl2XWdHPzFrJ5xGJMOLOraYiiXwL3/IKT12WyXKpWr0IM9Can/LKZSKhjrGhbmA+brh03JcDUkDl9Fl9z64yzmR3AFjRQeTdRjsPA=</SignatureValue><KeyInfo Id="StrongNameKeyInfo"><KeyValue><RSAKeyValue><Modulus>5BtbQSO8rPhmsTRH0Y26M53ZThJ+nUjuYoDnqiBgV/PdnZeJjGQ2bs5ALzWb/bAqFZZn0tBRWuiBSpvj6OT3WPtU5ST0CVdC+ZpFABwD72Qu6Aub9ZFRuwCj1+pB5EziuW2Ut8ABCzpame3lfeNzoErWb41ywrkQoHBFEtBYXE8=</Modulus><Exponent>AQAB</Exponent></RSAKeyValue></KeyValue><msrel:RelData xmlns:msrel="http://schemas.microsoft.com/windows/rel/2005/reldata"><r:license xmlns:r="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:as="http://schemas.microsoft.com/windows/pki/2005/Authenticode"><r:grant><as:ManifestInformation Hash="f47bd0094d4b398ca88c793a31f0967540e5bb6d" Description="" Url=""><as:assemblyIdentity version="1.0.0.10" name="Kanban System.exe" publicKeyToken="23135af9664d69f7" language="neutral" processorArchitecture="msil" type="win32" /></as:ManifestInformation><as:SignedBy /><as:AuthenticodePublisher><as:X509SubjectName>CN=IONICS\charlie.gerodias</as:X509SubjectName></as:AuthenticodePublisher></r:grant><r:issuer><Signature Id="AuthenticodeSignature" xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Reference URI=""><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue>oVtTrN6FhgptxAb/eCQpjVhaxZk=</DigestValue></Reference></SignedInfo><SignatureValue>rGvBXmtPCFTB8FDVxRGORgmKMyXmNKoAFiyt9Z163tpcEEs2xlFAf9je29Xw5Uno77WsmHDrnc08xiRTRA59yNBlBcgr8T0XZWbMq5xZlno58hQ9W8PirKSzENKKOfIIYZPyOR+XcOZVl0gXScF0h/RSZStDL6DcSVZUB/hbDsM=</SignatureValue><KeyInfo><KeyValue><RSAKeyValue><Modulus>5BtbQSO8rPhmsTRH0Y26M53ZThJ+nUjuYoDnqiBgV/PdnZeJjGQ2bs5ALzWb/bAqFZZn0tBRWuiBSpvj6OT3WPtU5ST0CVdC+ZpFABwD72Qu6Aub9ZFRuwCj1+pB5EziuW2Ut8ABCzpame3lfeNzoErWb41ywrkQoHBFEtBYXE8=</Modulus><Exponent>AQAB</Exponent></RSAKeyValue></KeyValue><X509Data><X509Certificate>MIIB7TCCAVqgAwIBAgIQeTxnQVX6FpVBogp+Ii3SnjAJBgUrDgMCHQUAMDkxNzA1BgNVBAMeLgBJAE8ATgBJAEMAUwBcAGMAaABhAHIAbABpAGUALgBnAGUAcgBvAGQAaQBhAHMwHhcNMTMwNTMwMDkzODA1WhcNMTQwNTMwMTUzODA1WjA5MTcwNQYDVQQDHi4ASQBPAE4ASQBDAFMAXABjAGgAYQByAGwAaQBlAC4AZwBlAHIAbwBkAGkAYQBzMIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDkG1tBI7ys+GaxNEfRjbozndlOEn6dSO5igOeqIGBX892dl4mMZDZuzkAvNZv9sCoVlmfS0FFa6IFKm+Po5PdY+1TlJPQJV0L5mkUAHAPvZC7oC5v1kVG7AKPX6kHkTOK5bZS3wAELOlqZ7eV943OgStZvjXLCuRCgcEUS0FhcTwIDAQABMAkGBSsOAwIdBQADgYEAtDfGKCa7lgB6c43lZX63ZN1gBgUlbWaPkZRFAtSkIJNoEbfydq8eriGeO01/73IFrCUZhIdSEXi7PRcEKp4oDSlCKbrJsF0m5aOAWKrJS0DFPC1oqTiTlV5ZdqU279ZAOm2AeR90jKNm3AHjImyb+ZGKEQQKZ0HH16OthENpZ4I=</X509Certificate></X509Data></KeyInfo></Signature></r:issuer></r:license></msrel:RelData></KeyInfo></Signature></asmv1:assembly>

View File

@ -0,0 +1,88 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class PPInventoryForm
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.dg_inventory = New System.Windows.Forms.DataGridView()
Me.GroupBox2.SuspendLayout()
CType(Me.dg_inventory, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Timer1
'
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.dg_inventory)
Me.GroupBox2.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox2.Location = New System.Drawing.Point(6, 3)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(752, 587)
Me.GroupBox2.TabIndex = 4
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Inventory Part Number"
'
'dg_inventory
'
Me.dg_inventory.AllowUserToAddRows = False
Me.dg_inventory.AllowUserToDeleteRows = False
Me.dg_inventory.AllowUserToResizeColumns = False
Me.dg_inventory.AllowUserToResizeRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.InactiveCaptionText
Me.dg_inventory.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.dg_inventory.BackgroundColor = System.Drawing.SystemColors.Control
Me.dg_inventory.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.dg_inventory.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dg_inventory.GridColor = System.Drawing.Color.SteelBlue
Me.dg_inventory.Location = New System.Drawing.Point(6, 15)
Me.dg_inventory.Name = "dg_inventory"
Me.dg_inventory.RowHeadersVisible = False
Me.dg_inventory.RowHeadersWidth = 20
Me.dg_inventory.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
Me.dg_inventory.Size = New System.Drawing.Size(740, 566)
Me.dg_inventory.TabIndex = 17
'
'PPInventoryForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(764, 594)
Me.ControlBox = False
Me.Controls.Add(Me.GroupBox2)
Me.Font = New System.Drawing.Font("Calibri", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "PPInventoryForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "Parts Preparation Inventory"
Me.GroupBox2.ResumeLayout(False)
CType(Me.dg_inventory, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents dg_inventory As System.Windows.Forms.DataGridView
End Class

View File

@ -0,0 +1,163 @@
<HTML>
<HEAD>
<TITLE>Kanban</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
<STYLE TYPE="text/css">
<!--
BODY{margin-top:20px; margin-left:20px; margin-right:20px; color:#000000; font-family:Tahoma; background-color:white}
A:link {font-weight:normal; color:#000066; text-decoration:none}
A:visited {font-weight:normal; color:#000066; text-decoration:none}
A:active {font-weight:normal; text-decoration:none}
A:hover {font-weight:normal; color:#FF6600; text-decoration:none}
P {margin-top:0px; margin-bottom:12px; color:#000000; font-family:Tahoma}
PRE {border-right:#f0f0e0 1px solid; padding-right:5px; border-top:#f0f0e0 1px solid; margin-top:-5px; padding-left:5px; font-size:x-small; padding-bottom:5px; border-left:#f0f0e0 1px solid; padding-top:5px; border-bottom:#f0f0e0 1px solid; font-family:Courier New; background-color:#e5e5cc}
TD {font-size:12px; color:#000000; font-family:Tahoma}
H2 {border-top: #003366 1px solid; margin-top:25px; font-weight:bold; font-size:1.5em; margin-bottom:10px; margin-left:-15px; color:#003366}
H3 {margin-top:10px; font-size: 1.1em; margin-bottom: 10px; margin-left: -15px; color: #000000}
UL {margin-top:10px; margin-left:20px}
OL {margin-top:10px; margin-left:20px}
LI {margin-top:10px; color: #000000}
FONT.value {font-weight:bold; color:darkblue}
FONT.key {font-weight: bold; color: darkgreen}
.divTag {border:1px; border-style:solid; background-color:#FFFFFF; text-decoration:none; height:auto; width:auto; background-color:#cecece}
.BannerColumn {background-color:#000000}
.Banner {border:0; padding:0; height:8px; margin-top:0px; color:#ffffff; filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=1,StartColorStr='#1c5280',EndColorStr='#FFFFFF');}
.BannerTextCompany {font:bold; font-size:18pt; color:#cecece; font-family:Tahoma; height:0px; margin-top:0; margin-left:8px; margin-bottom:0; padding:0px; white-space:nowrap; filter:progid:DXImageTransform.Microsoft.dropshadow(OffX=2,OffY=2,Color='black',Positive='true');}
.BannerTextApplication {font:bold; font-size:18pt; font-family:Tahoma; height:0px; margin-top:0; margin-left:8px; margin-bottom:0; padding:0px; white-space:nowrap; filter:progid:DXImageTransform.Microsoft.dropshadow(OffX=2,OffY=2,Color='black',Positive='true');}
.BannerText {font:bold; font-size:18pt; font-family:Tahoma; height:0px; margin-top:0; margin-left:8px; margin-bottom:0; padding:0px; filter:progid:DXImageTransform.Microsoft.dropshadow(OffX=2,OffY=2,Color='black',Positive='true');}
.BannerSubhead {border:0; padding:0; height:16px; margin-top:0px; margin-left:10px; color:#ffffff; filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=1,StartColorStr='#4B3E1A',EndColorStr='#FFFFFF');}
.BannerSubheadText {font:bold; height:11px; font-size:11px; font-family:Tahoma; margin-top:1; margin-left:10; filter:progid:DXImageTransform.Microsoft.dropshadow(OffX=2,OffY=2,Color='black',Positive='true');}
.FooterRule {border:0; padding:0; height:1px; margin:0px; color:#ffffff; filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=1,StartColorStr='#4B3E1A',EndColorStr='#FFFFFF');}
.FooterText {font-size:11px; font-weight:normal; text-decoration:none; font-family:Tahoma; margin-top:10; margin-left:0px; margin-bottom:2; padding:0px; color:#999999; white-space:nowrap}
.FooterText A:link {font-weight:normal; color:#999999; text-decoration:underline}
.FooterText A:visited {font-weight:normal; color:#999999; text-decoration:underline}
.FooterText A:active {font-weight:normal; color:#999999; text-decoration:underline}
.FooterText A:hover {font-weight:normal; color:#FF6600; text-decoration:underline}
.ClickOnceInfoText {font-size:11px; font-weight:normal; text-decoration:none; font-family:Tahoma; margin-top:0; margin-right:2px; margin-bottom:0; padding:0px; color:#000000}
.InstallTextStyle {font:bold; font-size:14pt; font-family:Tahoma; a:#FF0000; text-decoration:None}
.DetailsStyle {margin-left:30px}
.ItemStyle {margin-left:-15px; font-weight:bold}
.StartColorStr {background-color:#4B3E1A}
.JustThisApp A:link {font-weight:normal; color:#000066; text-decoration:underline}
.JustThisApp A:visited {font-weight:normal; color:#000066; text-decoration:underline}
.JustThisApp A:active {font-weight:normal; text-decoration:underline}
.JustThisApp A:hover {font-weight:normal; color:#FF6600; text-decoration:underline}
-->
</STYLE>
<SCRIPT LANGUAGE="JavaScript">
<!--
runtimeVersion = "2.0.0";
checkClient = false;
directLink = "Kanban System.application";
function Initialize()
{
if (HasRuntimeVersion(runtimeVersion, false) || (checkClient && HasRuntimeVersion(runtimeVersion, checkClient)))
{
InstallButton.href = directLink;
BootstrapperSection.style.display = "none";
}
}
function HasRuntimeVersion(v, c)
{
var va = GetVersion(v);
var i;
var a = navigator.userAgent.match(/\.NET CLR [0-9.]+/g);
if(va[0]==4)
a = navigator.userAgent.match(/\.NET[0-9.]+E/g);
if (c)
{
a = navigator.userAgent.match(/\.NET Client [0-9.]+/g);
if (va[0]==4)
a = navigator.userAgent.match(/\.NET[0-9.]+C/g);
}
if (a != null)
for (i = 0; i < a.length; ++i)
if (CompareVersions(va, GetVersion(a[i])) <= 0)
return true;
return false;
}
function GetVersion(v)
{
var a = v.match(/([0-9]+)\.([0-9]+)\.([0-9]+)/i);
if(a==null)
a = v.match(/([0-9]+)\.([0-9]+)/i);
return a.slice(1);
}
function CompareVersions(v1, v2)
{
if(v1.length>v2.length)
{
v2[v2.length]=0;
}
else if(v1.length<v2.length)
{
v1[v1.length]=0;
}
for (i = 0; i < v1.length; ++i)
{
var n1 = new Number(v1[i]);
var n2 = new Number(v2[i]);
if (n1 < n2)
return -1;
if (n1 > n2)
return 1;
}
return 0;
}
-->
</SCRIPT>
</HEAD>
<BODY ONLOAD="Initialize()">
<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="2" BORDER="0">
<!-- Begin Banner -->
<TR><TD><TABLE CELLPADDING="2" CELLSPACING="0" BORDER="0" BGCOLOR="#cecece" WIDTH="100%"><TR><TD><TABLE BGCOLOR="#1c5280" WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0"><TR><TD CLASS="Banner" /></TR><TR><TD CLASS="Banner"><SPAN CLASS="BannerTextCompany">Ionics EMS, Inc.</SPAN></TD></TR><TR><TD CLASS="Banner"><SPAN CLASS="BannerTextApplication">Kanban</SPAN></TD></TR><TR><TD CLASS="Banner" ALIGN="RIGHT" /></TR></TABLE></TD></TR></TABLE></TD></TR>
<!-- End Banner -->
<!-- Begin Dialog -->
<TR><TD ALIGN="LEFT"><TABLE CELLPADDING="2" CELLSPACING="0" BORDER="0" WIDTH="540"><TR><TD WIDTH="496">
<!-- Begin AppInfo -->
<TABLE><TR><TD COLSPAN="3">&nbsp;</TD></TR><TR><TD><B>Name:</B></TD><TD WIDTH="5"><SPACER TYPE="block" WIDTH="10" /></TD><TD>Kanban</TD></TR><TR><TD COLSPAN="3">&nbsp;</TD></TR><TR><TD><B>Version:</B></TD><TD WIDTH="5"><SPACER TYPE="block" WIDTH="10" /></TD><TD>1.0.0.25</TD></TR><TR><TD COLSPAN="3">&nbsp;</TD></TR><TR><TD><B>Publisher:</B></TD><TD WIDTH="5"><SPACER TYPE="block" WIDTH="10" /></TD><TD>Ionics EMS, Inc.</TD></TR><tr><td colspan="3">&nbsp;</td></tr></TABLE>
<!-- End AppInfo -->
<!-- Begin Prerequisites -->
<TABLE ID="BootstrapperSection" BORDER="0"><TR><TD COLSPAN="2">The following prerequisites are required:</TD></TR><TR><TD WIDTH="10">&nbsp;</TD><TD><UL>
<LI>.NET Framework 2.0 (x86)</LI>
</UL></TD></TR><TR><TD COLSPAN="2">
If these components are already installed, you can <SPAN CLASS="JustThisApp"><A HREF="Kanban System.application">launch</A></SPAN> the application now. Otherwise, click the button below to install the prerequisites and run the application.
</TD></TR><TR><TD COLSPAN="2">&nbsp;</TD></TR></TABLE>
<!-- End Prerequisites -->
</TD></TR></TABLE>
<!-- Begin Buttons -->
<TR><TD ALIGN="LEFT"><TABLE CELLPADDING="2" CELLSPACING="0" BORDER="0" WIDTH="540" STYLE="cursor:hand" ONCLICK="window.navigate(InstallButton.href)"><TR><TD ALIGN="LEFT"><TABLE CELLPADDING="1" BGCOLOR="#333333" CELLSPACING="0" BORDER="0"><TR><TD><TABLE CELLPADDING="1" BGCOLOR="#cecece" CELLSPACING="0" BORDER="0"><TR><TD><TABLE CELLPADDING="1" BGCOLOR="#efefef" CELLSPACING="0" BORDER="0"><TR><TD WIDTH="20"><SPACER TYPE="block" WIDTH="20" HEIGHT="1" /></TD><TD><A ID="InstallButton" HREF="setup.exe">Install</A></TD><TD width="20"><SPACER TYPE="block" WIDTH="20" HEIGHT="1" /></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD><TD WIDTH="15%" ALIGN="right" /></TR></TABLE></TD></TR>
<!-- End Buttons -->
</TD></TR>
<!-- End Dialog -->
<!-- Spacer Row -->
<TR><TD>&nbsp;</TD></TR>
<TR><TD>
<!-- Begin Footer -->
<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0" BGCOLOR="#ffffff"><TR><TD HEIGHT="5"><SPACER TYPE="block" HEIGHT="5" /></TD></TR><TR><TD CLASS="FooterText" ALIGN="center"><A HREF="http://go.microsoft.com/fwlink/?LinkId=154571">ClickOnce and .NET Framework Resources</A>
</TD></TR><TR><TD HEIGHT="5"><SPACER TYPE="block" HEIGHT="5" /></TD></TR><TR><TD HEIGHT="1" bgcolor="#cecece"><SPACER TYPE="block" HEIGHT="1" /></TD></TR></TABLE>
<!-- End Footer -->
</TD></TR>
</TABLE>
</BODY>
</HTML>

View File

@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.1
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.Mounting_Sequence.loginForm
End Sub
End Class
End Namespace

View File

@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.1433
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.Mounting_Sequence.loginForm
End Sub
End Class
End Namespace

View File

@ -0,0 +1,179 @@
Public Class mainForm
Public cnstr As String = loginForm.cnstr
Private Sub ManualToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
mcSeqForm.Show()
End Sub
Private Sub mainForm_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
loginForm.Close()
End Sub
Private Sub mainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
'Me.Text = "Kanban System v.1.2.1 Current User - " & loginForm.username
'last edit: sir cha
Me.Text = "Kanban System v.1.2.10 Current User - " & loginForm.username
Select Case loginForm.userType
Case "Operator"
MaintenanceToolStripMenuItem.Visible = False
CheckRequestsToolStripMenuItem.Visible = False
AdministrationToolStripMenuItem.Visible = False
Case "Quality Control"
AdministrationToolStripMenuItem.Visible = False
CheckRequestsToolStripMenuItem.Visible = False
Case "Engineer"
CheckRequestsToolStripMenuItem.Visible = False
AdministrationToolStripMenuItem.Visible = False
Case "PPC"
MountingToolStripMenuItem.Visible = False
MaintenanceToolStripMenuItem.Visible = False
AdministrationToolStripMenuItem.Visible = False
End Select
End Sub
Private Sub tsClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsClose.Click
Try
Dim activeForm As String = ActiveMdiChild.Name
Select Case activeForm
Case "mcSeqForm"
mcSeqForm.Close()
Case "uploadMcSeq"
uploadMcSeq.Close()
Case "mountingForm"
mountingForm.Close()
Case "machineForm"
machineForm.Close()
Case "userForm"
userForm.Close()
Case "requestForm"
requestForm.Close()
Case "PPReceiveForm"
PPReceiveForm.Close()
Case "PPReturnForm"
PPReturnForm.Close()
Case "PPInventoryForm"
PPInventoryForm.Close()
Case "PCBScanForm"
PCBScanForm.Close()
Case "kittingForm"
kittingForm.Close()
Case "issuanceForm"
issuanceForm.Close()
Case "kittedReportForm"
kittedReportForm.Close()
End Select
Catch ex As Exception
End Try
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub MountingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MountingToolStripMenuItem.Click
mountingForm.Show()
End Sub
Private Sub UsersToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsersToolStripMenuItem.Click
userForm.Show()
End Sub
Private Sub tsFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsFirst.Click
Try
Dim activeForm As String = ActiveMdiChild.Name
Select Case activeForm
Case "machineForm"
machineForm.moveFirst()
Case "userForm"
userForm.moveFirst()
End Select
Catch ex As Exception
End Try
End Sub
Private Sub tsPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsPrevious.Click
Try
Dim activeForm As String = ActiveMdiChild.Name
Select Case activeForm
Case "machineForm"
machineForm.movePrevious()
Case "userForm"
userForm.movePrevious()
End Select
Catch ex As Exception
End Try
End Sub
Private Sub tsNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsNext.Click
Try
Dim activeForm As String = ActiveMdiChild.Name
Select Case activeForm
Case "machineForm"
machineForm.moveNext()
Case "userForm"
userForm.moveNext()
End Select
Catch ex As Exception
End Try
End Sub
Private Sub tsLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsLast.Click
Try
Dim activeForm As String = ActiveMdiChild.Name
Select Case activeForm
Case "machineForm"
machineForm.moveLast()
Case "userForm"
userForm.moveLast()
End Select
Catch ex As Exception
End Try
End Sub
Private Sub MachineToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MachineToolStripMenuItem.Click
machineForm.Show()
End Sub
Private Sub FileUploadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileUploadToolStripMenuItem.Click
mcSeqForm.Show()
End Sub
Private Sub CheckRequestsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckRequestsToolStripMenuItem.Click
requestForm.Show()
End Sub
Private Sub ReceiveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReceiveToolStripMenuItem.Click
PPReceiveForm.Show()
End Sub
Private Sub ReturnToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReturnToolStripMenuItem.Click
PPReturnForm.Show()
End Sub
Private Sub InventoryToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InventoryToolStripMenuItem.Click
PPInventoryForm.Show()
End Sub
Private Sub PCBScanningToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PCBScanningToolStripMenuItem.Click
PCBScanForm.Show()
End Sub
Private Sub PartNumbersToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PartNumbersToolStripMenuItem.Click
partsForm.Show()
End Sub
Private Sub PlantToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
PlantMaintenanceForm.Show()
End Sub
Private Sub KittingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KittingToolStripMenuItem.Click
kittingForm.Show()
End Sub
Private Sub IssuanceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IssuanceToolStripMenuItem.Click
issuanceForm.Show()
End Sub
End Class

View File

@ -0,0 +1,193 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class requestForm
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(requestForm))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ts_new = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_edit = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_delete = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_revert = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_save = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_find = New System.Windows.Forms.ToolStripButton()
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtfile = New System.Windows.Forms.TextBox()
Me.ToolStrip1.SuspendLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Font = New System.Drawing.Font("Calibri", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ts_new, Me.ToolStripSeparator1, Me.ts_edit, Me.ToolStripSeparator2, Me.ts_delete, Me.ToolStripSeparator3, Me.ts_revert, Me.ToolStripSeparator5, Me.ts_save, Me.ToolStripSeparator4, Me.ts_find})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(731, 25)
Me.ToolStrip1.TabIndex = 4
'
'ts_new
'
Me.ts_new.Image = CType(resources.GetObject("ts_new.Image"), System.Drawing.Image)
Me.ts_new.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_new.Name = "ts_new"
Me.ts_new.Size = New System.Drawing.Size(59, 22)
Me.ts_new.Text = "Insert"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'ts_edit
'
Me.ts_edit.Image = CType(resources.GetObject("ts_edit.Image"), System.Drawing.Image)
Me.ts_edit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_edit.Name = "ts_edit"
Me.ts_edit.Size = New System.Drawing.Size(67, 22)
Me.ts_edit.Text = "Update"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25)
'
'ts_delete
'
Me.ts_delete.Image = CType(resources.GetObject("ts_delete.Image"), System.Drawing.Image)
Me.ts_delete.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_delete.Name = "ts_delete"
Me.ts_delete.Size = New System.Drawing.Size(64, 22)
Me.ts_delete.Text = "Delete"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25)
'
'ts_revert
'
Me.ts_revert.Enabled = False
Me.ts_revert.Image = CType(resources.GetObject("ts_revert.Image"), System.Drawing.Image)
Me.ts_revert.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_revert.Name = "ts_revert"
Me.ts_revert.Size = New System.Drawing.Size(61, 22)
Me.ts_revert.Text = "Revert"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 25)
'
'ts_save
'
Me.ts_save.Enabled = False
Me.ts_save.Image = CType(resources.GetObject("ts_save.Image"), System.Drawing.Image)
Me.ts_save.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_save.Name = "ts_save"
Me.ts_save.Size = New System.Drawing.Size(81, 22)
Me.ts_save.Text = "Save Data"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 25)
'
'ts_find
'
Me.ts_find.Image = CType(resources.GetObject("ts_find.Image"), System.Drawing.Image)
Me.ts_find.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_find.Name = "ts_find"
Me.ts_find.Size = New System.Drawing.Size(51, 22)
Me.ts_find.Text = "Find"
'
'DataGridView1
'
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Location = New System.Drawing.Point(1, 63)
Me.DataGridView1.Name = "DataGridView1"
Me.DataGridView1.Size = New System.Drawing.Size(728, 460)
Me.DataGridView1.TabIndex = 5
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(5, 38)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(144, 15)
Me.Label1.TabIndex = 6
Me.Label1.Text = "Kanban Request Number:"
'
'txtfile
'
Me.txtfile.Enabled = False
Me.txtfile.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtfile.Location = New System.Drawing.Point(152, 34)
Me.txtfile.Name = "txtfile"
Me.txtfile.Size = New System.Drawing.Size(185, 23)
Me.txtfile.TabIndex = 7
'
'requestForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(731, 523)
Me.ControlBox = False
Me.Controls.Add(Me.txtfile)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.DataGridView1)
Me.Controls.Add(Me.ToolStrip1)
Me.Font = New System.Drawing.Font("Calibri", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "requestForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "Kanban Request"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents ts_new As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_edit As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_delete As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_revert As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_save As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_find As System.Windows.Forms.ToolStripButton
Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtfile As System.Windows.Forms.TextBox
End Class

View File

@ -0,0 +1,326 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class mcSeqForm
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(mcSeqForm))
Me.basicInfo = New System.Windows.Forms.GroupBox
Me.cmbRev = New System.Windows.Forms.ComboBox
Me.Label2 = New System.Windows.Forms.Label
Me.cmbSeq = New System.Windows.Forms.ComboBox
Me.Label1 = New System.Windows.Forms.Label
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.dg_mtSeq = New System.Windows.Forms.DataGridView
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
Me.ts_new = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator
Me.ts_edit = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator
Me.ts_delete = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator
Me.ts_revert = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator
Me.ts_save = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator
Me.ts_find = New System.Windows.Forms.ToolStripButton
Me.verifyBox = New System.Windows.Forms.GroupBox
Me.btn_verify = New System.Windows.Forms.Button
Me.txtVerDate = New System.Windows.Forms.TextBox
Me.txtVerBy = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.basicInfo.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.dg_mtSeq, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip1.SuspendLayout()
Me.verifyBox.SuspendLayout()
Me.SuspendLayout()
'
'basicInfo
'
Me.basicInfo.Controls.Add(Me.cmbRev)
Me.basicInfo.Controls.Add(Me.Label2)
Me.basicInfo.Controls.Add(Me.cmbSeq)
Me.basicInfo.Controls.Add(Me.Label1)
Me.basicInfo.Location = New System.Drawing.Point(4, 29)
Me.basicInfo.Name = "basicInfo"
Me.basicInfo.Size = New System.Drawing.Size(396, 79)
Me.basicInfo.TabIndex = 0
Me.basicInfo.TabStop = False
Me.basicInfo.Text = "Basic Information"
'
'cmbRev
'
Me.cmbRev.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbRev.FormattingEnabled = True
Me.cmbRev.Location = New System.Drawing.Point(124, 48)
Me.cmbRev.Name = "cmbRev"
Me.cmbRev.Size = New System.Drawing.Size(164, 21)
Me.cmbRev.TabIndex = 4
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(70, 53)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(51, 13)
Me.Label2.TabIndex = 3
Me.Label2.Text = "Revision:"
'
'cmbSeq
'
Me.cmbSeq.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbSeq.FormattingEnabled = True
Me.cmbSeq.Location = New System.Drawing.Point(124, 21)
Me.cmbSeq.Name = "cmbSeq"
Me.cmbSeq.Size = New System.Drawing.Size(164, 21)
Me.cmbSeq.TabIndex = 0
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(24, 26)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(99, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Sequence Number:"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.dg_mtSeq)
Me.GroupBox1.Location = New System.Drawing.Point(2, 109)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(997, 474)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Mounting Sequence"
'
'dg_mtSeq
'
Me.dg_mtSeq.AllowUserToAddRows = False
Me.dg_mtSeq.AllowUserToDeleteRows = False
Me.dg_mtSeq.AllowUserToResizeColumns = False
Me.dg_mtSeq.AllowUserToResizeRows = False
Me.dg_mtSeq.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dg_mtSeq.EditMode = System.Windows.Forms.DataGridViewEditMode.EditOnEnter
Me.dg_mtSeq.Location = New System.Drawing.Point(6, 19)
Me.dg_mtSeq.Name = "dg_mtSeq"
Me.dg_mtSeq.RowHeadersWidth = 20
Me.dg_mtSeq.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
Me.dg_mtSeq.RowTemplate.Height = 18
Me.dg_mtSeq.Size = New System.Drawing.Size(983, 449)
Me.dg_mtSeq.TabIndex = 0
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ts_new, Me.ToolStripSeparator1, Me.ts_edit, Me.ToolStripSeparator2, Me.ts_delete, Me.ToolStripSeparator3, Me.ts_revert, Me.ToolStripSeparator5, Me.ts_save, Me.ToolStripSeparator4, Me.ts_find})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1003, 25)
Me.ToolStrip1.TabIndex = 4
'
'ts_new
'
Me.ts_new.Enabled = False
Me.ts_new.Image = CType(resources.GetObject("ts_new.Image"), System.Drawing.Image)
Me.ts_new.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_new.Name = "ts_new"
Me.ts_new.Size = New System.Drawing.Size(46, 22)
Me.ts_new.Text = "Add"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'ts_edit
'
Me.ts_edit.Image = CType(resources.GetObject("ts_edit.Image"), System.Drawing.Image)
Me.ts_edit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_edit.Name = "ts_edit"
Me.ts_edit.Size = New System.Drawing.Size(62, 22)
Me.ts_edit.Text = "Update"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25)
'
'ts_delete
'
Me.ts_delete.Image = CType(resources.GetObject("ts_delete.Image"), System.Drawing.Image)
Me.ts_delete.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_delete.Name = "ts_delete"
Me.ts_delete.Size = New System.Drawing.Size(58, 22)
Me.ts_delete.Text = "Delete"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25)
'
'ts_revert
'
Me.ts_revert.Enabled = False
Me.ts_revert.Image = CType(resources.GetObject("ts_revert.Image"), System.Drawing.Image)
Me.ts_revert.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_revert.Name = "ts_revert"
Me.ts_revert.Size = New System.Drawing.Size(60, 22)
Me.ts_revert.Text = "Revert"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 25)
'
'ts_save
'
Me.ts_save.Enabled = False
Me.ts_save.Image = CType(resources.GetObject("ts_save.Image"), System.Drawing.Image)
Me.ts_save.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_save.Name = "ts_save"
Me.ts_save.Size = New System.Drawing.Size(77, 22)
Me.ts_save.Text = "Save Data"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 25)
'
'ts_find
'
Me.ts_find.Image = CType(resources.GetObject("ts_find.Image"), System.Drawing.Image)
Me.ts_find.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_find.Name = "ts_find"
Me.ts_find.Size = New System.Drawing.Size(47, 22)
Me.ts_find.Text = "Find"
'
'verifyBox
'
Me.verifyBox.Controls.Add(Me.btn_verify)
Me.verifyBox.Controls.Add(Me.txtVerDate)
Me.verifyBox.Controls.Add(Me.txtVerBy)
Me.verifyBox.Controls.Add(Me.Label4)
Me.verifyBox.Controls.Add(Me.Label3)
Me.verifyBox.Location = New System.Drawing.Point(406, 29)
Me.verifyBox.Name = "verifyBox"
Me.verifyBox.Size = New System.Drawing.Size(593, 79)
Me.verifyBox.TabIndex = 5
Me.verifyBox.TabStop = False
Me.verifyBox.Text = "Verify"
'
'btn_verify
'
Me.btn_verify.Enabled = False
Me.btn_verify.Location = New System.Drawing.Point(314, 19)
Me.btn_verify.Name = "btn_verify"
Me.btn_verify.Size = New System.Drawing.Size(134, 47)
Me.btn_verify.TabIndex = 4
Me.btn_verify.Text = "Approve Sequence"
Me.btn_verify.UseVisualStyleBackColor = True
'
'txtVerDate
'
Me.txtVerDate.Enabled = False
Me.txtVerDate.Location = New System.Drawing.Point(114, 47)
Me.txtVerDate.Name = "txtVerDate"
Me.txtVerDate.Size = New System.Drawing.Size(183, 20)
Me.txtVerDate.TabIndex = 3
'
'txtVerBy
'
Me.txtVerBy.Enabled = False
Me.txtVerBy.Location = New System.Drawing.Point(114, 22)
Me.txtVerBy.Name = "txtVerBy"
Me.txtVerBy.Size = New System.Drawing.Size(183, 20)
Me.txtVerBy.TabIndex = 2
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(26, 51)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(88, 13)
Me.Label4.TabIndex = 1
Me.Label4.Text = "Verification Date:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(53, 26)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(60, 13)
Me.Label3.TabIndex = 0
Me.Label3.Text = "Verified By:"
'
'mcSeqForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1003, 587)
Me.ControlBox = False
Me.Controls.Add(Me.verifyBox)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.basicInfo)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "mcSeqForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "Machine Sequence Maitenance"
Me.basicInfo.ResumeLayout(False)
Me.basicInfo.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
CType(Me.dg_mtSeq, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.verifyBox.ResumeLayout(False)
Me.verifyBox.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents basicInfo As System.Windows.Forms.GroupBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents dg_mtSeq As System.Windows.Forms.DataGridView
Friend WithEvents cmbSeq As System.Windows.Forms.ComboBox
Friend WithEvents cmbRev As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents ts_new As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_edit As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_delete As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_revert As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_save As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_find As System.Windows.Forms.ToolStripButton
Friend WithEvents verifyBox As System.Windows.Forms.GroupBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents txtVerDate As System.Windows.Forms.TextBox
Friend WithEvents txtVerBy As System.Windows.Forms.TextBox
Friend WithEvents btn_verify As System.Windows.Forms.Button
End Class

View File

@ -0,0 +1,104 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
<asmv1:assemblyIdentity name="Kanban System.exe" version="1.0.0.25" publicKeyToken="5d07c66b26499fa2" language="neutral" processorArchitecture="msil" type="win32" />
<application />
<entryPoint>
<assemblyIdentity name="Kanban System" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<commandLine file="Kanban System.exe" parameters="" />
</entryPoint>
<trustInfo>
<security>
<applicationRequestMinimum>
<PermissionSet Unrestricted="true" ID="Custom" SameSite="site" />
<defaultAssemblyRequest permissionSetReference="Custom" />
</applicationRequestMinimum>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- UAC Manifest Options
If you want to change the Windows User Account Control level replace the
requestedExecutionLevel node with one of the following.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Specifying requestedExecutionLevel node will disable file and registry virtualization.
If you want to utilize File and Registry Virtualization for backward
compatibility then delete the requestedExecutionLevel node.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<dependency>
<dependentOS>
<osVersionInfo>
<os majorVersion="4" minorVersion="10" buildNumber="0" servicePackMajor="0" />
</osVersionInfo>
</dependentOS>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Microsoft.Windows.CommonLanguageRuntime" version="2.0.50727.0" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Microsoft.ReportViewer.Common" version="10.0.0.0" publicKeyToken="B03F5F7F11D50A3A" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Microsoft.ReportViewer.DataVisualization" version="10.0.0.0" publicKeyToken="B03F5F7F11D50A3A" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Microsoft.ReportViewer.ProcessingObjectModel" version="10.0.0.0" publicKeyToken="B03F5F7F11D50A3A" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Microsoft.ReportViewer.WinForms" version="10.0.0.0" publicKeyToken="B03F5F7F11D50A3A" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Interop.Microsoft.Office.Interop.Excel.dll" size="1544192">
<assemblyIdentity name="Interop.Microsoft.Office.Interop.Excel" version="1.7.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>7YA85eufIXItcsMaDGw0Skomhfw=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Kanban System.exe" size="3449856">
<assemblyIdentity name="Kanban System" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>RZpF9ypMD0v28buCuXXH4Nlhf5Y=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<file name="Kanban System.exe.config" size="2969">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>C9pAdhw8fwBinl452Gdw9ZjgnPk=</dsig:DigestValue>
</hash>
</file>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- A list of all Windows versions that this application is designed to work with. Windows will automatically select the most compatible environment.-->
<!-- If your application is designed to work with Windows 7, uncomment the following supportedOS node-->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>-->
</application>
</compatibility>
<publisherIdentity name="CN=IONICS\franz.delomen" issuerKeyHash="bbd06e099f0d6067eaa95fc0a29d173cdf7ef6c7" /><Signature Id="StrongNameSignature" xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Reference URI=""><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue>kykYV7M/qNSysIhfpbYJnmK74fY=</DigestValue></Reference></SignedInfo><SignatureValue>iXmYMHUWOJrHnGPZVp4iNrURmk7K/gRZU7JR5BlCezcerd0M1lKMewjzDPGGTvPRhoOD6Hq+6oBYiIOGjyZcHMV62YXkZMGHK9skUywg1Ws/jY5Sk60uLmpovX/11MFgb6lsNM1UQzz956soIetfPJzWuucNqR0Ql1HYWpWJO5U=</SignatureValue><KeyInfo Id="StrongNameKeyInfo"><KeyValue><RSAKeyValue><Modulus>zzlNnkONlM4M+vRtennY42p0oPQdXOQ8T6g9AITLp3Xk/SVC5a/dxEkh2L6MFGbQGsl8qBMl+5MV2v9Pn4zHo+mnBe0KeuaiBZKrhgf+/YfLQidAuq7MIwzMnLqlb0pvqUKq1dtpDGjpjM9PsLyo5t3gvLl0pI8EFU4u0eMLGYs=</Modulus><Exponent>AQAB</Exponent></RSAKeyValue></KeyValue><msrel:RelData xmlns:msrel="http://schemas.microsoft.com/windows/rel/2005/reldata"><r:license xmlns:r="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:as="http://schemas.microsoft.com/windows/pki/2005/Authenticode"><r:grant><as:ManifestInformation Hash="f6e1bb629e09b6a55f88b0b2d4a83fb357182993" Description="" Url=""><as:assemblyIdentity name="Kanban System.exe" version="1.0.0.25" publicKeyToken="5d07c66b26499fa2" language="neutral" processorArchitecture="msil" type="win32" /></as:ManifestInformation><as:SignedBy /><as:AuthenticodePublisher><as:X509SubjectName>CN=IONICS\franz.delomen</as:X509SubjectName></as:AuthenticodePublisher></r:grant><r:issuer><Signature Id="AuthenticodeSignature" xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Reference URI=""><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue>DX61mU1WDETfCNOtiLUxUmx3wpI=</DigestValue></Reference></SignedInfo><SignatureValue>qp6H1lkbf2M2GjI6wHCPAiQHBJy9jdj+neZqx1EF0mFQ9BeTXqntZ7JufYl8MuhzCdO0cpzfpRU1DUNAbCWgu2vrKUOZYi4Pe5dh8hcewMVtJMhRRZKgeNs7q5EfE1jiNJ71nExNZrCzc81lof8kpzPVSLz+z9s5rrTrtZZR+k8=</SignatureValue><KeyInfo><KeyValue><RSAKeyValue><Modulus>zzlNnkONlM4M+vRtennY42p0oPQdXOQ8T6g9AITLp3Xk/SVC5a/dxEkh2L6MFGbQGsl8qBMl+5MV2v9Pn4zHo+mnBe0KeuaiBZKrhgf+/YfLQidAuq7MIwzMnLqlb0pvqUKq1dtpDGjpjM9PsLyo5t3gvLl0pI8EFU4u0eMLGYs=</Modulus><Exponent>AQAB</Exponent></RSAKeyValue></KeyValue><X509Data><X509Certificate>MIIB6TCCAVKgAwIBAgIQGB+RTAzS47VNDBz+bQd1AjANBgkqhkiG9w0BAQUFADAzMTEwLwYDVQQDHigASQBPAE4ASQBDAFMAXABmAHIAYQBuAHoALgBkAGUAbABvAG0AZQBuMB4XDTE1MDQyMzAzMTMwNloXDTE2MDQyMjA5MTMwNlowMzExMC8GA1UEAx4oAEkATwBOAEkAQwBTAFwAZgByAGEAbgB6AC4AZABlAGwAbwBtAGUAbjCBnzANBgkqhkiG9w0BAQEFAAOBjQAwgYkCgYEAzzlNnkONlM4M+vRtennY42p0oPQdXOQ8T6g9AITLp3Xk/SVC5a/dxEkh2L6MFGbQGsl8qBMl+5MV2v9Pn4zHo+mnBe0KeuaiBZKrhgf+/YfLQidAuq7MIwzMnLqlb0pvqUKq1dtpDGjpjM9PsLyo5t3gvLl0pI8EFU4u0eMLGYsCAwEAATANBgkqhkiG9w0BAQUFAAOBgQAPhufllRWQgSEM7L7BgV66S9sXXLE1AbOEk3J9uz5/vLAjAxD81JKy+2XJjAWlW6VmEQGI5nNxiMV+hEdZnzdboG9MZdhP5OrdOiPFhS8zsnccKagMcZHarAEAC7vDaD4H79+gfU4saX6q3CozhSho3zOLXCxFnR8SKcbBtO06pQ==</X509Certificate></X509Data></KeyInfo></Signature></r:issuer></r:license></msrel:RelData></KeyInfo></Signature></asmv1:assembly>

View File

@ -0,0 +1,106 @@
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Security
Imports System.Security.Cryptography
Imports System.Text
Public Class Connection
#Region "Properties"
Dim _server As String
Dim _database As String
Dim _dbserver As String
Dim _username As String
Dim _password As String
Dim _isActive As Boolean
Dim _trusted As Boolean
Public Property server() As String
Get
Return _server
End Get
Set(ByVal value As String)
_server = value
End Set
End Property
Public Property database() As String
Get
Return _database
End Get
Set(ByVal value As String)
_database = value
End Set
End Property
Public Property dbserver() As String
Get
Return _dbserver
End Get
Set(ByVal value As String)
_dbserver = value
End Set
End Property
Public Property username() As String
Get
Return _username
End Get
Set(ByVal value As String)
_username = value
End Set
End Property
Public Property password() As String
Get
Return _password
End Get
Set(ByVal value As String)
_password = value
End Set
End Property
Public Property isTrusted() As Boolean
Get
Return _trusted
End Get
Set(ByVal value As Boolean)
_trusted = value
End Set
End Property
Public ReadOnly Property cnStr() As String
Get
Dim conn As String = String.Empty
Select Case Me.dbserver
Case "DBF"
conn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Me.server & "\" & Me.database & ";" & _
"Extended Properties=dBASE IV;" & _
"User ID=" & Me.username & ";" & _
"Password=" & Me.password & ";"
Case "SQL Server"
If Me.isTrusted = True Then
conn = "Data Source=" & Me.server & ";" & _
"Initial Catalog=" & Me.database & ";" & _
"Trusted_Connection=True"
Else
conn = "Data Source=" & Me.server & ";" & _
"Initial Catalog=" & Me.database & ";" & _
"User ID=" & Me.username & ";" & _
"Password=" & Me.password & ";"
End If
End Select
Return conn
End Get
End Property
#End Region
End Class

View File

@ -0,0 +1,243 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class PPReturnForm
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.txtPartDesc = New System.Windows.Forms.TextBox()
Me.dtNow = New System.Windows.Forms.DateTimePicker()
Me.txtOperator = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtLotNum = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtQuantity = New System.Windows.Forms.TextBox()
Me.txtPartNo = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtStart = New System.Windows.Forms.TextBox()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.dg_inventory = New System.Windows.Forms.DataGridView()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.dg_inventory, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.txtPartDesc)
Me.GroupBox1.Controls.Add(Me.dtNow)
Me.GroupBox1.Controls.Add(Me.txtOperator)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.txtLotNum)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.txtQuantity)
Me.GroupBox1.Controls.Add(Me.txtPartNo)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.txtStart)
Me.GroupBox1.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(6, 2)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(752, 159)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Information"
'
'txtPartDesc
'
Me.txtPartDesc.Enabled = False
Me.txtPartDesc.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPartDesc.Location = New System.Drawing.Point(378, 18)
Me.txtPartDesc.Multiline = True
Me.txtPartDesc.Name = "txtPartDesc"
Me.txtPartDesc.Size = New System.Drawing.Size(340, 52)
Me.txtPartDesc.TabIndex = 34
'
'dtNow
'
Me.dtNow.CustomFormat = "MM/dd/yyyy hh:mm:ss"
Me.dtNow.Enabled = False
Me.dtNow.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.dtNow.Location = New System.Drawing.Point(128, 99)
Me.dtNow.Name = "dtNow"
Me.dtNow.Size = New System.Drawing.Size(194, 23)
Me.dtNow.TabIndex = 27
'
'txtOperator
'
Me.txtOperator.Enabled = False
Me.txtOperator.Location = New System.Drawing.Point(128, 126)
Me.txtOperator.Name = "txtOperator"
Me.txtOperator.Size = New System.Drawing.Size(194, 23)
Me.txtOperator.TabIndex = 25
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(91, 130)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(35, 15)
Me.Label5.TabIndex = 26
Me.Label5.Text = "User:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(91, 103)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(35, 15)
Me.Label4.TabIndex = 24
Me.Label4.Text = "Date:"
'
'txtLotNum
'
Me.txtLotNum.Enabled = False
Me.txtLotNum.Location = New System.Drawing.Point(128, 72)
Me.txtLotNum.Name = "txtLotNum"
Me.txtLotNum.Size = New System.Drawing.Size(194, 23)
Me.txtLotNum.TabIndex = 2
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(54, 76)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(72, 15)
Me.Label3.TabIndex = 22
Me.Label3.Text = "Lot Number:"
'
'txtQuantity
'
Me.txtQuantity.Location = New System.Drawing.Point(128, 45)
Me.txtQuantity.Name = "txtQuantity"
Me.txtQuantity.Size = New System.Drawing.Size(67, 23)
Me.txtQuantity.TabIndex = 1
'
'txtPartNo
'
Me.txtPartNo.Enabled = False
Me.txtPartNo.Location = New System.Drawing.Point(128, 18)
Me.txtPartNo.Name = "txtPartNo"
Me.txtPartNo.Size = New System.Drawing.Size(243, 23)
Me.txtPartNo.TabIndex = 0
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(68, 49)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(58, 15)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Quantity:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(47, 22)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(79, 15)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Part Number:"
'
'txtStart
'
Me.txtStart.Location = New System.Drawing.Point(128, 18)
Me.txtStart.Name = "txtStart"
Me.txtStart.Size = New System.Drawing.Size(243, 23)
Me.txtStart.TabIndex = 0
'
'Timer1
'
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.dg_inventory)
Me.GroupBox2.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox2.Location = New System.Drawing.Point(6, 164)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(752, 427)
Me.GroupBox2.TabIndex = 4
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Inventory Transactions Per Part Number"
'
'dg_inventory
'
Me.dg_inventory.AllowUserToAddRows = False
Me.dg_inventory.AllowUserToDeleteRows = False
Me.dg_inventory.AllowUserToResizeColumns = False
Me.dg_inventory.AllowUserToResizeRows = False
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.InactiveCaptionText
Me.dg_inventory.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
Me.dg_inventory.BackgroundColor = System.Drawing.SystemColors.Control
Me.dg_inventory.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.dg_inventory.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dg_inventory.GridColor = System.Drawing.Color.SteelBlue
Me.dg_inventory.Location = New System.Drawing.Point(6, 15)
Me.dg_inventory.Name = "dg_inventory"
Me.dg_inventory.RowHeadersVisible = False
Me.dg_inventory.RowHeadersWidth = 20
Me.dg_inventory.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
Me.dg_inventory.Size = New System.Drawing.Size(740, 406)
Me.dg_inventory.TabIndex = 17
'
'PPReturnForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(764, 594)
Me.ControlBox = False
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.GroupBox2)
Me.Font = New System.Drawing.Font("Calibri", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "PPReturnForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "Parts Preparation Return"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
CType(Me.dg_inventory, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txtQuantity As System.Windows.Forms.TextBox
Friend WithEvents txtPartNo As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtLotNum As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents dtNow As System.Windows.Forms.DateTimePicker
Friend WithEvents txtOperator As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents txtStart As System.Windows.Forms.TextBox
Friend WithEvents txtPartDesc As System.Windows.Forms.TextBox
Friend WithEvents dg_inventory As System.Windows.Forms.DataGridView
End Class

View File

@ -0,0 +1,121 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class uploadMcSeq
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(uploadMcSeq))
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.btn_cancel = New System.Windows.Forms.Button()
Me.btn_upload = New System.Windows.Forms.Button()
Me.btn_browse = New System.Windows.Forms.Button()
Me.txtFName = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.btn_cancel)
Me.GroupBox1.Controls.Add(Me.btn_upload)
Me.GroupBox1.Controls.Add(Me.btn_browse)
Me.GroupBox1.Controls.Add(Me.txtFName)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Location = New System.Drawing.Point(0, 2)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(406, 117)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Choose File to Upload"
'
'btn_cancel
'
Me.btn_cancel.Location = New System.Drawing.Point(214, 86)
Me.btn_cancel.Name = "btn_cancel"
Me.btn_cancel.Size = New System.Drawing.Size(75, 23)
Me.btn_cancel.TabIndex = 4
Me.btn_cancel.Text = "Cancel"
Me.btn_cancel.UseVisualStyleBackColor = True
'
'btn_upload
'
Me.btn_upload.Location = New System.Drawing.Point(111, 86)
Me.btn_upload.Name = "btn_upload"
Me.btn_upload.Size = New System.Drawing.Size(75, 23)
Me.btn_upload.TabIndex = 3
Me.btn_upload.Text = "Upload File"
Me.btn_upload.UseVisualStyleBackColor = True
'
'btn_browse
'
Me.btn_browse.Image = CType(resources.GetObject("btn_browse.Image"), System.Drawing.Image)
Me.btn_browse.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btn_browse.Location = New System.Drawing.Point(358, 49)
Me.btn_browse.Name = "btn_browse"
Me.btn_browse.Size = New System.Drawing.Size(32, 32)
Me.btn_browse.TabIndex = 2
Me.btn_browse.UseVisualStyleBackColor = True
'
'txtFName
'
Me.txtFName.Location = New System.Drawing.Point(37, 56)
Me.txtFName.Name = "txtFName"
Me.txtFName.Size = New System.Drawing.Size(317, 20)
Me.txtFName.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(11, 57)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(26, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "File:"
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'uploadMcSeq
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(405, 119)
Me.ControlBox = False
Me.Controls.Add(Me.GroupBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "uploadMcSeq"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "Upload Machine Sequence"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txtFName As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents btn_browse As System.Windows.Forms.Button
Friend WithEvents btn_cancel As System.Windows.Forms.Button
Friend WithEvents btn_upload As System.Windows.Forms.Button
End Class

View File

@ -0,0 +1,315 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class machineForm
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(machineForm))
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.txtLine = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.cmbPlant = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtMchModel = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.cbActive = New System.Windows.Forms.CheckBox()
Me.txtMchName = New System.Windows.Forms.TextBox()
Me.txtMchCode = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.btn_find = New System.Windows.Forms.Button()
Me.ts_new = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_edit = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_delete = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_find = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_save = New System.Windows.Forms.ToolStripButton()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ts_revert = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.GroupBox1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.txtLine)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.cmbPlant)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.txtMchModel)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.cbActive)
Me.GroupBox1.Controls.Add(Me.txtMchName)
Me.GroupBox1.Controls.Add(Me.txtMchCode)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.btn_find)
Me.GroupBox1.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(6, 27)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(499, 156)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Information"
'
'txtLine
'
Me.txtLine.Enabled = False
Me.txtLine.Location = New System.Drawing.Point(124, 126)
Me.txtLine.Name = "txtLine"
Me.txtLine.Size = New System.Drawing.Size(76, 23)
Me.txtLine.TabIndex = 4
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(89, 130)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(32, 15)
Me.Label6.TabIndex = 27
Me.Label6.Text = "Line:"
'
'cmbPlant
'
Me.cmbPlant.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbPlant.Enabled = False
Me.cmbPlant.FormattingEnabled = True
Me.cmbPlant.Items.AddRange(New Object() {"", "Administrator", "Encoder", "Generator", "Guest"})
Me.cmbPlant.Location = New System.Drawing.Point(124, 100)
Me.cmbPlant.Name = "cmbPlant"
Me.cmbPlant.Size = New System.Drawing.Size(159, 23)
Me.cmbPlant.TabIndex = 3
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(83, 105)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(39, 15)
Me.Label4.TabIndex = 25
Me.Label4.Text = "Plant:"
'
'txtMchModel
'
Me.txtMchModel.Enabled = False
Me.txtMchModel.Location = New System.Drawing.Point(124, 74)
Me.txtMchModel.Name = "txtMchModel"
Me.txtMchModel.Size = New System.Drawing.Size(159, 23)
Me.txtMchModel.TabIndex = 2
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(25, 79)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(96, 15)
Me.Label3.TabIndex = 22
Me.Label3.Text = "Machine Model:"
'
'cbActive
'
Me.cbActive.AutoSize = True
Me.cbActive.Enabled = False
Me.cbActive.Location = New System.Drawing.Point(298, 21)
Me.cbActive.Name = "cbActive"
Me.cbActive.Size = New System.Drawing.Size(59, 19)
Me.cbActive.TabIndex = 6
Me.cbActive.Text = "Active"
Me.cbActive.UseVisualStyleBackColor = True
'
'txtMchName
'
Me.txtMchName.Enabled = False
Me.txtMchName.Location = New System.Drawing.Point(124, 48)
Me.txtMchName.Name = "txtMchName"
Me.txtMchName.Size = New System.Drawing.Size(159, 23)
Me.txtMchName.TabIndex = 1
'
'txtMchCode
'
Me.txtMchCode.Enabled = False
Me.txtMchCode.Location = New System.Drawing.Point(124, 21)
Me.txtMchCode.Name = "txtMchCode"
Me.txtMchCode.Size = New System.Drawing.Size(159, 23)
Me.txtMchCode.TabIndex = 0
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(29, 51)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(92, 15)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Machine Name:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(33, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(88, 15)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Machine Code:"
'
'btn_find
'
Me.btn_find.Location = New System.Drawing.Point(296, 19)
Me.btn_find.Name = "btn_find"
Me.btn_find.Size = New System.Drawing.Size(75, 23)
Me.btn_find.TabIndex = 7
Me.btn_find.Text = "GO"
Me.btn_find.UseVisualStyleBackColor = True
'
'ts_new
'
Me.ts_new.Image = CType(resources.GetObject("ts_new.Image"), System.Drawing.Image)
Me.ts_new.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_new.Name = "ts_new"
Me.ts_new.Size = New System.Drawing.Size(59, 22)
Me.ts_new.Text = "Insert"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'ts_edit
'
Me.ts_edit.Image = CType(resources.GetObject("ts_edit.Image"), System.Drawing.Image)
Me.ts_edit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_edit.Name = "ts_edit"
Me.ts_edit.Size = New System.Drawing.Size(67, 22)
Me.ts_edit.Text = "Update"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25)
'
'ts_delete
'
Me.ts_delete.Image = CType(resources.GetObject("ts_delete.Image"), System.Drawing.Image)
Me.ts_delete.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_delete.Name = "ts_delete"
Me.ts_delete.Size = New System.Drawing.Size(64, 22)
Me.ts_delete.Text = "Delete"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25)
'
'ts_find
'
Me.ts_find.Image = CType(resources.GetObject("ts_find.Image"), System.Drawing.Image)
Me.ts_find.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_find.Name = "ts_find"
Me.ts_find.Size = New System.Drawing.Size(51, 22)
Me.ts_find.Text = "Find"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 25)
'
'ts_save
'
Me.ts_save.Enabled = False
Me.ts_save.Image = CType(resources.GetObject("ts_save.Image"), System.Drawing.Image)
Me.ts_save.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_save.Name = "ts_save"
Me.ts_save.Size = New System.Drawing.Size(81, 22)
Me.ts_save.Text = "Save Data"
'
'ToolStrip1
'
Me.ToolStrip1.Font = New System.Drawing.Font("Calibri", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ts_new, Me.ToolStripSeparator1, Me.ts_edit, Me.ToolStripSeparator2, Me.ts_delete, Me.ToolStripSeparator3, Me.ts_revert, Me.ToolStripSeparator5, Me.ts_save, Me.ToolStripSeparator4, Me.ts_find})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(512, 25)
Me.ToolStrip1.TabIndex = 3
'
'ts_revert
'
Me.ts_revert.Enabled = False
Me.ts_revert.Image = CType(resources.GetObject("ts_revert.Image"), System.Drawing.Image)
Me.ts_revert.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_revert.Name = "ts_revert"
Me.ts_revert.Size = New System.Drawing.Size(61, 22)
Me.ts_revert.Text = "Revert"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 25)
'
'machineForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(512, 186)
Me.ControlBox = False
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.ToolStrip1)
Me.Font = New System.Drawing.Font("Calibri", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "machineForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "Machine Maintenance"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents cbActive As System.Windows.Forms.CheckBox
Friend WithEvents txtMchName As System.Windows.Forms.TextBox
Friend WithEvents txtMchCode As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ts_new As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_edit As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_delete As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_find As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_save As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents btn_find As System.Windows.Forms.Button
Friend WithEvents ts_revert As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents cmbPlant As System.Windows.Forms.ComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents txtMchModel As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents txtLine As System.Windows.Forms.TextBox
End Class

View File

@ -0,0 +1,95 @@
Imports System.IO
Public Class uploadMcSeq
Private Sub uploadMcSeq_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.MdiParent = mainForm
Control.CheckForIllegalCrossThreadCalls = False
Me.Top = 5
Me.Left = 5
End Sub
Private Function browseFile() As String
Dim stFileName As String = String.Empty
Dim openFileDialog1 As New OpenFileDialog
openFileDialog1.InitialDirectory = "C:\"
openFileDialog1.Title = "Open Machine Sequence Text File"
openFileDialog1.Filter = "Text files (*.txt)|*.txt"
openFileDialog1.FilterIndex = 1
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = DialogResult.OK Then
stFileName = openFileDialog1.FileName
End If
Return stFileName
End Function
Private Sub btn_browse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_browse.Click
txtFName.Text = browseFile()
End Sub
Private Sub btn_cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_cancel.Click
Me.Close()
End Sub
Private Sub btn_upload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_upload.Click
getfilecontents(txtFName.Text)
End Sub
Private Sub getfilecontents(ByVal fullpath As String)
Dim strcontent As String = String.Empty
Dim line() As String
Dim objreader As StreamReader
Dim seq As New Sequence
Dim addHeader As Boolean = False
Try
objreader = New StreamReader(fullpath)
strcontent = objreader.ReadLine 'disregard header
strcontent = objreader.ReadLine
While strcontent <> ""
line = Split(strcontent, vbTab)
seq.sequence = line(0)
seq.revision = line(1)
seq.machine = line(2)
seq.model = line(3)
seq.pcbside = line(4)
seq.partno = line(5)
seq.modules = line(6)
seq.feeder = line(7)
seq.feederType = line(8)
seq.topsdloc = line(9)
seq.fsbsqty = line(10)
seq.desc1 = line(11)
seq.desc2 = line(12)
seq.topmark = line(13)
seq.remarks = line(14)
seq.prepby = loginForm.username
seq.checkby = String.Empty
seq.chkdate = String.Empty
seq.updtime = DateTime.Now
If addHeader = False Then
If seq.addHeader() Then
addHeader = True
Else
MessageBox.Show("An error was encountered.", "Upload Sequence", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
End If
If Not seq.addDetail() Then
MessageBox.Show("An error was encountered.", "Upload Sequence", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
strcontent = objreader.ReadLine
End While
objreader.Close()
MessageBox.Show("Successfully uploaded!")
txtFName.Text = String.Empty
mcSeqForm.getSequence()
Catch ex As Exception
End Try
End Sub
End Class

View File

@ -0,0 +1,55 @@
<?xml version="1.0" encoding="UTF-8"?><?xml-stylesheet type='text/xsl' href='_UpgradeReport_Files/UpgradeReport.xslt'?><UpgradeLog>
<Properties><Property Name="Solution" Value="Mounting Sequence">
</Property><Property Name="Solution File" Value="C:\Projects\Mounting Sequence\Mounting Sequence.sln">
</Property><Property Name="User Options File" Value="C:\Projects\Mounting Sequence\Mounting Sequence.suo">
</Property><Property Name="Date" Value="Tuesday, January 18, 2011">
</Property><Property Name="Time" Value="13:22 PM">
</Property></Properties><Event ErrorLevel="0" Project="" Source="Mounting Sequence.sln" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence.sln">
</Event><Event ErrorLevel="0" Project="" Source="Mounting Sequence.suo" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence.suo">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Mounting Sequence.vbproj" Description="Project file successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Mounting Sequence.vbproj">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Mounting Sequence.vbproj.user" Description="Project user file successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Mounting Sequence.vbproj.user">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Classes\Connection.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Classes\Connection.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Classes\Machine.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Classes\Machine.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Classes\Mounting.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Classes\Mounting.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Classes\Sequence.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Classes\Sequence.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Classes\User.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Classes\User.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\machineForm.designer.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\machineForm.designer.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\machineForm.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\machineForm.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\loginForm.designer.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\loginForm.designer.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\loginForm.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\loginForm.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\mainForm.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\mainForm.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\mainForm.Designer.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\mainForm.Designer.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\mcSeqForm.Designer.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\mcSeqForm.Designer.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\mcSeqForm.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\mcSeqForm.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\mountingForm.Designer.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\mountingForm.Designer.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\mountingForm.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\mountingForm.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\requestForm.Designer.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\requestForm.Designer.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\requestForm.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\requestForm.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\uploadMcSeq.designer.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\uploadMcSeq.designer.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\uploadMcSeq.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\uploadMcSeq.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\userForm.designer.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\userForm.designer.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\userForm.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\userForm.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\My Project\AssemblyInfo.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\My Project\AssemblyInfo.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\My Project\Application.Designer.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\My Project\Application.Designer.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\My Project\Resources.Designer.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\My Project\Resources.Designer.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\My Project\Settings.Designer.vb" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\My Project\Settings.Designer.vb">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\app.config" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\app.config">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Mounting Sequence_TemporaryKey.pfx" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Mounting Sequence_TemporaryKey.pfx">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\My Project\Application.myapp" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\My Project\Application.myapp">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\My Project\Settings.settings" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\My Project\Settings.settings">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\machineForm.resx" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\machineForm.resx">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\loginForm.resx" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\loginForm.resx">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\mainForm.resx" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\mainForm.resx">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\mcSeqForm.resx" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\mcSeqForm.resx">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\mountingForm.resx" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\mountingForm.resx">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\requestForm.resx" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\requestForm.resx">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\uploadMcSeq.resx" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\uploadMcSeq.resx">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Forms\userForm.resx" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\Forms\userForm.resx">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\My Project\Resources.resx" Description="File successfully backed up as C:\Projects\Mounting Sequence\Backup\Mounting Sequence\My Project\Resources.resx">
</Event><Event ErrorLevel="1" Project="Mounting Sequence" Source="Mounting Sequence\Mounting Sequence.vbproj" Description="Your project is targeting .NET Framework 2.0 or 3.0. If your project uses assemblies requiring a newer .NET Framework, your project will fail to build. You can change the .NET Framework version by clicking Properties on the project menu and then selecting a new version in the '.NET Framework' dropdown box. (In Visual Basic, this is located on the Compile tab by clicking the 'Advanced Compiler Options...' button.)">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Mounting Sequence.vbproj" Description="Project converted successfully">
</Event><Event ErrorLevel="3" Project="Mounting Sequence" Source="Mounting Sequence\Mounting Sequence.vbproj" Description="Converted">
</Event><Event ErrorLevel="0" Project="" Source="Mounting Sequence.sln" Description="Solution converted successfully">
</Event><Event ErrorLevel="3" Project="" Source="Mounting Sequence.sln" Description="Converted">
</Event><Event ErrorLevel="0" Project="Mounting Sequence" Source="Mounting Sequence\Mounting Sequence.vbproj" Description="Scan complete: Upgrade not required for project files.">
</Event></UpgradeLog>

View File

@ -0,0 +1,400 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class mcSeqForm
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(mcSeqForm))
Me.basicInfo = New System.Windows.Forms.GroupBox()
Me.cmbRev = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.cmbSeq = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.dg_mtSeq = New System.Windows.Forms.DataGridView()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ts_new = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_edit = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_delete = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_revert = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_save = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_find = New System.Windows.Forms.ToolStripButton()
Me.verifyBox = New System.Windows.Forms.GroupBox()
Me.btn_verify = New System.Windows.Forms.Button()
Me.txtVerDate = New System.Windows.Forms.TextBox()
Me.txtVerBy = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.cmbLine = New System.Windows.Forms.ComboBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.cmbModel = New System.Windows.Forms.ComboBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.cmbType = New System.Windows.Forms.ComboBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.basicInfo.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.dg_mtSeq, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip1.SuspendLayout()
Me.verifyBox.SuspendLayout()
Me.SuspendLayout()
'
'basicInfo
'
Me.basicInfo.Controls.Add(Me.cmbType)
Me.basicInfo.Controls.Add(Me.Label6)
Me.basicInfo.Controls.Add(Me.cmbModel)
Me.basicInfo.Controls.Add(Me.Label5)
Me.basicInfo.Controls.Add(Me.cmbLine)
Me.basicInfo.Controls.Add(Me.Label7)
Me.basicInfo.Controls.Add(Me.cmbRev)
Me.basicInfo.Controls.Add(Me.Label2)
Me.basicInfo.Controls.Add(Me.cmbSeq)
Me.basicInfo.Controls.Add(Me.Label1)
Me.basicInfo.Location = New System.Drawing.Point(3, 25)
Me.basicInfo.Name = "basicInfo"
Me.basicInfo.Size = New System.Drawing.Size(462, 167)
Me.basicInfo.TabIndex = 0
Me.basicInfo.TabStop = False
Me.basicInfo.Text = "Basic Information"
'
'cmbRev
'
Me.cmbRev.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbRev.FormattingEnabled = True
Me.cmbRev.Location = New System.Drawing.Point(137, 130)
Me.cmbRev.Name = "cmbRev"
Me.cmbRev.Size = New System.Drawing.Size(145, 23)
Me.cmbRev.TabIndex = 4
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(74, 133)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(57, 15)
Me.Label2.TabIndex = 3
Me.Label2.Text = "Revision:"
'
'cmbSeq
'
Me.cmbSeq.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbSeq.FormattingEnabled = True
Me.cmbSeq.Location = New System.Drawing.Point(137, 19)
Me.cmbSeq.Name = "cmbSeq"
Me.cmbSeq.Size = New System.Drawing.Size(310, 23)
Me.cmbSeq.TabIndex = 0
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(76, 25)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(54, 15)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Account:"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.dg_mtSeq)
Me.GroupBox1.Location = New System.Drawing.Point(3, 198)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(994, 460)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Mounting Sequence"
'
'dg_mtSeq
'
Me.dg_mtSeq.AllowUserToAddRows = False
Me.dg_mtSeq.AllowUserToDeleteRows = False
Me.dg_mtSeq.AllowUserToResizeColumns = False
Me.dg_mtSeq.AllowUserToResizeRows = False
Me.dg_mtSeq.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dg_mtSeq.EditMode = System.Windows.Forms.DataGridViewEditMode.EditOnEnter
Me.dg_mtSeq.Location = New System.Drawing.Point(6, 16)
Me.dg_mtSeq.Name = "dg_mtSeq"
Me.dg_mtSeq.RowHeadersWidth = 20
Me.dg_mtSeq.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
Me.dg_mtSeq.RowTemplate.Height = 18
Me.dg_mtSeq.Size = New System.Drawing.Size(982, 481)
Me.dg_mtSeq.TabIndex = 0
'
'ToolStrip1
'
Me.ToolStrip1.Font = New System.Drawing.Font("Calibri", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ts_new, Me.ToolStripSeparator1, Me.ts_edit, Me.ToolStripSeparator2, Me.ts_delete, Me.ToolStripSeparator3, Me.ts_revert, Me.ToolStripSeparator5, Me.ts_save, Me.ToolStripSeparator4, Me.ts_find})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1003, 25)
Me.ToolStrip1.TabIndex = 4
'
'ts_new
'
Me.ts_new.Enabled = False
Me.ts_new.Image = CType(resources.GetObject("ts_new.Image"), System.Drawing.Image)
Me.ts_new.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_new.Name = "ts_new"
Me.ts_new.Size = New System.Drawing.Size(48, 22)
Me.ts_new.Text = "Add"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'ts_edit
'
Me.ts_edit.Image = CType(resources.GetObject("ts_edit.Image"), System.Drawing.Image)
Me.ts_edit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_edit.Name = "ts_edit"
Me.ts_edit.Size = New System.Drawing.Size(67, 22)
Me.ts_edit.Text = "Update"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25)
'
'ts_delete
'
Me.ts_delete.Image = CType(resources.GetObject("ts_delete.Image"), System.Drawing.Image)
Me.ts_delete.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_delete.Name = "ts_delete"
Me.ts_delete.Size = New System.Drawing.Size(64, 22)
Me.ts_delete.Text = "Delete"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25)
'
'ts_revert
'
Me.ts_revert.Enabled = False
Me.ts_revert.Image = CType(resources.GetObject("ts_revert.Image"), System.Drawing.Image)
Me.ts_revert.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_revert.Name = "ts_revert"
Me.ts_revert.Size = New System.Drawing.Size(61, 22)
Me.ts_revert.Text = "Revert"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 25)
'
'ts_save
'
Me.ts_save.Enabled = False
Me.ts_save.Image = CType(resources.GetObject("ts_save.Image"), System.Drawing.Image)
Me.ts_save.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_save.Name = "ts_save"
Me.ts_save.Size = New System.Drawing.Size(81, 22)
Me.ts_save.Text = "Save Data"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 25)
'
'ts_find
'
Me.ts_find.Image = CType(resources.GetObject("ts_find.Image"), System.Drawing.Image)
Me.ts_find.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_find.Name = "ts_find"
Me.ts_find.Size = New System.Drawing.Size(51, 22)
Me.ts_find.Text = "Find"
'
'verifyBox
'
Me.verifyBox.Controls.Add(Me.btn_verify)
Me.verifyBox.Controls.Add(Me.txtVerDate)
Me.verifyBox.Controls.Add(Me.txtVerBy)
Me.verifyBox.Controls.Add(Me.Label4)
Me.verifyBox.Controls.Add(Me.Label3)
Me.verifyBox.Location = New System.Drawing.Point(469, 25)
Me.verifyBox.Name = "verifyBox"
Me.verifyBox.Size = New System.Drawing.Size(528, 91)
Me.verifyBox.TabIndex = 5
Me.verifyBox.TabStop = False
Me.verifyBox.Text = "Verify"
'
'btn_verify
'
Me.btn_verify.Enabled = False
Me.btn_verify.Location = New System.Drawing.Point(366, 22)
Me.btn_verify.Name = "btn_verify"
Me.btn_verify.Size = New System.Drawing.Size(156, 54)
Me.btn_verify.TabIndex = 4
Me.btn_verify.Text = "Approve Sequence"
Me.btn_verify.UseVisualStyleBackColor = True
'
'txtVerDate
'
Me.txtVerDate.Enabled = False
Me.txtVerDate.Location = New System.Drawing.Point(133, 54)
Me.txtVerDate.Name = "txtVerDate"
Me.txtVerDate.Size = New System.Drawing.Size(213, 23)
Me.txtVerDate.TabIndex = 3
'
'txtVerBy
'
Me.txtVerBy.Enabled = False
Me.txtVerBy.Location = New System.Drawing.Point(133, 25)
Me.txtVerBy.Name = "txtVerBy"
Me.txtVerBy.Size = New System.Drawing.Size(213, 23)
Me.txtVerBy.TabIndex = 2
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(30, 59)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(100, 15)
Me.Label4.TabIndex = 1
Me.Label4.Text = "Verification Date:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(62, 30)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(67, 15)
Me.Label3.TabIndex = 0
Me.Label3.Text = "Verified By:"
'
'cmbLine
'
Me.cmbLine.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbLine.FormattingEnabled = True
Me.cmbLine.Location = New System.Drawing.Point(137, 45)
Me.cmbLine.Name = "cmbLine"
Me.cmbLine.Size = New System.Drawing.Size(116, 23)
Me.cmbLine.TabIndex = 10
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(98, 48)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(32, 15)
Me.Label7.TabIndex = 9
Me.Label7.Text = "Line:"
'
'cmbModel
'
Me.cmbModel.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbModel.FormattingEnabled = True
Me.cmbModel.Location = New System.Drawing.Point(137, 72)
Me.cmbModel.Name = "cmbModel"
Me.cmbModel.Size = New System.Drawing.Size(204, 23)
Me.cmbModel.TabIndex = 12
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(84, 75)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(45, 15)
Me.Label5.TabIndex = 11
Me.Label5.Text = "Model:"
'
'cmbType
'
Me.cmbType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbType.FormattingEnabled = True
Me.cmbType.Location = New System.Drawing.Point(137, 101)
Me.cmbType.Name = "cmbType"
Me.cmbType.Size = New System.Drawing.Size(145, 23)
Me.cmbType.TabIndex = 14
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(93, 104)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(34, 15)
Me.Label6.TabIndex = 13
Me.Label6.Text = "Type:"
'
'mcSeqForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1003, 666)
Me.ControlBox = False
Me.Controls.Add(Me.verifyBox)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.basicInfo)
Me.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "mcSeqForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "Machine Sequence Maitenance"
Me.basicInfo.ResumeLayout(False)
Me.basicInfo.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
CType(Me.dg_mtSeq, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.verifyBox.ResumeLayout(False)
Me.verifyBox.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents basicInfo As System.Windows.Forms.GroupBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents dg_mtSeq As System.Windows.Forms.DataGridView
Friend WithEvents cmbSeq As System.Windows.Forms.ComboBox
Friend WithEvents cmbRev As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents ts_new As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_edit As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_delete As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_revert As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_save As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_find As System.Windows.Forms.ToolStripButton
Friend WithEvents verifyBox As System.Windows.Forms.GroupBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents txtVerDate As System.Windows.Forms.TextBox
Friend WithEvents txtVerBy As System.Windows.Forms.TextBox
Friend WithEvents btn_verify As System.Windows.Forms.Button
Friend WithEvents cmbLine As System.Windows.Forms.ComboBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents cmbModel As System.Windows.Forms.ComboBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents cmbType As System.Windows.Forms.ComboBox
Friend WithEvents Label6 As System.Windows.Forms.Label
End Class

View File

@ -0,0 +1,65 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
<asmv1:assemblyIdentity name="Mounting Sequence.exe" version="1.0.0.2" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<application />
<entryPoint>
<assemblyIdentity name="Mounting Sequence" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<commandLine file="Mounting Sequence.exe" parameters="" />
</entryPoint>
<trustInfo>
<security>
<applicationRequestMinimum>
<PermissionSet Unrestricted="true" ID="Custom" SameSite="site" />
<defaultAssemblyRequest permissionSetReference="Custom" />
</applicationRequestMinimum>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!--
UAC Manifest Options
If you want to change the Windows User Account Control level replace the
requestedExecutionLevel node with one of the following.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
If you want to utilize File and Registry Virtualization for backward
compatibility then delete the requestedExecutionLevel node.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<dependency>
<dependentOS>
<osVersionInfo>
<os majorVersion="4" minorVersion="10" buildNumber="0" servicePackMajor="0" />
</osVersionInfo>
</dependentOS>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Microsoft.Windows.CommonLanguageRuntime" version="2.0.50727.0" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Mounting Sequence.exe" size="585216">
<assemblyIdentity name="Mounting Sequence" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>ARJ+dgM6+A39dIgA7Bw/zudkpUw=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<file name="Mounting Sequence.exe.config" size="2657">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>itsr0lDPoTEnRQYblCwApfW/vvY=</dsig:DigestValue>
</hash>
</file>
</asmv1:assembly>

View File

@ -0,0 +1,24 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
MountingSequence
</name>
</assembly>
<members>
<member name="P:Mounting_Sequence.My.Resources.Resources.ResourceManager">
<summary>
Returns the cached ResourceManager instance used by this class.
</summary>
</member><member name="P:Mounting_Sequence.My.Resources.Resources.Culture">
<summary>
Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.
</summary>
</member><member name="T:Mounting_Sequence.My.Resources.Resources">
<summary>
A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member>
</members>
</doc>

View File

@ -0,0 +1,312 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class machineForm
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(machineForm))
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.txtLine = New System.Windows.Forms.TextBox
Me.Label6 = New System.Windows.Forms.Label
Me.cmbPlant = New System.Windows.Forms.ComboBox
Me.Label4 = New System.Windows.Forms.Label
Me.txtMchModel = New System.Windows.Forms.TextBox
Me.Label3 = New System.Windows.Forms.Label
Me.cbActive = New System.Windows.Forms.CheckBox
Me.txtMchName = New System.Windows.Forms.TextBox
Me.txtMchCode = New System.Windows.Forms.TextBox
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.btn_find = New System.Windows.Forms.Button
Me.ts_new = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator
Me.ts_edit = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator
Me.ts_delete = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator
Me.ts_find = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator
Me.ts_save = New System.Windows.Forms.ToolStripButton
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
Me.ts_revert = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator
Me.GroupBox1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.txtLine)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.cmbPlant)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.txtMchModel)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.cbActive)
Me.GroupBox1.Controls.Add(Me.txtMchName)
Me.GroupBox1.Controls.Add(Me.txtMchCode)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.btn_find)
Me.GroupBox1.Location = New System.Drawing.Point(6, 27)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(499, 156)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Information"
'
'txtLine
'
Me.txtLine.Enabled = False
Me.txtLine.Location = New System.Drawing.Point(124, 126)
Me.txtLine.Name = "txtLine"
Me.txtLine.Size = New System.Drawing.Size(76, 20)
Me.txtLine.TabIndex = 4
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(88, 132)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(30, 13)
Me.Label6.TabIndex = 27
Me.Label6.Text = "Line:"
'
'cmbPlant
'
Me.cmbPlant.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbPlant.Enabled = False
Me.cmbPlant.FormattingEnabled = True
Me.cmbPlant.Items.AddRange(New Object() {"", "Administrator", "Encoder", "Generator", "Guest"})
Me.cmbPlant.Location = New System.Drawing.Point(124, 100)
Me.cmbPlant.Name = "cmbPlant"
Me.cmbPlant.Size = New System.Drawing.Size(159, 21)
Me.cmbPlant.TabIndex = 3
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(84, 105)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(34, 13)
Me.Label4.TabIndex = 25
Me.Label4.Text = "Plant:"
'
'txtMchModel
'
Me.txtMchModel.Enabled = False
Me.txtMchModel.Location = New System.Drawing.Point(124, 74)
Me.txtMchModel.Name = "txtMchModel"
Me.txtMchModel.Size = New System.Drawing.Size(159, 20)
Me.txtMchModel.TabIndex = 2
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(36, 79)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(83, 13)
Me.Label3.TabIndex = 22
Me.Label3.Text = "Machine Model:"
'
'cbActive
'
Me.cbActive.AutoSize = True
Me.cbActive.Enabled = False
Me.cbActive.Location = New System.Drawing.Point(298, 24)
Me.cbActive.Name = "cbActive"
Me.cbActive.Size = New System.Drawing.Size(56, 17)
Me.cbActive.TabIndex = 6
Me.cbActive.Text = "Active"
Me.cbActive.UseVisualStyleBackColor = True
'
'txtMchName
'
Me.txtMchName.Enabled = False
Me.txtMchName.Location = New System.Drawing.Point(124, 48)
Me.txtMchName.Name = "txtMchName"
Me.txtMchName.Size = New System.Drawing.Size(159, 20)
Me.txtMchName.TabIndex = 1
'
'txtMchCode
'
Me.txtMchCode.Enabled = False
Me.txtMchCode.Location = New System.Drawing.Point(124, 21)
Me.txtMchCode.Name = "txtMchCode"
Me.txtMchCode.Size = New System.Drawing.Size(159, 20)
Me.txtMchCode.TabIndex = 0
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(38, 51)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(82, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Machine Name:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(41, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(79, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Machine Code:"
'
'btn_find
'
Me.btn_find.Location = New System.Drawing.Point(296, 19)
Me.btn_find.Name = "btn_find"
Me.btn_find.Size = New System.Drawing.Size(75, 23)
Me.btn_find.TabIndex = 7
Me.btn_find.Text = "GO"
Me.btn_find.UseVisualStyleBackColor = True
'
'ts_new
'
Me.ts_new.Image = CType(resources.GetObject("ts_new.Image"), System.Drawing.Image)
Me.ts_new.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_new.Name = "ts_new"
Me.ts_new.Size = New System.Drawing.Size(56, 22)
Me.ts_new.Text = "Insert"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'ts_edit
'
Me.ts_edit.Image = CType(resources.GetObject("ts_edit.Image"), System.Drawing.Image)
Me.ts_edit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_edit.Name = "ts_edit"
Me.ts_edit.Size = New System.Drawing.Size(62, 22)
Me.ts_edit.Text = "Update"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25)
'
'ts_delete
'
Me.ts_delete.Image = CType(resources.GetObject("ts_delete.Image"), System.Drawing.Image)
Me.ts_delete.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_delete.Name = "ts_delete"
Me.ts_delete.Size = New System.Drawing.Size(58, 22)
Me.ts_delete.Text = "Delete"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25)
'
'ts_find
'
Me.ts_find.Image = CType(resources.GetObject("ts_find.Image"), System.Drawing.Image)
Me.ts_find.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_find.Name = "ts_find"
Me.ts_find.Size = New System.Drawing.Size(47, 22)
Me.ts_find.Text = "Find"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 25)
'
'ts_save
'
Me.ts_save.Enabled = False
Me.ts_save.Image = CType(resources.GetObject("ts_save.Image"), System.Drawing.Image)
Me.ts_save.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_save.Name = "ts_save"
Me.ts_save.Size = New System.Drawing.Size(77, 22)
Me.ts_save.Text = "Save Data"
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ts_new, Me.ToolStripSeparator1, Me.ts_edit, Me.ToolStripSeparator2, Me.ts_delete, Me.ToolStripSeparator3, Me.ts_revert, Me.ToolStripSeparator5, Me.ts_save, Me.ToolStripSeparator4, Me.ts_find})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(512, 25)
Me.ToolStrip1.TabIndex = 3
'
'ts_revert
'
Me.ts_revert.Enabled = False
Me.ts_revert.Image = CType(resources.GetObject("ts_revert.Image"), System.Drawing.Image)
Me.ts_revert.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_revert.Name = "ts_revert"
Me.ts_revert.Size = New System.Drawing.Size(60, 22)
Me.ts_revert.Text = "Revert"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 25)
'
'machineForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(512, 186)
Me.ControlBox = False
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.ToolStrip1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "machineForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "Machine Maintenance"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents cbActive As System.Windows.Forms.CheckBox
Friend WithEvents txtMchName As System.Windows.Forms.TextBox
Friend WithEvents txtMchCode As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ts_new As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_edit As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_delete As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_find As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_save As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents btn_find As System.Windows.Forms.Button
Friend WithEvents ts_revert As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents cmbPlant As System.Windows.Forms.ComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents txtMchModel As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents txtLine As System.Windows.Forms.TextBox
End Class

View File

@ -0,0 +1,315 @@
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Security
Imports System.Security.Cryptography
Imports System.Text
Public Class Mounting
Private _date As DateTime
Private _sequence As String
Private _revision As String
Private _feeder As String
Private _partNo As String
Private _quantity As Double
Private _lotNumber As String
Private _operator As String
Private _verify As Integer
Private _3pL As String
Private cnstr As String
Private _sequenceno As String
Private _lblserial As String
Public Property mDate() As DateTime
Get
Return _date
End Get
Set(ByVal value As DateTime)
_date = value
End Set
End Property
Public Property machine() As String
Get
Return _sequence
End Get
Set(ByVal value As String)
_sequence = value
End Set
End Property
Public Property lblserial() As String
Get
Return _lblserial
End Get
Set(ByVal value As String)
_lblserial = value
End Set
End Property
Public Property sequenceno() As String
Get
Return _sequenceno
End Get
Set(ByVal value As String)
_sequenceno = value
End Set
End Property
Public Property revision() As String
Get
Return _revision
End Get
Set(ByVal value As String)
_revision = value
End Set
End Property
Public Property feeder() As String
Get
Return _feeder
End Get
Set(ByVal value As String)
_feeder = value
End Set
End Property
Public Property partno() As String
Get
Return _partNo
End Get
Set(ByVal value As String)
_partNo = value
End Set
End Property
Public Property quantity() As Double
Get
Return _quantity
End Get
Set(ByVal value As Double)
_quantity = value
End Set
End Property
Public Property lotNumber As String
Get
Return _lotNumber
End Get
Set(ByVal value As String)
_lotNumber = value
End Set
End Property
Public Property mOperator() As String
Get
Return _operator
End Get
Set(ByVal value As String)
_operator = value
End Set
End Property
Public Property verify() As Integer
Get
Return _verify
End Get
Set(ByVal value As Integer)
_verify = value
End Set
End Property
Public Property threePL() As String
Get
Return _3pL
End Get
Set(ByVal value As String)
_3pL = value
End Set
End Property
Public Sub New()
cnstr = mainForm.cnstr
End Sub
Public Sub add(ByVal reload As Boolean, ByVal qacheck As Boolean, ByVal status As Boolean)
Dim conn As New SqlConnection(cnstr)
Dim active As Integer = 0
Dim myQuery As String
Dim myStatus As String = ""
If status = False Then
myStatus = "fail"
Else
myStatus = "pass"
End If
If qacheck Then
myQuery = "INSERT INTO kmounting VALUES (" & _
"'" & Me.mDate & "'," & _
"'" & Me.machine & "'," & _
"'" & Me.revision & "'," & _
"'" & Me.feeder & "'," & _
"'" & Me.partno & "'," & _
Me.quantity & "," & _
"'" & Me.lotNumber & "'," & _
"'" & Me.mOperator & "'," & _
Me.verify & "," & _
"'qa-" & myStatus & "'," & _
"'" & Me.sequenceno & "'," & _
"'" & Me.lblserial & "')"
Else
If reload Then
myQuery = "INSERT INTO kmounting VALUES (" & _
"'" & Me.mDate & "'," & _
"'" & Me.machine & "'," & _
"'" & Me.revision & "'," & _
"'" & Me.feeder & "'," & _
"'" & Me.partno & "'," & _
Me.quantity & "," & _
"'" & Me.lotNumber & "'," & _
"'" & Me.mOperator & "'," & _
Me.verify & "," & _
"'reload-" & myStatus & "'," & _
"'" & Me.sequenceno & "'," & _
"'" & Me.lblserial & "')"
Else
myQuery = "INSERT INTO kmounting VALUES (" & _
"'" & Me.mDate & "'," & _
"'" & Me.machine & "'," & _
"'" & Me.revision & "'," & _
"'" & Me.feeder & "'," & _
"'" & Me.partno & "'," & _
Me.quantity & "," & _
"'" & Me.lotNumber & "'," & _
"'" & Me.mOperator & "'," & _
Me.verify & "," & _
"'op-" & myStatus & "'," & _
"'" & Me.sequenceno & "'," & _
"'" & Me.lblserial & "')"
End If
End If
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
Public Sub add_hist(ByVal reload As Boolean, ByVal qacheck As Boolean, ByVal status As Boolean)
Dim conn As New SqlConnection(cnstr)
Dim active As Integer = 0
Dim myQuery As String
Dim myStatus As String = ""
If status = False Then
myStatus = "-fail"
End If
If reload = True And qacheck = False Then
myQuery = "INSERT INTO kmounting_hist VALUES (" & _
"'" & Me.mDate & "'," & _
"'" & Me.machine & "'," & _
"'" & Me.revision & "'," & _
"'" & Me.feeder & "'," & _
"'" & Me.partno & "'," & _
Me.quantity & "," & _
"'" & Me.lotNumber & "'," & _
"'" & Me.mOperator & "'," & _
Me.verify & "," & _
"'reload" & myStatus & "')"
ElseIf reload = False And qacheck = True Then
myQuery = "INSERT INTO kmounting_hist VALUES (" & _
"'" & Me.mDate & "'," & _
"'" & Me.machine & "'," & _
"'" & Me.revision & "'," & _
"'" & Me.feeder & "'," & _
"'" & Me.partno & "'," & _
"0," & _
"''," & _
"'" & Me.mOperator & "'," & _
Me.verify & "," & _
"'check" & myStatus & "')"
Else
myQuery = "INSERT INTO kmounting_hist VALUES (" & _
"'" & Me.mDate & "'," & _
"'" & Me.machine & "'," & _
"'" & Me.revision & "'," & _
"'" & Me.feeder & "'," & _
"'" & Me.partno & "'," & _
Me.quantity & "," & _
"'" & Me.lotNumber & "'," & _
"'" & Me.mOperator & "'," & _
Me.verify & "," & _
"'" & Me.threePL & myStatus & "')"
End If
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
Public Sub addSettings(ByVal line As String, ByVal ksequence As String)
Dim conn As New SqlConnection(cnstr)
Dim active As Integer = 0
Dim myQuery As String
Dim myStatus As String = ""
myQuery = "SELECT * from KSETTINGS WHERE line = '" & line & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader = mycommand.ExecuteReader
If reader.HasRows Then
reader.Close()
myQuery = "UPDATE KSETTINGS SET ksequence = '" & ksequence & "' WHERE line = '" & line & "'"
mycommand = New SqlCommand(myQuery, conn)
mycommand.ExecuteNonQuery()
Else
reader.Close()
myQuery = "INSERT INTO KSETTINGS(line,ksequence) VALUES(" & line & ",'" & ksequence & "')"
mycommand = New SqlCommand(myQuery, conn)
mycommand.ExecuteNonQuery()
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
End Class

View File

@ -0,0 +1,25 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xrml="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<assemblyIdentity name="Kanban System.application" version="1.0.0.10" publicKeyToken="23135af9664d69f7" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" />
<description asmv2:publisher="Ionics EMS, Inc." asmv2:product="Kanban" xmlns="urn:schemas-microsoft-com:asm.v1" />
<deployment install="true" mapFileExtensions="true">
<subscription>
<update>
<beforeApplicationStartup />
</update>
</subscription>
<deploymentProvider codebase="file://192.168.1.23/Projects/Mounting%20Sequence/Mounting%20Sequence/Installer/Kanban%20System.application" />
</deployment>
<dependency>
<dependentAssembly dependencyType="install" codebase="Application Files\Kanban System_1_0_0_10\Kanban System.exe.manifest" size="7744">
<assemblyIdentity name="Kanban System.exe" version="1.0.0.10" publicKeyToken="23135af9664d69f7" language="neutral" processorArchitecture="msil" type="win32" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>EzJeNI91CSjQZobLmJ7u9wM7O0Y=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<publisherIdentity name="CN=IONICS\charlie.gerodias" issuerKeyHash="709f262409d189ec19f7b1912bfef9069d56bffe" /><Signature Id="StrongNameSignature" xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Reference URI=""><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue>MByRp9EK3Jh/hxlEJ+plr3YvHcU=</DigestValue></Reference></SignedInfo><SignatureValue>i16tjHLN5ZPL1kkKn5/yHUj5vku6BrYlJg2gxud/IIeMrNESBWvc9DvQbrqAOQefUSyoRKljtwHijNMUSh7pAQJ7wYCMC587c3A7jpIlximu7Q/lnSNpxbgCxm6rdRRaTO6OzFCkf5UekPXXDsu0J0Xiu2Pq34JUREgNySuGvWY=</SignatureValue><KeyInfo Id="StrongNameKeyInfo"><KeyValue><RSAKeyValue><Modulus>5BtbQSO8rPhmsTRH0Y26M53ZThJ+nUjuYoDnqiBgV/PdnZeJjGQ2bs5ALzWb/bAqFZZn0tBRWuiBSpvj6OT3WPtU5ST0CVdC+ZpFABwD72Qu6Aub9ZFRuwCj1+pB5EziuW2Ut8ABCzpame3lfeNzoErWb41ywrkQoHBFEtBYXE8=</Modulus><Exponent>AQAB</Exponent></RSAKeyValue></KeyValue><msrel:RelData xmlns:msrel="http://schemas.microsoft.com/windows/rel/2005/reldata"><r:license xmlns:r="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:as="http://schemas.microsoft.com/windows/pki/2005/Authenticode"><r:grant><as:ManifestInformation Hash="c51d2f76af65ea274419877f98dc0ad1a7911c30" Description="" Url=""><as:assemblyIdentity name="Kanban System.application" version="1.0.0.10" publicKeyToken="23135af9664d69f7" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" /></as:ManifestInformation><as:SignedBy /><as:AuthenticodePublisher><as:X509SubjectName>CN=IONICS\charlie.gerodias</as:X509SubjectName></as:AuthenticodePublisher></r:grant><r:issuer><Signature Id="AuthenticodeSignature" xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Reference URI=""><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue>XG/JoppArMzQVuZIAFMypNCAgRI=</DigestValue></Reference></SignedInfo><SignatureValue>qPx8fL2/1jWSRkat03gO5MSh/8r1XZaOBiSnx8K5OvO+gVWyAIVIzplcQxDfmllVhOXSR+BmGomLuCLoCo0fuMEgReKndygEcD3/q3I7Hx2HBRsL4gfBO+BX2g7i906bsABhUOLFAiNF+zDi/kJyP8vjI2Kt5mjltwbPYHxAV44=</SignatureValue><KeyInfo><KeyValue><RSAKeyValue><Modulus>5BtbQSO8rPhmsTRH0Y26M53ZThJ+nUjuYoDnqiBgV/PdnZeJjGQ2bs5ALzWb/bAqFZZn0tBRWuiBSpvj6OT3WPtU5ST0CVdC+ZpFABwD72Qu6Aub9ZFRuwCj1+pB5EziuW2Ut8ABCzpame3lfeNzoErWb41ywrkQoHBFEtBYXE8=</Modulus><Exponent>AQAB</Exponent></RSAKeyValue></KeyValue><X509Data><X509Certificate>MIIB7TCCAVqgAwIBAgIQeTxnQVX6FpVBogp+Ii3SnjAJBgUrDgMCHQUAMDkxNzA1BgNVBAMeLgBJAE8ATgBJAEMAUwBcAGMAaABhAHIAbABpAGUALgBnAGUAcgBvAGQAaQBhAHMwHhcNMTMwNTMwMDkzODA1WhcNMTQwNTMwMTUzODA1WjA5MTcwNQYDVQQDHi4ASQBPAE4ASQBDAFMAXABjAGgAYQByAGwAaQBlAC4AZwBlAHIAbwBkAGkAYQBzMIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDkG1tBI7ys+GaxNEfRjbozndlOEn6dSO5igOeqIGBX892dl4mMZDZuzkAvNZv9sCoVlmfS0FFa6IFKm+Po5PdY+1TlJPQJV0L5mkUAHAPvZC7oC5v1kVG7AKPX6kHkTOK5bZS3wAELOlqZ7eV943OgStZvjXLCuRCgcEUS0FhcTwIDAQABMAkGBSsOAwIdBQADgYEAtDfGKCa7lgB6c43lZX63ZN1gBgUlbWaPkZRFAtSkIJNoEbfydq8eriGeO01/73IFrCUZhIdSEXi7PRcEKp4oDSlCKbrJsF0m5aOAWKrJS0DFPC1oqTiTlV5ZdqU279ZAOm2AeR90jKNm3AHjImyb+ZGKEQQKZ0HH16OthENpZ4I=</X509Certificate></X509Data></KeyInfo></Signature></r:issuer></r:license></msrel:RelData></KeyInfo></Signature></asmv1:assembly>

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,125 @@
Public Class issuanceForm
Private isUpdate = False
Private Sub txtSerial_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSerial.KeyPress
If Asc(e.KeyChar) = 13 Then
Dim parts = New PartsRecords(txtSerial.Text)
If parts.Exist Then
txtPN.Text = parts.IonicsPN
txtDesc.Text = parts.Description
txtLot.Text = parts.LotNo
txtBox.Text = parts.Rack
txtQuantity.Text = parts.Quantity
lblStatus.Text = parts.Status
lblMFGDate.Text = parts.MFGDate
lblRCVDate.Text = parts.RCVDate
lblPDate.Text = parts.PrintedDate
lblBy.Text = parts.PrintedBy
cmbStatus.SelectedItem = parts.Status
enable()
If parts.Status <> "WHS" And parts.Status <> "LST" Then
btnIssue.Enabled = False
btnUpdate.Enabled = False
ElseIf parts.Status = "LST" Then
btnIssue.Enabled = False
End If
If parts.Remarks <> "" Then
txtRemarks.Text = parts.Remarks
Else
txtRemarks.Text = "N/A"
End If
Else
MessageBox.Show("Item not found.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
End Sub
Public Sub enable()
btnIssue.Enabled = True
btnReset.Enabled = True
btnUpdate.Enabled = True
End Sub
Public Sub reset()
txtSerial.Text = Nothing
txtPN.Text = Nothing
txtDesc.Text = Nothing
txtLot.Text = Nothing
txtBox.Text = Nothing
txtQuantity.Text = Nothing
txtRemarks.ReadOnly = True
txtRemarks.Text = Nothing
cmbStatus.SelectedText = Nothing
cmbStatus.Text = Nothing
cmbStatus.Enabled = False
lblStatus.Text = Nothing
lblMFGDate.Text = Nothing
lblRCVDate.Text = Nothing
lblPDate.Text = Nothing
lblBy.Text = Nothing
btnIssue.Enabled = False
btnReset.Enabled = False
isUpdate = False
btnUpdate.Text = "Update"
btnUpdate.Enabled = False
End Sub
Public Sub updatemode()
txtRemarks.ReadOnly = False
cmbStatus.Enabled = True
btnUpdate.Text = "Save"
btnIssue.Enabled = False
isUpdate = True
End Sub
Private Sub issuanceForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.MdiParent = mainForm
Control.CheckForIllegalCrossThreadCalls = False
If loginForm.userType = "Supervisor" Then
btnUpdate.Visible = True
Else
btnUpdate.Visible = False
End If
End Sub
Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
reset()
End Sub
Private Sub btnIssue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIssue.Click
Dim parts As New PartsRecords
If Not parts.issue(txtSerial.Text, txtPN.Text, DateTime.Parse(lblMFGDate.Text)) Then
If MessageBox.Show("There are older items are you sure you want to continue?", "Error", MessageBoxButtons.YesNo, MessageBoxIcon.Error) = Windows.Forms.DialogResult.Yes Then
parts.issue2(txtSerial.Text, txtPN.Text, DateTime.Parse(lblMFGDate.Text))
reset()
End If
Else
reset()
End If
End Sub
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
If isUpdate Then
Dim parts As New PartsRecords
If cmbStatus.SelectedItem = "LST" And (txtRemarks.Text = "N/A" Or txtRemarks.Text = "") Then
MessageBox.Show("Please provide proper remarks.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
If parts.updateStatus(txtSerial.Text, cmbStatus.SelectedItem, txtRemarks.Text) Then
MessageBox.Show("Successfully Saved.", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
reset()
End If
Else
updatemode()
End If
End Sub
Private Sub txtRemarks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRemarks.TextChanged
End Sub
End Class

View File

@ -0,0 +1,235 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class partsForm
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(partsForm))
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.txtDesc = New System.Windows.Forms.TextBox()
Me.txtPartno = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.btn_find = New System.Windows.Forms.Button()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ts_new = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_edit = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_delete = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_revert = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_save = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.ts_find = New System.Windows.Forms.ToolStripButton()
Me.txtUsername = New System.Windows.Forms.TextBox()
Me.GroupBox1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.txtDesc)
Me.GroupBox1.Controls.Add(Me.txtPartno)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.btn_find)
Me.GroupBox1.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(6, 30)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(499, 92)
Me.GroupBox1.TabIndex = 4
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Information"
'
'txtDesc
'
Me.txtDesc.Enabled = False
Me.txtDesc.Location = New System.Drawing.Point(124, 48)
Me.txtDesc.Name = "txtDesc"
Me.txtDesc.Size = New System.Drawing.Size(360, 23)
Me.txtDesc.TabIndex = 1
'
'txtPartno
'
Me.txtPartno.Enabled = False
Me.txtPartno.Location = New System.Drawing.Point(124, 21)
Me.txtPartno.Name = "txtPartno"
Me.txtPartno.Size = New System.Drawing.Size(159, 23)
Me.txtPartno.TabIndex = 0
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(47, 51)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(74, 15)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Description:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(42, 25)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(79, 15)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Part Number:"
'
'btn_find
'
Me.btn_find.Location = New System.Drawing.Point(296, 19)
Me.btn_find.Name = "btn_find"
Me.btn_find.Size = New System.Drawing.Size(75, 23)
Me.btn_find.TabIndex = 7
Me.btn_find.Text = "GO"
Me.btn_find.UseVisualStyleBackColor = True
'
'ToolStrip1
'
Me.ToolStrip1.Font = New System.Drawing.Font("Calibri", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ts_new, Me.ToolStripSeparator1, Me.ts_edit, Me.ToolStripSeparator2, Me.ts_delete, Me.ToolStripSeparator3, Me.ts_revert, Me.ToolStripSeparator5, Me.ts_save, Me.ToolStripSeparator4, Me.ts_find})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(513, 25)
Me.ToolStrip1.TabIndex = 5
'
'ts_new
'
Me.ts_new.Image = CType(resources.GetObject("ts_new.Image"), System.Drawing.Image)
Me.ts_new.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_new.Name = "ts_new"
Me.ts_new.Size = New System.Drawing.Size(59, 22)
Me.ts_new.Text = "Insert"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'ts_edit
'
Me.ts_edit.Image = CType(resources.GetObject("ts_edit.Image"), System.Drawing.Image)
Me.ts_edit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_edit.Name = "ts_edit"
Me.ts_edit.Size = New System.Drawing.Size(67, 22)
Me.ts_edit.Text = "Update"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25)
'
'ts_delete
'
Me.ts_delete.Image = CType(resources.GetObject("ts_delete.Image"), System.Drawing.Image)
Me.ts_delete.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_delete.Name = "ts_delete"
Me.ts_delete.Size = New System.Drawing.Size(64, 22)
Me.ts_delete.Text = "Delete"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25)
'
'ts_revert
'
Me.ts_revert.Enabled = False
Me.ts_revert.Image = CType(resources.GetObject("ts_revert.Image"), System.Drawing.Image)
Me.ts_revert.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_revert.Name = "ts_revert"
Me.ts_revert.Size = New System.Drawing.Size(61, 22)
Me.ts_revert.Text = "Revert"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 25)
'
'ts_save
'
Me.ts_save.Enabled = False
Me.ts_save.Image = CType(resources.GetObject("ts_save.Image"), System.Drawing.Image)
Me.ts_save.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_save.Name = "ts_save"
Me.ts_save.Size = New System.Drawing.Size(81, 22)
Me.ts_save.Text = "Save Data"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 25)
'
'ts_find
'
Me.ts_find.Image = CType(resources.GetObject("ts_find.Image"), System.Drawing.Image)
Me.ts_find.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_find.Name = "ts_find"
Me.ts_find.Size = New System.Drawing.Size(51, 22)
Me.ts_find.Text = "Find"
'
'txtUsername
'
Me.txtUsername.Enabled = False
Me.txtUsername.Location = New System.Drawing.Point(124, 21)
Me.txtUsername.Name = "txtUsername"
Me.txtUsername.Size = New System.Drawing.Size(159, 20)
Me.txtUsername.TabIndex = 0
'
'partsForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(513, 130)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.ToolStrip1)
Me.Name = "partsForm"
Me.Text = "Part Number Maintenance"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txtDesc As System.Windows.Forms.TextBox
Friend WithEvents txtPartno As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents ts_new As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_edit As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_delete As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_revert As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_save As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_find As System.Windows.Forms.ToolStripButton
Friend WithEvents btn_find As System.Windows.Forms.Button
Friend WithEvents txtUsername As System.Windows.Forms.TextBox
End Class

View File

@ -0,0 +1,117 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@ -0,0 +1,227 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ts_new.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAwdJREFUOE+N03lI
k2EcB/A557HXY+/mdN7z3OaRm8cKu1CQolkRZQpiKZGZ/mPlgalZadqhqGlF5VXRQVJBYklGKmlaqRnk
nVfqcnaIR97ot3eTIiyrH/z+ep7v53l5n9+jTvt7mVLLBlSD6tl/7P25LOY6alzyCdNsjshUHz2SoTa5
J1ld7iLTqKLRaeHULmJlSJMRJT1ETKS1kLg5xcL1SRIF30hcHucgS2GAkLtsmG1gVlOA6HdEWzt+UzYX
hTMcFI6RyP3IRuagDtIHdJDWx0ZCtzHiP5oj/K05zDcTnRRg9SviKdnBWSic5eDKJxZy5CQuDrGRr7BE
0bAdriqMkCtnIek9DxFdfPhV8UE4EPcpgK5CCBFRfKKdi7wRFk5/MEBqnz4y+s3RM12B0fkPKPkchpQ+
LaT3sxHbYYygTjs4xfAWqahUmWdKQvX6875xcLLHCDEdbES2MXC00whf5nqhrAfD0QhvpSGqQwfHugwR
0mqD9XeswTDSjFICFrJUYiJ7xBARzTyc6fbBLXkkiofiMDavUAH1o/dwfTAcRYMHENtug33NFthQKgAp
IbKUgFXAWWIyeYiH3Q1slCouqEJ/qrmFaUS3SBHQZALPUiF03XRzlIDhtjitr4lyE8hqjZHXmwTFTD+G
ZwYwvzincsbmRjA03Ye28Qbsb/KAbz0fkmIRmAJmqhJQk+zUakwcMIFvrR221rhgV5079r72wuDU0j/I
7zmHbS+c4FfnAVmNEF6vnGGbYQuaBt1/6RYM6DEhD7kIbreDtFwEyRM+vCvFGJ6Wq4CsjlNwLONhzVN7
rK1whGu1K/R8uQPKr/8xC/rW3lpvDlJDsrVRBMfHzpCUeSCt5RwKuq8hsDYIwlIKLneB60t3mMVZKU8P
Xj6NDrZbmG3+zyyw/Z0DpM9dYF0mhOUjAQTlqyCpdoO40hWm0XwwSMbxld6DCWmvmS84rDu58QYf60rs
sbpEBPFtIWxSrKDvw2mmgoH/8yqdNAh6KClmprM8dM9rW2snUCEZ1XrLw98BygqlsVvsunwAAAAASUVO
RK5CYII=
</value>
</data>
<data name="ts_edit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAmdJREFUOE91k0to
E1EUhqdd6KKIG3XhSmwTWqwUwYU7V1KqBNy5EmqTggUhEG2yaB6LCEJ3QhcuFBEqNiDioiBFa5tY0dLn
pJkkbdrEpNYmTTJJp5PJ5DHze2dCa2diD/wM53DOd/97uNNCaeMmSS8RQVdvJXmAKK6r/0uv9fQ8m5jw
IfBtDrP+AGZm/Zj6PI1x3weMjr3CA7P5N+m+cRLgrN1uT4FEJl88UjpbwGZyF/PBDaRzBVit1t2TIBe8
Xm+CFyrY/pPRKLWTRjiWILUs8iUeNpstZ6TOvSGg7uNuzns8nrhYrSOdzWuUybJIEkicgDejSYTuvsYS
NQwT1b1KAGcOISqgKsnIscUmFTkRy7/28PHFJELUCAE8QV/r1WaARHawz/EocgdHKvAS+EIKsZ9erGwm
sfB8Gi8HRnGx67JTcwW32xNXlsgLZRyUhIbKJOeKqAdvATEKOyuP8COawPcgja6uK8MagMvtVgFlsQKh
LEKoAgK/jzrTB0QpYIVCLfKUdMhYYyIwdnY6NACnqwGo1mqo1IGKyEGKkGGGDK+2IL/sBcspHUCIYZoB
DqdLBdRlGbUqC3m9F6DJMN2CuP8x1sLbYAsNwhoThtFo1DpwOJ0qQIWwi0BQOZnC0uQA/HM0sjkWkqSs
mQBCDDqaAI4GoEausLcVQvjTEKbe3kdgbhl8SVQHZeJOiaAC6NA5sDtd6lMWBAH00jwWF2hsJfYOTWm+
kfUNtLe3jxxf4imTyTS/f1D674C+OP7Oh7a2tnv6H+t67+077wcfDs2YLZavivp1sgwOzvSbLV8MBoPy
iE4rgL8F11CPeKcziAAAAABJRU5ErkJggg==
</value>
</data>
<data name="ts_delete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAgxJREFUOE+Fk01I
VGEUht/7M5NKKTQIzkgghNSQECguxt0sXBRBm2rRxtUgKm4SN7oQCjEmRUxwpduQwE3tWkRgUQRWpjA6
TWVNt/JvDCdJZ8zTe4Zr+DOjFx7uzDnvec/3nft9Fo5+Akz7iJCtY7T/0xfPASMRE7MDXvzq92Kjy4Zz
ycAzKlpISUEjG+hospGeKYFkiiHbJyBZskVWGHtQBAmZmKTB+UMmXqArSmGGok0TkuKyV8kKWSKLZN0D
maZx2EKcBlV7TUJXvPi7TUHaLVQDZc1Ff/9QQwMyySZnDUzQwMyZVFt4OM/iP2437ZiPZca/aY4mnR7s
sLRe64sjFr5mGfzJpOOKVJgPXYXy2IL4THSowZm7BtKbDH5R93BY1trbJdXaup+2Nkk1N4vj80mSuhds
WGdgUA2q+oEN3XuC/B4fl6Mep7ZWPlP3ioSA+2pQfhtYXWdgTgcXjUrWcSSbTB4ik0jIQjAoH6l7SmqA
XjUwrgFTOu15NSkrk3hlpcT9/v0EAhKvqJCYbedWMEY8wI3cV+BZ7XziTv4t3+/IdAFmGP9ArgMcBcp3
z0JpI/DmkzvIKb7zoaYLpI8UAU0HT2PwKhB7zeR3dzvv3VXsdo3x/x1yGugpdB/8vEijt/hVHlH4nLwk
ur1hwgazLLxZ8DLtSVw4CUR4zO41AEPVQDdzl8mpg8X/ACkEWbVU7DUpAAAAAElFTkSuQmCC
</value>
</data>
<data name="ts_revert.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAgxJREFUOE+lkvtL
U2EYx+0PEbtpFwnBKPGKiJImGP0gYhIYs1E5GF5gIxkpA00JRSmMEF0ohMh+GaRWYlqabMVcNdS2QpaI
VqiDIYhk397vA6fXhCjyhYdzeM/5fp7vczkAdeL2cwho7v/wWzT1zcN+Pwhr51uY2/y41PQaF+wzKKiZ
QvaN58g0jyLd5KEUcQbg+84P/Cm2tncQjW3j68YWIqubCC3FcOJc478BAuGoZM6zvoRnakXEruEIjhc4
/g5gZop9c+voGAyLbQIfeBZxLL9BA1jzXvuGbWamuKh+GmmVbswE19A59FEBbmoAG7YbsLtm2mZmiml9
cvabNDwpz6YB7LYBoMXCumkJr7LOmnnHzBQ/9X2Bo2cOibm1GsBREbAQiYmw/8lnuCeWkVzcgnZlnw1j
3HV/wuNXK6i/9x5Hc6wawDlTXHbLJ+LZUBQPRyKwdQdxutwl1h+NLXHh5Ht1ewBHsiwawCW57HyDAfWR
dvl0uhZQ1eqX8aVc7EKLqrum651ATLf9OJx5XQM4KmY0xPzZ0hFAiQJnXB0WwME0E3IsL5B17ZlADqWb
NYDrOepdlcysmTWWOrxqbceRWtaLk0VO1XW72D5Vckd2gMBfq8zdpmUG62NJvKM4+XyziDk24xmfWoGE
s1c0gHPmbrPTpHNJKOCo2G1mZs20zcwUJ5yp1AB5+8/zEwgF5GMVDxh4AAAAAElFTkSuQmCC
</value>
</data>
<data name="ts_save.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAqhJREFUOE+tk8tP
E0Ecxzlo/AM4eFMxhUYJgi1taXmWkoox0YMmRC6aEIiLEqEiWGhR1BgegQClFZAIJPiAIK9wMURxL4Zg
jFGjQpdnFVqRLnT7Alv6dbZA4CB48Zd8spmZnc/8ZuY3ISH/I45e7Am/1DTb2zL8g+4anqSf7EH3yAyt
77bSyit9erL2geD6mYbxwdYvwKIXJAJYD2AXyACJ1xbgxqNpRMYWnN8QGKfeltPAt3k3PE4HHI7dWIHX
7UTHOw9ymy2Iji+6FhSoKhn6cm8AHyxueF0cOG43HFj1uFD9xoVzlZM4JtNQQYHiPkOf7QxgbMZFBHtn
sEoyuP2Sg/IugwjJpkB8x0yrHq9jdMqJtX8I1rxOFA85EadnINgSROrMtNTkx/tZF+Bzwk9++jsc4Hej
YIDDiWIzwkSbGQi1Zlps9CGjg0X2syVkEbKfLyGHp2sDvp31lP/aoTQtI0ZrxuEtQQQRSE0+HK+yQ1jJ
IrxqBcJqQtUygUUE6RNUkH6CsMKOmBoW4pIdAiHZgrzJB1kDC2nNIuKrLUgzWKGqW0BawwLUjTaoDTYo
amyQ1tkhq2chKd0h4M8gocUHeaMDqbXfkV/WiKv5WnQPvML4zCLmbC7M//LgwYAVJ2vtUBhYxOl2CvQM
ndTqR7yJw2mjFTlXCyGPjcJgfw/WfXx5blRg84gdIiJIMK5AXsZsn0FUydex1DYg6aETZ0w2IiiCXBKN
/r4X+L22LWgiAkn9MlIMS0gk13hErMkLFlJ4Zo9OoZtA4r05pOk/I09Tj5ysIrS3DWFsdBqfPi5gcuIn
ytvNkJYySCaTozM6raEHT6VsPeb9h6LyLwhkt3LDRNcpWUIelZ6upZQqDZVMUKkLKXV6ISVSaCj+6gSx
N3NDQ5P5yfv+AM8zgls5SSYnAAAAAElFTkSuQmCC
</value>
</data>
<data name="ts_find.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAqZJREFUOE+Vk2lI
E2AYx/3g5jHaB/PYPDAdJBlUA/siTEhSCIosIchAC4RZtCaeZWHepqamLo3yJJzmQTbDa5NmjqmZOnRu
MZ3u8phuklLZh+DfqxZo67AXHh6e9/3/f+9tZ/f3xnSkUh+z2ewNTnAwWCzWCJGf/4dnZ5hGp99MSkqx
dkkGMDg5A7laB+k7Bapr6sHhhHQSCfOPIDqdzi0oKoVEMYtXCi1kGhPkM0aIVTqIJmbROzCEsNNhcgI4
8DuIT2xsrKVtSInnE1qMWT5jev3rdkx93IRYt4pauQp1wjaw/PwSbACH/f1TyutfoGBQjUbt6nY0zVvQ
TKJpbicLFHo87R9DTMzVrTPZ28JDQ3tKRW8RL/2AvEkTiqcXUaZaQinJBVMm3B0zIEqiRnTrEOKS0z7Z
AM6eOTeS0SHD5e4pJI/qkD5hQIbCSLJxu74xPIeIXhUiW4bBS70PG8ApTogku7UflzoVZDY9iqYXUK5e
gkC9jEeqReSSVXGlGnA7RnGdz9+0AXi6MxLvFVeB16VA/rgBjXOr6DBYITKuoVVnQaV6ETyJCvmdckRc
uDj5K4DiSKPVcnlJqHgtQ55Mg5aZFciW1zFs3kC3YQ3l43oUvlEivVAADw+P1N0AigvDS5hJBkYUKjS/
7IGgXQyR0oARgwXjJiv6Z81oJFeYXfYMAQFHxcTs/BNAcWP4CLMeVsK4bIXWZEY0Nx4ngoLM/NuZqKhr
QU2zCFlka+FR1764ujKrdj8iexc3T2FaTgnmF1ZgIoDckidwZ/o2ENEhEpEuDO8HDC/fCqoTjU/q43v2
bU9xlFyJS0Tf4HsoNXpirgJZTRMROezr0zg4OWsSMkrQ0N6HW3dyQM5hy0zdl/mHyPvIsZPSwED2N/pB
t2rSR/kf83e2J5PYrOByvQAAAABJRU5ErkJggg==
</value>
</data>
</root>

View File

@ -0,0 +1,104 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
<asmv1:assemblyIdentity name="Kanban System.exe" version="1.0.0.25" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<application />
<entryPoint>
<assemblyIdentity name="Kanban System" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<commandLine file="Kanban System.exe" parameters="" />
</entryPoint>
<trustInfo>
<security>
<applicationRequestMinimum>
<PermissionSet Unrestricted="true" ID="Custom" SameSite="site" />
<defaultAssemblyRequest permissionSetReference="Custom" />
</applicationRequestMinimum>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- UAC Manifest Options
If you want to change the Windows User Account Control level replace the
requestedExecutionLevel node with one of the following.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Specifying requestedExecutionLevel node will disable file and registry virtualization.
If you want to utilize File and Registry Virtualization for backward
compatibility then delete the requestedExecutionLevel node.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<dependency>
<dependentOS>
<osVersionInfo>
<os majorVersion="4" minorVersion="10" buildNumber="0" servicePackMajor="0" />
</osVersionInfo>
</dependentOS>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Microsoft.Windows.CommonLanguageRuntime" version="2.0.50727.0" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Microsoft.ReportViewer.Common" version="10.0.0.0" publicKeyToken="B03F5F7F11D50A3A" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Microsoft.ReportViewer.DataVisualization" version="10.0.0.0" publicKeyToken="B03F5F7F11D50A3A" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Microsoft.ReportViewer.ProcessingObjectModel" version="10.0.0.0" publicKeyToken="B03F5F7F11D50A3A" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Microsoft.ReportViewer.WinForms" version="10.0.0.0" publicKeyToken="B03F5F7F11D50A3A" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Interop.Microsoft.Office.Interop.Excel.dll" size="1544192">
<assemblyIdentity name="Interop.Microsoft.Office.Interop.Excel" version="1.7.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>7YA85eufIXItcsMaDGw0Skomhfw=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Kanban System.exe" size="3449856">
<assemblyIdentity name="Kanban System" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>RZpF9ypMD0v28buCuXXH4Nlhf5Y=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<file name="Kanban System.exe.config" size="2969">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>C9pAdhw8fwBinl452Gdw9ZjgnPk=</dsig:DigestValue>
</hash>
</file>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- A list of all Windows versions that this application is designed to work with. Windows will automatically select the most compatible environment.-->
<!-- If your application is designed to work with Windows 7, uncomment the following supportedOS node-->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>-->
</application>
</compatibility>
</asmv1:assembly>

View File

@ -0,0 +1,131 @@
Public Class mainForm
Public cnstr As String = loginForm.cnstr
Private Sub ManualToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
mcSeqForm.Show()
End Sub
Private Sub mainForm_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
loginForm.Close()
End Sub
Private Sub mainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
Me.Text = "Mounting Sequence v.1.0 Current User - " & loginForm.username
Select Case loginForm.userType
Case "Operator"
MaintenanceToolStripMenuItem.Visible = False
CheckRequestsToolStripMenuItem.Visible = False
AdministrationToolStripMenuItem.Visible = False
Case "Quality Control"
AdministrationToolStripMenuItem.Visible = False
CheckRequestsToolStripMenuItem.Visible = False
Case "Engineer"
CheckRequestsToolStripMenuItem.Visible = False
AdministrationToolStripMenuItem.Visible = False
Case "PPC"
MountingToolStripMenuItem.Visible = False
MaintenanceToolStripMenuItem.Visible = False
AdministrationToolStripMenuItem.Visible = False
End Select
End Sub
Private Sub tsClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsClose.Click
Try
Dim activeForm As String = ActiveMdiChild.Name
Select Case activeForm
Case "mcSeqForm"
mcSeqForm.Close()
Case "uploadMcSeq"
uploadMcSeq.Close()
Case "mountingForm"
mountingForm.Close()
Case "machineForm"
machineForm.Close()
Case "userForm"
userForm.Close()
Case "requestForm"
requestForm.Close()
End Select
Catch ex As Exception
End Try
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub MountingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MountingToolStripMenuItem.Click
mountingForm.Show()
End Sub
Private Sub UsersToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsersToolStripMenuItem.Click
userForm.Show()
End Sub
Private Sub tsFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsFirst.Click
Try
Dim activeForm As String = ActiveMdiChild.Name
Select Case activeForm
Case "machineForm"
machineForm.moveFirst()
Case "userForm"
userForm.moveFirst()
End Select
Catch ex As Exception
End Try
End Sub
Private Sub tsPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsPrevious.Click
Try
Dim activeForm As String = ActiveMdiChild.Name
Select Case activeForm
Case "machineForm"
machineForm.movePrevious()
Case "userForm"
userForm.movePrevious()
End Select
Catch ex As Exception
End Try
End Sub
Private Sub tsNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsNext.Click
Try
Dim activeForm As String = ActiveMdiChild.Name
Select Case activeForm
Case "machineForm"
machineForm.moveNext()
Case "userForm"
userForm.moveNext()
End Select
Catch ex As Exception
End Try
End Sub
Private Sub tsLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsLast.Click
Try
Dim activeForm As String = ActiveMdiChild.Name
Select Case activeForm
Case "machineForm"
machineForm.moveLast()
Case "userForm"
userForm.moveLast()
End Select
Catch ex As Exception
End Try
End Sub
Private Sub MachineToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MachineToolStripMenuItem.Click
machineForm.Show()
End Sub
Private Sub FileUploadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileUploadToolStripMenuItem.Click
mcSeqForm.Show()
End Sub
Private Sub CheckRequestsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckRequestsToolStripMenuItem.Click
requestForm.Show()
End Sub
End Class

View File

@ -0,0 +1,321 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class kittingForm
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(kittingForm))
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cmbType = New System.Windows.Forms.ComboBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.cmbModel = New System.Windows.Forms.ComboBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.cmbLine = New System.Windows.Forms.ComboBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.cmbRev = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.cmbSeq = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.dgKitting = New System.Windows.Forms.DataGridView()
Me.btnPrint = New System.Windows.Forms.Button()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ts_delete = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.SaveFileDialog = New System.Windows.Forms.SaveFileDialog()
Me.btnClear = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtLoading = New System.Windows.Forms.TextBox()
Me.GroupBox1.SuspendLayout()
CType(Me.dgKitting, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.txtLoading)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.cmbType)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.cmbModel)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.cmbLine)
Me.GroupBox1.Controls.Add(Me.Label7)
Me.GroupBox1.Controls.Add(Me.cmbRev)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.cmbSeq)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Font = New System.Drawing.Font("Calibri", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(12, 2)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(706, 135)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Kitting"
'
'cmbType
'
Me.cmbType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbType.FormattingEnabled = True
Me.cmbType.Location = New System.Drawing.Point(517, 59)
Me.cmbType.Name = "cmbType"
Me.cmbType.Size = New System.Drawing.Size(145, 27)
Me.cmbType.TabIndex = 24
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(466, 62)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(43, 19)
Me.Label6.TabIndex = 23
Me.Label6.Text = "Type:"
'
'cmbModel
'
Me.cmbModel.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbModel.FormattingEnabled = True
Me.cmbModel.Location = New System.Drawing.Point(81, 90)
Me.cmbModel.Name = "cmbModel"
Me.cmbModel.Size = New System.Drawing.Size(204, 27)
Me.cmbModel.TabIndex = 22
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(28, 93)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(54, 19)
Me.Label5.TabIndex = 21
Me.Label5.Text = "Model:"
'
'cmbLine
'
Me.cmbLine.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbLine.FormattingEnabled = True
Me.cmbLine.Location = New System.Drawing.Point(81, 58)
Me.cmbLine.Name = "cmbLine"
Me.cmbLine.Size = New System.Drawing.Size(116, 27)
Me.cmbLine.TabIndex = 20
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(40, 61)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(40, 19)
Me.Label7.TabIndex = 19
Me.Label7.Text = "Line:"
'
'cmbRev
'
Me.cmbRev.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbRev.FormattingEnabled = True
Me.cmbRev.Location = New System.Drawing.Point(517, 90)
Me.cmbRev.Name = "cmbRev"
Me.cmbRev.Size = New System.Drawing.Size(145, 27)
Me.cmbRev.TabIndex = 18
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(441, 93)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(68, 19)
Me.Label2.TabIndex = 17
Me.Label2.Text = "Revision:"
'
'cmbSeq
'
Me.cmbSeq.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbSeq.FormattingEnabled = True
Me.cmbSeq.Location = New System.Drawing.Point(81, 26)
Me.cmbSeq.Name = "cmbSeq"
Me.cmbSeq.Size = New System.Drawing.Size(300, 27)
Me.cmbSeq.TabIndex = 15
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(17, 32)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(65, 19)
Me.Label1.TabIndex = 16
Me.Label1.Text = "Account:"
'
'dgKitting
'
Me.dgKitting.AllowUserToAddRows = False
Me.dgKitting.AllowUserToDeleteRows = False
Me.dgKitting.AllowUserToResizeColumns = False
Me.dgKitting.AllowUserToResizeRows = False
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgKitting.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgKitting.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgKitting.DefaultCellStyle = DataGridViewCellStyle5
Me.dgKitting.EditMode = System.Windows.Forms.DataGridViewEditMode.EditOnEnter
Me.dgKitting.Location = New System.Drawing.Point(12, 143)
Me.dgKitting.Name = "dgKitting"
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgKitting.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.dgKitting.RowHeadersWidth = 20
Me.dgKitting.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
Me.dgKitting.RowTemplate.Height = 18
Me.dgKitting.Size = New System.Drawing.Size(705, 232)
Me.dgKitting.TabIndex = 1
'
'btnPrint
'
Me.btnPrint.BackColor = System.Drawing.Color.ForestGreen
Me.btnPrint.Enabled = False
Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPrint.Font = New System.Drawing.Font("Verdana", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnPrint.ForeColor = System.Drawing.SystemColors.ControlLightLight
Me.btnPrint.Location = New System.Drawing.Point(561, 381)
Me.btnPrint.Name = "btnPrint"
Me.btnPrint.Size = New System.Drawing.Size(156, 54)
Me.btnPrint.TabIndex = 5
Me.btnPrint.Text = "Print"
Me.btnPrint.UseVisualStyleBackColor = False
'
'ToolStrip1
'
Me.ToolStrip1.Font = New System.Drawing.Font("Calibri", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ts_delete, Me.ToolStripSeparator3})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(729, 25)
Me.ToolStrip1.TabIndex = 6
Me.ToolStrip1.Visible = False
'
'ts_delete
'
Me.ts_delete.Enabled = False
Me.ts_delete.Image = CType(resources.GetObject("ts_delete.Image"), System.Drawing.Image)
Me.ts_delete.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_delete.Name = "ts_delete"
Me.ts_delete.Size = New System.Drawing.Size(64, 22)
Me.ts_delete.Text = "Delete"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25)
'
'SaveFileDialog
'
Me.SaveFileDialog.DefaultExt = "xlsx"
'
'btnClear
'
Me.btnClear.BackColor = System.Drawing.Color.Firebrick
Me.btnClear.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnClear.Font = New System.Drawing.Font("Verdana", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnClear.ForeColor = System.Drawing.SystemColors.ControlLightLight
Me.btnClear.Location = New System.Drawing.Point(12, 381)
Me.btnClear.Name = "btnClear"
Me.btnClear.Size = New System.Drawing.Size(156, 54)
Me.btnClear.TabIndex = 7
Me.btnClear.Text = "Reset"
Me.btnClear.UseVisualStyleBackColor = False
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(387, 29)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(124, 19)
Me.Label3.TabIndex = 25
Me.Label3.Text = "Loading Quantity:"
'
'txtLoading
'
Me.txtLoading.Location = New System.Drawing.Point(517, 26)
Me.txtLoading.Name = "txtLoading"
Me.txtLoading.Size = New System.Drawing.Size(100, 27)
Me.txtLoading.TabIndex = 26
'
'kittingForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(729, 439)
Me.ControlBox = False
Me.Controls.Add(Me.btnClear)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.btnPrint)
Me.Controls.Add(Me.dgKitting)
Me.Controls.Add(Me.GroupBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "kittingForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Kitting"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.dgKitting, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents dgKitting As System.Windows.Forms.DataGridView
Friend WithEvents btnPrint As System.Windows.Forms.Button
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents ts_delete As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents SaveFileDialog As System.Windows.Forms.SaveFileDialog
Friend WithEvents cmbType As System.Windows.Forms.ComboBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents cmbModel As System.Windows.Forms.ComboBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents cmbLine As System.Windows.Forms.ComboBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents cmbRev As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents cmbSeq As System.Windows.Forms.ComboBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents btnClear As System.Windows.Forms.Button
Friend WithEvents txtLoading As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
End Class

View File

@ -0,0 +1,49 @@
Imports System.Data
Imports System.Data.SqlClient
Public Class loginForm
Public cnstr As String
Public username As String
Public userType As String
Public userSRList As List(Of String)
Dim connection As New Connection
Dim conn As SqlConnection
Private Function validateUser() As Boolean
Dim currentUser As New User(txtUsername.Text)
If StrComp(RTrim(currentUser.password), currentUser.EncryptString(txtPassword.Text), CompareMethod.Text) = 0 Then
username = currentUser.username
userType = currentUser.usertype
Return True
Else
Return False
End If
End Function
Private Sub btn_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ok.Click
If validateUser() = True Then
Me.Hide()
mainForm.Show()
Else
MessageBox.Show("Either user does not exists or password is incorrect.", "Login Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
Private Sub btn_cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_cancel.Click
Me.Close()
End Sub
Private Sub txtPassword_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPassword.KeyUp
If e.KeyCode = Keys.Enter Then
If validateUser() = True Then
Me.Hide()
mainForm.Show()
Else
MessageBox.Show("Either user does not exists or password is incorrect.", "Login Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
btn_ok.Focus()
End If
End Sub
End Class

View File

@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xrml="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<assemblyIdentity name="Mounting Sequence.application" version="1.0.0.1" publicKeyToken="0cfad3879e7e4025" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" />
<description asmv2:publisher="ionics" asmv2:product="Mounting Sequence" xmlns="urn:schemas-microsoft-com:asm.v1" />
<deployment install="true" mapFileExtensions="true" />
<dependency>
<dependentAssembly dependencyType="install" codebase="Application Files\Mounting Sequence_1_0_0_1\Mounting Sequence.exe.manifest" size="7167">
<assemblyIdentity name="Mounting Sequence.exe" version="1.0.0.1" publicKeyToken="0cfad3879e7e4025" language="neutral" processorArchitecture="msil" type="win32" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>/ifsTD+GNi+70YD9iQ3PQaVUEkk=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<publisherIdentity name="CN=IONICS\software.development" issuerKeyHash="bbfa7d0373f8144cec2bc8ccd7e97ee93773a14b" /><Signature Id="StrongNameSignature" xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Reference URI=""><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue>SakI/bFZMpzjtYagePP2dumJmRI=</DigestValue></Reference></SignedInfo><SignatureValue>TPDVJKmMxvk1pu9jWbWQRLdOzCuWjStoRYNTtU46ZoGeo00mhYRWWMlTQNRmKwYIO837UgNXawt6B+h+MoqBN8PZVUeJZYcdAQ9xpRJFYcGn6Gw/KDTBau6frwvSnZfe1BSkTiR4HXtAPR/Z/t/Jg4cLWDysRxBvXhuqzslwDe4=</SignatureValue><KeyInfo Id="StrongNameKeyInfo"><KeyValue><RSAKeyValue><Modulus>jpBxO04Zwm0+BvzN1BgAamcjOQeB4tl4Bl3HKIYpDiBsAhICv8yPfVX2b1jtcYTiqjYGEyiMXsGnUKhNIo483OPIpgl6vKqQHejFNGW7WsrX9X49JaLqrRc989QGP55LNC+0WKntvH225DnCSP8tuxpuMt1M66qwRIp6q98Je18=</Modulus><Exponent>AQAB</Exponent></RSAKeyValue></KeyValue><msrel:RelData xmlns:msrel="http://schemas.microsoft.com/windows/rel/2005/reldata"><r:license xmlns:r="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:as="http://schemas.microsoft.com/windows/pki/2005/Authenticode"><r:grant><as:ManifestInformation Hash="129989e976f6f378a086b5e39c3259b1fd08a949" Description="" Url=""><as:assemblyIdentity name="Mounting Sequence.application" version="1.0.0.1" publicKeyToken="0cfad3879e7e4025" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" /></as:ManifestInformation><as:SignedBy /><as:AuthenticodePublisher><as:X509SubjectName>CN=IONICS\software.development</as:X509SubjectName></as:AuthenticodePublisher></r:grant><r:issuer><Signature Id="AuthenticodeSignature" xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Reference URI=""><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue>0N5So/dA+myix3KwTpVdXRDTfLQ=</DigestValue></Reference></SignedInfo><SignatureValue>gMtGBQd7W8S/MCKM1JJS1LX9TN3/bOdQ1BUtG60NhMQgqnW7nNB7rftbxGtn57goX2tydIVrhxN+oCt0avNovwAl+UmXVzzHl7fUTN2p7hKGqXybVrDSWu7J8A0pTuf1aVYhnKdYV753XD3E6F0CCI2rcOio97HX4aTm4WTk1Po=</SignatureValue><KeyInfo><KeyValue><RSAKeyValue><Modulus>jpBxO04Zwm0+BvzN1BgAamcjOQeB4tl4Bl3HKIYpDiBsAhICv8yPfVX2b1jtcYTiqjYGEyiMXsGnUKhNIo483OPIpgl6vKqQHejFNGW7WsrX9X49JaLqrRc989QGP55LNC+0WKntvH225DnCSP8tuxpuMt1M66qwRIp6q98Je18=</Modulus><Exponent>AQAB</Exponent></RSAKeyValue></KeyValue><X509Data><X509Certificate>MIIB/TCCAWqgAwIBAgIQfn9ynDYeLYFFwiB+ZhnWeTAJBgUrDgMCHQUAMEExPzA9BgNVBAMeNgBJAE8ATgBJAEMAUwBcAHMAbwBmAHQAdwBhAHIAZQAuAGQAZQB2AGUAbABvAHAAbQBlAG4AdDAeFw0xMTAxMDYwNzE4MjlaFw0xMjAxMDYxMzE4MjlaMEExPzA9BgNVBAMeNgBJAE8ATgBJAEMAUwBcAHMAbwBmAHQAdwBhAHIAZQAuAGQAZQB2AGUAbABvAHAAbQBlAG4AdDCBnzANBgkqhkiG9w0BAQEFAAOBjQAwgYkCgYEAjpBxO04Zwm0+BvzN1BgAamcjOQeB4tl4Bl3HKIYpDiBsAhICv8yPfVX2b1jtcYTiqjYGEyiMXsGnUKhNIo483OPIpgl6vKqQHejFNGW7WsrX9X49JaLqrRc989QGP55LNC+0WKntvH225DnCSP8tuxpuMt1M66qwRIp6q98Je18CAwEAATAJBgUrDgMCHQUAA4GBAIhHnYLeqoGDumARAPfZPAfzUT+4sYbBqL+MEX3Kjxb3Yjs7I54X6cWQBxOQT/e6NPUQCPgkeME9XM+ta9xIuCmTn0uLdw+C526mLTPuELFR53hAWqJcxqC1clUub/y6/xJYdfX9QciaZ874XMHyvN3Vpagdtek5F7Cdy6ndj0dl</X509Certificate></X509Data></KeyInfo></Signature></r:issuer></r:license></msrel:RelData></KeyInfo></Signature></asmv1:assembly>

View File

@ -0,0 +1,20 @@

Microsoft Visual Studio Solution File, Format Version 11.00
# Visual Studio 2010
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Kanban System", "Mounting Sequence\Kanban System.vbproj", "{8C79F105-3456-4E41-8510-5B53B1CBE2DA}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{8C79F105-3456-4E41-8510-5B53B1CBE2DA}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{8C79F105-3456-4E41-8510-5B53B1CBE2DA}.Debug|Any CPU.Build.0 = Debug|Any CPU
{8C79F105-3456-4E41-8510-5B53B1CBE2DA}.Release|Any CPU.ActiveCfg = Release|Any CPU
{8C79F105-3456-4E41-8510-5B53B1CBE2DA}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1 @@


View File

@ -0,0 +1,142 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ts_delete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIHSURBVDhPjZNPSJNxGMe/77t38w/mwCG4SSCI5DAIjA7r
Ejt0qEuX6uDF05AUL4kXPQhGFFOJDDrVNSToUrcOEVgUgZUpLOc0a71ZNqe4JNvUx+/z+jIUm/WFD7x7
nu/zfd7fbxv+oRBpIH7n03/qxDHgbszE9IgPq8M+rPdZsM8ZeM7eFVLpuP4mC+hpt5CbqoTkKyCbZZAC
+UMyrD0oh0RMjNPavDuxRz6gL05jnqYNE5IFZJlkyBL5Qda8kEkGRz1IckSPVlTkjA9bmzTk3EENUFZc
9HmRZAzIOJc0GnjEOdOZbvLg4QyHf9Og20rxk3zVZ4b0erHN0VM6XxHz4EuBxe9s2q6pFPoWyhMPJGCi
RwOO3jSQ22DxM1mKRmWlu1uynZ376eqSbEeH2IGApOl7yYUnDdzSgIZhYF3PniK/xsbkMNmtrfKJvtck
AoxqQO0gsLzGwkeSjcelYNtSSKcPkE+lZCEcljn6npHjwHUNMC4CE3rTMxri90uyvl6SweB+QiFJ1tVJ
wrKcN7hPvMBlDUAA6H3Kgt70O/KeTJZgisySSwCvArVOAFV9Fng7z4Ze5EQJNGCB3CDlQLs7W1T4ApB4
w+Y3osf5QPZuTZBrpAYYcGcOKMg/0r2r/FYe0/iCvCJ6vDuEC6bpadu1Hq6WKiDGn9nQaeB2E9DP2nly
xOkWBewAte1XydH447UAAAAASUVORK5CYII=
</value>
</data>
<metadata name="SaveFileDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
</metadata>
</root>

View File

@ -0,0 +1,136 @@
C:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.exe
C:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.pdb
C:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.xml
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\ResolveAssemblyReference.cache
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.mainForm.resources
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.mcSeqForm.resources
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.Resources.resources
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.exe
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.xml
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.pdb
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.uploadMcSeq.resources
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.loginForm.resources
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.mountingForm.resources
C:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.exe.config
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.userForm.resources
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.machineForm.resources
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.requestForm.resources
C:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.exe.manifest
C:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.application
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.exe.manifest
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.application
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\GenerateResource-ResGen.read.1.tlog
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\GenerateResource-ResGen.read.4.tlog
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\GenerateResource-ResGen.write.1.tlog
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.PPReceiveForm.resources
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.PPReturnForm.resources
C:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.PPInventoryForm.resources
E:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.exe.config
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.exe
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.xml
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.pdb
E:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.exe.manifest
E:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.application
E:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.exe
E:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.pdb
E:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.xml
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\ResolveAssemblyReference.cache
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.PPReturnForm.resources
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.PPInventoryForm.resources
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.PPReceiveForm.resources
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.machineForm.resources
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.loginForm.resources
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.mainForm.resources
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.mcSeqForm.resources
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.mountingForm.resources
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.requestForm.resources
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.uploadMcSeq.resources
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.userForm.resources
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.Resources.resources
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\GenerateResource-ResGen.read.1.tlog
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\GenerateResource-ResGen.read.4.tlog
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\GenerateResource-ResGen.write.1.tlog
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.exe.manifest
E:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.application
D:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.exe.config
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.exe
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.xml
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.pdb
D:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.exe.manifest
D:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.application
D:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.exe
D:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.pdb
D:\Projects\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.xml
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\ResolveAssemblyReference.cache
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.PPReturnForm.resources
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.PPInventoryForm.resources
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.PPReceiveForm.resources
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.machineForm.resources
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.loginForm.resources
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.mainForm.resources
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.mcSeqForm.resources
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.mountingForm.resources
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.requestForm.resources
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.uploadMcSeq.resources
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.userForm.resources
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.Resources.resources
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\GenerateResource-ResGen.read.1.tlog
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\GenerateResource-ResGen.read.4.tlog
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\GenerateResource-ResGen.write.1.tlog
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.exe.manifest
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.application
D:\Projects\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.PCBScanForm.resources
Z:\Source\Dorina\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.exe.config
Z:\Source\Dorina\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.exe
Z:\Source\Dorina\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.xml
Z:\Source\Dorina\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.pdb
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.exe.config
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.exe
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.xml
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.pdb
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.exe.manifest
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.application
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.exe
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.pdb
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\bin\Debug\Mounting Sequence.xml
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.PCBScanForm.resources
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.PPReturnForm.resources
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.PPInventoryForm.resources
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.PPReceiveForm.resources
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.machineForm.resources
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.loginForm.resources
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.mainForm.resources
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.mcSeqForm.resources
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.mountingForm.resources
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.requestForm.resources
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.uploadMcSeq.resources
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.userForm.resources
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting_Sequence.Resources.resources
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.vbproj.GenerateResource.Cache
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.exe.manifest
C:\Gen\07. References\Mounting Sequence\Mounting Sequence\obj\Debug\Mounting Sequence.application
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\bin\Debug\Kanban System.exe.config
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\bin\Debug\Kanban System.exe.manifest
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\bin\Debug\Kanban System.application
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\bin\Debug\Kanban System.exe
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\bin\Debug\Kanban System.pdb
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\bin\Debug\Kanban System.xml
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Mounting_Sequence.PCBScanForm.resources
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Mounting_Sequence.PPReturnForm.resources
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Mounting_Sequence.PPInventoryForm.resources
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Mounting_Sequence.PPReceiveForm.resources
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Mounting_Sequence.machineForm.resources
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Mounting_Sequence.loginForm.resources
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Mounting_Sequence.mainForm.resources
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Mounting_Sequence.mcSeqForm.resources
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Mounting_Sequence.mountingForm.resources
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Mounting_Sequence.requestForm.resources
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Mounting_Sequence.uploadMcSeq.resources
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Mounting_Sequence.userForm.resources
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Mounting_Sequence.Resources.resources
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Mounting Sequence.vbproj.GenerateResource.Cache
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Kanban System.exe.manifest
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Kanban System.application
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Kanban System.exe
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Kanban System.xml
C:\Gen\Gen's Workspace\KanbanSystem\Mounting Sequence\obj\Debug\Kanban System.pdb

View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>loginForm</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

View File

@ -0,0 +1,196 @@
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Security
Imports System.Security.Cryptography
Imports System.Text
Public Class Machine
Private _mCode As String
Private _mName As String
Private _mModel As String
Private _plant As String
Private _line As String
Private _isActive As Boolean
Private cnstr As String
#Region "Properties"
Public Property code() As String
Get
Return _mCode
End Get
Set(ByVal value As String)
_mCode = value
End Set
End Property
Public Property name() As String
Get
Return _mName
End Get
Set(ByVal value As String)
_mName = value
End Set
End Property
Public Property model() As String
Get
Return _mModel
End Get
Set(ByVal value As String)
_mModel = value
End Set
End Property
Public Property plant() As String
Get
Return _plant
End Get
Set(ByVal value As String)
_plant = value
End Set
End Property
Public Property line() As String
Get
Return _line
End Get
Set(ByVal value As String)
_line = value
End Set
End Property
Public Property active() As Boolean
Get
Return _isActive
End Get
Set(ByVal value As Boolean)
_isActive = value
End Set
End Property
#End Region
#Region "Methods"
Public Sub New()
cnstr = mainForm.cnstr
End Sub
Public Sub add()
Dim conn As New SqlConnection(cnstr)
Dim active As Integer = 0
If _isActive = True Then
active = 1
Else
active = 0
End If
Dim myQuery As String
myQuery = "INSERT INTO KMACHINE VALUES(" & _
"'" & _mCode & "'," & _
"'" & _mName & "'," & _
"'" & _mModel & "'," & _
"'" & _plant & "'," & _
"'" & _line & "'," & _
"'" & DateTime.Now & "'," & _
active & ")"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
MessageBox.Show("Successfully Saved.", "Add Machine", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
Public Sub update()
Dim conn As New SqlConnection(cnstr)
Dim active As Integer = 0
If _isActive = True Then
active = 1
Else
active = 0
End If
Dim myQuery As String
myQuery = "UPDATE KMACHINE SET" & _
" KMCHNAME = " & "'" & _mName & "'," & _
"KMCHMODEL = " & "'" & _mModel & "'," & _
"KMCHPLANT = " & "'" & _plant & "'," & _
"KMCHLINE = " & "'" & _line & "'," & _
"KUPDTTIME = " & "'" & DateTime.Now & "'," & _
"KACTIVE = " & active & _
" WHERE KMCHCODE = '" & _mCode & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
MessageBox.Show("Successfully Saved.", "Update Machine", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
Public Sub delete()
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "DELETE FROM KMACHINE WHERE KMCHCODE = '" & _mCode & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
MessageBox.Show("Successfully Deleted.", "Delete Machine", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
Public Function getMachines(ByVal plant As String) As List(Of String)
Dim machineList As New List(Of String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT * FROM KMACHINE" & _
" WHERE KMCHPLANT = '" & plant & "'" & _
" ORDER BY KMCHCODE"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
While reader.Read
machineList.Add(reader("KMCHNAME"))
End While
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
Return machineList
End Function
#End Region
End Class

View File

@ -0,0 +1,217 @@
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Security
Imports System.Security.Cryptography
Imports System.Text
Public Class Plant
Private cnstr As String
Private _plantCode As String
Private _plantName As String
Private _createdby As String
Private _createddate As DateTime
Dim myquery As String
#Region "Property"
Public Property plantCode() As String
Get
Return _plantCode
End Get
Set(ByVal value As String)
_plantCode = value
End Set
End Property
Public Property plantName() As String
Get
Return _plantName
End Get
Set(ByVal value As String)
_plantName = value
End Set
End Property
Public Property createdby() As String
Get
Return _createdby
End Get
Set(ByVal value As String)
_createdby = value
End Set
End Property
Public Property createddate() As DateTime
Get
Return (_createddate)
End Get
Set(ByVal value As DateTime)
_createddate = value
End Set
End Property
#End Region
Public Sub getplant()
Dim conn As New SqlConnection(cnstr)
Dim myquery As String
myquery = "SELECT * FROM KANBAN.DBO.PLANTS"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myquery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
If (reader.HasRows) Then
reader.Read()
plantCode = reader("plantCode")
plantName = reader("plantName")
createdby = reader("createdby")
createddate = reader("createddate")
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
conn.Close()
conn.Dispose()
End Sub
Public Function retrievePlant() As List(Of String)
Dim plantlist As New List(Of String)
Dim conn As New SqlConnection(cnstr)
Dim myquery As String
myquery = "SELECT * FROM KANBAN.DBO.PLANTS"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myquery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
While reader.Read
plantlist.Add(reader("plantCode"))
End While
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
Return plantlist
End Function
Public Sub AddRecordPlant()
Dim conn As New SqlConnection(cnstr)
myquery = "INSERT INTO PLANTS (plantCode, " & _
"plantName, createdby, createddate) " & _
"VALUES ('" & plantCode & "', " & _
"'" & createdby & "', " & _
"'" & createddate & "')"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myquery, conn)
Try
conn.Open()
If (checkExistplant(plantCode) = False) Then
mycommand.ExecuteNonQuery()
Else
MessageBox.Show("Plant already exists in the database.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
Public Sub UpdateRecordPlant(ByVal oldPlant As String)
Dim conn As New SqlConnection(cnstr)
myquery = "Update PLANTS " & _
"SET plantCode = " & "'" & plantCode & "'" & "," & _
"plantName = '" & plantName & "'" & "," & _
"createdby = '" & createdby & "'" & "" & _
"createddate = '" & createddate & "'" & "" & _
"WHERE plantCode = '" & oldPlant & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myquery, conn)
Try
conn.Open()
If (checkExistplant(plantCode) = False) Then
mycommand.ExecuteNonQuery()
Else
MessageBox.Show("Plant already exists in the database.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
Public Sub deleteRecordPlant(ByVal plantCode As String)
Dim conn As New SqlConnection(cnstr)
myquery = "DELETE FROM PLANTS" & _
"where plantCode = '" & plantCode & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myquery, Conn)
Try
conn.Open()
If (checkExistplant(plantCode) = True) Then
mycommand.ExecuteNonQuery()
Else
MessageBox.Show("Plant does not exists in the database.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
Public Function checkExistplant(ByVal plantCode As String) As Boolean
Dim conn As New SqlConnection(cnstr)
Dim result As Boolean = False
myquery = "SELECT * FROM PLANTS " & _
"WHERE plantCode = " & "'" & plantCode & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myquery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
If (reader.HasRows) Then
result = True
Else
result = False
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
Return result
End Function
End Class

View File

@ -0,0 +1,150 @@
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Security
Imports System.Security.Cryptography
Imports System.Text
Public Class Mounting
Private _date As DateTime
Private _sequence As String
Private _revision As String
Private _feeder As String
Private _partNo As String
Private _quantity As Double
Private _operator As String
Private _verify As Integer
Private _3pL As String
Private cnstr As String
Public Property mDate() As DateTime
Get
Return _date
End Get
Set(ByVal value As DateTime)
_date = value
End Set
End Property
Public Property sequence() As String
Get
Return _sequence
End Get
Set(ByVal value As String)
_sequence = value
End Set
End Property
Public Property revision() As String
Get
Return _revision
End Get
Set(ByVal value As String)
_revision = value
End Set
End Property
Public Property feeder() As String
Get
Return _feeder
End Get
Set(ByVal value As String)
_feeder = value
End Set
End Property
Public Property partno() As String
Get
Return _partNo
End Get
Set(ByVal value As String)
_partNo = value
End Set
End Property
Public Property quantity() As Double
Get
Return _quantity
End Get
Set(ByVal value As Double)
_quantity = value
End Set
End Property
Public Property mOperator() As String
Get
Return _operator
End Get
Set(ByVal value As String)
_operator = value
End Set
End Property
Public Property verify() As Integer
Get
Return _verify
End Get
Set(ByVal value As Integer)
_verify = value
End Set
End Property
Public Property threePL() As String
Get
Return _3pL
End Get
Set(ByVal value As String)
_3pL = value
End Set
End Property
Public Sub New()
cnstr = mainForm.cnstr
End Sub
Public Sub add(ByVal reload As Boolean)
Dim conn As New SqlConnection(cnstr)
Dim active As Integer = 0
Dim myQuery As String
If reload = True Then
myQuery = "INSERT INTO kmounting VALUES (" & _
"'" & Me.mDate & "'," & _
"'" & Me.sequence & "'," & _
"'" & Me.revision & "'," & _
"'" & Me.feeder & "'," & _
"'" & Me.partno & "'," & _
Me.quantity & "," & _
"'" & Me.mOperator & "'," & _
Me.verify & "," & _
"'reload')"
Else
myQuery = "INSERT INTO kmounting VALUES (" & _
"'" & Me.mDate & "'," & _
"'" & Me.sequence & "'," & _
"'" & Me.revision & "'," & _
"'" & Me.feeder & "'," & _
"'" & Me.partno & "'," & _
Me.quantity & "," & _
"'" & Me.mOperator & "'," & _
Me.verify & "," & _
"'" & Me.threePL & "')"
End If
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
End Class

View File

@ -0,0 +1,71 @@
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Security
Imports System.Security.Cryptography
Imports System.Text
Public Class PCB
Private _serialno As String
Private _lastupdate As DateTime
Private _lastupdatedby As String
Private cnstr As String
Public Property serialno() As String
Get
Return _serialno
End Get
Set(ByVal value As String)
_serialno = value
End Set
End Property
Public Property lastupdate() As DateTime
Get
Return _lastupdate
End Get
Set(ByVal value As DateTime)
_lastupdatedby = value
End Set
End Property
Public Property lastupdatedby() As String
Get
Return _lastupdatedby
End Get
Set(ByVal value As String)
_lastupdatedby = value
End Set
End Property
Public Sub New()
cnstr = mainForm.cnstr
End Sub
Public Sub add()
Dim conn As New SqlConnection(cnstr)
Dim active As Integer = 0
Dim myQuery As String
myQuery = "INSERT INTO KPCB VALUES (" & _
"'" & serialno & "'," & _
"'" & lastupdate & "'," & _
"'" & lastupdatedby & "')"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
End Class

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,129 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="KITTINGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>622, 17</value>
</metadata>
<metadata name="EpsonDataSet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>488, 17</value>
</metadata>
<metadata name="KITTINGTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>797, 17</value>
</metadata>
</root>

Binary file not shown.

After

Width:  |  Height:  |  Size: 71 B

View File

@ -0,0 +1,152 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btn_browse.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALDQAA
Cw0B7QfALAAABC9JREFUSEvFlG9MW2UUxg+DkAWdZtOIJGSbmhhNZqIyHXMY43QfZmKMiSZLzCbJ2BBY
TIbBj2A22KJ+0bjEuIypm4wtDiGBDYflf/9RWmhLW6AD2vKnpaVAC4XiYHl87i0xfDAZBown+eW9933v
fZ57znveK/9XbCP7SA458A8o89kkifzreDkzM9OSm5uLoqIiFBYWorCgAPn5n+D48Twc+egoDr3zHvZm
54DP/kCS1bfWG+np6W2dWi2W7wOx+J9YIMoYjcURmp3DXV8AjR0WtBhsKD97VjGpJOs2eSFr7xtBRdQz
5sdYIIRRf5DXAYyMTmDIMwaX2wO9xYEu2wAWl+6htLR0XSbp6Tuk7q0c8RacPLASicbgoaDRZEGPzUHh
UfhoMkYz33gA7hEfHDRS7sPMquyLsgea5F84L0BcsDL7GiJzixhwD+Obb7/DmfIKFZOlF9MUC07NYJyZ
9Q/54A9OMTM/y7eIcxUVSE5OvUStXeQRVXVNlNRfoUFEsDi+H5HoAgKhMOwOF3R6Izq0epjMzMZqh9Xu
gH+SpZsI4q5nHD6OI8xueDSIEyeP4dArMvnqc9JPzfyEdCKKay7QwCOIOGnADELTsyxRNzTNLWht70BL
azvuNGnQ3qmFuccKm70P5l4b2rRGtOrNqNNYUFtbDgwIliyCl54VD3WVdlejuOYrGlgFYUM2DeKYiUTR
yy/u6NRRtBM6nUHNRmcw0qwNxq5u6A1dnDNwf/xwe0Mw6y/inoE6TsHb2arB4wl5xaCMC62CYFM2ovNx
lmkOTlc/LD29q1hh6bWybE7Y+xwwdZtZNrO65hsdQziyhCHrdcQbqNMiOPiiDFF3e0JeMfiMCzWCyd/2
qT0/F1uAw+WCiWWy2fpUwS5e64w2aPVOaA39LI8DOpMbg94onN44upuvIf4jdW4IsnaKl7qPJuRFin4t
5AI3erJqP6KL4AEDui0ubrAFBpMDmrYu1P+uQ0vj99DeKoau8XM03TwFTe1pGDRn8EdDKZqvfoDYZcHy
NcGp92U54zGpVsSzUreItv40W5Tuoz/vgXdYT3Roa61GfX0l6mov4fqNi6i6Uo7QwA612zC9SngNyv0M
mSX3BZ+eEEhqisRu/yKIDdFgkG3q3oJ5T5pKlESG0zDj3opw/1bMDScnXn4QygfQIO+oTElKisxMsHuU
Q/b3l4TWMLWKMq+MgXXA91Y4HsyRbqVEl+9c5aSSmm+TmBSMGQVP75KbisG7X5Zw0k/cmwS19OykpCQ5
rxhkHDks8xjhgmOT8Ap+quAGi+QqBpL1vNgWlBOo7EXPJsAsSj5WDV5XDbalSfUgU4Kd8D+yYfg/+vBN
iVD6GdWAUXQuT+ChiadKMLIBvDxk9krBnt3ipu7DCfnEX+/rnU/I7d1PSsNGeCpDbm1/SGqod1hV/m9D
5C/6tptrgv5hTgAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>97</value>
</metadata>
</root>

View File

@ -0,0 +1,63 @@
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Text
Public Class PCBScanForm
Private cnstr = mainForm.cnstr
Private conn As New SqlConnection(cnstr)
Private myQuery As String = String.Empty
Private myCommand As SqlCommand
Private adapter As SqlDataAdapter = New SqlDataAdapter()
Private ds As New DataSet("Machines")
Private i, limit As Integer
Private oldMchCode As String = String.Empty
Private addMode, editMode As Integer
Private row As Integer
Private Sub PPReceiveForm_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
txtStart.Focus()
End Sub
Private Sub machineForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.MdiParent = mainForm
Control.CheckForIllegalCrossThreadCalls = False
Me.Top = 0
Me.Left = 0
dtNow.Value = DateTime.Now
txtOperator.Text = loginForm.username
Timer1.Enabled = True
txtStart.Focus()
End Sub
Private Sub ts_close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Private Sub clear()
txtSerialno.Text = String.Empty
txtStart.Text = String.Empty
End Sub
Private Sub txtStart_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtStart.KeyUp
If e.KeyCode = Keys.Enter Then
Dim fChar As String = String.Empty
Dim entry As String = txtStart.Text
If txtStart.Text <> String.Empty Then
Dim pcb As New PCB
txtSerialno.Text = txtStart.Text
pcb.serialno = txtSerialno.Text
pcb.lastupdate = dtNow.Value
pcb.lastupdatedby = txtOperator.Text
pcb.add()
clear()
txtStart.Focus()
End If
End If
End Sub
End Class

View File

@ -0,0 +1,24 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
KanbanSystem
</name>
</assembly>
<members>
<member name="P:Mounting_Sequence.My.Resources.Resources.ResourceManager">
<summary>
Returns the cached ResourceManager instance used by this class.
</summary>
</member><member name="P:Mounting_Sequence.My.Resources.Resources.Culture">
<summary>
Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.
</summary>
</member><member name="T:Mounting_Sequence.My.Resources.Resources">
<summary>
A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member>
</members>
</doc>

View File

@ -0,0 +1,52 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="Mounting_Sequence.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<!-- This section defines the logging configuration for My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Uncomment the below section to write to the Application Event Log -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
</switches>
<sharedListeners>
<add name="FileLog"
type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
initializeData="FileLogWriter"/>
<!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<userSettings>
<Mounting_Sequence.My.MySettings>
<setting name="server" serializeAs="String">
<value>192.168.1.35</value>
</setting>
<setting name="database" serializeAs="String">
<value>Kanban</value>
</setting>
<setting name="username" serializeAs="String">
<value />
</setting>
<setting name="password" serializeAs="String">
<value />
</setting>
<setting name="dbserver" serializeAs="String">
<value>SQL Server</value>
</setting>
<setting name="isTrusted" serializeAs="String">
<value>True</value>
</setting>
</Mounting_Sequence.My.MySettings>
</userSettings>
</configuration>

View File

@ -0,0 +1,787 @@
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Security
Imports System.Security.Cryptography
Imports System.Text
Public Class Sequence
Private _ksqaccount As String
Private _ksqmodel As String
Private _ksqline As String
Private _ksqpcbside As String
Private _ksqpartno As String
Private _ksqmachine As String
Private _ksqrevision As String
Private _ksqtopsdloc As String
Private _ksqfsbsqty As String
Private _ksqdesc1 As String
Private _ksqdesc2 As String
Private _ksqtopmark As String
Private _ksqmodule As String
Private _ksqfeeder As String
Private _ksqfeederType As String
Private _ksqprepby As String
Private _ksqupdtime As String
Private _ksqcheckby As String
Private _ksqchkdate As String
Private _ksqremarks As String
Private _ksqStatus As Integer
Private _kseqno As String
Private cnstr As String
#Region "Properties"
Public Property sequenceno() As String
Get
Return _kseqno
End Get
Set(ByVal value As String)
_kseqno = value
End Set
End Property
Public Property account() As String
Get
Return _ksqaccount
End Get
Set(ByVal value As String)
_ksqaccount = value
End Set
End Property
Public Property line() As String
Get
Return _ksqline
End Get
Set(ByVal value As String)
_ksqline = value
End Set
End Property
Public Property model() As String
Get
Return _ksqmodel
End Get
Set(ByVal value As String)
_ksqmodel = value
End Set
End Property
Public Property pcbside() As String
Get
Return _ksqpcbside
End Get
Set(ByVal value As String)
_ksqpcbside = value
End Set
End Property
Public Property partno() As String
Get
Return _ksqpartno
End Get
Set(ByVal value As String)
_ksqpartno = value
End Set
End Property
Public Property machine() As String
Get
Return _ksqmachine
End Get
Set(ByVal value As String)
_ksqmachine = value
End Set
End Property
Public Property revision() As String
Get
Return _ksqrevision
End Get
Set(ByVal value As String)
_ksqrevision = value
End Set
End Property
Public Property topsdloc() As String
Get
Return _ksqtopsdloc
End Get
Set(ByVal value As String)
_ksqtopsdloc = value
End Set
End Property
Public Property fsbsqty() As String
Get
Return _ksqfsbsqty
End Get
Set(ByVal value As String)
_ksqfsbsqty = value
End Set
End Property
Public Property desc1() As String
Get
Return _ksqdesc1
End Get
Set(ByVal value As String)
_ksqdesc1 = value
End Set
End Property
Public Property desc2() As String
Get
Return _ksqdesc2
End Get
Set(ByVal value As String)
_ksqdesc2 = value
End Set
End Property
Public Property topmark() As String
Get
Return _ksqtopmark
End Get
Set(ByVal value As String)
_ksqtopmark = value
End Set
End Property
Public Property modules() As String
Get
Return _ksqmodule
End Get
Set(ByVal value As String)
_ksqmodule = value
End Set
End Property
Public Property feeder() As String
Get
Return _ksqfeeder
End Get
Set(ByVal value As String)
_ksqfeeder = value
End Set
End Property
Public Property feederType() As String
Get
Return _ksqfeederType
End Get
Set(ByVal value As String)
_ksqfeederType = value
End Set
End Property
Public Property prepby() As String
Get
Return _ksqprepby
End Get
Set(ByVal value As String)
_ksqprepby = value
End Set
End Property
Public Property updtime() As String
Get
Return _ksqupdtime
End Get
Set(ByVal value As String)
_ksqupdtime = value
End Set
End Property
Public Property checkby() As String
Get
Return _ksqcheckby
End Get
Set(ByVal value As String)
_ksqcheckby = value
End Set
End Property
Public Property chkdate() As String
Get
Return _ksqchkdate
End Get
Set(ByVal value As String)
_ksqchkdate = value
End Set
End Property
Public Property remarks() As String
Get
Return _ksqremarks
End Get
Set(ByVal value As String)
_ksqremarks = value
End Set
End Property
Public Property status() As Integer
Get
Return _ksqStatus
End Get
Set(ByVal value As Integer)
_ksqStatus = value
End Set
End Property
#End Region
#Region "Methods"
Public Sub New()
cnstr = mainForm.cnstr
End Sub
Public Function addHeader() As Boolean
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "INSERT INTO KSEQUENCE_HEADER " & _
"VALUES(" & "'" & _ksqaccount & "'," & _
"'" & _ksqrevision & "'," & _
"'" & _ksqmachine & "'," & _
"'" & _ksqpcbside & "'," & _
"'" & _ksqprepby & "'," & _
"'" & _ksqcheckby & "'," & _
"'" & _ksqchkdate & "'," & _
"'" & _ksqmodel & "'," & _
"'" & DateTime.Now & "'," & _
"0," & _
"'" & _ksqline & "'," & _
"'" & _kseqno & "')"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
addHeader = True
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
addHeader = False
Exit Function
Finally
conn.Close()
conn.Dispose()
End Try
End Function
Public Function addDetail() As Boolean
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "INSERT INTO KSEQUENCE_DETAIL " & _
"VALUES('" & _ksqmodule & "'," & _
"'" & _ksqfeeder & "'," & _
"'" & _ksqfeederType & "'," & _
"'" & _ksqpartno & "'," & _
"'" & _ksqtopsdloc & "'," & _
"'" & _ksqfsbsqty & "'," & _
"'" & _ksqdesc1 & "'," & _
"'" & _ksqdesc2 & "'," & _
"'" & _ksqtopmark & "'," & _
"'" & _ksqremarks & "'," & _
"'" & _kseqno & "')"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
addDetail = True
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
addDetail = False
Exit Function
Finally
conn.Close()
conn.Dispose()
End Try
End Function
Public Function generateNo(ByVal code As String) As String
Dim conn As New SqlConnection(cnstr)
Dim last As String = String.Empty
Dim myQuery As String
myQuery = "SELECT TOP 1 KSEQUENCENO FROM KSEQUENCE_HEADER WHERE KSEQUENCENO LIKE '" & code & "%' ORDER BY KSEQUENCENO DESC"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader = mycommand.ExecuteReader()
If reader.HasRows Then
reader.Read()
last = reader("KSEQUENCENO").ToString.Split("-")(1)
Dim seq As Integer = Integer.Parse(last) + 1
If seq.ToString.Length = 1 Then
last = code & "-0000" & seq
ElseIf seq.ToString.Length = 2 Then
last = code & "-000" & seq
ElseIf seq.ToString.Length = 3 Then
last = code & "-00" & seq
ElseIf seq.ToString.Length = 4 Then
last = code & "-0" & seq
Else
last = code & "-" & seq
End If
Else
last = code & "-00001"
End If
reader.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
Return last
End Function
Public Sub deleteHeader()
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "DELETE FROM KSEQUENCE_HEADER" & _
" WHERE KSEQUENCENO = '" & Me.sequenceno & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
Public Sub deleteDetail()
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "DELETE FROM KSEQUENCE_DETAIL" & _
" WHERE KSEQUENCENO = '" & Me.sequenceno & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
Public Function verify(ByVal partNo As String, ByVal sqModule As String, ByVal feeder As String) As Boolean
Dim conn As New SqlConnection(cnstr)
Dim status As Boolean = False
Dim myQuery As String
myQuery = "SELECT * FROM KSEQUENCE_DETAIL" & _
" WHERE KSEQUENCENO = '" & Me.sequenceno & "'" & _
" AND KSQPARTNO = '" & partNo & "'" & _
" AND KSQMODULE = '" & sqModule & "'" & _
" AND KSQFEEDERNO = '" & feeder & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader
If reader.HasRows Then
status = True
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
Return status
End Function
Public Function approve() As Boolean
Dim conn As New SqlConnection(cnstr)
Dim approved As Boolean = False
Dim myQuery As String
myQuery = "UPDATE KSEQUENCE_HEADER SET KSQSTATUS = 1," & _
"KSQCHECKBY = '" & Me.checkby & "'," & _
"KSQCHKDATE = '" & Me.chkdate & "'" & _
"WHERE KSEQUENCENO = '" & Me.sequenceno & "' "
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
approved = 1
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
Return approved
End Function
Public Function disApprove() As Boolean
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "UPDATE KSEQUENCE_HEADER SET KSQSTATUS = 0," & _
"KSQCHECKBY = '" & Me.checkby & "'," & _
"KSQCHKDATE = '" & Me.chkdate & "'" & _
" WHERE KSACCOUNT = '" & Me.account & "'" & _
" AND KSQREVISION = '" & Me.revision & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
disApprove = 1
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Function
Public Function getValidSequence() As List(Of String)
Dim sequenceList As New List(Of String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT DISTINCT KSACCOUNT FROM KSEQUENCE_HEADER" & _
" WHERE KSQSTATUS = 1 " & _
" ORDER BY KSACCOUNT"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
While reader.Read
sequenceList.Add(reader("KSACCOUNT"))
End While
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
Return sequenceList
End Function
Public Function getAllSequence() As List(Of String)
Dim sequenceList As New List(Of String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT DISTINCT KSACCOUNT FROM KSEQUENCE_HEADER"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
While reader.Read
sequenceList.Add(reader("KSACCOUNT"))
End While
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
Return sequenceList
End Function
Public Function getRevisions() As List(Of String)
Dim revList As New List(Of String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT DISTINCT KSQREVISION FROM KSEQUENCE_HEADER " & _
"ORDER BY KSQREVISION"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
While reader.Read
revList.Add(reader("KSQREVISION"))
End While
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
Return revList
End Function
Public Function getLines(ByVal sequence As String) As List(Of String)
Dim revList As New List(Of String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT DISTINCT KSQLINE FROM KSEQUENCE_HEADER " & _
"WHERE KSACCOUNT = '" & sequence & "' " & _
"ORDER BY KSQLINE"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
While reader.Read
revList.Add(reader("KSQLINE"))
End While
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
Return revList
End Function
Public Function getRevisions(ByVal sequence As String, ByVal line As String, ByVal model As String, ByVal type As String) As List(Of String)
Dim revList As New List(Of String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT DISTINCT KSQREVISION FROM KSEQUENCE_HEADER " & _
"WHERE KSACCOUNT = '" & sequence & "' " & _
"AND KSQLINE = '" & line & "' " & _
"AND KSQMODEL = '" & model & "' " & _
"AND KSQPCBSIDE = '" & type & "' " & _
"ORDER BY KSQREVISION"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
While reader.Read
revList.Add(reader("KSQREVISION"))
End While
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
Return revList
End Function
Public Function getModel(ByVal sequence As String, ByVal line As String) As List(Of String)
Dim revList As New List(Of String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT DISTINCT KSQMODEL FROM KSEQUENCE_HEADER " & _
"WHERE KSACCOUNT = '" & sequence & "' " & _
"AND KSQLINE = '" & line & "' " & _
"ORDER BY KSQMODEL"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
While reader.Read
revList.Add(reader("KSQMODEL"))
End While
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
Return revList
End Function
Public Function getTypes(ByVal sequence As String, ByVal line As String, ByVal model As String) As List(Of String)
Dim revList As New List(Of String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT DISTINCT KSQPCBSIDE FROM KSEQUENCE_HEADER " & _
"WHERE KSACCOUNT = '" & sequence & "' " & _
"AND KSQLINE = '" & line & "' " & _
"AND KSQMODEL = '" & model & "' " & _
"ORDER BY KSQPCBSIDE"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
While reader.Read
revList.Add(reader("KSQPCBSIDE"))
End While
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
Return revList
End Function
Public Function getMachine(ByVal sequence As String, ByVal line As String, ByVal rev As String, ByVal model As String) As List(Of String)
Dim revList As New List(Of String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT DISTINCT KSQMACHINE FROM KSEQUENCE_HEADER " & _
"WHERE KSACCOUNT = '" & sequence & "' AND KSQREVISION = '" & rev & "' AND KSQMODEL = '" & model & "' " & _
"AND KSQLINE = '" & line & "' " & _
"ORDER BY KSQMACHINE"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
While reader.Read
revList.Add(reader("KSQMACHINE"))
End While
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
Return revList
End Function
Public Function isVerified(ByVal account As String, ByVal line As String, ByVal model As String, ByVal type As String, ByVal revision As String) As Boolean
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT KSQSTATUS FROM KSEQUENCE_HEADER " & _
"WHERE KSACCOUNT = '" & account & "' " & _
"AND KSQLINE = " & line & " " & _
"AND KSQMODEL = '" & model & "' " & _
"AND KSQPCBSIDE = '" & type & "' " & _
"AND KSQREVISION = '" & revision & "' "
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
reader.Read()
If reader("KSQSTATUS") = 1 Then
isVerified = True
Else
isVerified = False
End If
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Verification Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
End Function
Public Function getSequenceNo(ByVal account As String, ByVal line As String, ByVal model As String, ByVal type As String, ByVal revision As String) As String
Dim conn As New SqlConnection(cnstr)
Dim kseq As String
Dim myQuery As String
myQuery = "SELECT KSEQUENCENO FROM KSEQUENCE_HEADER " & _
"WHERE KSACCOUNT = '" & account & "' " & _
"AND KSQLINE = " & line & " " & _
"AND KSQMODEL = '" & model & "' " & _
"AND KSQPCBSIDE = '" & type & "' " & _
"AND KSQREVISION = '" & revision & "' "
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
If reader.HasRows Then
reader.Read()
kseq = reader("KSEQUENCENO")
End If
reader.Close()
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Sequence No Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
Return kseq
End Function
Public Function verificationDetails(ByVal sequence As String, ByVal line As String, ByVal model As String, ByVal type As String, ByVal rev As String) As List(Of String)
Dim verDetails As New List(Of String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT * FROM KSEQUENCE_HEADER " & _
"WHERE KSACCOUNT = '" & sequence & "' " & _
"AND KSQLINE = " & line & " " & _
"AND KSQMODEL = '" & model & "' " & _
"AND KSQPCBSIDE = '" & type & "' " & _
"AND KSQREVISION = '" & rev & "' "
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
While reader.Read
verDetails.Add(reader("KSQCHECKBY"))
verDetails.Add(reader("KSQCHKDATE"))
End While
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Verification Detail Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
Return verDetails
End Function
#End Region
End Class

View File

@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xrml="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
<assemblyIdentity name="Kanban System.application" version="1.0.0.23" publicKeyToken="5d07c66b26499fa2" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" />
<description asmv2:publisher="Ionics EMS, Inc." asmv2:product="Kanban" xmlns="urn:schemas-microsoft-com:asm.v1" />
<deployment install="true" mapFileExtensions="true" />
<dependency>
<dependentAssembly dependencyType="install" codebase="Application Files\Kanban System_1_0_0_23\Kanban System.exe.manifest" size="9657">
<assemblyIdentity name="Kanban System.exe" version="1.0.0.23" publicKeyToken="5d07c66b26499fa2" language="neutral" processorArchitecture="msil" type="win32" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>loYK8JiDZTKvWqwQHxIp3n+zSfI=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<publisherIdentity name="CN=IONICS\franz.delomen" issuerKeyHash="bbd06e099f0d6067eaa95fc0a29d173cdf7ef6c7" /><Signature Id="StrongNameSignature" xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Reference URI=""><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue>YHyM5wAZ3UTZq+XRcGvvXizqCWs=</DigestValue></Reference></SignedInfo><SignatureValue>fVahEQTaGjwsVNFlj39uEUvc2TwF7QAmMRxgPH+zXqkzME5Lt/2E5ObqMdv1+/y9EtYB6jHvQKwidtU4dp6DKhF1e/EObGK89Cw5spgIXvkCVY4SmwCVuk8E797otRD7QrQIbwg7IgoJG8vs9B29FFDNIWTtNRoIcsWSwy0+wrI=</SignatureValue><KeyInfo Id="StrongNameKeyInfo"><KeyValue><RSAKeyValue><Modulus>zzlNnkONlM4M+vRtennY42p0oPQdXOQ8T6g9AITLp3Xk/SVC5a/dxEkh2L6MFGbQGsl8qBMl+5MV2v9Pn4zHo+mnBe0KeuaiBZKrhgf+/YfLQidAuq7MIwzMnLqlb0pvqUKq1dtpDGjpjM9PsLyo5t3gvLl0pI8EFU4u0eMLGYs=</Modulus><Exponent>AQAB</Exponent></RSAKeyValue></KeyValue><msrel:RelData xmlns:msrel="http://schemas.microsoft.com/windows/rel/2005/reldata"><r:license xmlns:r="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:as="http://schemas.microsoft.com/windows/pki/2005/Authenticode"><r:grant><as:ManifestInformation Hash="6b09ea2c5eef6b70d1e5abd944dd1900e78c7c60" Description="" Url=""><as:assemblyIdentity name="Kanban System.application" version="1.0.0.23" publicKeyToken="5d07c66b26499fa2" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" /></as:ManifestInformation><as:SignedBy /><as:AuthenticodePublisher><as:X509SubjectName>CN=IONICS\franz.delomen</as:X509SubjectName></as:AuthenticodePublisher></r:grant><r:issuer><Signature Id="AuthenticodeSignature" xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Reference URI=""><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue>JzNXpk3wM6AhJELyaMfExN1j3ko=</DigestValue></Reference></SignedInfo><SignatureValue>bdLQ/avnfLgyFTel2msD87qPBvaV5VVl/zqoMZmHKyUruu+UJA4R7liX5ErMAeX5ScQNsrdzHBw2UxAl2bm/pNhMEPaYtLxQvAQnacy6JUlBCo0E7ZkvqFGOyutHu/iQiSffa6cOo8fMsR0w/T6TPNut0YJVp3/5RiM4luOlKJ0=</SignatureValue><KeyInfo><KeyValue><RSAKeyValue><Modulus>zzlNnkONlM4M+vRtennY42p0oPQdXOQ8T6g9AITLp3Xk/SVC5a/dxEkh2L6MFGbQGsl8qBMl+5MV2v9Pn4zHo+mnBe0KeuaiBZKrhgf+/YfLQidAuq7MIwzMnLqlb0pvqUKq1dtpDGjpjM9PsLyo5t3gvLl0pI8EFU4u0eMLGYs=</Modulus><Exponent>AQAB</Exponent></RSAKeyValue></KeyValue><X509Data><X509Certificate>MIIB6TCCAVKgAwIBAgIQGB+RTAzS47VNDBz+bQd1AjANBgkqhkiG9w0BAQUFADAzMTEwLwYDVQQDHigASQBPAE4ASQBDAFMAXABmAHIAYQBuAHoALgBkAGUAbABvAG0AZQBuMB4XDTE1MDQyMzAzMTMwNloXDTE2MDQyMjA5MTMwNlowMzExMC8GA1UEAx4oAEkATwBOAEkAQwBTAFwAZgByAGEAbgB6AC4AZABlAGwAbwBtAGUAbjCBnzANBgkqhkiG9w0BAQEFAAOBjQAwgYkCgYEAzzlNnkONlM4M+vRtennY42p0oPQdXOQ8T6g9AITLp3Xk/SVC5a/dxEkh2L6MFGbQGsl8qBMl+5MV2v9Pn4zHo+mnBe0KeuaiBZKrhgf+/YfLQidAuq7MIwzMnLqlb0pvqUKq1dtpDGjpjM9PsLyo5t3gvLl0pI8EFU4u0eMLGYsCAwEAATANBgkqhkiG9w0BAQUFAAOBgQAPhufllRWQgSEM7L7BgV66S9sXXLE1AbOEk3J9uz5/vLAjAxD81JKy+2XJjAWlW6VmEQGI5nNxiMV+hEdZnzdboG9MZdhP5OrdOiPFhS8zsnccKagMcZHarAEAC7vDaD4H79+gfU4saX6q3CozhSho3zOLXCxFnR8SKcbBtO06pQ==</X509Certificate></X509Data></KeyInfo></Signature></r:issuer></r:license></msrel:RelData></KeyInfo></Signature></asmv1:assembly>

View File

@ -0,0 +1,63 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.1
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Mounting_Sequence.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
End Module
End Namespace

View File

@ -0,0 +1,84 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
<asmv1:assemblyIdentity name="Kanban System.exe" version="1.0.0.17" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<application />
<entryPoint>
<assemblyIdentity name="Kanban System" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<commandLine file="Kanban System.exe" parameters="" />
</entryPoint>
<trustInfo>
<security>
<applicationRequestMinimum>
<PermissionSet Unrestricted="true" ID="Custom" SameSite="site" />
<defaultAssemblyRequest permissionSetReference="Custom" />
</applicationRequestMinimum>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- UAC Manifest Options
If you want to change the Windows User Account Control level replace the
requestedExecutionLevel node with one of the following.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Specifying requestedExecutionLevel node will disable file and registry virtualization.
If you want to utilize File and Registry Virtualization for backward
compatibility then delete the requestedExecutionLevel node.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<dependency>
<dependentOS>
<osVersionInfo>
<os majorVersion="4" minorVersion="10" buildNumber="0" servicePackMajor="0" />
</osVersionInfo>
</dependentOS>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Microsoft.Windows.CommonLanguageRuntime" version="2.0.50727.0" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Interop.Microsoft.Office.Interop.Excel.dll" size="1544192">
<assemblyIdentity name="Interop.Microsoft.Office.Interop.Excel" version="1.7.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>7YA85eufIXItcsMaDGw0Skomhfw=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Kanban System.exe" size="684544">
<assemblyIdentity name="Kanban System" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>jxzqSBsbF9ccaTGd3z5zmmFgKpw=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<file name="Kanban System.exe.config" size="2658">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>37bBcQj6rBG7Vse3ksdaTU0o0RQ=</dsig:DigestValue>
</hash>
</file>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- A list of all Windows versions that this application is designed to work with. Windows will automatically select the most compatible environment.-->
<!-- If your application is designed to work with Windows 7, uncomment the following supportedOS node-->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>-->
</application>
</compatibility>
</asmv1:assembly>

View File

@ -0,0 +1,62 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.1433
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'<summary>
' A strongly-typed resource class, for looking up localized strings, etc.
'</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'<summary>
' Returns the cached ResourceManager instance used by this class.
'</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Mounting_Sequence.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'<summary>
' Overrides the current thread's CurrentUICulture property for all
' resource lookups using this strongly typed resource class.
'</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property
End Module
End Namespace

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,225 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="3.5" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProductVersion>9.0.21022</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{8C79F105-3456-4E41-8510-5B53B1CBE2DA}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>Mounting_Sequence.My.MyApplication</StartupObject>
<RootNamespace>Mounting_Sequence</RootNamespace>
<AssemblyName>Mounting Sequence</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
<OptionExplicit>On</OptionExplicit>
<OptionCompare>Binary</OptionCompare>
<OptionStrict>Off</OptionStrict>
<OptionInfer>On</OptionInfer>
<IsWebBootstrapper>false</IsWebBootstrapper>
<ManifestCertificateThumbprint>82BD341806AC4498AAC406AC5C1B71E1C5845339</ManifestCertificateThumbprint>
<ManifestKeyFile>Mounting Sequence_TemporaryKey.pfx</ManifestKeyFile>
<GenerateManifests>true</GenerateManifests>
<SignManifests>true</SignManifests>
<PublishUrl>C:\Projects\Mounting Sequence\Mounting Sequence\Installer\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>2</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>Mounting Sequence.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Mounting Sequence.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
</ItemGroup>
<ItemGroup>
<Compile Include="Classes\Connection.vb" />
<Compile Include="Classes\Machine.vb" />
<Compile Include="Classes\Mounting.vb" />
<Compile Include="Classes\Sequence.vb" />
<Compile Include="Classes\User.vb" />
<Compile Include="Forms\machineForm.designer.vb">
<DependentUpon>machineForm.vb</DependentUpon>
</Compile>
<Compile Include="Forms\machineForm.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms\loginForm.designer.vb">
<DependentUpon>loginForm.vb</DependentUpon>
</Compile>
<Compile Include="Forms\loginForm.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms\mainForm.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms\mainForm.Designer.vb">
<DependentUpon>mainForm.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms\mcSeqForm.Designer.vb">
<DependentUpon>mcSeqForm.vb</DependentUpon>
</Compile>
<Compile Include="Forms\mcSeqForm.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms\mountingForm.Designer.vb">
<DependentUpon>mountingForm.vb</DependentUpon>
</Compile>
<Compile Include="Forms\mountingForm.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms\requestForm.Designer.vb">
<DependentUpon>requestForm.vb</DependentUpon>
</Compile>
<Compile Include="Forms\requestForm.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms\uploadMcSeq.designer.vb">
<DependentUpon>uploadMcSeq.vb</DependentUpon>
</Compile>
<Compile Include="Forms\uploadMcSeq.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms\userForm.designer.vb">
<DependentUpon>userForm.vb</DependentUpon>
</Compile>
<Compile Include="Forms\userForm.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Forms\machineForm.resx">
<DependentUpon>machineForm.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms\loginForm.resx">
<DependentUpon>loginForm.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms\mainForm.resx">
<DependentUpon>mainForm.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms\mcSeqForm.resx">
<DependentUpon>mcSeqForm.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms\mountingForm.resx">
<DependentUpon>mountingForm.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms\requestForm.resx">
<DependentUpon>requestForm.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms\uploadMcSeq.resx">
<DependentUpon>uploadMcSeq.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms\userForm.resx">
<DependentUpon>userForm.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="app.config" />
<None Include="Mounting Sequence_TemporaryKey.pfx" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
<Visible>False</Visible>
<ProductName>.NET Framework 2.0 %28x86%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.0">
<Visible>False</Visible>
<ProductName>.NET Framework 3.0 %28x86%29</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

View File

@ -0,0 +1,359 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class mountingForm
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.btn_reload = New System.Windows.Forms.Button
Me.cmbRev = New System.Windows.Forms.ComboBox
Me.Label2 = New System.Windows.Forms.Label
Me.btn_setSequence = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.cmbSeq = New System.Windows.Forms.ComboBox
Me.txtStart = New System.Windows.Forms.TextBox
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.GroupBox3 = New System.Windows.Forms.GroupBox
Me.lbl_fail = New System.Windows.Forms.Label
Me.lbl_Pass = New System.Windows.Forms.Label
Me.txtLotNum = New System.Windows.Forms.TextBox
Me.Label8 = New System.Windows.Forms.Label
Me.txtQuantity = New System.Windows.Forms.TextBox
Me.Label7 = New System.Windows.Forms.Label
Me.txtPartDesc = New System.Windows.Forms.TextBox
Me.Label6 = New System.Windows.Forms.Label
Me.txtOperator = New System.Windows.Forms.TextBox
Me.Label5 = New System.Windows.Forms.Label
Me.txtFeeder = New System.Windows.Forms.TextBox
Me.txtPartNo = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.btn_reload)
Me.GroupBox1.Controls.Add(Me.cmbRev)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.btn_setSequence)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.cmbSeq)
Me.GroupBox1.Controls.Add(Me.txtStart)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(6, 3)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(957, 129)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Mounting Sequence"
'
'btn_reload
'
Me.btn_reload.Location = New System.Drawing.Point(602, 68)
Me.btn_reload.Name = "btn_reload"
Me.btn_reload.Size = New System.Drawing.Size(228, 55)
Me.btn_reload.TabIndex = 18
Me.btn_reload.Text = "Set Reload Mode"
Me.btn_reload.UseVisualStyleBackColor = True
'
'cmbRev
'
Me.cmbRev.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbRev.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbRev.FormattingEnabled = True
Me.cmbRev.Location = New System.Drawing.Point(212, 72)
Me.cmbRev.Name = "cmbRev"
Me.cmbRev.Size = New System.Drawing.Size(260, 33)
Me.cmbRev.TabIndex = 17
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(105, 76)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(101, 25)
Me.Label2.TabIndex = 16
Me.Label2.Text = "Revision:"
'
'btn_setSequence
'
Me.btn_setSequence.Location = New System.Drawing.Point(602, 33)
Me.btn_setSequence.Name = "btn_setSequence"
Me.btn_setSequence.Size = New System.Drawing.Size(228, 33)
Me.btn_setSequence.TabIndex = 4
Me.btn_setSequence.Text = "Set Sequence"
Me.btn_setSequence.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(10, 38)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(196, 25)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Sequence Number:"
'
'cmbSeq
'
Me.cmbSeq.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbSeq.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbSeq.FormattingEnabled = True
Me.cmbSeq.Location = New System.Drawing.Point(212, 33)
Me.cmbSeq.Name = "cmbSeq"
Me.cmbSeq.Size = New System.Drawing.Size(384, 33)
Me.cmbSeq.TabIndex = 2
'
'txtStart
'
Me.txtStart.Location = New System.Drawing.Point(213, 34)
Me.txtStart.Name = "txtStart"
Me.txtStart.Size = New System.Drawing.Size(201, 31)
Me.txtStart.TabIndex = 15
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.GroupBox3)
Me.GroupBox2.Controls.Add(Me.txtLotNum)
Me.GroupBox2.Controls.Add(Me.Label8)
Me.GroupBox2.Controls.Add(Me.txtQuantity)
Me.GroupBox2.Controls.Add(Me.Label7)
Me.GroupBox2.Controls.Add(Me.txtPartDesc)
Me.GroupBox2.Controls.Add(Me.Label6)
Me.GroupBox2.Controls.Add(Me.txtOperator)
Me.GroupBox2.Controls.Add(Me.Label5)
Me.GroupBox2.Controls.Add(Me.txtFeeder)
Me.GroupBox2.Controls.Add(Me.txtPartNo)
Me.GroupBox2.Controls.Add(Me.Label4)
Me.GroupBox2.Controls.Add(Me.Label3)
Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox2.Location = New System.Drawing.Point(6, 138)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(957, 446)
Me.GroupBox2.TabIndex = 1
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Mounting Validation"
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.lbl_fail)
Me.GroupBox3.Controls.Add(Me.lbl_Pass)
Me.GroupBox3.Location = New System.Drawing.Point(481, 15)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(464, 424)
Me.GroupBox3.TabIndex = 21
Me.GroupBox3.TabStop = False
'
'lbl_fail
'
Me.lbl_fail.AutoSize = True
Me.lbl_fail.Font = New System.Drawing.Font("Microsoft Sans Serif", 72.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_fail.ForeColor = System.Drawing.Color.Tomato
Me.lbl_fail.Location = New System.Drawing.Point(45, 133)
Me.lbl_fail.Name = "lbl_fail"
Me.lbl_fail.Size = New System.Drawing.Size(387, 108)
Me.lbl_fail.TabIndex = 22
Me.lbl_fail.Text = "FAILED"
Me.lbl_fail.Visible = False
'
'lbl_Pass
'
Me.lbl_Pass.AutoSize = True
Me.lbl_Pass.Font = New System.Drawing.Font("Microsoft Sans Serif", 72.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_Pass.ForeColor = System.Drawing.Color.ForestGreen
Me.lbl_Pass.Location = New System.Drawing.Point(20, 133)
Me.lbl_Pass.Name = "lbl_Pass"
Me.lbl_Pass.Size = New System.Drawing.Size(440, 108)
Me.lbl_Pass.TabIndex = 21
Me.lbl_Pass.Text = "PASSED"
Me.lbl_Pass.Visible = False
'
'txtLotNum
'
Me.txtLotNum.Enabled = False
Me.txtLotNum.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLotNum.Location = New System.Drawing.Point(145, 260)
Me.txtLotNum.Name = "txtLotNum"
Me.txtLotNum.Size = New System.Drawing.Size(327, 31)
Me.txtLotNum.TabIndex = 19
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(13, 263)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(129, 25)
Me.Label8.TabIndex = 18
Me.Label8.Text = "Lot Number:"
'
'txtQuantity
'
Me.txtQuantity.Enabled = False
Me.txtQuantity.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtQuantity.Location = New System.Drawing.Point(144, 200)
Me.txtQuantity.Name = "txtQuantity"
Me.txtQuantity.Size = New System.Drawing.Size(328, 31)
Me.txtQuantity.TabIndex = 17
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(38, 203)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(98, 25)
Me.Label7.TabIndex = 16
Me.Label7.Text = "Quantity:"
'
'txtPartDesc
'
Me.txtPartDesc.Enabled = False
Me.txtPartDesc.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPartDesc.Location = New System.Drawing.Point(144, 91)
Me.txtPartDesc.Multiline = True
Me.txtPartDesc.Name = "txtPartDesc"
Me.txtPartDesc.Size = New System.Drawing.Size(328, 81)
Me.txtPartDesc.TabIndex = 14
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(13, 113)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(126, 25)
Me.Label6.TabIndex = 13
Me.Label6.Text = "Description:"
'
'txtOperator
'
Me.txtOperator.Enabled = False
Me.txtOperator.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtOperator.Location = New System.Drawing.Point(145, 384)
Me.txtOperator.Name = "txtOperator"
Me.txtOperator.Size = New System.Drawing.Size(327, 31)
Me.txtOperator.TabIndex = 11
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(34, 387)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(102, 25)
Me.Label5.TabIndex = 10
Me.Label5.Text = "Operator:"
'
'txtFeeder
'
Me.txtFeeder.Enabled = False
Me.txtFeeder.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFeeder.Location = New System.Drawing.Point(145, 327)
Me.txtFeeder.Name = "txtFeeder"
Me.txtFeeder.Size = New System.Drawing.Size(327, 31)
Me.txtFeeder.TabIndex = 9
'
'txtPartNo
'
Me.txtPartNo.Enabled = False
Me.txtPartNo.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPartNo.Location = New System.Drawing.Point(144, 41)
Me.txtPartNo.Name = "txtPartNo"
Me.txtPartNo.Size = New System.Drawing.Size(328, 31)
Me.txtPartNo.TabIndex = 8
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(17, 330)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(119, 25)
Me.Label4.TabIndex = 7
Me.Label4.Text = "Feeder No:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(10, 44)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(138, 25)
Me.Label3.TabIndex = 6
Me.Label3.Text = "Part Number:"
'
'Timer1
'
'
'mountingForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(968, 589)
Me.ControlBox = False
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "mountingForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Mounting"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents cmbSeq As System.Windows.Forms.ComboBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents btn_setSequence As System.Windows.Forms.Button
Friend WithEvents txtOperator As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtFeeder As System.Windows.Forms.TextBox
Friend WithEvents txtPartNo As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtPartDesc As System.Windows.Forms.TextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents txtStart As System.Windows.Forms.TextBox
Friend WithEvents txtLotNum As System.Windows.Forms.TextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtQuantity As System.Windows.Forms.TextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents lbl_Pass As System.Windows.Forms.Label
Friend WithEvents lbl_fail As System.Windows.Forms.Label
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents cmbRev As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents btn_reload As System.Windows.Forms.Button
End Class

View File

@ -0,0 +1,157 @@
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Security
Imports System.Security.Cryptography
Imports System.Text
Public Class Parts
Private _partNo As String
Private _partDesc As String
Private cnstr As String
Private connection As Connection
#Region "Properties"
Public Property partNo As String
Get
Return _partNo
End Get
Set(ByVal value As String)
_partNo = value
End Set
End Property
Public Property partDesc As String
Get
Return _partDesc
End Get
Set(ByVal value As String)
_partDesc = value
End Set
End Property
#End Region
#Region "Methods"
Public Sub New()
cnstr = mainForm.cnstr
End Sub
Public Sub New(ByVal partno As String)
connection = New Connection
connection.server = My.Settings.server
connection.database = My.Settings.database
connection.username = My.Settings.username
connection.password = My.Settings.password
connection.dbserver = My.Settings.dbserver
connection.isTrusted = My.Settings.isTrusted
cnstr = connection.cnStr
mainForm.cnstr = cnstr
_partNo = partNo
End Sub
Public Sub add(ByVal kptpartno As String, ByVal kptdesc As String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "INSERT INTO kparts([KPTPARTNUM],[KPTDESCRIPTION]) VALUES (" & _
"'" & kptpartno & "','" & kptdesc & "')"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
Public Sub edit(ByVal kptpartno As String, ByVal kptdesc As String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "UPDATE kparts " & _
"SET kptpartnum = " & "'" & kptpartno & "'," & _
" kptdescription = " & " '" & kptdesc & "'" & _
" WHERE kptpartnum = " & "'" & _partNo & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
MessageBox.Show("Successfully Saved.", "System User", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
Public Sub delete(ByVal kptpartno As String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "DELETE FROM kparts " & _
"WHERE kptpartnum = '" & kptpartno & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
If (check_part() = True) Then
mycommand.ExecuteNonQuery()
MessageBox.Show("Successfully Deleted.", "System User", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("User does not exists in the database.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
Public Function check_part() As Boolean
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT * FROM kparts " & _
"WHERE kptpartnum = " & "'" & _partNo & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
If (reader.HasRows) Then
Return True
Else
Return False
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Function
#End Region
End Class

View File

@ -0,0 +1,183 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Naming", "CA1726")> _
Partial Class loginForm
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(loginForm))
Me.LogoPictureBox = New System.Windows.Forms.PictureBox
Me.UsernameLabel = New System.Windows.Forms.Label
Me.PasswordLabel = New System.Windows.Forms.Label
Me.txtUsername = New System.Windows.Forms.TextBox
Me.txtPassword = New System.Windows.Forms.TextBox
Me.btn_ok = New System.Windows.Forms.Button
Me.btn_cancel = New System.Windows.Forms.Button
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.Label1 = New System.Windows.Forms.Label
CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'LogoPictureBox
'
Me.LogoPictureBox.Image = CType(resources.GetObject("LogoPictureBox.Image"), System.Drawing.Image)
Me.LogoPictureBox.Location = New System.Drawing.Point(6, 9)
Me.LogoPictureBox.Name = "LogoPictureBox"
Me.LogoPictureBox.Size = New System.Drawing.Size(166, 144)
Me.LogoPictureBox.TabIndex = 10
Me.LogoPictureBox.TabStop = False
'
'UsernameLabel
'
Me.UsernameLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.UsernameLabel.Location = New System.Drawing.Point(176, 31)
Me.UsernameLabel.Name = "UsernameLabel"
Me.UsernameLabel.Size = New System.Drawing.Size(177, 23)
Me.UsernameLabel.TabIndex = 9
Me.UsernameLabel.Text = "&User name"
Me.UsernameLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'PasswordLabel
'
Me.PasswordLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.PasswordLabel.Location = New System.Drawing.Point(176, 88)
Me.PasswordLabel.Name = "PasswordLabel"
Me.PasswordLabel.Size = New System.Drawing.Size(177, 23)
Me.PasswordLabel.TabIndex = 12
Me.PasswordLabel.Text = "&Password"
Me.PasswordLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'txtUsername
'
Me.txtUsername.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtUsername.ForeColor = System.Drawing.Color.Red
Me.txtUsername.Location = New System.Drawing.Point(178, 51)
Me.txtUsername.Name = "txtUsername"
Me.txtUsername.Size = New System.Drawing.Size(175, 24)
Me.txtUsername.TabIndex = 11
'
'txtPassword
'
Me.txtPassword.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPassword.ForeColor = System.Drawing.Color.Red
Me.txtPassword.Location = New System.Drawing.Point(178, 108)
Me.txtPassword.Name = "txtPassword"
Me.txtPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.txtPassword.Size = New System.Drawing.Size(175, 24)
Me.txtPassword.TabIndex = 13
'
'btn_ok
'
Me.btn_ok.BackColor = System.Drawing.Color.Transparent
Me.btn_ok.BackgroundImage = CType(resources.GetObject("btn_ok.BackgroundImage"), System.Drawing.Image)
Me.btn_ok.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btn_ok.FlatAppearance.BorderSize = 0
Me.btn_ok.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_ok.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_ok.ForeColor = System.Drawing.Color.White
Me.btn_ok.Image = CType(resources.GetObject("btn_ok.Image"), System.Drawing.Image)
Me.btn_ok.Location = New System.Drawing.Point(69, 165)
Me.btn_ok.Margin = New System.Windows.Forms.Padding(0)
Me.btn_ok.Name = "btn_ok"
Me.btn_ok.Size = New System.Drawing.Size(115, 36)
Me.btn_ok.TabIndex = 14
Me.btn_ok.Text = " &Ok"
Me.btn_ok.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btn_ok.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me.btn_ok.UseVisualStyleBackColor = True
'
'btn_cancel
'
Me.btn_cancel.BackColor = System.Drawing.Color.Transparent
Me.btn_cancel.BackgroundImage = CType(resources.GetObject("btn_cancel.BackgroundImage"), System.Drawing.Image)
Me.btn_cancel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.btn_cancel.FlatAppearance.BorderSize = 0
Me.btn_cancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_cancel.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_cancel.ForeColor = System.Drawing.Color.White
Me.btn_cancel.Image = CType(resources.GetObject("btn_cancel.Image"), System.Drawing.Image)
Me.btn_cancel.Location = New System.Drawing.Point(193, 164)
Me.btn_cancel.Margin = New System.Windows.Forms.Padding(0)
Me.btn_cancel.Name = "btn_cancel"
Me.btn_cancel.Size = New System.Drawing.Size(115, 36)
Me.btn_cancel.TabIndex = 15
Me.btn_cancel.Text = " &Cancel"
Me.btn_cancel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btn_cancel.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me.btn_cancel.UseVisualStyleBackColor = True
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.btn_cancel)
Me.GroupBox1.Controls.Add(Me.btn_ok)
Me.GroupBox1.Controls.Add(Me.txtPassword)
Me.GroupBox1.Controls.Add(Me.txtUsername)
Me.GroupBox1.Controls.Add(Me.PasswordLabel)
Me.GroupBox1.Controls.Add(Me.UsernameLabel)
Me.GroupBox1.Controls.Add(Me.LogoPictureBox)
Me.GroupBox1.Location = New System.Drawing.Point(0, -4)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(360, 215)
Me.GroupBox1.TabIndex = 9
Me.GroupBox1.TabStop = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(176, 13)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(0, 18)
Me.Label1.TabIndex = 16
'
'loginForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(363, 214)
Me.ControlBox = False
Me.Controls.Add(Me.GroupBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "loginForm"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "System Login"
CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents LogoPictureBox As System.Windows.Forms.PictureBox
Friend WithEvents UsernameLabel As System.Windows.Forms.Label
Friend WithEvents PasswordLabel As System.Windows.Forms.Label
Friend WithEvents txtUsername As System.Windows.Forms.TextBox
Friend WithEvents txtPassword As System.Windows.Forms.TextBox
Friend WithEvents btn_ok As System.Windows.Forms.Button
Friend WithEvents btn_cancel As System.Windows.Forms.Button
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label1 As System.Windows.Forms.Label
End Class

View File

@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xrml="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
<assemblyIdentity name="Kanban System.application" version="1.0.0.17" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" />
<description asmv2:publisher="Ionics EMS, Inc." asmv2:product="Kanban" xmlns="urn:schemas-microsoft-com:asm.v1" />
<deployment install="true" mapFileExtensions="true" />
<dependency>
<dependentAssembly dependencyType="install" codebase="Kanban System.exe.manifest" size="4709">
<assemblyIdentity name="Kanban System.exe" version="1.0.0.17" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<dsig:DigestValue>bFuc0MC689ws/VWd43oQG1I/asA=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
</asmv1:assembly>

View File

@ -0,0 +1,57 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="Mounting_Sequence.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<connectionStrings>
<add name="Mounting_Sequence.My.MySettings.EpsonConnectionString"
connectionString="Data Source=192.168.1.50;Initial Catalog=Toshiba;Persist Security Info=True;User ID=cats;Password=dogs"
providerName="System.Data.SqlClient" />
</connectionStrings>
<system.diagnostics>
<sources>
<!-- This section defines the logging configuration for My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Uncomment the below section to write to the Application Event Log -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
</switches>
<sharedListeners>
<add name="FileLog"
type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
initializeData="FileLogWriter"/>
<!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<userSettings>
<Mounting_Sequence.My.MySettings>
<setting name="server" serializeAs="String">
<value>192.168.1.50</value>
</setting>
<setting name="database" serializeAs="String">
<value>Toshiba</value>
</setting>
<setting name="username" serializeAs="String">
<value />
</setting>
<setting name="password" serializeAs="String">
<value />
</setting>
<setting name="dbserver" serializeAs="String">
<value>SQL Server</value>
</setting>
<setting name="isTrusted" serializeAs="String">
<value>True</value>
</setting>
</Mounting_Sequence.My.MySettings>
</userSettings>
</configuration>

View File

@ -0,0 +1,343 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class userForm
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(userForm))
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.cmbAccount = New System.Windows.Forms.ComboBox
Me.Label6 = New System.Windows.Forms.Label
Me.cmbPlant = New System.Windows.Forms.ComboBox
Me.Label4 = New System.Windows.Forms.Label
Me.txtPassword2 = New System.Windows.Forms.TextBox
Me.Label3 = New System.Windows.Forms.Label
Me.cmb_userType = New System.Windows.Forms.ComboBox
Me.cbActive = New System.Windows.Forms.CheckBox
Me.Label5 = New System.Windows.Forms.Label
Me.txtPassword = New System.Windows.Forms.TextBox
Me.txtUsername = New System.Windows.Forms.TextBox
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.btn_find = New System.Windows.Forms.Button
Me.ts_new = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator
Me.ts_edit = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator
Me.ts_delete = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator
Me.ts_find = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator
Me.ts_save = New System.Windows.Forms.ToolStripButton
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
Me.ts_revert = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator
Me.GroupBox1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.cmbAccount)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.cmbPlant)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.txtPassword2)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.cmb_userType)
Me.GroupBox1.Controls.Add(Me.cbActive)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.txtPassword)
Me.GroupBox1.Controls.Add(Me.txtUsername)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.btn_find)
Me.GroupBox1.Location = New System.Drawing.Point(6, 27)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(499, 186)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Information"
'
'cmbAccount
'
Me.cmbAccount.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbAccount.Enabled = False
Me.cmbAccount.FormattingEnabled = True
Me.cmbAccount.Items.AddRange(New Object() {"", "Administrator", "Encoder", "Generator", "Guest"})
Me.cmbAccount.Location = New System.Drawing.Point(124, 127)
Me.cmbAccount.Name = "cmbAccount"
Me.cmbAccount.Size = New System.Drawing.Size(159, 21)
Me.cmbAccount.TabIndex = 4
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(70, 132)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(50, 13)
Me.Label6.TabIndex = 27
Me.Label6.Text = "Account:"
'
'cmbPlant
'
Me.cmbPlant.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbPlant.Enabled = False
Me.cmbPlant.FormattingEnabled = True
Me.cmbPlant.Items.AddRange(New Object() {"", "Administrator", "Encoder", "Generator", "Guest"})
Me.cmbPlant.Location = New System.Drawing.Point(124, 100)
Me.cmbPlant.Name = "cmbPlant"
Me.cmbPlant.Size = New System.Drawing.Size(159, 21)
Me.cmbPlant.TabIndex = 3
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(84, 105)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(34, 13)
Me.Label4.TabIndex = 25
Me.Label4.Text = "Plant:"
'
'txtPassword2
'
Me.txtPassword2.Enabled = False
Me.txtPassword2.Location = New System.Drawing.Point(124, 74)
Me.txtPassword2.Name = "txtPassword2"
Me.txtPassword2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.txtPassword2.Size = New System.Drawing.Size(159, 20)
Me.txtPassword2.TabIndex = 2
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(24, 78)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(96, 13)
Me.Label3.TabIndex = 22
Me.Label3.Text = "Re type Password:"
'
'cmb_userType
'
Me.cmb_userType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmb_userType.Enabled = False
Me.cmb_userType.FormattingEnabled = True
Me.cmb_userType.Items.AddRange(New Object() {"", "Administrator", "Engineer", "Guest", "Operator", "Quality Control", "PPC"})
Me.cmb_userType.Location = New System.Drawing.Point(124, 154)
Me.cmb_userType.Name = "cmb_userType"
Me.cmb_userType.Size = New System.Drawing.Size(159, 21)
Me.cmb_userType.TabIndex = 5
'
'cbActive
'
Me.cbActive.AutoSize = True
Me.cbActive.Enabled = False
Me.cbActive.Location = New System.Drawing.Point(298, 24)
Me.cbActive.Name = "cbActive"
Me.cbActive.Size = New System.Drawing.Size(56, 17)
Me.cbActive.TabIndex = 6
Me.cbActive.Text = "Active"
Me.cbActive.UseVisualStyleBackColor = True
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(60, 159)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(56, 13)
Me.Label5.TabIndex = 8
Me.Label5.Text = "UserType:"
'
'txtPassword
'
Me.txtPassword.Enabled = False
Me.txtPassword.Location = New System.Drawing.Point(124, 48)
Me.txtPassword.Name = "txtPassword"
Me.txtPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.txtPassword.Size = New System.Drawing.Size(159, 20)
Me.txtPassword.TabIndex = 1
'
'txtUsername
'
Me.txtUsername.Enabled = False
Me.txtUsername.Location = New System.Drawing.Point(124, 21)
Me.txtUsername.Name = "txtUsername"
Me.txtUsername.Size = New System.Drawing.Size(159, 20)
Me.txtUsername.TabIndex = 0
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(62, 51)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(56, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Password:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(62, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(58, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Username:"
'
'btn_find
'
Me.btn_find.Location = New System.Drawing.Point(296, 19)
Me.btn_find.Name = "btn_find"
Me.btn_find.Size = New System.Drawing.Size(75, 23)
Me.btn_find.TabIndex = 7
Me.btn_find.Text = "GO"
Me.btn_find.UseVisualStyleBackColor = True
'
'ts_new
'
Me.ts_new.Image = CType(resources.GetObject("ts_new.Image"), System.Drawing.Image)
Me.ts_new.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_new.Name = "ts_new"
Me.ts_new.Size = New System.Drawing.Size(56, 22)
Me.ts_new.Text = "Insert"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'ts_edit
'
Me.ts_edit.Image = CType(resources.GetObject("ts_edit.Image"), System.Drawing.Image)
Me.ts_edit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_edit.Name = "ts_edit"
Me.ts_edit.Size = New System.Drawing.Size(62, 22)
Me.ts_edit.Text = "Update"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25)
'
'ts_delete
'
Me.ts_delete.Image = CType(resources.GetObject("ts_delete.Image"), System.Drawing.Image)
Me.ts_delete.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_delete.Name = "ts_delete"
Me.ts_delete.Size = New System.Drawing.Size(58, 22)
Me.ts_delete.Text = "Delete"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25)
'
'ts_find
'
Me.ts_find.Image = CType(resources.GetObject("ts_find.Image"), System.Drawing.Image)
Me.ts_find.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_find.Name = "ts_find"
Me.ts_find.Size = New System.Drawing.Size(47, 22)
Me.ts_find.Text = "Find"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 25)
'
'ts_save
'
Me.ts_save.Enabled = False
Me.ts_save.Image = CType(resources.GetObject("ts_save.Image"), System.Drawing.Image)
Me.ts_save.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_save.Name = "ts_save"
Me.ts_save.Size = New System.Drawing.Size(77, 22)
Me.ts_save.Text = "Save Data"
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ts_new, Me.ToolStripSeparator1, Me.ts_edit, Me.ToolStripSeparator2, Me.ts_delete, Me.ToolStripSeparator3, Me.ts_revert, Me.ToolStripSeparator5, Me.ts_save, Me.ToolStripSeparator4, Me.ts_find})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(512, 25)
Me.ToolStrip1.TabIndex = 3
'
'ts_revert
'
Me.ts_revert.Enabled = False
Me.ts_revert.Image = CType(resources.GetObject("ts_revert.Image"), System.Drawing.Image)
Me.ts_revert.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ts_revert.Name = "ts_revert"
Me.ts_revert.Size = New System.Drawing.Size(60, 22)
Me.ts_revert.Text = "Revert"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 25)
'
'userForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(512, 217)
Me.ControlBox = False
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.ToolStrip1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "userForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "User Maintenance"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents cmb_userType As System.Windows.Forms.ComboBox
Friend WithEvents cbActive As System.Windows.Forms.CheckBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtPassword As System.Windows.Forms.TextBox
Friend WithEvents txtUsername As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ts_new As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_edit As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_delete As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_find As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ts_save As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents btn_find As System.Windows.Forms.Button
Friend WithEvents ts_revert As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents cmbPlant As System.Windows.Forms.ComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents txtPassword2 As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents cmbAccount As System.Windows.Forms.ComboBox
Friend WithEvents Label6 As System.Windows.Forms.Label
End Class

View File

@ -0,0 +1,546 @@
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Security
Imports System.Security.Cryptography
Imports System.Text
Public Class Sequence
Private _ksqsequence As String
Private _ksqmodel As String
Private _ksqpcbside As String
Private _ksqpartno As String
Private _ksqmachine As String
Private _ksqrevision As String
Private _ksqtopsdloc As String
Private _ksqfsbsqty As String
Private _ksqdesc1 As String
Private _ksqdesc2 As String
Private _ksqtopmark As String
Private _ksqmodule As String
Private _ksqfeeder As String
Private _ksqfeederType As String
Private _ksqprepby As String
Private _ksqupdtime As String
Private _ksqcheckby As String
Private _ksqchkdate As String
Private _ksqremarks As String
Private _ksqStatus As Integer
Private cnstr As String
#Region "Properties"
Public Property sequence() As String
Get
Return _ksqsequence
End Get
Set(ByVal value As String)
_ksqsequence = value
End Set
End Property
Public Property model() As String
Get
Return _ksqmodel
End Get
Set(ByVal value As String)
_ksqmodel = value
End Set
End Property
Public Property pcbside() As String
Get
Return _ksqpcbside
End Get
Set(ByVal value As String)
_ksqpcbside = value
End Set
End Property
Public Property partno() As String
Get
Return _ksqpartno
End Get
Set(ByVal value As String)
_ksqpartno = value
End Set
End Property
Public Property machine() As String
Get
Return _ksqmachine
End Get
Set(ByVal value As String)
_ksqmachine = value
End Set
End Property
Public Property revision() As String
Get
Return _ksqrevision
End Get
Set(ByVal value As String)
_ksqrevision = value
End Set
End Property
Public Property topsdloc() As String
Get
Return _ksqtopsdloc
End Get
Set(ByVal value As String)
_ksqtopsdloc = value
End Set
End Property
Public Property fsbsqty() As String
Get
Return _ksqfsbsqty
End Get
Set(ByVal value As String)
_ksqfsbsqty = value
End Set
End Property
Public Property desc1() As String
Get
Return _ksqdesc1
End Get
Set(ByVal value As String)
_ksqdesc1 = value
End Set
End Property
Public Property desc2() As String
Get
Return _ksqdesc2
End Get
Set(ByVal value As String)
_ksqdesc2 = value
End Set
End Property
Public Property topmark() As String
Get
Return _ksqtopmark
End Get
Set(ByVal value As String)
_ksqtopmark = value
End Set
End Property
Public Property modules() As String
Get
Return _ksqmodule
End Get
Set(ByVal value As String)
_ksqmodule = value
End Set
End Property
Public Property feeder() As String
Get
Return _ksqfeeder
End Get
Set(ByVal value As String)
_ksqfeeder = value
End Set
End Property
Public Property feederType() As String
Get
Return _ksqfeederType
End Get
Set(ByVal value As String)
_ksqfeederType = value
End Set
End Property
Public Property prepby() As String
Get
Return _ksqprepby
End Get
Set(ByVal value As String)
_ksqprepby = value
End Set
End Property
Public Property updtime() As String
Get
Return _ksqupdtime
End Get
Set(ByVal value As String)
_ksqupdtime = value
End Set
End Property
Public Property checkby() As String
Get
Return _ksqcheckby
End Get
Set(ByVal value As String)
_ksqcheckby = value
End Set
End Property
Public Property chkdate() As String
Get
Return _ksqchkdate
End Get
Set(ByVal value As String)
_ksqchkdate = value
End Set
End Property
Public Property remarks() As String
Get
Return _ksqremarks
End Get
Set(ByVal value As String)
_ksqremarks = value
End Set
End Property
Public Property status() As Integer
Get
Return _ksqStatus
End Get
Set(ByVal value As Integer)
_ksqStatus = value
End Set
End Property
#End Region
#Region "Methods"
Public Sub New()
cnstr = mainForm.cnstr
End Sub
Public Function addHeader() As Boolean
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "INSERT INTO KSEQUENCE_HEADER " & _
"VALUES(" & "'" & _ksqsequence & "'," & _
"'" & _ksqrevision & "'," & _
"'" & _ksqmachine & "'," & _
"'" & _ksqpcbside & "'," & _
"'" & _ksqprepby & "'," & _
"'" & _ksqcheckby & "'," & _
"'" & _ksqchkdate & "'," & _
"'" & _ksqmodel & "'," & _
"'" & DateTime.Now & "'," & _
"0" & ")"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
addHeader = True
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
addHeader = False
Exit Function
Finally
conn.Close()
conn.Dispose()
End Try
End Function
Public Function addDetail() As Boolean
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "INSERT INTO KSEQUENCE_DETAIL " & _
"VALUES(" & "'" & _ksqsequence & "'," & _
"'" & _ksqrevision & "'," & _
"'" & _ksqmodule & "'," & _
"'" & _ksqfeeder & "'," & _
"'" & _ksqfeederType & "'," & _
"'" & _ksqpartno & "'," & _
"'" & _ksqtopsdloc & "'," & _
"'" & _ksqfsbsqty & "'," & _
"'" & _ksqdesc1 & "'," & _
"'" & _ksqdesc2 & "'," & _
"'" & _ksqtopmark & "'," & _
"'" & _ksqremarks & "')"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
addDetail = True
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
addDetail = False
Exit Function
Finally
conn.Close()
conn.Dispose()
End Try
End Function
Public Sub deleteHeader()
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "DELETE FROM KSEQUENCE_HEADER" & _
" WHERE KSEQUENCE = '" & Me.sequence & "'" & _
" AND KSQREVISION = '" & Me.revision & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
Public Sub deleteDetail()
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "DELETE FROM KSEQUENCE_DETAIL" & _
" WHERE KSEQUENCE = '" & Me.sequence & "'" & _
" AND KSQREVISION = '" & Me.revision & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
Finally
conn.Close()
conn.Dispose()
End Try
End Sub
Public Function verify(ByVal partNo As String, ByVal sqModule As String, ByVal feeder As String) As Boolean
Dim conn As New SqlConnection(cnstr)
Dim status As Boolean = False
Dim myQuery As String
myQuery = "SELECT * FROM KSEQUENCE_DETAIL" & _
" WHERE KSEQUENCE = '" & Me.sequence & "'" & _
" AND KSQREVISION = '" & Me.revision & "'" & _
" AND KSQPARTNO = '" & partNo & "'" & _
" AND KSQMODULE = '" & sqModule & "'" & _
" AND KSQFEEDERNO = '" & feeder & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader
If reader.HasRows Then
status = True
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
Return status
End Function
Public Function approve() As Boolean
Dim conn As New SqlConnection(cnstr)
Dim approved As Boolean = False
Dim myQuery As String
myQuery = "UPDATE KSEQUENCE_HEADER SET KSQSTATUS = 1," & _
"KSQCHECKBY = '" & Me.checkby & "'," & _
"KSQCHKDATE = '" & Me.chkdate & "'" & _
" WHERE KSEQUENCE = '" & Me.sequence & "'" & _
" AND KSQREVISION = '" & Me.revision & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
approved = 1
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
Return approved
End Function
Public Function disApprove() As Boolean
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "UPDATE KSEQUENCE_HEADER SET KSQSTATUS = 0," & _
"KSQCHECKBY = '" & Me.checkby & "'," & _
"KSQCHKDATE = '" & Me.chkdate & "'" & _
" WHERE KSEQUENCE = '" & Me.sequence & "'" & _
" AND KSQREVISION = '" & Me.revision & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
mycommand.ExecuteNonQuery()
disApprove = 1
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
conn.Close()
conn.Dispose()
End Try
End Function
Public Function getValidSequence() As List(Of String)
Dim sequenceList As New List(Of String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT * FROM KSEQUENCE_HEADER" & _
" WHERE KSQSTATUS = 1" & _
" ORDER BY KSEQUENCE"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
While reader.Read
sequenceList.Add(reader("KSEQUENCE"))
End While
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
Return sequenceList
End Function
Public Function getAllSequence() As List(Of String)
Dim sequenceList As New List(Of String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT * FROM KSEQUENCE_HEADER"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
While reader.Read
sequenceList.Add(reader("KSEQUENCE"))
End While
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
Return sequenceList
End Function
Public Function getRevisions(ByVal sequence As String) As List(Of String)
Dim revList As New List(Of String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT DISTINCT KSQREVISION FROM KSEQUENCE_HEADER " & _
"WHERE KSEQUENCE = '" & sequence & "' " & _
"ORDER BY KSQREVISION"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
While reader.Read
revList.Add(reader("KSQREVISION"))
End While
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
Return revList
End Function
Public Function isVerified(ByVal sequence As String, ByVal revision As String) As Boolean
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT KSQSTATUS FROM KSEQUENCE_HEADER" & _
" WHERE KSEQUENCE = '" & sequence & "'" & _
" AND KSQREVISION = '" & revision & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
reader.Read()
If reader("KSQSTATUS") = 1 Then
isVerified = True
Else
isVerified = False
End If
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
End Function
Public Function verificationDetails(ByVal sequence As String, ByVal revision As String) As List(Of String)
Dim verDetails As New List(Of String)
Dim conn As New SqlConnection(cnstr)
Dim myQuery As String
myQuery = "SELECT * FROM KSEQUENCE_HEADER" & _
" WHERE KSEQUENCE = '" & sequence & "'" & _
" AND KSQREVISION = '" & revision & "'"
Dim mycommand As SqlCommand
mycommand = New SqlCommand(myQuery, conn)
Try
conn.Open()
Dim reader As SqlDataReader = mycommand.ExecuteReader()
While reader.Read
verDetails.Add(reader("KSQCHECKBY"))
verDetails.Add(reader("KSQCHKDATE"))
End While
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
conn.Close()
End Try
Return verDetails
End Function
#End Region
End Class

View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

Some files were not shown because too many files have changed in this diff Show More