初始化
This commit is contained in:
30
WT-DMS.sln
Normal file
30
WT-DMS.sln
Normal file
@@ -0,0 +1,30 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 11.00
|
||||
# Visual Studio 2010
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "WT-DMS", "WT-DMS\WT-DMS.vbproj", "{5F2F6487-6E84-4827-ADBB-5EEFB94661CB}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Debug|Mixed Platforms = Debug|Mixed Platforms
|
||||
Debug|x86 = Debug|x86
|
||||
Release|Any CPU = Release|Any CPU
|
||||
Release|Mixed Platforms = Release|Mixed Platforms
|
||||
Release|x86 = Release|x86
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{5F2F6487-6E84-4827-ADBB-5EEFB94661CB}.Debug|Any CPU.ActiveCfg = Debug|x86
|
||||
{5F2F6487-6E84-4827-ADBB-5EEFB94661CB}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
|
||||
{5F2F6487-6E84-4827-ADBB-5EEFB94661CB}.Debug|Mixed Platforms.Build.0 = Debug|x86
|
||||
{5F2F6487-6E84-4827-ADBB-5EEFB94661CB}.Debug|x86.ActiveCfg = Debug|x86
|
||||
{5F2F6487-6E84-4827-ADBB-5EEFB94661CB}.Debug|x86.Build.0 = Debug|x86
|
||||
{5F2F6487-6E84-4827-ADBB-5EEFB94661CB}.Release|Any CPU.ActiveCfg = Release|x86
|
||||
{5F2F6487-6E84-4827-ADBB-5EEFB94661CB}.Release|Mixed Platforms.ActiveCfg = Release|x86
|
||||
{5F2F6487-6E84-4827-ADBB-5EEFB94661CB}.Release|Mixed Platforms.Build.0 = Release|x86
|
||||
{5F2F6487-6E84-4827-ADBB-5EEFB94661CB}.Release|x86.ActiveCfg = Release|x86
|
||||
{5F2F6487-6E84-4827-ADBB-5EEFB94661CB}.Release|x86.Build.0 = Release|x86
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
178
WT-DMS/AboutBox1.Designer.vb
generated
Normal file
178
WT-DMS/AboutBox1.Designer.vb
generated
Normal file
@@ -0,0 +1,178 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class AboutBox1
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<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
|
||||
|
||||
Friend WithEvents TableLayoutPanel As System.Windows.Forms.TableLayoutPanel
|
||||
Friend WithEvents LogoPictureBox As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents LabelProductName As System.Windows.Forms.Label
|
||||
Friend WithEvents LabelVersion As System.Windows.Forms.Label
|
||||
Friend WithEvents LabelCompanyName As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBoxDescription As System.Windows.Forms.TextBox
|
||||
Friend WithEvents OKButton As System.Windows.Forms.Button
|
||||
Friend WithEvents LabelCopyright As System.Windows.Forms.Label
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(AboutBox1))
|
||||
Me.TableLayoutPanel = New System.Windows.Forms.TableLayoutPanel()
|
||||
Me.LogoPictureBox = New System.Windows.Forms.PictureBox()
|
||||
Me.LabelProductName = New System.Windows.Forms.Label()
|
||||
Me.LabelVersion = New System.Windows.Forms.Label()
|
||||
Me.LabelCopyright = New System.Windows.Forms.Label()
|
||||
Me.LabelCompanyName = New System.Windows.Forms.Label()
|
||||
Me.TextBoxDescription = New System.Windows.Forms.TextBox()
|
||||
Me.OKButton = New System.Windows.Forms.Button()
|
||||
Me.TableLayoutPanel.SuspendLayout()
|
||||
CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'TableLayoutPanel
|
||||
'
|
||||
Me.TableLayoutPanel.ColumnCount = 2
|
||||
Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.0!))
|
||||
Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 67.0!))
|
||||
Me.TableLayoutPanel.Controls.Add(Me.LogoPictureBox, 0, 0)
|
||||
Me.TableLayoutPanel.Controls.Add(Me.LabelProductName, 1, 0)
|
||||
Me.TableLayoutPanel.Controls.Add(Me.LabelVersion, 1, 1)
|
||||
Me.TableLayoutPanel.Controls.Add(Me.LabelCopyright, 1, 2)
|
||||
Me.TableLayoutPanel.Controls.Add(Me.LabelCompanyName, 1, 3)
|
||||
Me.TableLayoutPanel.Controls.Add(Me.TextBoxDescription, 1, 4)
|
||||
Me.TableLayoutPanel.Controls.Add(Me.OKButton, 1, 5)
|
||||
Me.TableLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TableLayoutPanel.Location = New System.Drawing.Point(9, 8)
|
||||
Me.TableLayoutPanel.Name = "TableLayoutPanel"
|
||||
Me.TableLayoutPanel.RowCount = 6
|
||||
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
|
||||
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
|
||||
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
|
||||
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
|
||||
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
|
||||
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
|
||||
Me.TableLayoutPanel.Size = New System.Drawing.Size(396, 239)
|
||||
Me.TableLayoutPanel.TabIndex = 0
|
||||
'
|
||||
'LogoPictureBox
|
||||
'
|
||||
Me.LogoPictureBox.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.LogoPictureBox.Image = CType(resources.GetObject("LogoPictureBox.Image"), System.Drawing.Image)
|
||||
Me.LogoPictureBox.Location = New System.Drawing.Point(3, 3)
|
||||
Me.LogoPictureBox.Name = "LogoPictureBox"
|
||||
Me.TableLayoutPanel.SetRowSpan(Me.LogoPictureBox, 6)
|
||||
Me.LogoPictureBox.Size = New System.Drawing.Size(124, 233)
|
||||
Me.LogoPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.LogoPictureBox.TabIndex = 0
|
||||
Me.LogoPictureBox.TabStop = False
|
||||
'
|
||||
'LabelProductName
|
||||
'
|
||||
Me.LabelProductName.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.LabelProductName.Location = New System.Drawing.Point(136, 0)
|
||||
Me.LabelProductName.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
|
||||
Me.LabelProductName.MaximumSize = New System.Drawing.Size(0, 16)
|
||||
Me.LabelProductName.Name = "LabelProductName"
|
||||
Me.LabelProductName.Size = New System.Drawing.Size(257, 16)
|
||||
Me.LabelProductName.TabIndex = 0
|
||||
Me.LabelProductName.Text = "产品名称"
|
||||
Me.LabelProductName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'LabelVersion
|
||||
'
|
||||
Me.LabelVersion.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.LabelVersion.Location = New System.Drawing.Point(136, 23)
|
||||
Me.LabelVersion.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
|
||||
Me.LabelVersion.MaximumSize = New System.Drawing.Size(0, 16)
|
||||
Me.LabelVersion.Name = "LabelVersion"
|
||||
Me.LabelVersion.Size = New System.Drawing.Size(257, 16)
|
||||
Me.LabelVersion.TabIndex = 0
|
||||
Me.LabelVersion.Text = "版本"
|
||||
Me.LabelVersion.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'LabelCopyright
|
||||
'
|
||||
Me.LabelCopyright.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.LabelCopyright.Location = New System.Drawing.Point(136, 46)
|
||||
Me.LabelCopyright.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
|
||||
Me.LabelCopyright.MaximumSize = New System.Drawing.Size(0, 16)
|
||||
Me.LabelCopyright.Name = "LabelCopyright"
|
||||
Me.LabelCopyright.Size = New System.Drawing.Size(257, 16)
|
||||
Me.LabelCopyright.TabIndex = 0
|
||||
Me.LabelCopyright.Text = "版权"
|
||||
Me.LabelCopyright.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'LabelCompanyName
|
||||
'
|
||||
Me.LabelCompanyName.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.LabelCompanyName.Location = New System.Drawing.Point(136, 69)
|
||||
Me.LabelCompanyName.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
|
||||
Me.LabelCompanyName.MaximumSize = New System.Drawing.Size(0, 16)
|
||||
Me.LabelCompanyName.Name = "LabelCompanyName"
|
||||
Me.LabelCompanyName.Size = New System.Drawing.Size(257, 16)
|
||||
Me.LabelCompanyName.TabIndex = 0
|
||||
Me.LabelCompanyName.Text = "公司名称"
|
||||
Me.LabelCompanyName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'TextBoxDescription
|
||||
'
|
||||
Me.TextBoxDescription.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TextBoxDescription.Location = New System.Drawing.Point(136, 95)
|
||||
Me.TextBoxDescription.Margin = New System.Windows.Forms.Padding(6, 3, 3, 3)
|
||||
Me.TextBoxDescription.Multiline = True
|
||||
Me.TextBoxDescription.Name = "TextBoxDescription"
|
||||
Me.TextBoxDescription.ReadOnly = True
|
||||
Me.TextBoxDescription.ScrollBars = System.Windows.Forms.ScrollBars.Both
|
||||
Me.TextBoxDescription.Size = New System.Drawing.Size(257, 113)
|
||||
Me.TextBoxDescription.TabIndex = 0
|
||||
Me.TextBoxDescription.TabStop = False
|
||||
Me.TextBoxDescription.Text = "说明 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(在运行时，将用应用程序的程序集信息替换这些标签的文本。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "在"
|
||||
'
|
||||
'OKButton
|
||||
'
|
||||
Me.OKButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.OKButton.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
||||
Me.OKButton.Location = New System.Drawing.Point(318, 215)
|
||||
Me.OKButton.Name = "OKButton"
|
||||
Me.OKButton.Size = New System.Drawing.Size(75, 21)
|
||||
Me.OKButton.TabIndex = 0
|
||||
Me.OKButton.Text = "确定(&O)"
|
||||
'
|
||||
'AboutBox1
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.CancelButton = Me.OKButton
|
||||
Me.ClientSize = New System.Drawing.Size(414, 255)
|
||||
Me.Controls.Add(Me.TableLayoutPanel)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "AboutBox1"
|
||||
Me.Padding = New System.Windows.Forms.Padding(9, 8, 9, 8)
|
||||
Me.ShowInTaskbar = False
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
|
||||
Me.Text = "AboutBox1"
|
||||
Me.TableLayoutPanel.ResumeLayout(False)
|
||||
Me.TableLayoutPanel.PerformLayout()
|
||||
CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
604
WT-DMS/AboutBox1.resx
Normal file
604
WT-DMS/AboutBox1.resx
Normal file
@@ -0,0 +1,604 @@
|
||||
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="LogoPictureBox.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAHgAAAEGCAIAAAAhWcaAAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAb5JJREFUeF7tvQdY
|
||||
VHfa/s91/d/fu282sUUFpp2ZoUvvvYuCgl0UUbChqIiiiCiCSpUq0qU3aYqFpmJvYC8xGqOJJYkxpmd3
|
||||
s+u+u8m+//t7vjPHwwwYk01RN9/ruXCknvOZ+9zP/ZyZOaMhLBOKykWiCpG4SiyplTD1DNPISFuk8t1y
|
||||
+T65TpeOTreO7hFd3eO6eif19E6xhRvH9PSO6Ol26+ru19Vt19Xdp6uzW0dnp45Os45Oo45OvY5OnY4s
|
||||
Q8bMYUSWopSUlMuXL3/77bd/+9vf/v73v//v//7vP/7xj3/+85/ffffd999//y92/d+rvljQZSJxuVhS
|
||||
IZFUSpgqRlojldZKZTtk8ia5vEUub5Xr7NXR7dTVPaALsuBLKKOOsqwPsZ/HV9vUWNfo6FTryNJlzGxG
|
||||
ZCFKT0+/efPmX/7yl7/+9a9Pnjz5T8OtAcpQNAXNVDIEdJVUVi2T1crkdXJ5vVyngQXXoqPTqgPlEv12
|
||||
6eoe1CWIuVKy1t2jq7OrD2t5lVxeKZemSiUzJUJjYWFh4YcffvgfiJuAfkq5Ukm5WiavkZOqlcMECLId
|
||||
OoR4k5L4XpY44MI6AB0F1rgDqI20qrGukMvL5dKNUslkiVBH2NDQ8Kc//ek/CrcGKIsrFKBBWVpNQD+l
|
||||
XKvztDjiIAiOKsRBGYUbnGXjG1RYl8nlpXJmNSP2EUdERBw5coTD/cp7t4a4TCwplzAVrJwrWTnXKED3
|
||||
ocwVcKsQhy/vZl0F1gHKtLj2iIMA38mxLpXLt8vlhXJmESOyF23ZsuXOnTt83GCtgluxpS/50hAXi8Wl
|
||||
hDWhXCVDyavlpAYCzZWKpYD4Lh14tII4Cjdg2bQ9qrAukcuL5bJkmWS6RKgvbGpq+vrrr4GbSyavnrQ1
|
||||
xDliyTYJU8QwJYy0TCqrkMkqCWtw6VMqlLnqV+CwFEocxsK1R9wftTzWxXJ5ESvtKEbsKV6/fv2VK1eA
|
||||
+89//vNAxq3Y5JdzaYjTxeIMsSRDwuQw0jyprEgmK5ERMy0naQH57LmIq+OGQYMvLAWg4SFcFKnry7pQ
|
||||
Li+QI3FLZpFMUl9f/+WXX37zzTcUN9+4X3Zpa4hTxZI0CbOFYTIYaZYUJdsqk29jEcBMQRxQgKbq+TSu
|
||||
glspcFJgzbXHap0+rPPlsjwZs4oRe4k3bNhw48aNr776inOSV0PaGuJksSRFwqQxYC1Nl0ozpLJMmSyb
|
||||
LRDPYw9wHvHn0jgfN7Vv4KZFdY2vwrL5rPPksm0yaZpUEigRGgj37NnzxRdf9OskL6m0NSSJEiaZYVIY
|
||||
zBTYT9kWGWY5wprDTYnns0TA5fkFro4biqasuSjCYw1R4w/JcmTMMkbkJMrKyvr444/hJDSTvOzSZkEn
|
||||
MdJkKakUqSxNRorizmBxZylx58jAQsVSfkDgKt5NcdPiWFcqWcOstylYSzdIxf5igVDQ29v7+eefq0v7
|
||||
pQskGqDMgZalyBSVysOtLvBcFjfQ/DTcKMoaNyhrHCIqrNk/xMxmhKOELS0tn3766csubQL6qZw50Hzc
|
||||
AwkcflLwY/xEHTdETVnT2Ie7Db8NjRGscfRQ1rARR9G2bdseP37Ml7Z61lbs0Iu6NMSLxUw8Ya1KmV/P
|
||||
xt3Xvn9Y3WDNx90v69ynrKXrpOIxJGjfunXrs88+4wLJy2UjGs7OzgIDgchNJJ4uZpYzqoj5xfeTgdT9
|
||||
PGbClzY9NYiP6qyVBkJYp0glUyQCieD06dOQNgIJsraKjbzgrDXq6ury8/NjYmKCgoIcHR1FViKJv4QJ
|
||||
Y2Qb1UDTeoa6qXdjvAYstDh13BxrFdxc0XGmP9YoYtmGwvb29k8++eSlsxGNnTt3tra27mYX0mt2dvaS
|
||||
JUvGjBkjMhdJxkmYRYwsUY01Sh03RwTJhEbv5zRuzklQuDGwrlFQgMhChAESyQ8dktoITSMvOGuNjo6O
|
||||
zs7Orq6u/fv34wYWJNPW1gaZL1++nBC3FkkmS5hINVfhnITiBmsOd84PGbcKaw43rWezXk5O+xUXFz98
|
||||
+BA2QtNIv5at2MUXY2kcOXLk6NGjx9iFG4cPHz506NDBgwcpd0CHxhcsWCCUCcUeYiZUzVKeYdzUSSBt
|
||||
9rTJD0ubj5tmPsoaQ6OyMdLCsC5yEeXk5Hz44YfPtmzFXr4AS+Msu86dO4ePmA7OnDlz6tSpEydOgDvu
|
||||
Aw46wuyGDRsmTpxIBD5dIl2jFro53P+mtClufHwma+laKe741NTUDz74gG/ZL2x71HjrrbeuX7+Oj9eu
|
||||
Xbt69erly5cvXbp0/vx5cAd0dHlAh9JBvLu7G8Rzc3NDQ0OFJkLJBAkTpfSTZyduvrTVXZvPmo+bz7qI
|
||||
HdD5rLNk0jip2FucmJj44MGDR48eIfmpt8cXh7XGnTt33lOud99995133rl58ybQg/uVK1cuXrwI6FA6
|
||||
iJ88eRIyh7eAeEVFBXomMgCJKCtZ3GD9PK4Nas9pI+qsMchwoFFgHS8V+4g3btx4//59rj2qR5EXgbXG
|
||||
R8oFv8NhiC2+d+8eoN++fZuDDqVD5hcuXIDMOeLQOLp/ZGQkwR0gka6SPmU9kLRpIHkeG+Fw4wY3o6uw
|
||||
xq/NlEkTyDiTkJCALaftkYsiLxRrDagABx08DjewlfA7SAPcKfS7d+9ySn/77bc54lTjcBX4+I4dOyIi
|
||||
IoSmQslUiXS98rSUCmtO2pyN9Bv++KC5Yr+kOPdUyA6N6qx9xJs2bYJEsOVcFHmhWGvA19CysVn4iNvY
|
||||
REAHeg46lA4TpDKnxDmNo4X29PSgeULgVVVVYWFhIlsRM4d1Ej5rFRuhYyTmmuexbFr4fDWPNRf4WNCE
|
||||
NTzEW5ycnAxl8Fkj9r0grDVwt3MLCQkGpwKdKp3KnE8croIWCh/nBH78+PGCgoIZM2aIvcTMUuZZrJ9t
|
||||
2SqUaVHWOA5wNPTLGr3RQ5yRkQHWXOx7cVhr0I3AQirCbcR+JCRAx/Zx0OF62Ggqc0qcugoaKd9SIHDq
|
||||
J0lJScS4J0ukG9hHEjjWfS2bPHzznO2RgqZmDdY4GjDIcCGEYx0jFTmL8vLy3n///ReNtQb+MF3YCKx+
|
||||
oUPpfOKcxqmPQ+C3bt26ceMGggrFjVyIsX7p0qUiJxE5bTIwazS3Pu2RDxr1DNY0XNNfgmJBo5A4RXai
|
||||
8vLyZ7D+TWYZDXr30oUtwOoXujpxuAp2AwGWChw7xvkJhxuhW6grlEySwEN/BtbKTxLW8PdiXghRipqw
|
||||
XsqIzEXNzc0qrLH9vyFrDcW/ykWJY1HiFLoKcc5V4ONU4GibiFZwcPiJCu6uri5EQLEL69o/F2uYNVjT
|
||||
cM2FEI51hoxZwAgNhAcOHOBYq+eQX5m1Kmj+4ohT6HzicBW+wLEb1MFVcFMzQfrOzs4WjhIyQYwCtDpr
|
||||
xL7nYa38DAGtHkIoaMo6iBFIBLinXxDWzwLNrX6Jqwic7yd83PButEpMmC0tLZjdxePEJGtzoH8sa95n
|
||||
CGt8J0JIgbIx8kSNPyGZKImKikK7xpbQzIctpHMjNh67gH351Vg/F2huccT7FTj1E+wMp27q3WiVSCaX
|
||||
L19GCoyNjUUwYCJYaauz5jxEJYdwiu6XNUII1xg51ukyaaJUPFqckpKizhr6+JVZ/zjQdHG4sYCbEzgf
|
||||
NzUTeDdtlTQIUuPOyckRmguZuQwBPRBr+C9A82f0/kArzFqlMdJfyIpaukYqsichBHc2JgDc9+go9NwT
|
||||
ZY2NB2u6R4rd+2XWTwHNLQ4330843NS7sWNIJgiC2E/qJJhx6urqSBoJlDwFzWedJ1Pk6+cQtYI136x5
|
||||
okYx4YzQSNjR0YG/jrscqRQKAGs0GGwqthlbjl14oUHTxaqhj59Q3NS7aTLBMYs9hHEjdFNpd3Z2zps3
|
||||
TzJBggP8KWsKmptl2BldAZQPui9rArpfs2ZFTVijMQoE8C7KGnc8egl0gC381Vj/DKDpUsfNtUrOuOEk
|
||||
CACQ9u3btyFtBO0VK1aIx4rJAElBc6KmMzrMl2uMKqBR6qz5Zk1/IQsasRJNOD4+Hq0CJob7G1uiEq5/
|
||||
abP+2UDTRVljUdYUN99JVKSN/Ld+/Xqxl1gaq8Z6q/I8H/fsYRXQKI61erLuK2r8fpGDqKysDHcw/jSs
|
||||
DFvCBb5foTH+zKDpUpE25yTYKzgJDltO2jiWobLExESxq5iJZhSsKWiONfx3IFGjlKwJaC5ZUwOhv00p
|
||||
amYxI9QXHjp0CAGfC9f8EIKtxTa/TKCxsLkquKmToAVB2tS1af7DsYw9T09PJ7FvNcuaEzUKIYRv1tyj
|
||||
AWqgFaypgeTzDISKmj3fIpkmwZiKXI+DiR9CfoXG+EuBpovDrS5t6to0kFAbwfRITkKBNUCrmDVYV7AG
|
||||
ArI/yJqmPb6BKEUt3SwVu4uRL9GNuRDCNcZf1Kx/WdB0UdZ8aVPX5tsIBgpEXcIauoaH8EWtYiAUtApu
|
||||
jjXMWt1AeKJmlpG019bWdv36dfRklcbImfVLCRqLCLuvtKmNYPdoh6RzDVSWmZkpdhNL10mfgkbxpxhg
|
||||
fSZrhYGgi/ITiFLUsjTyUrAlS5ZgdKKNsV+z/tlF/SuBpouy5qQNG4GIqI3AK3EUgzVUlpqaSnJIPI81
|
||||
DIQmaxgIaIIvfe5Hf6AVrGEgSCB0hAFoypoVtXSTFL1369atGJ1gWTiYYNa/9BTzq4LGUmHNtxHsKk1+
|
||||
aI8bN24U+4rJk4k51lzaowbCPaepX9acgWCEoT9ODYQFDVGTcVFPePDgQeRL/hTzyxnIrw0aC1tPcfNt
|
||||
hLNsrj1GR0dLJkqegobhKg2EdEUq6oFZKwyEOwfCdUUWNDGQCZLVq1dfvHiRTjFcsv6FDOQ3AE0XZQ3V
|
||||
cKxp8qPtEbsNrYWHh0tm8lhD1MpxkdAEYvoEVL6HKEErWMPWVbqiUtRkhLEWVVZWYjSnyRp94pdLe78Z
|
||||
aCyONfYHrLnkR1M2WJ8+fVqoK2QWMArQVNQwENoVAZd7sm9/rBWihtvQWK0mamY2M3v27HPnziFZI/Nw
|
||||
ae+XMJDfEjQWnzX2Sp01cpjQQkiedUZZU1FzXRGU6asFnmEgKl2Ripo+FSJZhliNWQkGgrT3ixrIbwwa
|
||||
6wdZV1RUiFxFihDCiZrGavClL85QYa0E/bQr8mdFTtSp7FwuI3M50p6Kgfy8I8xvDxoL+4DFscbuqbBO
|
||||
Tk4W+4sVoNVFzb3iqD/WCgNBV+xX1KkyxJv169fzDQQNmT/CYKv+fQN5IUBjUdYQTr+ssfNLly6FpRJS
|
||||
4MU9WZKKmoKmrAcyEDor9ivqSPLSmNbWVpUEQkeYn6srviigsZ7BGjnk5MmTQmMhs4IhoKl7cPEDiJvY
|
||||
go08W9T0BEhf0LIUmSRAsnLlyp6eHiQQer6JOwcCUXMG8oqAxlJhzfk1zde1tbVkOscUk8u6BzeUQ8j0
|
||||
xc/PNhAa9fiipu6RIpOukgpNyJWezp8/T8830XMgXFf890X9YoHG6pc1zddQWUJCgmSahIDGRE4HxUo2
|
||||
5wEx/2XPaqBJV4SoS5Tzi7qoJ0mWLVt25syZZ3fFVwc0FmXN9UawxgRBZ/QbN26QZB3BKECzp6oJR5gG
|
||||
KLcoWf+gqGmm5oGWRhNR19fXnz179hld8SeL+kUEjcVnjT3kZnRIrLm5GWkPaBSguZYIxDtZ1vS6CRxo
|
||||
jjUnanWnZl+Jg4kfosaURLsid2KPzor/pqhfUNBY2B/IR4U1kgD2PD4+npnBENCwabgH1xL5117pz0BU
|
||||
Rc3lPBY0cWojYWNjY29vLz2xpz4r/mRRv7igsTjWkBJ2EruKHUaDQjYAERzsBDSyB9yjmiULxLuUrPtN
|
||||
IFTU/ExNWyLrHkTU/uRZZKdOnbpw4QJ/VqSiplHvp4n6hQaNxWeNg5eyhsQwLorHiImoAZo79UFBt7Ks
|
||||
VQxERdT09ClA9xU1s5wR6gj37t2rHvX+TVG/6KCxKGvsnkpjDA8PZ8IZAho2jewBmtQ9drOsuQtl/aCo
|
||||
eaBR4tHiuLg4xHYa9X4uUb8EoLH4rDmz7uzsFDmJQIqApjYNu2BBP73Y3kCixo/Qsx9cS1S6BxPGjBs3
|
||||
7ujRo4h6P6OoXw7QWNgrrjFSA0HwgvSYEIZYAUDDpmn2oNfvpBeRfIaoi9jz1GotEYX7LzMz8+cV9csE
|
||||
mm/WdIpB5hVZijArEnCcTdPLL9OLoz5D1Nv7Di880EwQM2vWrJ9X1C8NaCzKWsWsU1NTJTMlT0GzNk1A
|
||||
sxdHfSpqClrJmoAuV+Y8NfeQriPDS1VVFRW1evz4CZn6ZQKNxbGGpmDW0BcObaGxUJokJaDBkYKmF1tG
|
||||
wUAGEnUlO7wM0BIl40nOg6gRP7hMzQ2K/LMfii37ofWSgcYCaxUDgZ9KZkgUoNlZHHwJ5Y4fEjXMnd8S
|
||||
+e4RTp7p293dTTM1Nyjyz378KPd4KUHzDQQJBIc2jnRgIhDp2IJ+CNBdLOuBRM21RIBGS+zrHiiRA7ma
|
||||
5LFjx+igSM9+qJzSe373ePlAY/ENhCYQODUzmyEoOdDwaHqR9jalqDnQStZE1GiJ3KmPvqAl0yRz5849
|
||||
dOgQPftx48YNekoPEZ6ep/5RLfGlBI2FfeMbyKVLlxA/5FvZt34AaAQPCpq+ywMVdb85Dy2RmxJV3COK
|
||||
PJzY2tp6/PhxxBv6VJsHDx6gJfIffHlOUb/EoDkDoSMMydSLGKJcChrBA6Dpuzy0s6LGfaAuarRETImc
|
||||
e/BAo8Qu5IoJhw8fhqjpeeqBcp5iswZeLytoLBVRHzlyROQsIi2RD7qbffcS3IComwZoiaW8QN3XPZgZ
|
||||
THBw8MGDB0+cOKE+vPyolvhyg+ZETbtiWFgYE8Oogj7M6hpO3TJwS+QCdd+QR06cyoQ7d+5Uz3k/tiW+
|
||||
xKCxONa0KzY0NEgCJMQlKGi48yHyVkiEdRf77jADtUTqHmo2jcI4DvdAS0TO41oiffbpj3KPlxs0FvaQ
|
||||
GghEjf0X6grhtorTHRT0UfKGU0TayNS0JaqDhnvQyYWe9+CBRvYIDQ09cOAAvyVS90BLfP4p8aUHrSJq
|
||||
qI8JY8jAQq0DoI/p6Z1g39ark22JfPegrKl7cJOLik0vJ5NLR0cHWiJ96LbfKfHVB42FPeREDd2JXcW6
|
||||
Ley5Dg70KcKaODVaYr/ugexBJ5d+3cNKlJubiynx5MmT3JTYb6BWbFB/6xUBzRf1rFmzZMmyp6CP6+md
|
||||
ZguiRs4byD0wudCzpmqgJeMky5cv379/P50Sr169yg/UnHtgG54h6lcBNBZf1Pn5+UwIQ4bv/QrQ+qf1
|
||||
DU8bElHvV7oHB5qyhnuUsReL7M+mmblMQEBAZ2cnF6i5E6fP7x7kUj+Kmy/z4osaR7fIQUSCB0YVgD6h
|
||||
Z3DawPiMMXDjvwO6h0rI49m0NFYqlJNHx/8d93hFQGNhR7CrUBb0hSkDhz8x5cMENORs1mMG1lD3s9yD
|
||||
C3l9QaNwz6WlpVH3oM+w+bHuofGMO+HlWlTU2FvsM3oXs4Ahcj5COiEQW/ZaWvRYEFFT9+CDZlkrQt5A
|
||||
Nh0gCQ8Pp+6hnj2eZ3IhoF8ZUWNfqHvAScVuYvLGrQjRLGirXivbs7YmZ0wU7tHveY9ynk33Bc3MJ4/Y
|
||||
trW18d2j38llQNA/GABfooUd4Vri+PHjESRo5IBvgLLjOUfgJi0R4/hAIY9v0zzQ0hipgBG0tLTQyeXc
|
||||
uXNvvfXW7du3+ec9nm3TGs+28JdrATQn6ri4ONChndC8x9zhnIPreVewhl+TcVzFplnWqjbNA41Cms7O
|
||||
zoZ7HDlyBO6h/lAA7t1n2LTGsy38pVucqKE+TM/wDZCFQTudd/K86OlxwQPQ4R7kWR9qoEnIQ5oeoB+K
|
||||
R4tXrVrV3t5OHwpQP2v6bJsmoF8x94BusFM4rkWWIr0DxKCte60h59GXRvtc8oG0SfbYy9q0CmiIGml6
|
||||
a//9kAlkgoKCYNPcWdPr16/3G/L6B805yyvDmnOPqVOn6pfow6DtztpBy+MujQu4HIAbJHsg5A2UpulL
|
||||
9dVBhzOenp579+7lQt61a9dUbJo7Pa3YFN7SoM7ySrbE+Ph4vXV61Dcg54lXJk69OtX3ki/Qk5AHm+aD
|
||||
ZlkTm6b9UC14SNeTftjU1MSFPPrcmue0aXL96Ge3y5duYSexL9hhQJEHyZE34BvgC8oz35o5+cpkuAex
|
||||
6YHS9DP6oTl5e7SfZtMaz3lO5OVa2BdIB8GAcWKAFXYx/vL4wGuBIddDwBr/hU2TJ4z9YD/sCxrZHGGG
|
||||
b9P8WfzZaVqDux/6/fJLurAjkBUOZIFI4LDHwfuiN3xj9vXZC28snPv2XJg1Mh95HED97BLth5gP+wON
|
||||
+TAsLGzfvn2cTT9/mtZAu+R/+dVgTUFDPaGhoXaFdiA7/dr0+TfmL3tn2ZJ3lky7Oo2EvE62H/JBs6zR
|
||||
D0nwAGj0w74Jj5nNTJkyZc+ePTRN00cR1U969A+a7+KvUkuk7rF582brOGvIOfh6cPg74avfXY0KfTuU
|
||||
2PSBAfoh5kMED5rwVEAvYdzd3Xfv3t3R0cHZtMrDtQP1Qw31E32vjKixO3V1deZzzSHneW/PW3Frxfo7
|
||||
6+Pei4OovS566R3RI4+LPyN4qCU86VqpmZnZrl27YNPcw7Xoh3fv3v3BfqhBNf/qiRp7gX0BC6OxRpDz
|
||||
opuLYm7HJL6fmHw3OfrdaARqTOdkPuwXNH1YSy3hyZJlQl1hZWXlQGML1w/7Af3w4cN/5/nVL+zCLmBH
|
||||
0Kbk5vK51+Yuf2c5tJx+Lz37fnbCewlIIOiH/QcPsKYJTx00m/BycnJU+uGdO3f4TzSlGFVB9/tkMmyi
|
||||
4usv88JeYIcdHR1DDodAxdDytgfbij4oSr+fvuDGAjK2IHiogGZZP0146qCdRBs3bkQ/7Orqos+qoQ8C
|
||||
cMFjoH6owV2M7JUUNfZl8uTJIS0h8e/FQ8tlH5VVfVxV+EFh5DuRmMvJIK6S8Cjo0oGjtLc4KioK/ZA/
|
||||
H3Kn8aheublEsR3s0uDSCb9pvhqssf04OpcsWTKreFbavbTiD4t3PNqx8/HO6o+r4+7EYWwhg3i/CQ9R
|
||||
egDQNEq3trby50OVR1u44KHYDnZp0KZJRU0zNb1DXoGuSEHjSA9MDcx9kAu+ux/v7vysc9fjXeCOoVy3
|
||||
e+AoPdDMEiiZOXMmDR700ZbnDB4a3BX2ft7LU7wgC7tQWFg4ac2k0o9Kmz9pPvD5gaNfHu36rCvvQd6U
|
||||
q1NIwkOU7hc0nVnUQDMh5KkHO3fu5IIH/2EtLlb0AxrK557L/jNenuIFWQDd1NQ0Pmx87ce17Z+1H//q
|
||||
+NlvzuJj5cNKTOTkjEe/oKvYJ/L2CzqMGT16NEAjeHAPaz3PiWnynrO/xOUpXpCFjYfuvGd4wy4Of3EY
|
||||
lGlB3WE3wvROsTOLCmj2PZzJo7T9go5gnJ2dW1pa+CemnyfhaWRnZ9PLU3BPseZHvZedNbYcinMZ5wK7
|
||||
6Pm6hwMNdSN4GJ42JCdL+wNNnvOIKVwNtDRKam1t3dzczCU8+iSxfk8t9QHNMOa4f/ivD32VuiK2HPtl
|
||||
62pLTYMrOHXs7ViTMyZkOFQDTU6WDgR6rdTU1JSC5j9Q+4OnljTMzJaEhobiboH+6XfTrki754tmINiM
|
||||
H1yKb2UX/guhmVmb8SmjoO7N72+26LEgz05XoYwC6ELleSUV0HFSAwMDgO43Sj8LtKtrvZFRYGxsLO2K
|
||||
MHX+9W1+UQPBoYM2gm1tbGzMz8/ftGnTihUrcK9jxEDDcXJysrCwMDQ0lMlkEolEyC7cwH/xSXwJ3+Dt
|
||||
7T1p0iT8SGRkJGLctm3bduzYgXiLKIVdwDZj4a8YjDLo/bqXX2CNcdyq14pM4SqUUeiHA4CWbZTJ5XI0
|
||||
2H7P4ak/pqXYVRb0DkfHPD290RjhcQhwBoKkomIg+LGfzBq/B20AkSgvL2/16tWBgYHAZG48aqyHa8jU
|
||||
iavD5qatWbk9ZWNLfnZ3dcnZXfU39u++f7zr8dmjf7p8+snb5//xzqXv372Mwg38F5/El/ANN9qaztaV
|
||||
dBektySv2x69JDUseFVgwBwft7G2luYGuhi+8YeWL1/+5vA3M3Zk1J2pO/LhkZ4ve0h91ZNzL8eux44o
|
||||
mj2/Qep5QCfKGIYB6IFmlmeBRtnYbJZKrevq6uhDBtRAVBLIjzJr/BT+PPSVkJCAhK+nIx/j7hoePGNL
|
||||
TFTD1vRTTVXA9I93Lv7r9pV/t270/uvyse97u74/3vr9oYbvOyq/by38viHr7xWb76avOBkTWj9/YpSz
|
||||
8Tw3cw9TOSPW8p7sPXfN3I3bN8a0xdgds5PvZK8/geJwo2AdBQOATpaJRCKAVj9ZCoE+YzgE6Aa2dlha
|
||||
rhKL9eE7fAOhCeQ5RxjcmciV0OyiRYt05fIAH+81i+aXpW4+0VD18ZlDqoB+xrp18V/XTv3rwqHvT7d9
|
||||
f7j5+66q73cT1t9VJX1XGvddQfSjdTOebJn3JHn2vTUTu+d7FU6yi3Qb5W0iGqr1h0E+g4YHDxesFTAF
|
||||
DAkbbOlUsaBpvEtmi8caDgavUx8O+32UVoGGBd3k6tpIcZuahs2bNw/uTg2EzuXPNmvcxp/Zvn17eHi4
|
||||
iZHhrIkB0Gx7WcG9Y12qOH7RevfSv673/OvSke97Oom0D9R+v7fk++at39WmfVe+8dGmuU9ywlnWwU82
|
||||
Tv/bhkl/i/X/82rv83PNyv1lUY5a3oaDR2r+9yDPQSNCRwgThPTZjtIMqTRVKktSslYWBU2HQ+45j1Bn
|
||||
v1O4AhNAu7k181mPGhWMjsTN5TgWuLGSb9agj7+RnJyMvzrBx3vzymX7SrY9OHFAdf9/zXrnwr/eOq1k
|
||||
vYuwbiv9flf+9zsyH6VHPCle/SR32ZOMhU9S5zzZNONv8VP+HDP28UqHR0utHi0ye7TQ+OwM/aIx4sU2
|
||||
I+x0Xv+vof/fsPHDtBZoSTaQ90wjlUSKQE8i1gFLRCamU/izQXOiJKB5rBudnMoNDaesX7+eG2G4tAfW
|
||||
EDh+e1xcnJGB/tzpk4sSN1zY06C6w79+ATHkfPUkKP/r3MHvz3Qo/Lqz6vu27d/tzPskN+ZJZfyT7TFP
|
||||
8lY8yV5MpJ0069v4SY+j3R9F2j9awrJeMOrD+Ub35xm9H2rY5C9d66jpoz942PD/HuI+RHO2pmSdRIou
|
||||
BuIbpWiG9fX1AM1N4fR5B/zTHf2CbuGxJrgdHQsNDPwTExPhO9SswRpRBm3NQF9v3vSpZamb3u7a/d0t
|
||||
kgRU9/lnLzRMotOjCoIn9xK1Hmn+/lAjqe4d33fXf3+wjugXtb/m+65qlm/59/u2f7+76PtdBf9synm8
|
||||
LeZJzeYn5euflEQ/yV9BbCR9/rdJQZ/GjXkE1iucHi21ebTIHLomrOca3QkxfHeO4TvBBnv8Zesdtcbo
|
||||
DR427L+Heg3VmqeFHI18WVtbi36ImYWbwunpjmecV9Jwd9+txrrJ3n6rnt6Y9PR0TJlJSUlaWlpTfMdk
|
||||
rY9G8PrrW2f/fgN56+I/lZFLFc1PqKsnSR8DNdBpyv6uOpk0scLo77ZGfpe15Lv0sO9S53+XHPpdUsh3
|
||||
ibNJbQ5mb8z5Ljnku5S536XNJ9+Tsfi77GXkR7at/C5/FfnxorXflaz7R1Hs45RFBHHR6icFUU/yIp/k
|
||||
Ln2StejbtJBPNwV8sh6sPQnrCLtH4ZaPFpo8nD8Kun4vxPBWsMGNWQbXg/SvztRv8GNW2o50kr/xX2/8
|
||||
f5qamlu2bGloaEDCo8MhHfe40x30vJIqaE/Pjn5Zm5unaGra6UqlkXNnN2/LfHiq+9OzR7+6eOLPV8/8
|
||||
7fq5//03WJMoBtHVp39XFPNd+qLvNgX9c92kf0aN/Wek9/8u8/h2ifufwt2+XOz6+WLXx4tcH4e5PFro
|
||||
8vFCl4cLXT5aQAo38F/UJ2Eu+Opni1y/WOz6dbgbfuqvS93/vsz9nxEe/1zhTX7hGn/85idrJ38a4fNk
|
||||
U+CTxKAnKXOepIU8SQtFfZsy6/Em/0/ifD+J9XkU7fFopfOj5faE9SLTjxeMehBqdHeOgvVbQfpXZupf
|
||||
nKF/IVA/31M4R2+4lVgzICAAhzgXpbkpHEc/d7qjD2hv70Ms6z2UtYtLo61ttalpialJkalxgkzikhW7
|
||||
6tbBPUgRYP3ZuWNfXzr5l2s9HGtqIM9mTdS6M4/oK2Uuy9QHOMAFjMDrgwXO9+c5vz/X6U6o07uhTu+E
|
||||
Ot0McboR4vR2iOP1OY5vzXG81l/h8/gqvgeFb8ZPofDj7811ujvP6f58Z/xa/HLcE5/Mc7gbaPzNEse/
|
||||
LnP6W4Tr31Z6/S16zN/Wjv9z7LhP1no8WuNJFL3a/VGUK9E1WBPLNn803/jDuYT1ndmGVNdgDdDnpuqd
|
||||
89c/NNEsyVlvvIHQy8srJiYGfYuf8OjMQrMDF9IA+ijLutPFZZeNTbWRUYGFeam9baWrYx3KzipFV+qe
|
||||
GRP1bvfe+8f3f3yasP7m0qkfYI3PHGr4rnLTd2kLCNnlXn9Z4k6xAgGYUqAAxEd5dfbPUNw9Qe8G3GfX
|
||||
Zlqfm2j0TqjtnXl2d+fbfbDA/lGYw2eLHL8It3u0yBj6JSqGR8M6aOE20TVh/VHoqPshRmANv1awnqZ3
|
||||
YYLB9ZlW12ZYXplhVeRlFGLO6Ak016xZg8YI9/joo49g03AP9EPujAdYA/RxD49ue/s9pqY1NlY1jna1
|
||||
bk47lFWPsrNK05d7pa5afrt734MT+x+dOfT5+eOUNaZhPuvvTuwh9po6H8fsP5Z54HDGUc8niz3/ebE+
|
||||
T52bZnFiguGlYGvUldk21+bYvB1iczPU9mao5eU5+tfnGLwzx/C9UEP4MhwD/fBRmCmhHGb+aIHpo3nG
|
||||
H88lrN+fTWzk7VkGV6frX51sdHOm1duEtdXVmdaXZ1jV+ZostdG1lApjY2OPHj2KQQ/zIR0+uKFaw9Fx
|
||||
v5Vlq4PdXneXDk/XfR4uu9ycGlRYO9hkGuj4JkQsunOoDaw/6TnMZ/33vaV/z13xv+un/GO5J+DCOgEX
|
||||
h/At1gQ4uCr7/6tVz2SzExNHXZhlTetiMClAPxdsdnym7qlA3Z4Zeudm6l2apX8t2OAmvCLE8N5cI/jG
|
||||
w7mjQBlFdX13tuG7sJFAgxtTjG/Psn4nyPrtIGscLldmgLX1pZk2O/3Noxz07XTE8G60R27QA2t4iIaj
|
||||
faen26HRnoe9Pbq93Pd7ubV5uLS6Ozf2xb3D0S7PUG9i9IKQq23NlPVn9dlfpYR9s2rcn8JdCdx5gOtI
|
||||
4PKUq7LPv0mdnmhyarIJB5qrM0Gmh2foHJqmc2SaztFpOiem655moV8I0r8UpH99lv7NYAOYBviCMure
|
||||
HML69gzDO4Gm92dbvxds826wzY0gm+tB1ldn2lyeaXNxpu2FmbatEyyjHA3tdSWpqanIfDBrJBDg1hjt
|
||||
eYyto6M9j3h7HPJyP+Dl1u7pusfduUmFtbNDmbHBzEXjvU+sCLy3dMwH85zuzHW4GWL/9mz7a7MdrpG9
|
||||
crhCyhGlsre/YZ0MGHVmqqkKZdSpmSaHpuscmqqsaTqHWeLHp+menK57ZpreuUA9JA1kOzgGfAPQSQUa
|
||||
3p9p9mGIzf05Nu/PtgXrW8E2b8+yuRZkeyXIlrAOsjsXZNcSYLncwcBCLi4oKEDmg7Q50JT1UbD29jjo
|
||||
5QYbAesWljWL27HOzabCzXK7KTNdOGh45ehRpwNtzgTa9syw7Z1pezbI7sIs+wuzHC4FO1wm9QKxPjbe
|
||||
sGe6uQpl1MmZxn1A8+rwVJ2jU3SOTdE9OUX3DGLGdD3kDRBHP7wx1eD+TPOHITYfhdh+EGJ3b47te3Ns
|
||||
351tezPY7nqw3ZVZdheD7M4H2Z2dadcbZFczzmKBjYE+I0Lo5oPmcMNGDnq5d7GW3eruUOdmXe5mUexq
|
||||
XuRiXuRsVmQqmy8aKkt00jk4xfrodJsTgTanCW78AbC2V2dNNc4V+1VS+M6Ls0idn+VwLsj+bJB9z0xS
|
||||
p1Ez7FCnZtidDLQ7wSv8F4XP02/Ad+L7e9mfxW/APY3fhl+r3AZyeB321Ts7w/L8LGsUH/SJmUb9g56i
|
||||
0z2Z1KHJOocnE+LH+cQn6r07w/z+bJsHc2w/DLH7IMT2fojd3RC7O3Psb81mD+5g+0uz7C6QTbKj+5Ln
|
||||
YzbNXBegj7N86UeONWyk28tpn6dto4dVjatFubN5ibNZsZNZES0LvSjpCKsIC0nnJKvDU22OT7c5NQPq
|
||||
tjs3k7Cm0r4U7HhZiZUyxeeBg/55wDoeaHck0PbQdNsD02w6p9h0sNU+xZpfbZNVS+Ub6E/hx/dPteme
|
||||
Rn7b0UBb3CW4G8jdNsOmc4xOz0yr3iCrs0FW59ii0I/OMOyepkZ5qk43BT1JUcDNET8xRffUeJ2r08zR
|
||||
CW8HW8M67s+xfRBi9yDU/l6o/fuhDu+GONyY4/DWbHvsMjjg7j/Diga7SUH3LY9jo533j7Zv87Zt9bTZ
|
||||
6W7V4GpZ42JR4Wy+3dGsxNGsmK0iW6NEPe3RMwy0K3yMu6faHIO0Z9iemWHXC9zEp4jEzgY5QG4U67FA
|
||||
Oz5TMKLg9ilr7yTrPWztfo6i34kfQXG/gX9PUPr7AsybvHUOTrM4NN3iaKDFiRmWp2Za9gQR7ocD9Q5O
|
||||
lR+cIu8GXLb6Bc0VxX3EV35+qvmVQMu3ZljdnAXctu/Psb0XYn8/1OH+XIe7cx3vhDjeCnG4PsfhCmHt
|
||||
QFlj9/uCBmKnA6Pt273t2rxsIee9nra73W12uVk3uVrVuVhWO5mXOfXFPYoJEg4WJTrpwkaOTLMG7mPT
|
||||
ULb4eHgawdo11bp9sk0bu/MUKwVKebVOtNo10Wonr1omKKpZrbgvofg/gt+Awq/i7gOOfrOvcZ23zu5J
|
||||
Zqi9k8zbpph3TbXonmZxJNCibapO+2RZ52T5/inyA1N4xKfoHOwPNKkJOod9dc9Oszg/zeJiIBlY3gqy
|
||||
vjnL9vZs2/dC7O/Ndbg31/HeXEynSF+Ob5PQRY5jsIbUlB6tiphWm4fNPg+bPe7Wu9ytd7pa7XCxrHW2
|
||||
qOThJsTNdVdKR9gsMBHV+Zntm2i5e5IlIg7ZbdwmO48bKOtWFitFo+AY8LNW3zuAoq8dbVDjo98y0Wzn
|
||||
JFK7WOKoXZNM6iYwjf7MzgDp7gnStkmy9kmyrsks8cnyg5NQOrT6gA7QOeKn3zvVAqzPTbe8MN3y0gyr
|
||||
a0h4s2zfCba7EwL3IKDvzXPCjHabjBEk48I2wZoFTY3Cbh+H2ANlQ0DT4nCz0q6HtJ/iNie4bY3T9YQT
|
||||
Rr7x5lo7ed04s3p/84bxFg3+Fo3+Fg0Blk0BluSjv1VTAClVQL9QsfdlmbtO9VjDhgmmTaiJZqhmFvqO
|
||||
CYYV4yWVfpIqP0n1OMmO8UyzPyG+b6KsfaKsa6J8/0T5QVp84v46x8YZENCEteW5aZbnA60uzrC+EmTz
|
||||
1iy7G8F2t+Y43Al1fH+u412wRvxl52GMFGCtMdqhbTRBDJcgRRFzRSgry91mr7vNbjci7SYXyzpni2pH
|
||||
80pH83IHszJ7s1KUiTxCPNwy0ECQ6WFU7mtW6Wde42deN86ifrzFjvGWDf6Wjf4K3KpQfpnCH8qzF1X7
|
||||
jarzN60PMN0RYArijSz0an+97X6S0rGSMl9JuW9f4uOlu/2lewNk7QGyrgnyA3zc43SO+xv1AT3d6nyg
|
||||
9UUMLEG210jCs785By3R8Q4xEIWuwfr6HEcNL9vdnrZ7UB6gbEOrD2sl6Ha2CG43m1ZX6xZnq0YnyzpH
|
||||
4LaocjCvcABx83Ib42xd4ZSRb2iHmzNlY80qfM2q/cxr/SzqCW7CGvWrSbvez6zQmQFlflHiZePlRb7i
|
||||
4jHikrGS7WMVxCtA3FdcOVZS4ytp8GN2jpPu8Ze1Bcg6JygEfsBXfmKCcc9UC9Y9LOEeAH0h0PrCDDIW
|
||||
Xp5ld3WWHSIHgsc7IY7vhjpC0cBNWWt42Oz0sG2FM7DVh7U7W0rQbe6k2t1sUPtcrfe4WO1ysWpxsmxw
|
||||
tKh3MK9xMAduRZnprZVquvpIR8Ta60LaVb6QtkW/0v5FcVf7jCpxl6uAplXkKy0YKy70EReNIcURLxsr
|
||||
Lh8jrmCraoyk3pdp8mN2j5fu9ScC7xwjOznR5MwUc4DunWZ5drrVORb0xRk2l2baXgqyuxJsfzWYzMlI
|
||||
HTfmOLK4yQk1lIabdaM7MpzNLg+b3Rxr1iUUoEnZtgGumw0+gnKHq6LaXKz3OFvtcia4Gx0tdjha1DmY
|
||||
17LQa+zNKo2ki4TDTKfoaSe7GFT6mqtLG7gb/K0KxpineJrEOBuF2xkGW+pNNNUZbSRz0mesdBhjqVhP
|
||||
IpKKhGKhUCgQoHAD/8Un8SV8A74N34wfwQ/ix/FL8KsKx5g3sqDLPfXLvPRUEKNq/U0KfCX5PuL80aQK
|
||||
fJ4SL0H5iEt9xGU+4grUGHHlGEmtr6TRj9nlJ93rJT020fTUZPMzUxWszwUS64CiKejLs+yvzLJH2ADr
|
||||
t2Y70PO0kPMtgEZnQ5xws25BrwNrdzQ9BWhSRLw2e12tSbG321xt2kHZzbYTxeF2sW5lcTexAgfxelq2
|
||||
Jvn64lnaQ+RBRsIMdyNIO8vTZK2T0UIbg4mmchd9xogRm5iYODk5+fn5BQYGLliwIDIyct26dUlJSVlZ
|
||||
WXl5edu3b6+oqKiurq5jV21tbVVVVVlZWWFhYXZ2dkpKSlxcXFRU1KJFi2bOnDl+/HgXFxdTU9NRjNjV
|
||||
QOohHjbHXLLWRT97tBEfdOV4w/yxYg40V8BNarSoeLSoZLR4+2iCu1yJu3q0pNlLfiDA9MhEsxOTzU9P
|
||||
seihogZo9owSBxoJ+mowYY3IwZ0W10BycLaoQpZws2pGo3O3aWVZ73FT8N1DKbuw5UpYozjWXWxR4vtc
|
||||
rHcrBQ7icPAGwt2y0dwogxFMHfRHgXj4UM2RI9zd3adOnbp48eL169fn5ORUVlaCXU1NDSAC5Q52NbCr
|
||||
sbGxSbma+1st7FL8h7dKSkqio6NHao/0nuxt72U/UnuEhVzbz1iywEae4GawbYxOv6BJeYsLvEVgXegt
|
||||
Kvbui9tTXOep0zrOuN3f5OAEs6OTzU8S1lZnA63Pz7ABa4C+NMuesGZBQ9dX2QcikDpIM8TQgXzmbFGB
|
||||
jOxq1Qhpu1rvcrXezSImxQpWAXoA1vvZosSpwHc7WO60tWi2Mm8yN2uysNhpbd1qapojkwWPHGkwbdq0
|
||||
zZs3l5aWlpeXAzHUCsT19fUcWZACvp07d+5iV2tr62527VGuvQMsxZf37ME3x8bGOo12Sq1NRaVUp6xM
|
||||
Wzl7xeyxgWMtnS3Fotft9N6YZjZstYNmnhrofC8RqoAt4C5S4i51F9d56bX4jdrlZ7JnvElngNmhSebH
|
||||
p1ieJqxtzs8kp+4I6GACmrBmQVPWKAoahTGvzMmiyslyh7NVMxqdq3UreLFFWT/FrWQNG6Gs97vbHUC5
|
||||
2R5wstlvZ9VhZdFmZdVmY9NhZ9fp6Njl7LzfyYmUs/MBa+vt+voLtLRMJ02aFB8fDyFDxVS/4Au4wApS
|
||||
oLZv3762trZ2dnV0dHSyq0u59qstxRe6uuh3zpo1K3BxYFZzVlZTVmZjZkZDRsaOjPT69C11W2SxsqHT
|
||||
hr7u/Pr/6P2Pnvg1H8PB4bYjMj2FLGhCmZQnKcpaoW4Xcd1ogybfUZg2d44zbh1vui/A9MAk86NTLE9O
|
||||
s+6dYXsOrImo0RIJ6CtK0LQ0HEwLHMwKHUyL7FFmJQ7mlU4W9c6WjXAA+MBArJW4CWtX205H60576/3W
|
||||
VgdsbI44OBx3dj7h5nbS1fU4ysXlqIvLYZSzM/mIcnU9Ym+/w8hopVjs7OPjs2rVKrgHEFPNgi/FeuDA
|
||||
gYMHD3az69ChQ4cPHz7CrqPsOqa26Ofp9+CbHRwcYnJi8vbmbduzLXd3bm5r7tZdW7N3ZkfVRgnThVqx
|
||||
WlpRWlortIYHDR/sPfg1k9cY4f94GwwOtx6R7fEU9FPcKEdRnY/RjrGjGnyNm/3A2gSs9/ibdU60ODTF
|
||||
6sQ06x7CmpwuhnsQXbOn5nEbQfBkwCgNe9MCO5MCe9NCO0UVs4m4BvY6AOunuJ2s99lZ7rWy2GcN0Pbd
|
||||
LN8zbm697u5n2ep1c+txczvt5nbKzQ1fIkXp44a7+wkXlwMWFik6OlNGjmTmzp1LL3YGbYIsxQp8J06c
|
||||
OHny5KlTp06fPn3mzJmenp5e5TrLW4pP9fbiG/Bt6J/WTtYl+0tQxV3FRZ1FqMKOwoK2gmlV0wTpAkGc
|
||||
QHuNtvZqtqK0CfHg4YM9Br9m8Jq+4LUAw6HR9pp81vnuULS0doxR3RjK2qTZz6RlvGmrv9meAPO2CZYH
|
||||
p1gdm0ZOF58F6yD7S8H2CCSnJ5l2j9U95j/qzGQLDTuTfJStSQHKDtAJ6yI701LEYeQHtDXgRqjg43a2
|
||||
3mNvucfaYo+52W74g6PjQReXIy4ux1iIoHkaiN3dz3l4XGDrPFuEO8rD44yyetjq9fQ85+BQa2y8imHc
|
||||
qcDpm1SBF8AB4vnz5y9evHiJXVeuXLl69eq1a9feUlv4JBa+iu9Bbpm+cHr1ierq49VVx6oqj1ZWHK2o
|
||||
OFJRdqjMudJZlCkSJgiF64WCdQJBrEAQI9COZnEv1dJcoPmm/5tv2LwxaNj/s5e+Mdf8zUx3IUDnuYi2
|
||||
u+lU+xjV+IyqGzuq3te40c+keZzpTn+z1gDzvRMs9k207JpidWSaDZzkyEST7nGG3X76JyaY9ExF+HNA
|
||||
AXSeLSmwJqVkTaRtb4Z5r5YvbSer3baWuy3Nd8OC4b9OTlDxIRT1BNYlgBtqJazB19PzoqfnZS+vK+xH
|
||||
1CUUPunl1ae8vS+PHn3Fy+ucnd32UaOWSiROCGroZrBvUAO+69evv/322zdv3nznnXduses2u+7wFv3M
|
||||
u+yaPHlyfEF80/mmxnONjWcbG8421PfU152pKz9ZblhtKM4Ri5JEoo0iUYJIGE+IC9cJBdEC7WXaWmFa
|
||||
WvO0tEK1RgaNHOox9DWj1/SFr00ZNSzeWqvMQ69qtFHNmFG1Ywjoel8Twnq82S5/89YJFnCSpjGGO7x0
|
||||
mzzlbb5GhyZYnJ5m2xtof26G/fkZ9gS0vni6rck2ttRxP5W2vUWTjXmzuVmLjU2bgwP6GxDTIqApa5gv
|
||||
W8QZYBdg7el5HmS9va96e7/l7X199Giu3vLxuebjg49Pa8yY62PGvD127DujR19ydKwyNg6Tydw8PT0j
|
||||
IiKQmo8fP/7ee+/dZde9e/fus+vBgwcfqC0Yuo2zDfjueWvP7mu7W6+1tl5t3XVlV8ullrVH10rrpJKt
|
||||
EvEWsThFLE4WixPFos2swGOFguUCwTKBdpi29gJtrfkK4m+Of/MN0zeEr//3dCNhspMepk2wrhtLQEPa
|
||||
NaMNqrz0yt1klW6yOi/95rHGu/2t2idad0+2OTbV9tR0u55A+7Msa41h//OajsDPymhLf7iJtK1Nii1M
|
||||
ykyMq6ysWhwc2pycSIpwdj7IFgHt4sIpGnXEze2om9sx1oVPwRzgDJT16NFv+/jcHDPm1pgx79IaO5bW
|
||||
LbZw47av7x0/P9R7fn53fXwuoFxcdlhZbTQwCJJIrPz9/WEsyIWw7w8//PDhw4cfs+vRo0effPIJ/YiV
|
||||
mZkZEhnSebuz43ZH+7vtpG6177u5b9+NfZO7JzO1jCRfIsmSSDIlkgyJZItEkiYRJ4lFcSLhKqFwuVCw
|
||||
RCBYLBAsYokv1Naer605RhNTlZeXl67W8Mn6ggRbZrubvNiZKXSUbHeVVXrq1/kYN42zbBlnudPfqtXf
|
||||
ak+A1b4A6/2TbI9MsT05ze5MoD2krZHiajBeR5MZ6WymF6tkrcBtZZxvNirfyDDfzKzMxqbWzq7ZwaHV
|
||||
0RGsYRqEtYtLN0uZyplT9FF392NsHXd3P+npedrLq9fb+wLMAbKFYClQX9/3QRM1btw9tu6z9YCtD8aN
|
||||
+3Ds2Btjx97087vl53d73Lj3fH2vubvvtLdPNTObr6vrpq0tRICDF2N0RP+EsXzOri+++AIjYkZ9Rve9
|
||||
7u773fh48O5B1P739nfd6bLdbyutkTJFDJPHMLkMs5UhxLMk4jSxaINItEYkihKJIkXALVwmFC4Rai/S
|
||||
Hjl/5BCrIQYGBhg4X3/99WHDhgsGvT5BRzPJQad6tHHtGNN6X7N6X/NGPwvCerzVLgVr670TbDon2h6e
|
||||
YnsCrKfbaeR5meR4jpppKBQMHTVKtpiCtjbeZmaUa2SYa2pabGVVbmtbzVaNnV2Dg0OLo+NeJ6cOZ+cu
|
||||
FxewPuTqiiKU3dyonBWgPTyOozw9Keseb+9z8IQxY66CoK/vu35+77NkPxw//qPx4x+OH//I3/9RQADq
|
||||
k4CAxyhKf/z4DwICPpgw4YNJkz6aMuWjwMCHQUEPg4M/njatx9+/ydt7i6PjEnNzf11dCzs7u4CAgIkT
|
||||
J1pjyrqxp+u9rv139x+8d5DgRj3ozrieIeuSAbS0RCotlDL5jCRPIs4VC7OEghSB5jrNkatGDl8+fFj4
|
||||
sCFhQ96Y98brIa//cfYfX5/9xv+I/mhp6TRu3MxZs5YtWRIfGhrl6RlgJNCaYyrL84CHmO3wM9/hZ9E4
|
||||
zqJ5vBVY7wTuAOs9Ewjr9ok23ZNtYSMaRaNN87wJ68XmjOYggZ5oupnR1lGGW01NCywtt9vYQMvlNjaV
|
||||
KCXuOnv7ZkfHVienNpb1AVfXbje3w2wBMS0FZQraywt1ysvrjLd3r4/P+TFjLo8d+5av7zuwCNAcP/5D
|
||||
FvHjCRM+mzDhi4kTv5g06YvJk/Hx48mTH02d+sm0aZ8EBj6eOfPxrFmfzpnz6dy5n86f/2lY2GdLl34W
|
||||
Gfn56tWfx8Z+Hhf3eM2aa5GRB+3tg+ZGh7Xf7mq73bnvVvved9p239jT+nbrruu7xnSNeaPijdezXn89
|
||||
7fXXk0m9kfTGoKRBgzYNGrxuyOCowYMjhw5d9uawZcPfXD5yRITmyAhtreXCkTMFw4aNiIhIWLZsU0TE
|
||||
5sjI5Kio1NWr08PC1np7T7CTiiKs9Wt9CeiGcWBtCdbN/lY7/a3BejeLu22CzYFJthplY02LfQjrrZ7G
|
||||
s02ZP/zXf2lqjh41KsnauhSlBE1Y29pW2dlV29lB17X29vWOji1OTntcXDpcXQ+4uXW7ux92dz/i4XHU
|
||||
wwOUj3l6AvEJWizok97ep7y9T3t794wefXbMmAvA7ev7lp/fO7AFf//7/v4PWdYE8dSpXwYGfjljxqcz
|
||||
Z34aHAy4n4WEfDZv3ucLF36xaNEXS5d+ERHxxYoVX0ZHf7lu3ZcJCV8mJn61ZcvX2dlfZ2Z+KGJ0i/dX
|
||||
Hnl4+shHp448PHX041NHH506xpb1cTumRS6pkEtK5ZISUuIimbhQJsqVilKlwo2MME4iXCsRxEgEaySC
|
||||
1WKU9irxSB9tV1c/wF25Mm3VqrQ1a7LWrs1et27rhg0FmzYVL1683t19vK+BdJPzqIZxlijC2t8axbFu
|
||||
8bNqGm2tUeFrBtbpHsbTzeR6Qi0Y3IQJEwQCO0PDldbWZbQA2tYWpWBtb19jb1/r4ADWjc7OrS4ubW5u
|
||||
Xe7uB8EaoD09KeXjXl5AzKdMavTo02z1+PicVar7mp/fzXHj7owffz8g4OGECZ9OmvQlWM+Y8fns2Z+H
|
||||
hHw5f/6XYWFfLV78VUTEV1FR30RHfxMb+01c3DebNv0pJeVPGRl/3rr1z4WFfykr+3blysaJcwKPPTpz
|
||||
7JMzxx+fOfG45+SnPSfx8XFP0q006SEdpkEJGrWdZV0oE+fKRClS0WZGGM8I1zPCdYwwluGID7fUCgxc
|
||||
vGZNRkxMVmzs1vXr8+LjCzdtKklOLk9Lq8nIqM/Obpw/P1pfKAyx0CvxMWscb9kEA/G33uFrVettVeNp
|
||||
Ve1hWethoVHtZ77a0dBNT4LsGRcXl5aWlpycPG/evOHDpTo6My0tt7GiVrC2s6u0s6uytyesWdCoHU5O
|
||||
za6ue9zcOtzdD3h4HPL0POLldczLi4D29gZiWn1A+/icYYvgHjPm3NixF8eOveLn9/a4ce+OH3/X3//D
|
||||
CRM+gYFMn/7lrFlfhYZ+HRb2dXj4NytW/Ck6+k/r1v0pPv5PiYl/3rLlzzk5fyko+La09Nuqqr82Nv7N
|
||||
zy88uTLj5Ke9Jz/rPfX52dNsncLtz3onXpgqbddh6nWYKh2mnK0yOYqIOoeCloo2KCtOQVywWDJcqAU5
|
||||
r1u3LS4uPyEBKi5JTKxIS6vOzNyRk9O8bVtrfv7eoqK21NTK6dMXuutKo21HVXlZVriTKne3qHAzr3JH
|
||||
mWnMttTVEwtXrFiRm5u7detWZKOMjIwtW7agofv6+orFHsbGa21ty1hFA3QFWNvbVzk4VGOcc3Ssc3IC
|
||||
6AZn50YXl11ubvvc3Ts9PA56eR328jrq7X3c25uyBl9aVM5PS0kc3g3i58eOveTre5US9/e/GxDwEQQ+
|
||||
eTLU/VVICMEdEfHNqlWENeScmkpAFxV9W17+17q6v6amnnQZ473//SOE8mcKyrTaP+kyOWUhbdVhalnQ
|
||||
FWwR1jqSIrk4UyZOkYoTpaIEtuLZYolrTxR7ePhv2JAPFW/cWLx5c1lqalV6el12dlNeXmthYRsiT1nZ
|
||||
wZSUA0uXdk6d2mlllTziDe3JOvJMB5MyV7NyN0VVAnRQUFBWVlZRURGGgvz8/Ly8PBDHys7Oxufnz5+v
|
||||
qamnpzfb2jrPzg6gy+3tAbrSwaHK0bHG0bHWyYmwZkGjmlxdd7m7t3l4dHl6dnt5HfH2PjZ69InRo0+y
|
||||
NSBuVF+NE+JKjd+CxgMCoPHHsJTAQCLwRYu+Wb78mzVriLSBe+vWvxQXfztlSvzKtNgTj3tP9FU0KvLG
|
||||
KukhXaZJh6nWYSrZYlkTA8mXi7cAtEycKBNvpPWUuKadcPbsSFbFpcnJEHJNZmZ9Tk5Ldvae+Pj2JUu6
|
||||
AgMP+PnBMw/AP52cduH4BiiGmWmnLVptZlDmalruZlrmRj5qlLELUwACKVYJu4rZBfpYSUlJyEwM42Fq
|
||||
GmNvX+HgAMqkHB2rwdrZudbZuc7ZGawb2BfQgXWzmxvF3enl1c2+okAdtypofimJ98JVlDKHj9/gyfwx
|
||||
lTmgL15MLGXRosujLO1qe1qPftx77FHvsU96j3PEPzvr0ushbdNhdqiBRkvMlYvTWdCbZeJNvNooEy5l
|
||||
RooE6Hvx8aXR0RVLl1bNmVM9ZUq9n1+Lh8dupABn573OzriBAIZc0ADKcFT2oC/V148UD9EK1peDMi2N
|
||||
CnbRhzmqq6vpx5qaGu4jFj65evVqbW0dff0ZNjaZmI9RTk7VbBHWLi51Li71Li4N0LWSdYu7+y4Pj32e
|
||||
np2ensRMWOLHlaxV4fZbPJk/ha5U+jvjx5O4EhDwMezFzCw1ZNXyAw96Dz7o7f6gt/vD3kMf9R5+2Hvk
|
||||
YW/SzSzRQT3BDh1BhVxYJheWkhLhY4lMmC8TbJEJUmSCzTJBglQ7npTWBqlmnHTkeunQMSIDg0nu7gXO
|
||||
zkV2dki6tIiFwjzBFC2K2qaTk6LwGTgqvopD39Q0SSDwG8swaXajCGgKlD6M1NDQQB834j/AgYXbWOXl
|
||||
5QsWLGAYexOTJY6O5U5OVc7OoMwVwe3qWs++ip+8NpS+zMvNbae7+x5Pz3YvrwPe3of64n5e4rT43JUO
|
||||
gy562cPjgFTPtLCzruve6a57Z/aT6lHU/R6PYxPfbJK/WSp7s0D2Zp7szXzZ8DxSb+bIhqXJhiZIh8ZJ
|
||||
h8ZIh66RDolmeCV5TV9LRyfc3DzV3DyNrQxLyyxr6222tkW2tqWseQI0+LY4O+90dt7FfkQ1QdoODpg2
|
||||
ENK2S6WzbbWEMeYGGkC8Y8eOxsbG5uZm+uhGW1tbR0dHF/soBj37jo9Y+G9nZyca5rRp03R1x1paxjo7
|
||||
V7NV4+ICyrSItFnWCidR4qYCb4PAvbwOenv/FIGrF0VvZLR65rKwrrsnu+6eUtQ9ReXdqBJ1GA2rYoYW
|
||||
MkO3MUNzmaFbSQ3JkQxJlwzeJB4cJx68Vjx4NS0RV28ECv7whxHGxhtMTOJNTTeamSVaWKRZWmZaWeXa
|
||||
2pbY2ZU5ONQ4OTWBL6zD1XWvq+s+ZAH2BvLuTnyJVTfGjnJ9/WU6Q7U0OMR79+5tb28HzUOHDh09evQE
|
||||
u86cOXP69Omenh566h2fOX78OL6amJgoEukYGk61sUmiuF1cgHsg4uSFizziu1niXayDk4b57xDHfjK6
|
||||
JnltVSxo1fI7Hji0WTJ0u3honnjoNvHQXPHQraSGZImGpIgGxwkHxwoHrxEOXq1af3TQEgrHGxuvV4JO
|
||||
NjffYmWVbWOTDwtmfWOHi0sLm2vbMUawk0Qnm3E73Nz2IoOx0sa0UYEjYNSo1RrwBKpiaPbw4cPHjh0D
|
||||
0LNnz164cOHSpUuXL1++xp5lx8crV67gv+fPn+/t7cUdAMmvXbtWIjEZNSrYzi5dqW4Ougpu6iccbkqc
|
||||
WAqP+E/RuIHByuDIxXy4XFXe2intNBlaIxlaxIJWUh6aIx6SLhqyiQW9VhUxatAiwR8EI3R1w42N40xM
|
||||
EkxNN5uZpVhYQM7wjWKIFLnW2bnFxWU3KLu7AzEGiINsHWBBQ93QNSwbVl5iY5NrbZ2hsW/fPhhCd3c3
|
||||
dArZAjH4AuuNGzdu3br17rvv3rlz5z124QY+g8+DO6BT4nBwZHCGsTA2nmNnl+HsDOOm9aOIt/JchfNx
|
||||
BJUf8HHISs/UqvhAvQpiWlNOhgzbyQwtEw/NV5NzqmjwBlbOMaqUUa+P1R4xwtXYeB2sA3I2NU2EnFmD
|
||||
zoPtotehB/LmhgPIsvjIVqe7OwwEro1RrsLREd8MQ8+zscnRgDDhFfAE+MPFixevXr0KlOD7/vvvP3jw
|
||||
gJ72xfroo49w+4MPPrh//z4l/vbbb0PgED5+EF102bJlDGM5atQcW9stPNw/TJzvKuicHh57eTJXsXJV
|
||||
6Lq6ixeuW6nCl1bNu63yLrOhtZKhxf3JefOAckb9j8FIqTRY6RublL6RY2NTwLozRgdsdisiLE2xLN+9
|
||||
9NXHLi5IutA7vAUhGCaDxALQ2Rqwi5MnT1Ihgx0Q3717F4gB95NPPvnss8/oeV66Hj9+/PHHH4M4cEPj
|
||||
HG6oG2ZSX1/P4jY1MkIKTOyLm5aKlQ/UOdWhqyidcMdRbO3mXtuzWwUxLSLnXQPIOU00OF44eF3/cn5j
|
||||
imDoUGsqZxMTyBm+kWphkcG2QVAjeQNzA6YzdkCDTTcrdwEyx+frsZuIZI6OuEtK7O0LAdrOLlcDjgxM
|
||||
sIKbN29CqiBIEQPrV1999c033/zpT3/6M7tw4+uvv/7yyy9BH98AjVN1v/POOzAT3E+4t/Db0F2joqLE
|
||||
Yn1Dw4mWlmvVWHM1kMzVoRPurL0glT/lLpFMX521UYUvrbJ3mog79yvnDNGQRKWco1Upo16z0hSJJrFy
|
||||
jjM1haIBOgmRw8oq08Zmq60tmmERCIIjzIHNtWTjlTuC/8JYKpyc8NVSlJJ1vgaOfTgyYEGhcIZHjx6B
|
||||
IxAD61/+8pe//vWvf1OuJ0+e4L+UOHB/+umn+Gb8yL1793Ac4H6C7cB8YNzwemSYuLi4cePG6ep6mZkt
|
||||
cXDI7UtZpVSgqypdnfuoUdFjpk9uv3208+4JrroUhbAxfdhOyZDSHy/nWdp/GDIcgQw5AX9i1KgYY+NY
|
||||
E5P1ZmbxFhabLC3TbGyyoFAYAssaXbHSyamStyO4TYplja8S3A4O2x0cijUgRjgA7AKGQIUM2YImmP79
|
||||
73+nL6/Fwg26ONz4ti+++IKaCawGnk6dBAcHNW44EhpsZmbmrFmzYN9GRoFWVnG8bRqo+rEXFb1jP0Uy
|
||||
/bQd2zrvHlevrLeKRO0GQ6tFQ4qFQ7YJh2xV1OBs4eB04eBE4aA4waBYwaBowaDVtLQHrVLUHx1HaGl5
|
||||
GBgsMTBYZmi43MhoJXCbmKw1M9tgbr7Z0jIF+cHWNsfeHqwLWdalEC+wsny5XeBYK6QN1uRC3XAA+ACQ
|
||||
0Uv6QMjQL5iCL31xPtZ37MJ/KXR8w7fffotvhvZx33BOgsMCB8f169c546a4McTDTwQCoY6Ou4nJfFvb
|
||||
VN5mPbtUeilBL5MFha5e0nn3WL/ldth3aKNwSKlgSL5gSK5gyFbBkBxSg7MEg1MEgzZoD1qnPWjNU7hc
|
||||
vRGq9YeRw/DL9fUXg7WhIVivGDUqysRkjZnZenPzjRYWSdbWW9DZ7Oy2saC3s6ApZT5oFP3MU2lrgA4k
|
||||
CR+gdgG1QrMUMcjSSyD8n/Jalfgvxxp6p9KGj3NOQvskZ9wquBEis7Ky5s6di2FHT8/H1HSxWkT54TIx
|
||||
iXH08a4729r5/jH1WnNh44h9zNAq4ZBCwZBtfMrag7doD96sPWi91qC1WoNWaw1apVqvuQwfOdJJT2+h
|
||||
vn4YZW1kFMGCjjE1JaChaBsbKHqr0j0AWl3O/FKwtrFJ1QBlmDLfLtQpc4uy5ku7Xyehxq2Cm46Xx44d
|
||||
Q5rEIJqcnBwcHAziurre0LiNzWa1reynsIcjBdKE0i0qfLkyO+AwdIdgSIlgSF5fOWdoD07WHhSnNShW
|
||||
a9AaVcSoN+Zp/kF7KMNM09NboKcH0OFQtJFRpLHxKlNTWAc8OtHKino05FwA22XlXP4M0Ngp7Bq6FHZT
|
||||
gzNlFbtgFdyHMl3083zcuG84J8Gv4lIgHzfMhHo3WiWSCeZ4xMqDBw9iLgXx0NBQuIpM5ggft7BYZW+f
|
||||
o7LFXOG4nh21SAUuVzNPzx+2Wzi0gjUNvpwzWTlveqacXYePGOGoqwvKC/T1F7HWATmvhG+Ymq5j5Zxs
|
||||
bZ0Og2blTH2Dk/NT0Nh47AJ2BLuDnQoMDIyJiSksLCTvlcU35X6FrL5UWFPckDZ+1TNw01aJZEKDIKYk
|
||||
+AkEjum/o6MjNzd3+fLlAQEBYrEerHzUqFmWlqvt7bO5fYC43Mb5DmQa266XMh1GQ+sEQ4r7yjlbMDhd
|
||||
e3CSknK/cg5VkfNiVs7LWTnHoBNaWGxm5ZyJRGxnx8lZARobiU3FBmOzsfFjx45dsGDB5s2buXPOtbW1
|
||||
GlAiDn9QHsguBlpE2GpO8gzctFXSIR6BErmb8xMqcDg4PUGIJJ6WlhYeHo50KBIxMpkDIrmBwUypnkFq
|
||||
XY4KX65cDo8Z2iwYUqbWAyHnVO1BCVqD1mkNilFFTOs1J7izM0/O8A3IeYWxcTQr5wRWzltsbRVt0NY2
|
||||
08JirYnJQkPDCdg8bKSPjw+OSyTaoqIi/plnDHH05KjiHTp/LGVu9YubGrcKbq5VIgjS3E3PmVCB04YJ
|
||||
B+cTb2tra2lpyc7OXrlypbGx8bLEZW2329rudLTf6Wp/70DHe90d7x3qeP9I5/tHF/RGDNsrGlopGFLE
|
||||
mgZAcz0QcuZ6YLQqYtTrwSP/MGKoTDaDk7OBwVIqZ9oGTU1XjRoVPmpUiJ7eZLncSyKxEAoZV1fXqVOn
|
||||
LlmyJCkpqby8XIUshct/9QJ5c9+fTJlbz4MbrRLJhAZB5G7OTziBcw7OJw5XAXFM9rMjZx/75BjqyMdH
|
||||
Dn106OCDg/vv7++829n+XnvetXxZu86gmqGDioYOyn1zUM7wwTkjBmePRA1KHzkoWXPQBs1BsZqDYjT7
|
||||
IsZ/Sf2PzdARI+yk0okMM55hxkgk6F0uQqGdQGChrW2gqSnR09OzsbGBZmfOnBkREQFPgGypLQAuR5Z7
|
||||
2ISDy716AYoh7wsOOpSUAttPXfSXPBs3neD5fkIFTh0csyUlzmkcrpKSkuI7zbflYsuJT0+ceEzq+OPj
|
||||
T+uT42N6xgjaBJq1miO2jxheOPzNvDeH5g4dunXo4MzBg1IHvZHwxuuxr/9xzR//GPXHP67oWyv/+Nqk
|
||||
1/7fG/9PIpHo6urioLGysnJ0dPTy8kKrQCiCfa1bty49PR1HVX5+fnFxMX3dDfRLH5CiZ/M5srt27eJe
|
||||
twC47e3tUAmOTrR9DSpkLAWtf3vR36aCm0smNHfTMYf6ycOHDzkHVycO1di62Ba2F5789CSKsOaKhb74
|
||||
2mLxYbFop0hYIxRWCIVlQmGpULhdKCgWCAoEgmyBdoq2dqK29kZt7XhSWvFaTytOa7jdcD8/v8WLF4Pp
|
||||
0qVL0Y1hU9HR0eCbkJCARJSRkYEuXVBQUFZWVllZCcQQL5Ut1SyfLBZ9XQiFiz6P4xJHJ9q+BuWigPTz
|
||||
Lfpr+bixKG4IHLhVBA7inKVwxLGVeoZ6yRXJpz4/deozUic/O0mKhY7aemer8XFj8R6xqF4kqhKJykVP
|
||||
QRcJBLkC7TRtAnqzgrJKjZw6Ep4An4U1AfGKFStWrVqFNLZ+/fqNGzeCcmZmJijDKCBk3OUUMfgCLshi
|
||||
Uc3Sh/0oWSzuRSGwQRyXODrR9gloBZtfYKng5gRO/YQKHMQhcDg4ZymUOLwbCKIzo09/cZrU56cJblos
|
||||
9AOfHHDpcZF0SsRNYnG1WFwpBmhRmUhUKhKWCIX5QvI00VSBIEkg2CQQJKiWdqT2cJPhsN3IyEioGIjX
|
||||
rFkTGxsbHx+fmJiI2MO9ohRChhFDwtAvhQuyaB5oIVSzCKmULH3AD1GKwsVBiWENHQhjhIYCyS+5ONx8
|
||||
gXN+wjk4tRSO+IYNG5bELTnz5RlSX5BSEGeho6ZcnCI9JGV2MZI6iaRKIq4Qi8vF4jKxaLtIVCQSbRUJ
|
||||
04TCZKFws1C4USjYKFCUErTmGE36khkYBdbatWvxFzdt2oSWAFPmhAwvhoopYvCFbKkboHmghVDNcmTp
|
||||
a20QpRCoYID0tSC3b9/GMfprgOYWR1xF4OrEoaaQyJCD9w4q3vvgyx4FcSX0iBsROid0pHukTAPDVDNM
|
||||
FSOpkEjKJZIyibhELM4TizJEojSRKEkk3CQktbFPac/THsGMgF1AwrBj5F84MoLali1bcnJy0PcgZHgF
|
||||
2h36G33MmvKFZilW9A+KFZpFRwFZyJaShe9RuLBB9B50IByjvypoujjcfIHziWMnA8MC9729r/erXlTP
|
||||
V+RNJkgpoae9n2Z6ylTWLpM2SaV1UgqaqSAF0JJCiSRHIk4Xi1MVL1ERbepTwnVCLQetWbNmwSXAFyoG
|
||||
4tTUVNy727ZtQ7SoqKiAV8CL0dyAGJ4L8YIvdQOKlRMsRjCQRVQF2bt374IsfI/ChQ0izuLoxDH6G4Dm
|
||||
FkccuDni2MNJcyYhzD192xQWNwe99mGtw1kHeZdctlMmq2efwV8llVaSYsoYpoRhtjHkxSlpEkmyBKBJ
|
||||
be5T2pO0fX19ARftDnyhYiCmXoFogWgMO0b4BWKYLyR87tw58AVctA3OCpBKKVaqWcxilCy6OshSuEhW
|
||||
6Pbo+ThGf0vQ3OKIww0DggJ2nNlx9uuzqKeslXX4i8OjL4zWOawjb5XLGmWyWpmsRiarIiWtkEpLpdIC
|
||||
KZPFMOmMJFUiSeynRItEWvpacAwYMUIFjIKmNxxGCMjwCtgxIhqMAioGYhguxAu+0CzgUqxgilRKsVLN
|
||||
YhbjyKLTAC48EAvdHj0frvhCgKYLOvKf4V93qo5SVikKevKVybrHdHX26sib5PJ6ubxWLq+Ry6vlhHWZ
|
||||
TFokZXIYJpNhtjBMCsMkqZZkg0TgIggLCwNfLBhFYWFhSUkJvIIKGR0PQoYXwyioiuEM4Mu3Ao4pFlo3
|
||||
xconi05D4cIGka/gh3DFFwU0Rixoue50Hfd2VorisZ5zfY7uSV2ddh15Sx/K5F3xKmSyEplsm0yaJZWm
|
||||
k7f1kCb3KSaZgBZNEk2ZMgWhDYsihldAyAjI1JERKiBk9DoYMYwCFgHDhXipFXBYYQUc1oHIYtHew3b9
|
||||
f74QoLGrk0MmE8dQocyrxTcXG5w20O3QJW+Mt0P5ft7sGwGR96bfLpfly2TZ7JunpKlSpiVZKBHoChCQ
|
||||
4cUUMRUyTW+YO2AXcGTECQgZRozMABVDv9QQABdMAZQy5WPtlywWGg/b8sns/duDxm7PWDSj5VKLCll+
|
||||
rby1ctSZUbpdLOVG5Zt5c5TL5OSNgAZ4O15a0jVSob1w9erVQFxaWgrESG9ovKCMMY+jjMSGlAbKEDL8
|
||||
F5ShX6pZipUCxaJM6eKwcmSxaOPBorv5W4LGDqAjha4MbbvZpkKWXzG3Y8h7eO/XJW8gpk65nH1j+hyZ
|
||||
4q2tUlUR0xL5iubNmwfE9JQFhAy7aGHfaBNjCAIc5g5QRt9D06NPCIBRQMXQL0XMAaVrIKxYit3ru34z
|
||||
0GgvmBSWJSw79OCQCll+rbuzTpUyTINSrpLLK+TkXem3EtPo943paUlmSAQCAXIFfcp9TU0N0gVa3x72
|
||||
XTZBGQMeHAOUOS2DMiwY/gBboIgpVgVL5VLszHOs3wY0GrqRqVFsTqwKVpUCZfMec90Dz6S8jaUM0xiA
|
||||
MrOIERoJEZa5M8iUMhwDMe4Q+/ZtnC+DMtUyKEPIsAggpnwVm/5T128AGrvn5OWUXpuuglWlFI4Byrt1
|
||||
dJqUlOmbDVLKJexb8D7bmldJRXaitWvX0teO0JOclDIG6+7u7hMnTiAsI2MgxiEjI8Ch9VEtUyOGkP99
|
||||
yli/KmioA71oQvCEsoNlKlhVCt3vqWP0pUzebBCUt8vleT/UABOkYm/x4sWLOcq0++1i3yHvwIEDNC9f
|
||||
vnwZwzTCMs0Y6H5ofZwp/yxyxvr1QKPJrF+/fmHMwn3X96lgVanwm+EkY6j4MkeZDXPkzXcpZfX3dlSW
|
||||
JIC8Kz2lDNOoq6tDWkdepufhqDVzDRA9A2EZMQ4t+uc1Dbp+JdAYt2ycbBIKEzDdqWBVqZDrIYanDUmS
|
||||
+/coMzMYgUSA2ZpvzYgZaIAIc7BmDCbnz5+/1t8bCv68pkHXLw4aW49hF/PI9v3bVZiq1JEvj5C3+T+l
|
||||
p5hKnk253/cpVRYTyggNFA0Qi4Y5vjUfP34c498V9j127969i9kPg98vZBp0/bKgcXgiXaxMXtl1p0sF
|
||||
q0rVP6r3ueSjd1xPt70vZTZj9E95gMjMhDMiM1F8fDy/AapYM1Izkg8dspGaYRqYrX8h06BLY3tR4i9R
|
||||
6anR06aM9ZrgkVaXcvTjw8+uTTfiLY6ZCdu1BA1a2tWa2mWa2qWa2iWa2sWktApHauWN1No6UmvLSM2k
|
||||
EZqbR2huHKG5YYRmXD81YsGbw4wH+/g4h8yeFDpn0tzQKfPnTg1bMH3RwhlLw4MiI+ZErZgXs3rhurXh
|
||||
CRuWJW5ckZa8OnPLmuzM2G05cfnb4gvzEoryNxYXbCop3KyyR/9m/SKKbm1tNbcxX5W66geFjELAsOix
|
||||
0D2oq7tHV6dZ7TwGTXLPp2US5pxEy5cv57TMNUBMgNSakZphzUjN1JppnqMTIJ1NuMFEsTM/0+qj6NLi
|
||||
JFplJcnKSinfjkpFVZSi0irK0irLtqCqytMVVZFRTSqzpjIzPi7C19dtUsiEbbu3Hnt0RLU+6VNdDzsm
|
||||
nPWXHBYJWwXCem1htbawXFtYpi0s1RZuJyUo1hIUaAlytQQZWtopWtpJWtqbtbQTtLTjtQS0Ep6WdqTm
|
||||
CPvh4/xGR61cvCoqfPWqpTHREbFrIzfERW1MWJOcuC49LT4nO6kgP720JKe6Mr9hx/adzRV7d9d2tDUe
|
||||
6Np5qHv3kcN7jx9tO3G889SJzjOn9p85daDn9MGeMwd7z3T39hw623v4HOrskfNnj144d+zC+WMXzx+/
|
||||
eOHEpYsnL188dfnSqSuXT1+9fObqlZ5rV3reutr71rWz16+du/7Wubevn3/7+oWfTdEI/KmpqT6TfFKq
|
||||
Us58cUZFtupV9EGR10WvfkxZRcuY/bipZODuJ10nFXuJFyxYwIU5bgJEzOAaYG9vL5ea+7Xmnzdp8NfP
|
||||
oOisjPXBQRPMbE2WJy7beaVZVcX8Ump50ZWFRkcNhG3awiZtQY22oFIpZE7LRVqCfC3BVi3tdE3tFE2F
|
||||
luOfFl/R2qs0R7gM9/Z2i1qxKGoF5LwkevWytWsi4tatjN8QnbhpbVpqXGbG5rxtKcWFmRVluXU1RU0N
|
||||
pbt3Ve/bU9fV0XRw/87DnJyPdZw80Xn6ZNeLpegHDx4UFRVZ2lsu37y8+UKzimb7reZPmidemah3Wo8k
|
||||
ZczWaqZMAga0XMaek6Nniwae/VDS9VLxaHFISEhFRQWnZRrm0CpUYgadTfgnNLjTRr+QNXPrJyo6LTl6
|
||||
1swAQ1P9eatDyw5tV1XuABV5LcLsuImoQyBs1hbUagkqtQRl2oJSbQGrYlIl2oJCLUGeliBLSzuV1XKi
|
||||
pvYmTb6WaVFFa0cRLXt5Oq+IDFu5YjHcmVjzmmXrYmHNqzYlxKQkr89I35ibk1SYn162PbsK1lxf0kKs
|
||||
uaZ93479nc3dB3ZBzkcP7z12DHJuhzufOtn1Qij63LlzSUlJ9q72K5JWNPY2qgh2oEJMhpD1T+tjsFak
|
||||
i4YBTBkBg57FRw185hMljSG+HBoaSrWMxWmZRmb6TAF6CpQfM37p2aTf9byKzs9NWLZktpeno9NohxUp
|
||||
y+t7a489OqwsVeWq1PzLc4kjt7OOrBCylqBUS7BdSwAJo6gpI2Bs1RKkI2DAlDW1N2tqb4SWaakqWnuZ
|
||||
5gi7N3183FcsD6NyXh21ZE300rUxy2HNmxAzkmK3pMbnZCXmbUvdXpxZWb6tvrawqaGsdSex5s72hoP7
|
||||
W7oP7DxyiMgZ7nz8WNvJ4x2/paKROjMzM/UN9WcsmpG5I/PoR0dV1PqM2nJvC4kWJ/s6cl8h9zHlXF7A
|
||||
GCAso5jlDPJyeHg4P2Pwx7+uri760BQ2/urVq3TO/oh9iR8/ZvwK1sytARW9KWE5hisnB0tHL/sl8YtK
|
||||
DhYdfXSYX89WdOF7+b49Y5hDYuEebWEjooWWoIInZKJlUtpcUlY1ZZV6qmWtuSOHmw7z9/dZHrEQcmZj
|
||||
xuI1q5fExixfv25FQvzqxM2IGRuyMjdu24qYkVFetrW2pgCpeVdLxZ7Wmo62BjZptBw62Ao5Hzuy99iR
|
||||
fXDnE8fbf1VFX7x4EUECxufs7Ry+LrxgX8HJxydVdPrs2v149+zrs8kjI4d0dduUGZlGC3Uhl5OkrDiz
|
||||
jKnvmaaMYkLJeYzo6GgVLXO+zGmZns6HlrnI/CX7clX+o1O/jpbpIopOTV61NDzIf7ynuZmhg4ft3FUh
|
||||
GQ1bOm63Kc5F9BUyV+qKbvmgKfhCEOyY5IoWbUG9lqBKS1DOd2SlkIs0tQs1tbdpaWf3FfJTU1YpomXN
|
||||
iSPeZIbOCJywPGJB5PKFsOaolYuiVy1ZG7OMaHnDqqTNManJ6zMzNuZuTS4q2FLGToA76opbmspbd1W3
|
||||
7YU1YwhsRnA+dHDX0cN7UMeP7mPj8y+v6MDAQEsHy8CFgXF5cTUnan7wfHG/te/TfQtvLLQ5a6N3lD3J
|
||||
2craMT9XcELmPRClOH1BTXngpIySJkglARKBRLBlyxb+eQw6+9G8jIwxkJbVH2n9NbVMl8a23Vvbbu3l
|
||||
TqT1U2papkXlXPp+ydRzk42OGAg7tIU7tYiKq/uqWEXIBRCypna2phZfyAkq+u1TWks1Rzi96eJst2hh
|
||||
MKvlBSsjw1YRLYevXbNsfSy0HJW4iWo5YSsic0FaaUl2VcW2ejIBlsGalamZyBlJ43A3587IG7+WolW0
|
||||
+fyVfT978pXJ5JE9eHH7D6i4jyM/t5BRzCJGZCfiHvejWq6vr29sbKQPl9DZ7+jRo8jLXMZQ0TJ3Zo47
|
||||
m/EryxlLQ1W/6tVXyLsetIRfXmR/0lbULRDs0RI0aglqNQVVmkTFnIR5KiZChh1DyLma2lkQ8kit5JFa
|
||||
iZpaPyRk1EiYsmzo5Em+EUvnRSybp9By1KLo1UvWrolYHxtJtLwxJjVFqeX8tO3FWVUVuXU1hY0N23c2
|
||||
le9uJdbc1dGwvxNJQyFnFNz5xVV0xv2MaVenWfZa6h0juZgMeC3KRNGviqkdVyozMn0CBqLFcwiZTH2+
|
||||
YoHgqSnzwzI9v9zR0dHd3U3PYyAs0Wd+cnmZZowXQct0/bCiM2+lTz8/1fyYqfCgNpFwk5Z2raZ2NSSs
|
||||
KSjVFGxnqwTVV8U0V+RpaudoamdoEhUnQcgjtTaN1EoYqbVBE6WNUlMxSnP2iOHmw7w9ncMXh0QsnavQ
|
||||
8oqFRMuKjBGZEL+K+HLKusz0BPZURmppCbS8tba6oJGcaC7fvauqbU9dR9sOyPlAFw3OJGzAndlp8MVQ
|
||||
9ImvTmTdz0IcdjrnRM60dfNcWF3CfVX81I6RKwrYZ8VRO8aw98yMjCLpYopEqC+MjY3lhMw35d27d9OA
|
||||
QR/G7u3tpefk6HkM+vxazH4qGeO31TJdfRRd9F7BkiuLvU97GB7RFx5Q6rdOU7tKU7tC+VDedvbRPCJh
|
||||
toqVNyDkYtaO81k7zuTseKTW5pFaG6FifvWjaM15I4bbvunsbBsaMn3pkpBlS0KXEy3PX7kibPXKxWui
|
||||
MftFbFi/YmP8qqTEtVtS12dlYPZLLMzfUro9q5L4MrSMyFwGLe/bU9u+r66TyBlJo6n7ADmtcbh7F80b
|
||||
v42iiz8sjroVhfzgcM6BPAH5sC7x333sRDeQfp+h4u1yeaHyPDKd9GDHA5+1oEWEPE0iNBJGRUXx0wWX
|
||||
lDH17VNeCBGmzAWMmzdv0ueKP2KvuUWfYquel39bLdOlITygJdirJUAEblCKt5wnXqV++xT74DTRMm4U
|
||||
jVR48VbWi1VUHK8iZK6eKlozZMRwm2GODtazZ01ZEj4HWoYvL4+YtzJyATv4hcesWbo+dvmGuJWbN0Yn
|
||||
J63dkhaXnbkpL5ed/bZnVpUrtNzcWNq6k0Tmtr21sObO9h0HOpvYObCZuvNvrOh+lKsuXlp8CfMTBY3G
|
||||
1IufW8UoRAvMe0I94Sr2nfbUhYx0QR/xQ1I+wr4G7Sx7IcTr16/DlO/du8eF5W/6Xt7lN5n9nr00BpQt
|
||||
v1gJK4rEiZHa+SO1c0dqZ5PnWhAJoyBhmigGVDGv4jRHThn+5qihbq72c0OmEyGHz2FNee4KmHIkCRhr
|
||||
VofHrl0WxwaMpM1rUpMRMOK3Zm/O35ZcXJhetp3k5fragsZ6+HLp7l3QcvW+PfSEBhkCUQeJnOHOirzx
|
||||
WytaRbb8GkjCiBOcEXOJ4oeiMVcY9sTu4oCAgISEBJVooS7kw4cPn1BeN5W7ECJM+ePnuLLZC7U0VMWL
|
||||
4uuXPlGoYKRWPvtcoayRWmkjtJLZ+mEjVi3NsBHD3YcN0xri5+uxeFFw+OLZ0PIymPKyuZHL5q1YvmDV
|
||||
yrDo1YtjY5aui10eD1PeFJ2SuDadmHICGzAw+KVXlGVXV20jWiYZo7SVnGWuZLUMayZypsGZZOcXVNHq
|
||||
+kVVyOWlZK4jp4w5F+Yk/BxGTEu6irVjQ2FYWFhhYSFnx3TYQ0am0QLznrqQabq4o7xu6rNN+QXUMl0a
|
||||
ffRbpKkQL32uW+ZIzS0jNJNHkGe8JY7Q2jxCa9MIrYQRWvEjtOJGqKh1oNJcNmLE2DeH6QxxcbGdNWvi
|
||||
4jAIOXjJ4tlLl8yJYJMyTDlq5cLoVYvWRi9ZtzYiPm7F5o1Iymu2pK7LzNiwNXsTa8pppSRgYPDL21FX
|
||||
0NRQsrMZGQPjXyWsuW1vDbTc0Vbf2V7PntYg2fnFU7SKeBEh4L/0sTtOvzRI/NBcp1JExRMlQhNhcHBw
|
||||
WloaVTE9ZUHtmJ61oMMeMvLBgwdptFAXMj198Xnf66a+4KassjS0ckdqITxkjNRMY5XLipc8Y5M+aTNh
|
||||
hGa84omaRMX8UhMvVyMXDB/uNWyYdIiTo3Xg9PGLFgYtDpsVvih4KYQcHrJsKZsuIuevgpBXL167Zsm6
|
||||
WAg5clNCVPLmmLSU2Mz0uJzsjXm5SUUFKaXF6eVlWTWVW2tr8hrqCqmWd7WUw5epNbfvxRBYCy2z7kwM
|
||||
+gVVtEK5KCiXM1+I97n9l19MGCMeLRbqCOfOnZuZmdmviltaWlr7vncDHfZoRn7rrbcQLQYSMtKFyqPX
|
||||
L76W6dIgsuWUqxRvv/UMRWuuGDFi4pvDLIYYGel6ezrNmTU5bOFMTshw5GVw5KWhK5bPXbliwaqohWsg
|
||||
5JilcRDyhhWbElhHTlmbkRa3NWvjttzNhfkpJUVp5TDlipyaKoTl/Mb6oubGkp1N0HIZIjPVMpHzvtqO
|
||||
fXBnhI0XX9E/SblcMeGMZDwx4okTJ8bExHASpgMelyjgxZyKu9h3FTh69Ci14wsXLtBLNdDrCNCMTKOF
|
||||
upBf/HQx0NJQke0zii/nkYuHDx83bJjZkCFDBrm62E6fNm7hvBlh82eELQhaFBYUvmgWosXS8NnLls6J
|
||||
jJi7MnLeqhULV0ctWrsmfN3apRvWRyRsINEiJTF6SyrnyJsL8pJLiraUbc+oLM+urtxaD1OuL2zaQbW8
|
||||
nWh5J7Hmvbtpaq5BvVSKVhPpMwpBgpnBiF3EQhm5jmxcXBx/tKMS5owYuZg+ptfR0UG9mKr4zJkz58+f
|
||||
v3z5Mt+OP/zwQ/oid+46AjRavOxC5tZzKXrkgjeJfi2GDNUcbG1l4jvGbU7wpAXzAhfMD1w4P5DYcdhM
|
||||
qHhpOFFxxLKQyIjQFZHzolYsWB0VFhO9KDZmyYZ1bEBOiEravDo1OSY9dV1WxobcnIS8XMx7EHJa2fYt
|
||||
FaVZ1RU5dTXbGuryG3cUQMstTVTLpdDy7l3le4mcq/btQb1CipbGSpm5jGScRGQlEggE9DrIRew1OSFe
|
||||
ql8ECc6FOQnvU14Zjl657Pjx40gUvb291IuvX79OVXzv3r0PPviA2jHNFfQhPgx76hn55RUyt/ooemTE
|
||||
8BEzhw33HgrzHao12NhYz8XZZkKA97zQqfPnTlswb9qC+dMXLghcpJTwksVExTDi5UuhYtaLVy6IXrUw
|
||||
JnrxurVL4mKXsel4RdLmVSlJmPRis9LX52TF5+ZsLNiWWFSQXFoMIadXlmVVV+bUVrOmzGq5uQG+XLyz
|
||||
qQRaboWcd5XvIUmj4uVWNGIDE0jCL1EuI/jB6yDDf2mK4PRL5zq4cHd3N5XwKfbicDBi5OJryneDeu+9
|
||||
9+DF6ir+C/smJHw7fpWEzC0NfV2plaWxh7vdhACvkOBJ89gX5inESwr6nQH9Lg6buWRx0BI2S0RAwstC
|
||||
EIqjVkDC81kJk0SxPpZNFPHLN29cCRWnEhWvzUpfl50Zx9rx5qL8pJLClO3FqeUkWmSyQs6tr0FSzmus
|
||||
R1guhJZbmoiWdzaXQMutO5E0EJxfCUVDsHzNYtHYQJUL56URGOJFCoZ44b/Q7wH2ypzQL4Y6BAnOhTkJ
|
||||
c0aMXIwBj15ci0ZjTsX8dPxKqpi/NBbMnwblhi1AEfEuXkjEG74I4mX9dwn0O5vVb+jKyLmrVs6LXrVg
|
||||
zSqaJcLjYpfEr18GCcOIEzdFpSStTktZk562NjN9fXZWXG52Qn7upsJ82HHS9qLU0hLkioyqcjhydm0V
|
||||
MeUdtdt2wJTr85saoGUiZ6rlXc1IGttfNUVTt4Vmdz/fdZAhXgThc+fOUf1evXoVQx30++6773Iu/PDh
|
||||
Q4RiasRfsW+4hVzMJYr/HBXzl8bS8FnLlqCCly+bHRmBQS5kZWRo1Iq5q6j/kvMSYWvXQL+L49Yt2bB+
|
||||
afyGiE3xkYkbVyaTLLEqLSV6CyS8JTY7AxLesG1rQv62jQV5m4sKoeKUUmLHWyrLyOtqqyuyIOS66q11
|
||||
NbnQckM968skYxQ2Nxa1kFK486upaAgWbks1+zzXQb558yYixO3bt99nrx9JLZgGCe4SfHBhKmEVI/5P
|
||||
UzF/aayOQmyYv2b1gpjohbFrwtatXbR+rVK8ccs2xkdu3hiZuGlF8uaoVOg3GfqNydhCskQOceG4bTnx
|
||||
ebnIxZsK8xKLqYpLiIoryKtr4cgZNZVZNZXZddU5SBc7aomWd9RtY7Wc34Txj7rzf4KiYbUXf8x1kCFe
|
||||
RAi+fmHBXJBQceH/ZAmrLI2NG5ZtSojYnLA8cWNk0iZMcTBfVrww39Q16akxmelrszJiczLXbc1az7rw
|
||||
hvzchIJtG4vyNxcXIBcnbS9OKStBpZHX1ZamV5anV8GRKzNrq5AuiJZRVMsNdag8pTv/hykaVvujroPM
|
||||
91++fqmEod/fJdzv0khPjc5Ii87YsiZzy5qs9LXZGcgPsax44b/Egql+C/I2FRdAwokl5BWJSaXF5EW1
|
||||
ZcSOU1k73gI7plftUGi5WqHl+pqtqN8VTd79DYu6LTRLJzcqW9gup1yEBxXxcv77u36fZ2nkEtnG5W3d
|
||||
gMrPjS/YllDAXleILaLikkIU4gR9gXhK2fYU1osVV+0gWuZdgYZkjCrk5d8VraZovmCpZlVki6WiXCzF
|
||||
3fT7eu6lUZi3EUUlzIqXFO914YprHKCe55pKvyt6QEWzMUEhWCyFYtmluC9+Xz/H0uAkrHJ1A2X1fwWa
|
||||
3xX9oxWtAP77+oXXz3CVsN8V/buiX6D1u6J/V/SrtX5X9O+KfrXW74r+XdGv0vq///v/AT08VKulG+4s
|
||||
AAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
26
WT-DMS/AboutBox1.vb
Normal file
26
WT-DMS/AboutBox1.vb
Normal file
@@ -0,0 +1,26 @@
|
||||
Public NotInheritable Class AboutBox1
|
||||
|
||||
Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
' 设置此窗体的标题。
|
||||
Dim ApplicationTitle As String
|
||||
If My.Application.Info.Title <> "" Then
|
||||
ApplicationTitle = My.Application.Info.Title
|
||||
Else
|
||||
ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
|
||||
End If
|
||||
Me.Text = String.Format("关于 {0}", ApplicationTitle)
|
||||
' 初始化“关于”对话框显示的所有文字。
|
||||
' TODO: 在项目的“应用程序”窗格中自定义此应用程序的程序集信息
|
||||
' 属性对话框(在“项目”菜单下)。
|
||||
Me.LabelProductName.Text = My.Application.Info.ProductName
|
||||
Me.LabelVersion.Text = String.Format("版本 {0}", My.Application.Info.Version.ToString)
|
||||
Me.LabelCopyright.Text = My.Application.Info.Copyright
|
||||
Me.LabelCompanyName.Text = My.Application.Info.CompanyName
|
||||
Me.TextBoxDescription.Text = My.Application.Info.Description
|
||||
End Sub
|
||||
|
||||
Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
1
WT-DMS/ApplicationEvents.vb
Normal file
1
WT-DMS/ApplicationEvents.vb
Normal file
@@ -0,0 +1 @@
|
||||
|
||||
158
WT-DMS/CAccountManage.vb
Normal file
158
WT-DMS/CAccountManage.vb
Normal file
@@ -0,0 +1,158 @@
|
||||
Public Class CAccountManage
|
||||
Dim m_SQL As New CSQLInterface
|
||||
|
||||
Const cst_TABLE_NAME As String = "帐号表"
|
||||
Public m_COLS_NAME() As String = {
|
||||
"序号",
|
||||
"帐号",
|
||||
"密码",
|
||||
"员工ID",
|
||||
"登录",
|
||||
"系统记录",
|
||||
"用户管理",
|
||||
"料号管理",
|
||||
"原料库存管理",
|
||||
"成品库存管理",
|
||||
"BOM管理",
|
||||
"供应商管理",
|
||||
"ECN管理",
|
||||
"公司管理",
|
||||
"部门管理",
|
||||
"仓库管理",
|
||||
"库位管理",
|
||||
"财务管理"
|
||||
}
|
||||
|
||||
Public Enum COLS
|
||||
序号
|
||||
帐号
|
||||
密码
|
||||
员工ID
|
||||
登录
|
||||
系统记录
|
||||
用户管理
|
||||
料号管理
|
||||
原料库存管理
|
||||
成品库存管理
|
||||
BOM管理
|
||||
供应商管理
|
||||
ECN管理
|
||||
公司管理
|
||||
部门管理
|
||||
仓库管理
|
||||
库位管理
|
||||
财务管理
|
||||
max
|
||||
End Enum
|
||||
|
||||
'权限
|
||||
Public Shared AccessRight As Integer = RIGHTS.NONE
|
||||
|
||||
|
||||
Public Sub New()
|
||||
End Sub
|
||||
|
||||
'Public Function AddItem(ByVal AccountName As String, ByVal Password As String, ByVal right As Integer, ByVal EmployeeID As Integer) As ERROR_CODE
|
||||
' If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
|
||||
' Return ERROR_CODE.NORIGHT
|
||||
' End If
|
||||
' '"INSERT INTO [dbo].[TABLE1] ([11],[22],[33],[44],[55]) VALUES ('11','2','3','4','5')"
|
||||
' Dim strSql As String = "INSERT INTO " & cst_TABLE_NAME & "("
|
||||
' '加入列名
|
||||
' For i As Integer = 0 To m_COLS_NAME.Length - 1
|
||||
' If i > 0 Then
|
||||
' strSql &= ","
|
||||
' End If
|
||||
' strSql &= "[" & m_COLS_NAME(i) & "]"
|
||||
' Next
|
||||
' strSql &= ") VALUES ("
|
||||
' strSql &= "'" & Password & "'"
|
||||
' strSql &= "," & right
|
||||
' strSql &= "," & EmployeeID
|
||||
' strSql &= ")"
|
||||
|
||||
' If SQL_ExeCommand(strSql) = True Then
|
||||
' Return ERROR_CODE.SUCCESS
|
||||
' End If
|
||||
|
||||
' Return ERROR_CODE.ACCESS
|
||||
'End Function
|
||||
|
||||
'Public Function UpdateItem(ByVal AccountName As String, ByVal Password As String, ByVal right As Integer, ByVal EmployeeID As Integer) As ERROR_CODE
|
||||
' If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
|
||||
' Return ERROR_CODE.NORIGHT
|
||||
' End If
|
||||
|
||||
' Dim strSql As String = "UPDATE " & cst_TABLE_NAME & " SET"
|
||||
' strSql &= " " & m_COLS_NAME(COLS.密码) & "=" & Password
|
||||
' strSql &= ", " & m_COLS_NAME(COLS.权限) & "=" & right
|
||||
' strSql &= ", " & m_COLS_NAME(COLS.员工ID) & "=" & EmployeeID
|
||||
' strSql &= " WHERE "
|
||||
' strSql &= m_COLS_NAME(COLS.帐号) & "=" & AccountName
|
||||
|
||||
' If SQL_ExeCommand(strSql) = True Then
|
||||
' Return ERROR_CODE.SUCCESS
|
||||
' End If
|
||||
|
||||
' Return ERROR_CODE.ACCESS
|
||||
'End Function
|
||||
|
||||
'Public Function DeleteItem(ByVal AccountName As String) As ERROR_CODE
|
||||
' If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
|
||||
' Return ERROR_CODE.NORIGHT
|
||||
' End If
|
||||
|
||||
' Dim strSql As String = "DELETE FROM " & cst_TABLE_NAME & " WHERE "
|
||||
' strSql &= m_COLS_NAME(0) & "=" & AccountName
|
||||
|
||||
' If SQL_ExeCommand(strSql) = True Then
|
||||
' Return ERROR_CODE.SUCCESS
|
||||
' End If
|
||||
|
||||
' Return ERROR_CODE.ACCESS
|
||||
'End Function
|
||||
|
||||
Public Function QueryItem(ByVal AccountName As String, ByRef Password As String, ByRef EmployeeID As Integer, ByRef right() As String) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
'SELECT * FROM `帐号表` WHERE `帐号`='tony'
|
||||
Dim strSql As String = "SELECT * FROM `" & cst_TABLE_NAME & "` WHERE "
|
||||
'strSql &= "`" & m_COLS_NAME(COLS.帐号) & "` COLLATE utf8_general_ci ='" & AccountName & "'"
|
||||
strSql &= "`" & m_COLS_NAME(COLS.帐号) & "` ='" & AccountName & "'"
|
||||
'Dim strSql As String = "SELECT * FROM `帐号表`"
|
||||
|
||||
Dim rTable As New System.Data.DataTable
|
||||
If SQL_Query(COL_RIGHTS.用户管理, strSql, rTable) = True Then
|
||||
Try
|
||||
If rTable.Rows.Count > 0 Then
|
||||
Password = rTable.Rows(0).Item(COLS.密码)
|
||||
EmployeeID = rTable.Rows(0).Item(COLS.员工ID)
|
||||
right(COL_RIGHTS.登录) = rTable.Rows(0).Item(COLS.登录)
|
||||
right(COL_RIGHTS.系统记录) = rTable.Rows(0).Item(COLS.系统记录)
|
||||
right(COL_RIGHTS.用户管理) = rTable.Rows(0).Item(COLS.用户管理)
|
||||
right(COL_RIGHTS.料号管理) = rTable.Rows(0).Item(COLS.料号管理)
|
||||
right(COL_RIGHTS.原料库存管理) = rTable.Rows(0).Item(COLS.原料库存管理)
|
||||
right(COL_RIGHTS.成品库存管理) = rTable.Rows(0).Item(COLS.成品库存管理)
|
||||
right(COL_RIGHTS.BOM管理) = rTable.Rows(0).Item(COLS.BOM管理)
|
||||
right(COL_RIGHTS.供应商管理) = rTable.Rows(0).Item(COLS.供应商管理)
|
||||
right(COL_RIGHTS.ECN管理) = rTable.Rows(0).Item(COLS.ECN管理)
|
||||
right(COL_RIGHTS.公司管理) = rTable.Rows(0).Item(COLS.公司管理)
|
||||
right(COL_RIGHTS.部门管理) = rTable.Rows(0).Item(COLS.部门管理)
|
||||
right(COL_RIGHTS.仓库管理) = rTable.Rows(0).Item(COLS.仓库管理)
|
||||
right(COL_RIGHTS.库位管理) = rTable.Rows(0).Item(COLS.库位管理)
|
||||
right(COL_RIGHTS.财务管理) = rTable.Rows(0).Item(COLS.财务管理)
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
End Class
|
||||
|
||||
|
||||
184
WT-DMS/CBOM.vb
Normal file
184
WT-DMS/CBOM.vb
Normal file
@@ -0,0 +1,184 @@
|
||||
Public Class CBOM
|
||||
Dim m_SQL As New CSQLInterface
|
||||
|
||||
Const cst_TABLE_NAME As String = "BOM"
|
||||
Dim m_COLS_NAME() As String = {
|
||||
"序号",
|
||||
"BOM阶层",
|
||||
"料号PN",
|
||||
"单位",
|
||||
"用量",
|
||||
"使用位置",
|
||||
"使用备注"
|
||||
}
|
||||
|
||||
Private Enum COLS
|
||||
序号
|
||||
BOM阶层
|
||||
料号PN
|
||||
单位
|
||||
用量
|
||||
使用位置
|
||||
使用备注
|
||||
End Enum
|
||||
|
||||
'权限
|
||||
Public Shared AccessRight As Integer = RIGHTS.NONE
|
||||
|
||||
|
||||
Public Sub New()
|
||||
End Sub
|
||||
|
||||
Public Function CreateNew(ByVal BOM_ID As String) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
'"DEFAULT CHARACTER SET gbk COLLATE gbk_chinese_ci " &
|
||||
Dim strSql As String = "CREATE TABLE " & "BOM_" & BOM_ID & " " &
|
||||
"(" &
|
||||
"序号 int(11) NOT NULL UNIQUE PRIMARY KEY AUTO_INCREMENT," &
|
||||
"BOM阶层 int(11) NOT NULL," &
|
||||
"料号PN varchar(16) NOT NULL," &
|
||||
"单位 varchar(20)," &
|
||||
"用量 double NOT NULL DEFAULT 0," &
|
||||
"使用位置 text," &
|
||||
"使用备注 text" &
|
||||
") " &
|
||||
"DEFAULT CHARACTER SET gbk;"
|
||||
|
||||
If SQL_ExeCommand(COL_RIGHTS.BOM管理, strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
''查询指定列的总条数
|
||||
'Public Function QueryColumeItemCount(ByVal BOM_ID As String, ByRef rCount As Long) As Boolean
|
||||
' rCount = 0
|
||||
|
||||
' Dim strSql As String = "SELECT COUNT(" & m_COLS_NAME(0) & ") FROM '" & cst_TABLE_NAME & "-" & BOM_ID & "'"
|
||||
' Dim rTable As New System.Data.DataTable
|
||||
' If SQL_Query(strSql, rTable) = True Then
|
||||
' rCount = rTable.Rows(0).Item(1)
|
||||
' Return ERROR_CODE.SUCCESS
|
||||
' End If
|
||||
|
||||
' Return ERROR_CODE.ACCESS
|
||||
'End Function
|
||||
|
||||
'Public Function AddItem(ByVal BOM阶层 As String, _
|
||||
' ByVal 料号PN As String, _
|
||||
' ByVal 单位 As String, _
|
||||
' ByVal 用量 As Integer, _
|
||||
' ByVal 使用位置 As String, _
|
||||
' ByVal 使用备注 As String) As ERROR_CODE
|
||||
' If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
|
||||
' Return ERROR_CODE.NORIGHT
|
||||
' End If
|
||||
' '"INSERT INTO [dbo].[TABLE1] ([11],[22],[33],[44],[55]) VALUES ('11','2','3','4','5')"
|
||||
' Dim strSql As String = "INSERT INTO " & cst_TABLE_NAME & "("
|
||||
' '加入列名
|
||||
' For i As Integer = 0 To m_COLS_NAME.Length - 1
|
||||
' If i > 0 Then
|
||||
' strSql &= ","
|
||||
' End If
|
||||
' strSql &= "[" & m_COLS_NAME(i) & "]"
|
||||
' Next
|
||||
' strSql &= ") VALUES ("
|
||||
' strSql &= "'" & 入库单PN & "'"
|
||||
' strSql &= "'" & BOM阶层 & "'"
|
||||
' strSql &= "'" & 料号PN & "'"
|
||||
' strSql &= "'" & 单位 & "'"
|
||||
' strSql &= "'" & 用量 & "'"
|
||||
' strSql &= "'" & 使用位置 & "'"
|
||||
' strSql &= "'" & 使用备注 & "'"
|
||||
' strSql &= ")"
|
||||
|
||||
' If SQL_ExeCommand(strSql) = True Then
|
||||
' Return ERROR_CODE.SUCCESS
|
||||
' End If
|
||||
|
||||
' Return ERROR_CODE.ACCESS
|
||||
'End Function
|
||||
|
||||
'Public Function UpdateItem(ByVal 入库单PN As String, _
|
||||
' ByVal 入库日期 As String, _
|
||||
' ByVal 入库时间 As String, _
|
||||
' ByVal 入库数量 As Integer, _
|
||||
' ByVal 单价 As String, _
|
||||
' ByVal 总金额 As String, _
|
||||
' ByVal 操作员ID As String, _
|
||||
' ByVal 料号PN As String, _
|
||||
' ByVal 供应商ID As String) As ERROR_CODE
|
||||
' If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
|
||||
' Return ERROR_CODE.NORIGHT
|
||||
' End If
|
||||
|
||||
' Dim strSql As String = "UPDATE " & cst_TABLE_NAME & " SET"
|
||||
' strSql &= ", " & m_COLS_NAME(COLS.入库日期) & "=" & 入库日期
|
||||
' strSql &= ", " & m_COLS_NAME(COLS.入库时间) & "=" & 入库时间
|
||||
' strSql &= " " & m_COLS_NAME(COLS.入库数量) & "=" & 入库数量
|
||||
' strSql &= ", " & m_COLS_NAME(COLS.单价) & "=" & 单价
|
||||
' strSql &= ", " & m_COLS_NAME(COLS.总金额) & "=" & 总金额
|
||||
' strSql &= ", " & m_COLS_NAME(COLS.操作员ID) & "=" & 操作员ID
|
||||
' strSql &= ", " & m_COLS_NAME(COLS.料号PN) & "=" & 料号PN
|
||||
' strSql &= ", " & m_COLS_NAME(COLS.供应商ID) & "=" & 供应商ID
|
||||
' strSql &= " WHERE "
|
||||
' strSql &= m_COLS_NAME(COLS.入库单PN) & "=" & 入库单PN
|
||||
|
||||
' If SQL_ExeCommand(strSql) = True Then
|
||||
' Return ERROR_CODE.SUCCESS
|
||||
' End If
|
||||
|
||||
' Return ERROR_CODE.ACCESS
|
||||
'End Function
|
||||
|
||||
'Public Function DeleteItem(ByVal 入库单PN As String) As ERROR_CODE
|
||||
' If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
|
||||
' Return ERROR_CODE.NORIGHT
|
||||
' End If
|
||||
|
||||
' Dim strSql As String = "DELETE FROM " & cst_TABLE_NAME & " WHERE "
|
||||
' strSql &= m_COLS_NAME(COLS.入库单PN) & "=" & 入库单PN
|
||||
|
||||
' If SQL_ExeCommand(strSql) = True Then
|
||||
' Return ERROR_CODE.SUCCESS
|
||||
' End If
|
||||
|
||||
' Return ERROR_CODE.ACCESS
|
||||
'End Function
|
||||
|
||||
'Public Function QueryItem(ByVal 入库单PN As String, _
|
||||
' ByRef 入库日期 As String, _
|
||||
' ByRef 入库时间 As String, _
|
||||
' ByRef 入库数量 As Integer, _
|
||||
' ByRef 单价 As String, _
|
||||
' ByRef 总金额 As String, _
|
||||
' ByRef 操作员ID As String, _
|
||||
' ByRef 料号PN As String, _
|
||||
' ByRef 供应商ID As String) As ERROR_CODE
|
||||
' If CBool(m_AccessRight And RIGHTS.READ) = False Then
|
||||
' Return ERROR_CODE.NORIGHT
|
||||
' End If
|
||||
|
||||
' Dim strSql As String = "SELECT * FROM " & cst_TABLE_NAME & " WHERE "
|
||||
' strSql &= m_COLS_NAME(COLS.料号PN) & "=" & 料号PN
|
||||
|
||||
' Dim rTable As New System.Data.DataTable
|
||||
' If SQL_Query(strSql, rTable) = True Then
|
||||
' 入库日期 = rTable.Rows(0).Item(1)
|
||||
' 入库时间 = rTable.Rows(0).Item(2)
|
||||
' 入库数量 = rTable.Rows(0).Item(3)
|
||||
' 单价 = rTable.Rows(0).Item(4)
|
||||
' 总金额 = rTable.Rows(0).Item(5)
|
||||
' 操作员ID = rTable.Rows(0).Item(6)
|
||||
' 料号PN = rTable.Rows(0).Item(7)
|
||||
' 供应商ID = rTable.Rows(0).Item(8)
|
||||
' Return ERROR_CODE.SUCCESS
|
||||
' End If
|
||||
|
||||
' Return ERROR_CODE.ACCESS
|
||||
'End Function
|
||||
End Class
|
||||
36
WT-DMS/CBackupManage.vb
Normal file
36
WT-DMS/CBackupManage.vb
Normal file
@@ -0,0 +1,36 @@
|
||||
Public Class CBackupManage
|
||||
Public Const cst_TABLE_NAME As String = "备份记录表"
|
||||
Public Shared m_COLS_NAME() As String = {
|
||||
"序号",
|
||||
"备份时间"
|
||||
}
|
||||
|
||||
Public Enum COLS
|
||||
序号
|
||||
备份时间
|
||||
End Enum
|
||||
|
||||
'权限
|
||||
Public Shared AccessRight As Integer = RIGHTS.NONE
|
||||
|
||||
Public Sub New()
|
||||
End Sub
|
||||
|
||||
Public Function SetBackupTime(ByVal timeString As String) As Boolean
|
||||
Dim strSql As String = "UPDATE " & cst_TABLE_NAME & " SET " & m_COLS_NAME(COLS.备份时间) & "=" & timeString & " WHERE " & m_COLS_NAME(COLS.序号) & "=" & "1"
|
||||
|
||||
return SQL_ExeCommand(COL_RIGHTS.BOM管理, strSql)
|
||||
End Function
|
||||
|
||||
Public Function GetBackupTime(ByRef timeString As String) As Boolean
|
||||
Dim strSql As String = "SELECT " & m_COLS_NAME(COLS.备份时间) & " FROM " & cst_TABLE_NAME & " WHERE " & m_COLS_NAME(COLS.序号) & "=" & "1"
|
||||
|
||||
Dim r_Table As New DataTable
|
||||
If SQL_Query(COL_RIGHTS.BOM管理, strSql, r_Table) = True Then
|
||||
timeString = r_Table.Rows(0).Item(0)
|
||||
Return True
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
End Class
|
||||
37
WT-DMS/CCompanyManage.vb
Normal file
37
WT-DMS/CCompanyManage.vb
Normal file
@@ -0,0 +1,37 @@
|
||||
Public Class CCompanyManage
|
||||
Dim m_SQL As New CSQLInterface
|
||||
|
||||
Const cst_TABLE_NAME As String = "CompanyManageTable"
|
||||
Dim m_COLS_NAME() As String = {"公司ID", "公司名称", "注册日期", "公司地址"}
|
||||
Private Enum COLS
|
||||
公司ID
|
||||
公司名称
|
||||
注册日期
|
||||
公司地址
|
||||
End Enum
|
||||
|
||||
'权限
|
||||
Public Shared AccessRight As Integer = RIGHTS.NONE
|
||||
|
||||
Public Sub New()
|
||||
End Sub
|
||||
|
||||
Private Function QueryItem(ByVal CopID As String, ByRef CopName As String, ByRef CopDate As String, ByRef CopAddress As String) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSql As String = "SELECT * FROM " & cst_TABLE_NAME & " WHERE "
|
||||
strSql &= m_COLS_NAME(COLS.公司ID) & "=" & CopID
|
||||
|
||||
Dim rTable As New System.Data.DataTable
|
||||
If SQL_Query(COL_RIGHTS.公司管理, strSql, rTable) = True Then
|
||||
CopName = rTable.Rows(0).Item(1)
|
||||
CopDate = rTable.Rows(0).Item(2)
|
||||
CopAddress = rTable.Rows(0).Item(3)
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
End Class
|
||||
38
WT-DMS/CDepartmentManage.vb
Normal file
38
WT-DMS/CDepartmentManage.vb
Normal file
@@ -0,0 +1,38 @@
|
||||
Public Class CDepartmentManage
|
||||
Dim m_SQL As New CSQLInterface
|
||||
|
||||
Const cst_TABLE_NAME As String = "DepartmentManageTable"
|
||||
Dim m_COLS_NAME() As String = {"部门ID", "负责人ID", "部门地址", "联系方式"}
|
||||
Private Enum COLS
|
||||
部门ID
|
||||
负责人ID
|
||||
部门地址
|
||||
联系方式
|
||||
End Enum
|
||||
|
||||
'权限
|
||||
Public Shared AccessRight As Integer = RIGHTS.NONE
|
||||
|
||||
|
||||
Public Sub New()
|
||||
End Sub
|
||||
|
||||
Private Function QueryItem(ByVal departID As String, ByRef HeaderID As Integer, ByRef departAddress As String, ByRef departLink As String) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSql As String = "SELECT * FROM " & cst_TABLE_NAME & " WHERE "
|
||||
strSql &= m_COLS_NAME(COLS.部门ID) & "=" & departID
|
||||
|
||||
Dim rTable As New System.Data.DataTable
|
||||
If SQL_Query(COL_RIGHTS.部门管理, strSql, rTable) = True Then
|
||||
HeaderID = rTable.Rows(0).Item(1)
|
||||
departAddress = rTable.Rows(0).Item(2)
|
||||
departLink = rTable.Rows(0).Item(3)
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
End Class
|
||||
3
WT-DMS/CEmployeeManage.vb
Normal file
3
WT-DMS/CEmployeeManage.vb
Normal file
@@ -0,0 +1,3 @@
|
||||
Public Class CEmployeeManage
|
||||
|
||||
End Class
|
||||
173
WT-DMS/CGirdInfo.vb
Normal file
173
WT-DMS/CGirdInfo.vb
Normal file
@@ -0,0 +1,173 @@
|
||||
Imports System.IO
|
||||
Public Class CGirdInfo
|
||||
Public Shared LoadBusy As Boolean = False
|
||||
|
||||
Public Shared Function SaveGirdInfo(ByVal gridName As String, ByRef grid As FlexCell.Grid) As Boolean
|
||||
If LoadBusy = True Then Return False
|
||||
|
||||
Dim strPath As String = Application.StartupPath & "\GRID"
|
||||
If System.IO.Directory.Exists(strPath) = False Then
|
||||
System.IO.Directory.CreateDirectory(strPath)
|
||||
End If
|
||||
|
||||
If System.IO.Directory.Exists(strPath) = True Then
|
||||
strPath &= "\" & gridName & ".ini"
|
||||
|
||||
Dim fs As New StreamWriter(strPath, False, System.Text.Encoding.Default)
|
||||
'保存列宽
|
||||
For col As Integer = 0 To grid.Cols - 1
|
||||
fs.WriteLine("C" & col & "=" & grid.Column(col).Width)
|
||||
Next
|
||||
'For row As Integer = 0 To grid.Rows - 1
|
||||
' fs.Write("R" & row & "=" & grid.Row(row).Height)
|
||||
'Next
|
||||
fs.Close()
|
||||
End If
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Shared Function LoadGridInfo(ByVal gridName As String, ByRef grid As FlexCell.Grid) As Boolean
|
||||
LoadBusy = True
|
||||
|
||||
Dim strPath As String = Application.StartupPath & "\GRID\" & gridName & ".ini"
|
||||
If System.IO.File.Exists(strPath) = True Then
|
||||
Dim fs As New StreamReader(strPath, System.Text.Encoding.Default)
|
||||
Dim strLine As String = ""
|
||||
Dim strSplit() As String
|
||||
Dim colNum As Integer = 0
|
||||
Dim widthNum As Integer = 0
|
||||
|
||||
While fs.EndOfStream = False
|
||||
strLine = fs.ReadLine()
|
||||
If Not strLine Is Nothing AndAlso strLine.Length > 0 Then
|
||||
strSplit = Split(strLine, "=")
|
||||
If strSplit.Length >= 2 Then
|
||||
Try
|
||||
colNum = Strings.Mid(strSplit(0), 2)
|
||||
widthNum = strSplit(1)
|
||||
grid.Column(colNum).Width = widthNum
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
End While
|
||||
|
||||
fs.Close()
|
||||
End If
|
||||
|
||||
LoadBusy = False
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Shared Function SaveRecentList(ByVal saveName As String, ByRef RecentList As System.Windows.Forms.AutoCompleteStringCollection) As Boolean
|
||||
Dim strPath As String = Application.StartupPath & "\GRID"
|
||||
If System.IO.Directory.Exists(strPath) = False Then
|
||||
System.IO.Directory.CreateDirectory(strPath)
|
||||
End If
|
||||
|
||||
If System.IO.Directory.Exists(strPath) = True Then
|
||||
strPath &= "\" & saveName & ".ini"
|
||||
|
||||
Dim fs As New StreamWriter(strPath, False, System.Text.Encoding.Default)
|
||||
For Each pItem As String In RecentList
|
||||
fs.WriteLine(pItem)
|
||||
Next
|
||||
fs.Close()
|
||||
End If
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Shared Function LoadRecentList(ByVal saveName As String, ByRef RecentList As System.Windows.Forms.AutoCompleteStringCollection) As Boolean
|
||||
RecentList.Clear()
|
||||
|
||||
Dim strPath As String = Application.StartupPath & "\GRID\" & saveName & ".ini"
|
||||
If System.IO.File.Exists(strPath) = True Then
|
||||
Dim fs As New StreamReader(strPath, System.Text.Encoding.Default)
|
||||
Dim strLine As String = ""
|
||||
|
||||
While fs.EndOfStream = False
|
||||
strLine = fs.ReadLine()
|
||||
If Not strLine Is Nothing AndAlso strLine.Length > 0 Then
|
||||
RecentList.Add(strLine)
|
||||
End If
|
||||
End While
|
||||
|
||||
fs.Close()
|
||||
End If
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Shared Function AddToRecentList(ByVal newItem As String, ByRef RecentList As System.Windows.Forms.AutoCompleteStringCollection) As Boolean
|
||||
If newItem Is Nothing OrElse newItem.Length = 0 Then Return False
|
||||
|
||||
Dim upperItem As String = newItem.ToLower
|
||||
Dim isExist As Boolean = False
|
||||
For Each pItem As String In RecentList
|
||||
If upperItem = pItem.ToLower Then
|
||||
isExist = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If isExist = False Then
|
||||
RecentList.Insert(0, newItem)
|
||||
Return True
|
||||
End If
|
||||
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
Public Class SUB_LIST_INFO
|
||||
Public name As String = ""
|
||||
Public list As New System.Windows.Forms.AutoCompleteStringCollection
|
||||
End Class
|
||||
Public Shared Function LoadRecentSubList(ByVal parentName As String, ByRef subList As ArrayList) As Boolean
|
||||
Dim m_ParentList As New System.Windows.Forms.AutoCompleteStringCollection
|
||||
If LoadRecentList(parentName, m_ParentList) = True Then
|
||||
For Each pItem As String In m_ParentList
|
||||
Dim mSubListItem As New SUB_LIST_INFO
|
||||
mSubListItem.name = parentName & "_" & pItem
|
||||
LoadRecentList(mSubListItem.name, mSubListItem.list)
|
||||
subList.Add(mSubListItem)
|
||||
Next
|
||||
End If
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Shared Function SaveRecentSubList(ByRef subList As ArrayList) As Boolean
|
||||
For Each pItem As SUB_LIST_INFO In subList
|
||||
SaveRecentList(pItem.name, pItem.list)
|
||||
Next
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Shared Function AddToRecentSubList(ByVal parentName As String, ByVal subName As String, ByVal addItem As String, ByRef subList As ArrayList) As Boolean
|
||||
Dim addListName As String = parentName & "_" & subName
|
||||
For Each pItem As SUB_LIST_INFO In subList
|
||||
If pItem.name = addListName Then
|
||||
AddToRecentList(addItem, pItem.list)
|
||||
End If
|
||||
Next
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Shared Function GetRecentSubList(ByVal parentName As String, ByVal subName As String, ByRef subList As ArrayList, ByRef RecentList As System.Windows.Forms.AutoCompleteStringCollection) As Boolean
|
||||
Dim subItemName As String = parentName & "_" & subName
|
||||
RecentList = Nothing
|
||||
|
||||
For Each pItem As SUB_LIST_INFO In subList
|
||||
If pItem.name = subItemName Then
|
||||
RecentList = pItem.list
|
||||
End If
|
||||
Next
|
||||
|
||||
Return True
|
||||
End Function
|
||||
End Class
|
||||
132
WT-DMS/CLogManage.vb
Normal file
132
WT-DMS/CLogManage.vb
Normal file
@@ -0,0 +1,132 @@
|
||||
Public Class CLogManage
|
||||
'Dim m_SQL As New CMSQL_Interface
|
||||
|
||||
Public Const cst_TABLE_NAME As String = "系统记录表"
|
||||
Public Shared m_COLS_NAME() As String = {
|
||||
"序号",
|
||||
"日期",
|
||||
"时间",
|
||||
"操作对象",
|
||||
"操作内容",
|
||||
"帐号",
|
||||
"PC名称",
|
||||
"IP地址"}
|
||||
Public Enum COLS
|
||||
序号
|
||||
日期
|
||||
时间
|
||||
操作对象
|
||||
操作内容
|
||||
帐号
|
||||
PC名称
|
||||
IP地址
|
||||
End Enum
|
||||
|
||||
'权限
|
||||
Public Shared AccessRight As Integer = RIGHTS.NONE
|
||||
|
||||
Public Sub New()
|
||||
End Sub
|
||||
|
||||
Public Function AddItem(ByVal 操作对象 As String,
|
||||
ByVal 操作内容 As String,
|
||||
ByVal 帐号 As String
|
||||
) As ERROR_CODE
|
||||
'If CBool(AccessRight And RIGHTS.WRITE) = False Then
|
||||
' Return ERROR_CODE.NORIGHT
|
||||
'End If
|
||||
|
||||
Dim 时间 As Date = Now
|
||||
Dim PC名称 As String = My.Computer.Name
|
||||
Dim IP地址 As String = GetLocalIPAddress()
|
||||
|
||||
Dim strSql As String = "INSERT INTO `" & cst_TABLE_NAME & "`("
|
||||
'加入列名
|
||||
For i As Integer = 1 To m_COLS_NAME.Length - 1
|
||||
If i > 1 Then
|
||||
strSql &= ","
|
||||
End If
|
||||
strSql &= "`" & m_COLS_NAME(i) & "`"
|
||||
Next
|
||||
strSql &= ") VALUES ("
|
||||
strSql &= "'" & 时间.ToString("yyyy-MM-dd") & "'"
|
||||
strSql &= ",'" & 时间.ToString("HH:mm:ss") & "'"
|
||||
strSql &= $",'{操作对象}'" '", @objName"
|
||||
strSql &= $",'{操作内容}'" '", @objContent"
|
||||
strSql &= ",'" & 帐号 & "'"
|
||||
strSql &= ",'" & PC名称 & "'"
|
||||
strSql &= ",'" & IP地址 & "'"
|
||||
strSql &= ")"
|
||||
|
||||
Dim paramName() As String = {操作对象, 操作内容}
|
||||
Dim paramValue() As Object = {操作对象, 操作内容}
|
||||
If m_SQL.ExeCommandWithParamters(strSql, paramName, paramValue) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
'Public Function DeleteItem(ByVal index As Long) As ERROR_CODE
|
||||
' 'If CBool(AccessRight And RIGHTS.WRITE) = False Then
|
||||
' ' Return ERROR_CODE.NORIGHT
|
||||
' 'End If
|
||||
|
||||
' Dim strSql As String = "DELETE FROM " & cst_TABLE_NAME & " WHERE "
|
||||
' strSql &= m_COLS_NAME(COLS.序号) & "=" & index
|
||||
|
||||
' If m_SQL.ExeCommand(strSql) = True Then
|
||||
' Return ERROR_CODE.SUCCESS
|
||||
' End If
|
||||
|
||||
' Return ERROR_CODE.ACCESS
|
||||
'End Function
|
||||
|
||||
'Public Function QueryItem(ByVal index As Long,
|
||||
' ByRef 时间 As Date,
|
||||
' ByRef 操作对象 As String,
|
||||
' ByRef 操作内容 As String,
|
||||
' ByRef 帐号 As String,
|
||||
' ByRef PC名称 As String,
|
||||
' ByRef IP地址 As String) As ERROR_CODE
|
||||
' 'If CBool(AccessRight And RIGHTS.READ) = False Then
|
||||
' ' Return ERROR_CODE.NORIGHT
|
||||
' 'End If
|
||||
|
||||
' Dim strSql As String = "SELECT * FROM " & cst_TABLE_NAME & " WHERE "
|
||||
' strSql &= m_COLS_NAME(COLS.序号) & "=" & index
|
||||
|
||||
' Dim rValue(0) As Object
|
||||
' If m_SQL.DataReader(strSql, rValue) = True Then
|
||||
' 时间 = rValue(COLS.时间)
|
||||
' 操作对象 = rValue(COLS.操作对象)
|
||||
' 操作内容 = rValue(COLS.操作内容)
|
||||
' 帐号 = rValue(COLS.帐号)
|
||||
' PC名称 = rValue(COLS.PC名称)
|
||||
' IP地址 = rValue(COLS.IP地址)
|
||||
' Return ERROR_CODE.SUCCESS
|
||||
' End If
|
||||
|
||||
' Return ERROR_CODE.ACCESS
|
||||
'End Function
|
||||
|
||||
Public Function GetLogCounts(ByRef Count As Long) As Boolean
|
||||
'If CBool(AccessRight And RIGHTS.READ) = False Then
|
||||
' Return ERROR_CODE.NORIGHT
|
||||
'End If
|
||||
|
||||
'SELECT COUNT(22) FROM [TABLE1]
|
||||
Dim strSql As String = "SELECT COUNT(" & m_COLS_NAME(COLS.序号) & ") FROM " & cst_TABLE_NAME
|
||||
|
||||
Dim rTable As New System.Data.DataTable
|
||||
If m_SQL.Query(strSql, rTable) = True Then
|
||||
Try
|
||||
Count = rTable.Rows(0).Item(0)
|
||||
Return ERROR_CODE.SUCCESS
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
End Class
|
||||
208
WT-DMS/CMSQL_Interface.vb
Normal file
208
WT-DMS/CMSQL_Interface.vb
Normal file
@@ -0,0 +1,208 @@
|
||||
Imports MySql.Data.MySqlClient
|
||||
Public Class CMSQL_Interface
|
||||
Dim m_SqlConn As MySqlConnection = Nothing
|
||||
Dim m_SqlAdapter As MySqlDataAdapter
|
||||
Dim m_DTable As New DataTable
|
||||
Dim m_BaseName As String = ""
|
||||
Public Function ConnectionSetting(ByVal strHostIp As String, ByVal DataBaseName As String, ByVal user As String, ByVal password As String) As Boolean
|
||||
If m_SqlConn Is Nothing Then
|
||||
m_SqlConn = New MySqlConnection
|
||||
Else
|
||||
m_SqlConn.Close()
|
||||
End If
|
||||
|
||||
Dim str As String = "server=" & strHostIp & ";database=" & DataBaseName & ";uid=" & user & ";pwd=" & password & ";SslMode=none;CharSet=utf8mb4;PORT=3307"
|
||||
m_SqlConn.ConnectionString = str
|
||||
|
||||
m_BaseName = DataBaseName
|
||||
Return (True)
|
||||
End Function
|
||||
|
||||
Public Function Query(ByVal strQuery As String, ByRef r_Table As DataTable) As Boolean
|
||||
Dim Result As Boolean = False
|
||||
Try
|
||||
m_SqlConn.Open()
|
||||
m_SqlAdapter = New MySqlDataAdapter(strQuery, m_SqlConn)
|
||||
r_Table.Clear()
|
||||
m_SqlAdapter.Fill(r_Table)
|
||||
|
||||
Result = True
|
||||
Catch ex As Exception
|
||||
Dim msg = ex.Message
|
||||
End Try
|
||||
|
||||
Try
|
||||
m_SqlConn.Close()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Return Result
|
||||
End Function
|
||||
|
||||
Public Function Update(ByRef upTable As DataTable) As Boolean
|
||||
Dim Result As Boolean = True
|
||||
Dim myCommandBuilder As New MySql.Data.MySqlClient.MySqlCommandBuilder(m_SqlAdapter)
|
||||
|
||||
m_SqlAdapter.DeleteCommand = myCommandBuilder.GetDeleteCommand
|
||||
m_SqlAdapter.UpdateCommand = myCommandBuilder.GetUpdateCommand
|
||||
m_SqlAdapter.InsertCommand = myCommandBuilder.GetInsertCommand
|
||||
|
||||
Try
|
||||
m_SqlAdapter.Update(upTable)
|
||||
Catch ex As Exception
|
||||
Result = False
|
||||
End Try
|
||||
myCommandBuilder.Dispose()
|
||||
|
||||
Return Result
|
||||
End Function
|
||||
|
||||
'Public Function Query(ByVal strQuery As String, ByVal colName As String, ByRef r_DataSet As DataSet) As Boolean
|
||||
' Dim Result As Boolean = False
|
||||
' Try
|
||||
' m_SqlConn.Open()
|
||||
' Dim daAdapter As MySqlDataAdapter = New MySqlDataAdapter(strQuery, m_SqlConn)
|
||||
' daAdapter.Fill(r_DataSet, colName)
|
||||
|
||||
' Result = True
|
||||
' Catch ex As Exception
|
||||
' End Try
|
||||
|
||||
' Try
|
||||
' m_SqlConn.Close()
|
||||
' Catch ex As Exception
|
||||
' End Try
|
||||
|
||||
' Return Result
|
||||
'End Function
|
||||
|
||||
Public Function ExeCommand(ByVal strExe As String) As Boolean
|
||||
Dim Result As Boolean = False
|
||||
Dim myCommand As MySqlCommand = Nothing
|
||||
Try
|
||||
m_SqlConn.Open()
|
||||
myCommand = New MySqlCommand(strExe, m_SqlConn)
|
||||
myCommand.ExecuteNonQuery()
|
||||
Result = True
|
||||
Catch ex As Exception
|
||||
Dim msg = ex.Message
|
||||
End Try
|
||||
|
||||
Try
|
||||
myCommand.Dispose()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
Try
|
||||
m_SqlConn.Close()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Return Result
|
||||
End Function
|
||||
|
||||
|
||||
Public Function ExeCommandWithParamters(ByVal strExe As String, ByRef ParamName() As String, ByRef ParamValue() As Object) As Boolean
|
||||
Dim Result As Boolean = False
|
||||
Dim myCommand As MySqlCommand = Nothing
|
||||
Try
|
||||
m_SqlConn.Open()
|
||||
myCommand = New MySqlCommand(strExe, m_SqlConn)
|
||||
For i As Integer = 0 To ParamName.Length - 1
|
||||
myCommand.Parameters.AddWithValue(ParamName(i), ParamValue(i))
|
||||
Next
|
||||
|
||||
myCommand.ExecuteNonQuery()
|
||||
Result = True
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Try
|
||||
myCommand.Dispose()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
Try
|
||||
m_SqlConn.Close()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Return Result
|
||||
End Function
|
||||
|
||||
Public Function DataReader(ByVal strSelect As String, ByRef valueTable() As Object) As Boolean
|
||||
Dim Result As Boolean = False
|
||||
Dim myCommand As MySqlCommand = Nothing
|
||||
Try
|
||||
m_SqlConn.Open()
|
||||
myCommand = New MySqlCommand(strSelect, m_SqlConn)
|
||||
Dim rData As MySql.Data.MySqlClient.MySqlDataReader
|
||||
rData = myCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
|
||||
rData.Read()
|
||||
|
||||
Dim objArray(rData.FieldCount - 1) As Object
|
||||
For i As Integer = 0 To rData.FieldCount - 1
|
||||
objArray(i) = rData.Item(i)
|
||||
Next
|
||||
|
||||
valueTable = objArray
|
||||
|
||||
Result = True
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Try
|
||||
myCommand.Dispose()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
Try
|
||||
m_SqlConn.Close()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Return Result
|
||||
End Function
|
||||
|
||||
Public Function TransactionExeCommand(ByVal strExe As String) As String
|
||||
Dim Result As String = ""
|
||||
Dim myCommand As MySqlCommand = Nothing
|
||||
Try
|
||||
m_SqlConn.Open()
|
||||
myCommand = New MySqlCommand(strExe, m_SqlConn)
|
||||
myCommand.ExecuteNonQuery()
|
||||
'myCommand.Transaction.Commit()
|
||||
'Result = True
|
||||
Catch ex As Exception
|
||||
Try
|
||||
myCommand.Transaction.Rollback()
|
||||
myCommand.Dispose()
|
||||
m_SqlConn.Close()
|
||||
Catch ex1 As Exception
|
||||
|
||||
End Try
|
||||
|
||||
Result = ex.Message
|
||||
Return Result
|
||||
End Try
|
||||
|
||||
Try
|
||||
myCommand.Dispose()
|
||||
m_SqlConn.Close()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
|
||||
Return Result
|
||||
End Function
|
||||
|
||||
|
||||
'Public Function Insert(ByVal strInsert As String) As Boolean
|
||||
' Return ExeCommand(strInsert)
|
||||
'End Function
|
||||
|
||||
'Public Function Update(ByVal strUpdate As String) As Boolean
|
||||
' Return ExeCommand(strUpdate)
|
||||
'End Function
|
||||
|
||||
'Public Function Delete(ByVal strDelete As String) As Boolean
|
||||
' Return ExeCommand(strDelete)
|
||||
'End Function
|
||||
End Class
|
||||
161
WT-DMS/CMaterialIn.vb
Normal file
161
WT-DMS/CMaterialIn.vb
Normal file
@@ -0,0 +1,161 @@
|
||||
Public Class CMaterialIn
|
||||
Dim m_SQL As New CSQLInterface
|
||||
|
||||
Const cst_TABLE_NAME As String = "MaterialInTable"
|
||||
Dim m_COLS_NAME() As String = {
|
||||
"入库单PN",
|
||||
"入库日期",
|
||||
"入库时间",
|
||||
"入库数量",
|
||||
"单价",
|
||||
"总金额",
|
||||
"操作员ID",
|
||||
"料号PN",
|
||||
"供应商ID"}
|
||||
|
||||
Private Enum COLS
|
||||
入库单PN
|
||||
入库日期
|
||||
入库时间
|
||||
入库数量
|
||||
单价
|
||||
总金额
|
||||
操作员ID
|
||||
料号PN
|
||||
供应商ID
|
||||
End Enum
|
||||
|
||||
'权限
|
||||
Private m_AccessRight As Integer = RIGHTS.NONE
|
||||
Public Property AccessRight() As Integer
|
||||
Get
|
||||
Return m_AccessRight
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
m_AccessRight = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Sub New()
|
||||
End Sub
|
||||
|
||||
Public Function AddItem(ByVal 入库单PN As String, _
|
||||
ByVal 入库日期 As String, _
|
||||
ByVal 入库时间 As String, _
|
||||
ByVal 入库数量 As Integer, _
|
||||
ByVal 单价 As String, _
|
||||
ByVal 总金额 As String, _
|
||||
ByVal 操作员ID As String, _
|
||||
ByVal 料号PN As String, _
|
||||
ByVal 供应商ID As String) As ERROR_CODE
|
||||
If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
'"INSERT INTO [dbo].[TABLE1] ([11],[22],[33],[44],[55]) VALUES ('11','2','3','4','5')"
|
||||
Dim strSql As String = "INSERT INTO " & cst_TABLE_NAME & "("
|
||||
'加入列名
|
||||
For i As Integer = 0 To m_COLS_NAME.Length - 1
|
||||
If i > 0 Then
|
||||
strSql &= ","
|
||||
End If
|
||||
strSql &= "[" & m_COLS_NAME(i) & "]"
|
||||
Next
|
||||
strSql &= ") VALUES ("
|
||||
strSql &= "'" & 入库单PN & "'"
|
||||
strSql &= "'" & 入库日期 & "'"
|
||||
strSql &= "'" & 入库时间 & "'"
|
||||
strSql &= "'" & 入库数量 & "'"
|
||||
strSql &= "'" & 单价 & "'"
|
||||
strSql &= "'" & 总金额 & "'"
|
||||
strSql &= "'" & 操作员ID & "'"
|
||||
strSql &= "'" & 料号PN & "'"
|
||||
strSql &= "'" & 供应商ID & "'"
|
||||
strSql &= ")"
|
||||
|
||||
If SQL_ExeCommand(strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function UpdateItem(ByVal 入库单PN As String, _
|
||||
ByVal 入库日期 As String, _
|
||||
ByVal 入库时间 As String, _
|
||||
ByVal 入库数量 As Integer, _
|
||||
ByVal 单价 As String, _
|
||||
ByVal 总金额 As String, _
|
||||
ByVal 操作员ID As String, _
|
||||
ByVal 料号PN As String, _
|
||||
ByVal 供应商ID As String) As ERROR_CODE
|
||||
If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSql As String = "UPDATE " & cst_TABLE_NAME & " SET"
|
||||
strSql &= ", " & m_COLS_NAME(COLS.入库日期) & "=" & 入库日期
|
||||
strSql &= ", " & m_COLS_NAME(COLS.入库时间) & "=" & 入库时间
|
||||
strSql &= " " & m_COLS_NAME(COLS.入库数量) & "=" & 入库数量
|
||||
strSql &= ", " & m_COLS_NAME(COLS.单价) & "=" & 单价
|
||||
strSql &= ", " & m_COLS_NAME(COLS.总金额) & "=" & 总金额
|
||||
strSql &= ", " & m_COLS_NAME(COLS.操作员ID) & "=" & 操作员ID
|
||||
strSql &= ", " & m_COLS_NAME(COLS.料号PN) & "=" & 料号PN
|
||||
strSql &= ", " & m_COLS_NAME(COLS.供应商ID) & "=" & 供应商ID
|
||||
strSql &= " WHERE "
|
||||
strSql &= m_COLS_NAME(COLS.入库单PN) & "=" & 入库单PN
|
||||
|
||||
If SQL_ExeCommand(strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function DeleteItem(ByVal 入库单PN As String) As ERROR_CODE
|
||||
If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSql As String = "DELETE FROM " & cst_TABLE_NAME & " WHERE "
|
||||
strSql &= m_COLS_NAME(COLS.入库单PN) & "=" & 入库单PN
|
||||
|
||||
If SQL_ExeCommand(strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function QueryItem(ByVal 入库单PN As String, _
|
||||
ByRef 入库日期 As String, _
|
||||
ByRef 入库时间 As String, _
|
||||
ByRef 入库数量 As Integer, _
|
||||
ByRef 单价 As String, _
|
||||
ByRef 总金额 As String, _
|
||||
ByRef 操作员ID As String, _
|
||||
ByRef 料号PN As String, _
|
||||
ByRef 供应商ID As String) As ERROR_CODE
|
||||
If CBool(m_AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSql As String = "SELECT * FROM " & cst_TABLE_NAME & " WHERE "
|
||||
strSql &= m_COLS_NAME(COLS.料号PN) & "=" & 料号PN
|
||||
|
||||
Dim rTable As New System.Data.DataTable
|
||||
If SQL_Query(strSql, rTable) = True Then
|
||||
入库日期 = rTable.Rows(0).Item(1)
|
||||
入库时间 = rTable.Rows(0).Item(2)
|
||||
入库数量 = rTable.Rows(0).Item(3)
|
||||
单价 = rTable.Rows(0).Item(4)
|
||||
总金额 = rTable.Rows(0).Item(5)
|
||||
操作员ID = rTable.Rows(0).Item(6)
|
||||
料号PN = rTable.Rows(0).Item(7)
|
||||
供应商ID = rTable.Rows(0).Item(8)
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
End Class
|
||||
132
WT-DMS/CMaterialInOut.vb
Normal file
132
WT-DMS/CMaterialInOut.vb
Normal file
@@ -0,0 +1,132 @@
|
||||
Public Class CMaterialInOut
|
||||
Dim m_SQL As New CSQLInterface
|
||||
Public Shared cst_TABLE_NAME As String = "原料库存表"
|
||||
|
||||
'=====================新增库位库存
|
||||
Public Shared m_COLS_NAME() As String = {
|
||||
"序号",
|
||||
"入库出库",
|
||||
"料号PN",
|
||||
"订单号",
|
||||
"日期",
|
||||
"时间",
|
||||
"数量",
|
||||
"操作员ID",
|
||||
"仓库",
|
||||
"库位",
|
||||
"用途",
|
||||
"库位库存"}
|
||||
|
||||
Public Enum COLS
|
||||
序号
|
||||
入库出库
|
||||
料号PN
|
||||
订单号
|
||||
日期
|
||||
时间
|
||||
数量
|
||||
操作员ID
|
||||
仓库
|
||||
库位
|
||||
用途
|
||||
库位库存
|
||||
max
|
||||
End Enum
|
||||
|
||||
'入库或者出库标志
|
||||
Private IsOutStore As Boolean = False
|
||||
Public Property OutStore() As Boolean
|
||||
Get
|
||||
Return IsOutStore
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
IsOutStore = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'权限
|
||||
Public Shared AccessRight As Integer = RIGHTS.NONE
|
||||
|
||||
|
||||
Public Sub New()
|
||||
IsOutStore = False
|
||||
End Sub
|
||||
|
||||
Public Function AddItem(ByVal 入库出库 As Boolean,
|
||||
ByVal 料号PN As String,
|
||||
ByVal 订单号 As String,
|
||||
ByVal 日期 As String,
|
||||
ByVal 时间 As String,
|
||||
ByVal 数量 As Integer,
|
||||
ByVal 操作员ID As String,
|
||||
ByVal 仓库 As String,
|
||||
ByVal 库位 As String,
|
||||
ByVal 用途 As String,
|
||||
ByVal 库位库存 As Integer
|
||||
) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
'"INSERT INTO [dbo].[TABLE1] ([11],[22],[33],[44],[55]) VALUES ('11','2','3','4','5')"
|
||||
Dim strSql As String = "INSERT INTO `" & cst_TABLE_NAME & "` ("
|
||||
'加入列名
|
||||
Dim isFirst As Boolean = True
|
||||
For i As Integer = COLS.入库出库 To m_COLS_NAME.Length - 1
|
||||
If isFirst = True Then
|
||||
isFirst = False
|
||||
Else
|
||||
strSql &= ","
|
||||
End If
|
||||
strSql &= "`" & m_COLS_NAME(i) & "`"
|
||||
Next
|
||||
strSql &= ") VALUES ("
|
||||
strSql &= "'" & IIf(入库出库, 1, 0) & "',"
|
||||
strSql &= "'" & 料号PN & "',"
|
||||
strSql &= "'" & 订单号 & "',"
|
||||
strSql &= "'" & 日期 & "',"
|
||||
strSql &= "'" & 时间 & "',"
|
||||
strSql &= "'" & 数量 & "',"
|
||||
strSql &= "'" & 操作员ID & "',"
|
||||
strSql &= "'" & 仓库 & "',"
|
||||
strSql &= "'" & 库位 & "',"
|
||||
strSql &= "'" & 用途 & "',"
|
||||
strSql &= "'" & 库位库存 & "'"
|
||||
strSql &= ")"
|
||||
|
||||
If SQL_ExeCommand(COL_RIGHTS.原料库存管理, strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function QueryInformation(ByRef Count As Integer, ByRef minIndex As Integer, ByRef maxIndex As Integer
|
||||
) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSQL As String = "SELECT " &
|
||||
"COUNT(`" & m_COLS_NAME(COLS.序号) & "`), " &
|
||||
"MIN(`" & m_COLS_NAME(COLS.序号) & "`), " &
|
||||
"MAX(`" & m_COLS_NAME(COLS.序号) & "`) " &
|
||||
" FROM `" & cst_TABLE_NAME & "`"
|
||||
|
||||
Dim rValueTable(0) As Object
|
||||
If SQL_DataReader(COL_RIGHTS.原料库存管理, strSQL, rValueTable) = True Then
|
||||
Try
|
||||
Count = rValueTable(0)
|
||||
minIndex = rValueTable(1)
|
||||
maxIndex = rValueTable(2)
|
||||
Return ERROR_CODE.SUCCESS
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
158
WT-DMS/CMaterialManage.vb
Normal file
158
WT-DMS/CMaterialManage.vb
Normal file
@@ -0,0 +1,158 @@
|
||||
Public Class CMaterialManage
|
||||
Dim m_SQL As New CSQLInterface
|
||||
|
||||
Const cst_TABLE_NAME As String = "MaterialManageTable"
|
||||
Dim m_COLS_NAME() As String = {"料号PN", "仓库ID", "库位ID", "数量", "物料名称", "规格描述", "单位", "单重", "供应商ID", "图片"}
|
||||
Private Enum COLS
|
||||
料号PN
|
||||
仓库ID
|
||||
库位ID
|
||||
数量
|
||||
物料名称
|
||||
规格描述
|
||||
单位
|
||||
单重
|
||||
供应商ID
|
||||
图片ID
|
||||
End Enum
|
||||
|
||||
'权限
|
||||
Private m_AccessRight As Integer = RIGHTS.NONE
|
||||
Public Property AccessRight() As Integer
|
||||
Get
|
||||
Return m_AccessRight
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
m_AccessRight = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Sub New()
|
||||
End Sub
|
||||
|
||||
Public Function AddItem(ByVal 料号PN As String, _
|
||||
ByVal 仓库ID As String, _
|
||||
ByVal 库位ID As String, _
|
||||
ByVal 数量 As Integer, _
|
||||
ByVal 物料名称 As String, _
|
||||
ByVal 规格描述 As String, _
|
||||
ByVal 单位 As String, _
|
||||
ByVal 单重 As String, _
|
||||
ByVal 供应商ID As String, _
|
||||
ByVal 图片ID As String) As ERROR_CODE
|
||||
If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
'"INSERT INTO [dbo].[TABLE1] ([11],[22],[33],[44],[55]) VALUES ('11','2','3','4','5')"
|
||||
Dim strSql As String = "INSERT INTO " & cst_TABLE_NAME & "("
|
||||
'加入列名
|
||||
For i As Integer = 0 To m_COLS_NAME.Length - 1
|
||||
If i > 0 Then
|
||||
strSql &= ","
|
||||
End If
|
||||
strSql &= "[" & m_COLS_NAME(i) & "]"
|
||||
Next
|
||||
strSql &= ") VALUES ("
|
||||
strSql &= "'" & 料号PN & "'"
|
||||
strSql &= "'" & 仓库ID & "'"
|
||||
strSql &= "'" & 库位ID & "'"
|
||||
strSql &= "'" & 数量 & "'"
|
||||
strSql &= "'" & 物料名称 & "'"
|
||||
strSql &= "'" & 规格描述 & "'"
|
||||
strSql &= "'" & 单位 & "'"
|
||||
strSql &= "'" & 单重 & "'"
|
||||
strSql &= "'" & 供应商ID & "'"
|
||||
strSql &= "'" & 图片ID & "'"
|
||||
strSql &= ")"
|
||||
|
||||
If SQL_ExeCommand(strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function UpdateItem(ByVal 料号PN As String, _
|
||||
ByVal 仓库ID As String, _
|
||||
ByVal 库位ID As String, _
|
||||
ByVal 数量 As Integer, _
|
||||
ByVal 物料名称 As String, _
|
||||
ByVal 规格描述 As String, _
|
||||
ByVal 单位 As String, _
|
||||
ByVal 单重 As String, _
|
||||
ByVal 供应商ID As String, _
|
||||
ByVal 图片ID As String) As ERROR_CODE
|
||||
If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSql As String = "UPDATE " & cst_TABLE_NAME & " SET"
|
||||
strSql &= " " & m_COLS_NAME(COLS.仓库ID) & "=" & 仓库ID
|
||||
strSql &= ", " & m_COLS_NAME(COLS.库位ID) & "=" & 库位ID
|
||||
strSql &= ", " & m_COLS_NAME(COLS.数量) & "=" & 数量
|
||||
strSql &= ", " & m_COLS_NAME(COLS.物料名称) & "=" & 物料名称
|
||||
strSql &= ", " & m_COLS_NAME(COLS.规格描述) & "=" & 规格描述
|
||||
strSql &= ", " & m_COLS_NAME(COLS.单位) & "=" & 单位
|
||||
strSql &= ", " & m_COLS_NAME(COLS.单重) & "=" & 单重
|
||||
strSql &= ", " & m_COLS_NAME(COLS.供应商ID) & "=" & 供应商ID
|
||||
strSql &= ", " & m_COLS_NAME(COLS.图片ID) & "=" & 图片ID
|
||||
strSql &= " WHERE "
|
||||
strSql &= m_COLS_NAME(COLS.料号PN) & "=" & 料号PN
|
||||
|
||||
If SQL_ExeCommand(strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function DeleteItem(ByVal 料号PN As String) As ERROR_CODE
|
||||
If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSql As String = "DELETE FROM " & cst_TABLE_NAME & " WHERE "
|
||||
strSql &= m_COLS_NAME(COLS.料号PN) & "=" & 料号PN
|
||||
|
||||
If SQL_ExeCommand(strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function QueryItem(ByVal 料号PN As String, _
|
||||
ByRef 仓库ID As String, _
|
||||
ByRef 库位ID As String, _
|
||||
ByRef 数量 As Integer, _
|
||||
ByRef 物料名称 As String, _
|
||||
ByRef 规格描述 As String, _
|
||||
ByRef 单位 As String, _
|
||||
ByRef 单重 As String, _
|
||||
ByRef 供应商ID As String, _
|
||||
ByRef 图片ID As String) As ERROR_CODE
|
||||
If CBool(m_AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSql As String = "SELECT * FROM " & cst_TABLE_NAME & " WHERE "
|
||||
strSql &= m_COLS_NAME(COLS.料号PN) & "=" & 料号PN
|
||||
|
||||
Dim rTable As New System.Data.DataTable
|
||||
If SQL_Query(strSql, rTable) = True Then
|
||||
仓库ID = rTable.Rows(0).Item(1)
|
||||
库位ID = rTable.Rows(0).Item(2)
|
||||
数量 = rTable.Rows(0).Item(3)
|
||||
物料名称 = rTable.Rows(0).Item(4)
|
||||
规格描述 = rTable.Rows(0).Item(5)
|
||||
单位 = rTable.Rows(0).Item(6)
|
||||
单重 = rTable.Rows(0).Item(7)
|
||||
供应商ID = rTable.Rows(0).Item(8)
|
||||
图片ID = rTable.Rows(0).Item(9)
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
End Class
|
||||
162
WT-DMS/CMaterialOut.vb
Normal file
162
WT-DMS/CMaterialOut.vb
Normal file
@@ -0,0 +1,162 @@
|
||||
Public Class CMaterialOut
|
||||
Dim m_SQL As New CSQLInterface
|
||||
|
||||
Const cst_TABLE_NAME As String = "MaterialOutTable"
|
||||
Dim m_COLS_NAME() As String = {
|
||||
"出库单PN",
|
||||
"出库日期",
|
||||
"出库时间",
|
||||
"出库数量",
|
||||
"单价",
|
||||
"总金额",
|
||||
"操作员ID",
|
||||
"料号PN",
|
||||
"供应商ID"}
|
||||
|
||||
Private Enum COLS
|
||||
出库单PN
|
||||
出库日期
|
||||
出库时间
|
||||
出库数量
|
||||
单价
|
||||
总金额
|
||||
操作员ID
|
||||
料号PN
|
||||
供应商ID
|
||||
End Enum
|
||||
|
||||
'权限
|
||||
Private m_AccessRight As Integer = RIGHTS.NONE
|
||||
Public Property AccessRight() As Integer
|
||||
Get
|
||||
Return m_AccessRight
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
m_AccessRight = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Sub New()
|
||||
End Sub
|
||||
|
||||
Public Function AddItem(ByVal 出库单PN As String, _
|
||||
ByVal 出库日期 As String, _
|
||||
ByVal 出库时间 As String, _
|
||||
ByVal 出库数量 As Integer, _
|
||||
ByVal 单价 As String, _
|
||||
ByVal 总金额 As String, _
|
||||
ByVal 操作员ID As String, _
|
||||
ByVal 料号PN As String, _
|
||||
ByVal 供应商ID As String) As ERROR_CODE
|
||||
If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
'"INSERT INTO [dbo].[TABLE1] ([11],[22],[33],[44],[55]) VALUES ('11','2','3','4','5')"
|
||||
Dim strSql As String = "INSERT INTO " & cst_TABLE_NAME & "("
|
||||
'加入列名
|
||||
For i As Integer = 0 To m_COLS_NAME.Length - 1
|
||||
If i > 0 Then
|
||||
strSql &= ","
|
||||
End If
|
||||
strSql &= "[" & m_COLS_NAME(i) & "]"
|
||||
Next
|
||||
strSql &= ") VALUES ("
|
||||
strSql &= "'" & 出库单PN & "'"
|
||||
strSql &= "'" & 出库日期 & "'"
|
||||
strSql &= "'" & 出库时间 & "'"
|
||||
strSql &= "'" & 出库数量 & "'"
|
||||
strSql &= "'" & 单价 & "'"
|
||||
strSql &= "'" & 总金额 & "'"
|
||||
strSql &= "'" & 操作员ID & "'"
|
||||
strSql &= "'" & 料号PN & "'"
|
||||
strSql &= "'" & 供应商ID & "'"
|
||||
strSql &= ")"
|
||||
|
||||
If SQL_ExeCommand(strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function UpdateItem(ByVal 出库单PN As String, _
|
||||
ByVal 出库日期 As String, _
|
||||
ByVal 出库时间 As String, _
|
||||
ByVal 出库数量 As Integer, _
|
||||
ByVal 单价 As String, _
|
||||
ByVal 总金额 As String, _
|
||||
ByVal 操作员ID As String, _
|
||||
ByVal 料号PN As String, _
|
||||
ByVal 供应商ID As String) As ERROR_CODE
|
||||
If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSql As String = "UPDATE " & cst_TABLE_NAME & " SET"
|
||||
strSql &= " " & m_COLS_NAME(COLS.出库日期) & "=" & 出库日期
|
||||
strSql &= ", " & m_COLS_NAME(COLS.出库时间) & "=" & 出库时间
|
||||
strSql &= ", " & m_COLS_NAME(COLS.出库数量) & "=" & 出库数量
|
||||
strSql &= ", " & m_COLS_NAME(COLS.单价) & "=" & 单价
|
||||
strSql &= ", " & m_COLS_NAME(COLS.总金额) & "=" & 总金额
|
||||
strSql &= ", " & m_COLS_NAME(COLS.操作员ID) & "=" & 操作员ID
|
||||
strSql &= ", " & m_COLS_NAME(COLS.料号PN) & "=" & 料号PN
|
||||
strSql &= ", " & m_COLS_NAME(COLS.供应商ID) & "=" & 供应商ID
|
||||
strSql &= " WHERE "
|
||||
strSql &= m_COLS_NAME(COLS.出库单PN) & "=" & 出库单PN
|
||||
|
||||
If SQL_ExeCommand(strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function DeleteItem(ByVal 出库单PN As String) As ERROR_CODE
|
||||
If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSql As String = "DELETE FROM " & cst_TABLE_NAME & " WHERE "
|
||||
strSql &= m_COLS_NAME(COLS.出库单PN) & "=" & 出库单PN
|
||||
|
||||
If SQL_ExeCommand(strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function QueryItem(ByVal 出库单PN As String, _
|
||||
ByVal 出库日期 As String, _
|
||||
ByVal 出库时间 As String, _
|
||||
ByVal 出库数量 As Integer, _
|
||||
ByVal 单价 As String, _
|
||||
ByVal 总金额 As String, _
|
||||
ByVal 操作员ID As String, _
|
||||
ByVal 料号PN As String, _
|
||||
ByVal 供应商ID As String) As ERROR_CODE
|
||||
If CBool(m_AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSql As String = "SELECT * FROM " & cst_TABLE_NAME & " WHERE "
|
||||
strSql &= m_COLS_NAME(COLS.料号PN) & "=" & 料号PN
|
||||
|
||||
Dim rTable As New System.Data.DataTable
|
||||
If SQL_Query(strSql, rTable) = True Then
|
||||
出库单PN = rTable.Rows(0).Item(1)
|
||||
出库日期 = rTable.Rows(0).Item(2)
|
||||
出库时间 = rTable.Rows(0).Item(3)
|
||||
出库数量 = rTable.Rows(0).Item(4)
|
||||
单价 = rTable.Rows(0).Item(5)
|
||||
总金额 = rTable.Rows(0).Item(6)
|
||||
操作员ID = rTable.Rows(0).Item(7)
|
||||
料号PN = rTable.Rows(0).Item(8)
|
||||
供应商ID = rTable.Rows(0).Item(9)
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
End Class
|
||||
349
WT-DMS/CPartNumber.vb
Normal file
349
WT-DMS/CPartNumber.vb
Normal file
@@ -0,0 +1,349 @@
|
||||
Public Class CPartNumber
|
||||
Dim m_SQL As New CSQLInterface
|
||||
Public Shared cst_TABLE_NAME As String = "料号表"
|
||||
Public Shared m_COLS_NAME() As String = {
|
||||
"序号",
|
||||
"料号PN",
|
||||
"物料名称",
|
||||
"规格描述",
|
||||
"单位",
|
||||
"单重",
|
||||
"图片",
|
||||
"供应商ID"
|
||||
}
|
||||
Public Enum COLS
|
||||
序号
|
||||
料号PN
|
||||
物料名称
|
||||
规格描述
|
||||
单位
|
||||
单重
|
||||
图片
|
||||
供应商ID
|
||||
max
|
||||
End Enum
|
||||
|
||||
|
||||
'权限
|
||||
Public Shared AccessRight As Integer = RIGHTS.NONE
|
||||
|
||||
|
||||
Public Function AddItem(ByVal 料号PN As String,
|
||||
ByVal 物料名称 As String,
|
||||
ByVal 规格描述 As String,
|
||||
ByVal 单位 As String,
|
||||
ByVal 单重 As Double,
|
||||
ByVal 供应商ID As String
|
||||
) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
'"INSERT INTO [dbo].[TABLE1] ([11],[22],[33],[44],[55]) VALUES ('11','2','3','4','5')"
|
||||
Dim strSql As String = "INSERT INTO `" & cst_TABLE_NAME & "` ("
|
||||
'加入列名
|
||||
Dim isFirst As Boolean = True
|
||||
For i As Integer = COLS.料号PN To COLS.max - 1
|
||||
If i <> COLS.图片 Then
|
||||
If isFirst = True Then
|
||||
isFirst = False
|
||||
Else
|
||||
strSql &= ","
|
||||
End If
|
||||
|
||||
strSql &= "`" & m_COLS_NAME(i) & "`"
|
||||
End If
|
||||
Next
|
||||
strSql &= ") VALUES ("
|
||||
strSql &= "'" & 料号PN & "',"
|
||||
strSql &= "'" & 物料名称 & "',"
|
||||
strSql &= "'" & 规格描述 & "',"
|
||||
strSql &= "'" & 单位 & "',"
|
||||
strSql &= "'" & 单重 & "',"
|
||||
strSql &= "'" & 供应商ID & "'"
|
||||
strSql &= ")"
|
||||
|
||||
If SQL_ExeCommand(COL_RIGHTS.料号管理, strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function AddItem(ByVal 料号PN As String,
|
||||
ByVal 物料名称 As String,
|
||||
ByVal 规格描述 As String,
|
||||
ByVal 单位 As String,
|
||||
ByVal 单重 As Double,
|
||||
ByVal 图片() As Byte,
|
||||
ByVal 供应商ID As String
|
||||
) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
'"INSERT INTO [dbo].[TABLE1] ([11],[22],[33],[44],[55]) VALUES ('11','2','3','4','5')"
|
||||
Dim strSql As String = "INSERT INTO `" & cst_TABLE_NAME & "` ("
|
||||
'加入列名
|
||||
Dim isFirst As Boolean = True
|
||||
For i As Integer = COLS.料号PN To COLS.max - 1
|
||||
If isFirst = True Then
|
||||
isFirst = False
|
||||
Else
|
||||
strSql &= ","
|
||||
End If
|
||||
strSql &= "`" & m_COLS_NAME(i) & "`"
|
||||
Next
|
||||
strSql &= ") VALUES ("
|
||||
strSql &= "'" & 料号PN & "',"
|
||||
strSql &= "'" & 物料名称 & "',"
|
||||
strSql &= "'" & 规格描述 & "',"
|
||||
strSql &= "'" & 单位 & "',"
|
||||
strSql &= "'" & 单重 & "',"
|
||||
strSql &= "@pic,"
|
||||
strSql &= "'" & 供应商ID & "'"
|
||||
strSql &= ")"
|
||||
|
||||
Dim ParamName() As String = {"@pic"}
|
||||
Dim ParamValue() As Object = {图片}
|
||||
|
||||
If SQL_ExeCommandWithParamters(COL_RIGHTS.料号管理, strSql, ParamName, ParamValue) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
'UPDATE `w&t database`.`料号表` SET `物料名称` = '电阻，001',
|
||||
'`规格描述` = '10k,0603，1' WHERE `料号表`.`序号` =13;
|
||||
Public Function UpdateItem(ByVal 料号PN As String,
|
||||
ByVal 物料名称 As String,
|
||||
ByVal 规格描述 As String,
|
||||
ByVal 单位 As String,
|
||||
ByVal 单重 As Double,
|
||||
ByVal 图片() As Byte,
|
||||
ByVal 供应商ID As String
|
||||
) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSql As String = "UPDATE `" & cst_TABLE_NAME & "` SET "
|
||||
'加入列名
|
||||
strSql &= "`" & m_COLS_NAME(COLS.物料名称) & "` = '" & 物料名称 & "', "
|
||||
strSql &= "`" & m_COLS_NAME(COLS.规格描述) & "` = '" & 规格描述 & "', "
|
||||
strSql &= "`" & m_COLS_NAME(COLS.单位) & "` = '" & 单位 & "', "
|
||||
strSql &= "`" & m_COLS_NAME(COLS.单重) & "` = '" & 单重 & "', "
|
||||
If Not 图片 Is Nothing Then
|
||||
strSql &= "`" & m_COLS_NAME(COLS.图片) & "` = @pic, "
|
||||
End If
|
||||
strSql &= "`" & m_COLS_NAME(COLS.供应商ID) & "` = '" & 供应商ID & "' "
|
||||
strSql &= " WHERE " & "`" & m_COLS_NAME(COLS.料号PN) & "` = '" & 料号PN & "' "
|
||||
|
||||
If Not 图片 Is Nothing Then
|
||||
Dim ParamName() As String = {"@pic"}
|
||||
Dim ParamValue() As Object = {图片}
|
||||
|
||||
If SQL_ExeCommandWithParamters(COL_RIGHTS.料号管理, strSql, ParamName, ParamValue) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
Else
|
||||
If SQL_ExeCommand(COL_RIGHTS.料号管理, strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function QueryItem(ByVal 料号PN As String,
|
||||
ByRef 物料名称 As String,
|
||||
ByRef 规格描述 As String,
|
||||
ByRef 单位 As String,
|
||||
ByRef 单重 As Double,
|
||||
ByRef 图片() As Byte,
|
||||
ByRef 供应商ID As String
|
||||
) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSQL As String = "SELECT * FROM " & cst_TABLE_NAME & " WHERE "
|
||||
strSQL &= m_COLS_NAME(COLS.料号PN) & " = '" & 料号PN & "'"
|
||||
|
||||
Dim rValueTable(0) As Object
|
||||
If SQL_DataReader(COL_RIGHTS.料号管理, strSQL, rValueTable) = True Then
|
||||
物料名称 = rValueTable(COLS.物料名称)
|
||||
规格描述 = rValueTable(COLS.规格描述)
|
||||
单位 = rValueTable(COLS.单位)
|
||||
单重 = rValueTable(COLS.单重)
|
||||
'图片 = rValueTable(COLS.图片)
|
||||
供应商ID = rValueTable(COLS.供应商ID)
|
||||
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function QueryItem(ByVal 料号PN As String,
|
||||
ByRef 物料名称 As String,
|
||||
ByRef 规格描述 As String,
|
||||
ByRef 单位 As String,
|
||||
ByRef 单重 As Double,
|
||||
ByRef 供应商ID As String
|
||||
) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSQL As String = "SELECT * FROM " & cst_TABLE_NAME & " WHERE "
|
||||
strSQL &= m_COLS_NAME(COLS.料号PN) & " = '" & 料号PN & "'"
|
||||
|
||||
Dim rValueTable(0) As Object
|
||||
If SQL_DataReader(COL_RIGHTS.料号管理, strSQL, rValueTable) = True Then
|
||||
物料名称 = rValueTable(COLS.物料名称)
|
||||
规格描述 = rValueTable(COLS.规格描述)
|
||||
单位 = rValueTable(COLS.单位)
|
||||
单重 = rValueTable(COLS.单重)
|
||||
供应商ID = rValueTable(COLS.供应商ID)
|
||||
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function QueryItemIndex(ByVal 料号PN As String,ByRef 序号 As Integer) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSQL As String = "SELECT `" & m_COLS_NAME(COLS.序号) & "` " &
|
||||
" FROM " & cst_TABLE_NAME & " WHERE "
|
||||
strSQL &= m_COLS_NAME(COLS.料号PN) & " = '" & 料号PN & "'"
|
||||
|
||||
Dim rValueTable(0) As Object
|
||||
If SQL_DataReader(COL_RIGHTS.料号管理, strSQL, rValueTable) = True Then
|
||||
Try
|
||||
序号 = rValueTable(0)
|
||||
Return ERROR_CODE.SUCCESS
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function QueryInformation(ByRef Count As Integer, ByRef minIndex As Integer, ByRef maxIndex As Integer
|
||||
) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSQL As String = "SELECT " &
|
||||
"COUNT(`" & m_COLS_NAME(COLS.序号) & "`), " &
|
||||
"MIN(`" & m_COLS_NAME(COLS.序号) & "`), " &
|
||||
"MAX(`" & m_COLS_NAME(COLS.序号) & "`) " &
|
||||
" FROM `" & cst_TABLE_NAME & "`"
|
||||
|
||||
Dim rValueTable(0) As Object
|
||||
If SQL_DataReader(COL_RIGHTS.料号管理, strSQL, rValueTable) = True Then
|
||||
Try
|
||||
Count = rValueTable(0)
|
||||
minIndex = rValueTable(1)
|
||||
maxIndex = rValueTable(2)
|
||||
Return ERROR_CODE.SUCCESS
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
|
||||
Public Function CheckPartNumber(ByVal 料号PN As String, ByRef isExist As Boolean) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSql As String = "SELECT `" & m_COLS_NAME(COLS.料号PN) & "` FROM `" & cst_TABLE_NAME & "` WHERE "
|
||||
strSql &= "`" & m_COLS_NAME(COLS.料号PN) & "` COLLATE gbk_chinese_ci ='" & 料号PN & "'"
|
||||
|
||||
Dim rTable As New System.Data.DataTable
|
||||
If SQL_Query(COL_RIGHTS.料号管理, strSql, rTable) = True Then
|
||||
isExist = False
|
||||
|
||||
If rTable.Rows.Count > 0 Then
|
||||
'If rTable.Rows(0).Item(0) = 料号PN Then
|
||||
isExist = True
|
||||
'End If
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
'=================================================================================================
|
||||
'获取当前库位库存
|
||||
Public Function GetStockSum(ByVal 仓库 As String, ByVal 库位 As String, ByRef isExist As Boolean) As Integer
|
||||
|
||||
If CBool(AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSql As String = "SELECT `库位库存` FROM `原料库存表` WHERE "
|
||||
strSql &= "`仓库` COLLATE gbk_chinese_ci ='" & 仓库 & "' AND `库位` COLLATE gbk_chinese_ci ='" & 库位 & "'"
|
||||
|
||||
Dim rTable As New System.Data.DataTable
|
||||
If SQL_Query(COL_RIGHTS.原料库存管理, strSql, rTable) = True Then
|
||||
isExist = False
|
||||
|
||||
If rTable.Rows.Count > 0 Then
|
||||
isExist = True
|
||||
Return rTable.Rows(rTable.Rows.Count - 1).Item(0).ToString()
|
||||
End If
|
||||
End If
|
||||
Return 0
|
||||
End Function
|
||||
'=================================================================================================
|
||||
|
||||
Public Function GetAddItemCmd(ByVal 料号PN As String,
|
||||
ByVal 物料名称 As String,
|
||||
ByVal 规格描述 As String,
|
||||
ByVal 单位 As String,
|
||||
ByVal 单重 As Double,
|
||||
ByVal 供应商ID As String
|
||||
) As String
|
||||
|
||||
|
||||
'"INSERT INTO [dbo].[TABLE1] ([11],[22],[33],[44],[55]) VALUES ('11','2','3','4','5')"
|
||||
Dim strSql As String = "INSERT INTO `" & cst_TABLE_NAME & "` ("
|
||||
'加入列名
|
||||
Dim isFirst As Boolean = True
|
||||
For i As Integer = COLS.料号PN To COLS.max - 1
|
||||
If i <> COLS.图片 Then
|
||||
If isFirst = True Then
|
||||
isFirst = False
|
||||
Else
|
||||
strSql &= ","
|
||||
End If
|
||||
|
||||
strSql &= "`" & m_COLS_NAME(i) & "`"
|
||||
End If
|
||||
Next
|
||||
strSql &= ") VALUES ("
|
||||
strSql &= "'" & 料号PN & "',"
|
||||
strSql &= "'" & 物料名称 & "',"
|
||||
strSql &= "'" & 规格描述 & "',"
|
||||
strSql &= "'" & 单位 & "',"
|
||||
strSql &= "'" & 单重 & "',"
|
||||
strSql &= "'" & 供应商ID & "'"
|
||||
strSql &= ")"
|
||||
Return strSql
|
||||
End Function
|
||||
End Class
|
||||
100
WT-DMS/CProductsManage.vb
Normal file
100
WT-DMS/CProductsManage.vb
Normal file
@@ -0,0 +1,100 @@
|
||||
Public Class CProductsManage
|
||||
|
||||
Dim m_SQL As New CSQLInterface
|
||||
Private cst_TABLE_NAME As String = "成品库存表"
|
||||
|
||||
Public Shared m_COLS_NAME() As String = {
|
||||
"序号",
|
||||
"入库出库",
|
||||
"料号PN",
|
||||
"订单号",
|
||||
"日期",
|
||||
"时间",
|
||||
"数量",
|
||||
"操作员ID",
|
||||
"仓库",
|
||||
"库位",
|
||||
"用途"}
|
||||
|
||||
Public Enum COLS
|
||||
序号
|
||||
入库出库
|
||||
料号PN
|
||||
订单号
|
||||
日期
|
||||
时间
|
||||
数量
|
||||
操作员ID
|
||||
仓库
|
||||
库位
|
||||
用途
|
||||
max
|
||||
End Enum
|
||||
|
||||
'入库或者出库标志
|
||||
Private IsOutStore As Boolean = False
|
||||
Public Property OutStore() As Boolean
|
||||
Get
|
||||
Return IsOutStore
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
IsOutStore = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'权限
|
||||
Public Shared AccessRight As Integer = RIGHTS.NONE
|
||||
|
||||
|
||||
Public Sub New()
|
||||
IsOutStore = False
|
||||
End Sub
|
||||
|
||||
Public Function AddItem(ByVal 入库出库 As Boolean,
|
||||
ByVal 料号PN As String,
|
||||
ByVal 订单号 As String,
|
||||
ByVal 日期 As String,
|
||||
ByVal 时间 As String,
|
||||
ByVal 数量 As Integer,
|
||||
ByVal 操作员ID As String,
|
||||
ByVal 仓库 As String,
|
||||
ByVal 库位 As String,
|
||||
ByVal 用途 As String
|
||||
) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
'"INSERT INTO [dbo].[TABLE1] ([11],[22],[33],[44],[55]) VALUES ('11','2','3','4','5')"
|
||||
Dim strSql As String = "INSERT INTO `" & cst_TABLE_NAME & "` ("
|
||||
'加入列名
|
||||
Dim isFirst As Boolean = True
|
||||
For i As Integer = COLS.入库出库 To m_COLS_NAME.Length - 1
|
||||
If isFirst = True Then
|
||||
isFirst = False
|
||||
Else
|
||||
strSql &= ","
|
||||
End If
|
||||
strSql &= "`" & m_COLS_NAME(i) & "`"
|
||||
Next
|
||||
strSql &= ") VALUES ("
|
||||
strSql &= "'" & IIf(入库出库, 1, 0) & "',"
|
||||
strSql &= "'" & 料号PN & "',"
|
||||
strSql &= "'" & 订单号 & "',"
|
||||
strSql &= "'" & 日期 & "',"
|
||||
strSql &= "'" & 时间 & "',"
|
||||
strSql &= "'" & 数量 & "',"
|
||||
strSql &= "'" & 操作员ID & "',"
|
||||
strSql &= "'" & 仓库 & "',"
|
||||
strSql &= "'" & 库位 & "',"
|
||||
strSql &= "'" & 用途 & "'"
|
||||
strSql &= ")"
|
||||
|
||||
If SQL_ExeCommand(COL_RIGHTS.成品库存管理, strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
End Class
|
||||
70
WT-DMS/CSQLInterface.vb
Normal file
70
WT-DMS/CSQLInterface.vb
Normal file
@@ -0,0 +1,70 @@
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class CSQLInterface
|
||||
Dim m_SqlConn As SqlConnection = Nothing
|
||||
Dim m_DTable As New DataTable
|
||||
Dim m_BaseName As String = ""
|
||||
Public Function ConnectionSetting(ByVal strHostIp As String, ByVal DataBaseName As String, ByVal user As String, ByVal password As String) As Boolean
|
||||
If m_SqlConn Is Nothing Then
|
||||
m_SqlConn = New SqlConnection
|
||||
Else
|
||||
m_SqlConn.Close()
|
||||
End If
|
||||
|
||||
m_SqlConn.ConnectionString = "server=" & strHostIp & ";database=" & DataBaseName & ";uid=" & user & ";pwd=" & password
|
||||
|
||||
m_BaseName = DataBaseName
|
||||
Return (True)
|
||||
End Function
|
||||
|
||||
Public Function Query(ByVal strQuery As String, ByRef r_Table As DataTable) As Boolean
|
||||
Dim Result As Boolean = False
|
||||
Try
|
||||
m_SqlConn.Open()
|
||||
Dim daAdapter As SqlDataAdapter = New SqlDataAdapter(strQuery, m_SqlConn)
|
||||
daAdapter.Fill(r_Table)
|
||||
|
||||
Result = True
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Try
|
||||
m_SqlConn.Close()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Return Result
|
||||
End Function
|
||||
|
||||
Public Function ExeCommand(ByVal strExe As String) As Boolean
|
||||
Dim Result As Boolean = False
|
||||
|
||||
Try
|
||||
m_SqlConn.Open()
|
||||
Dim myCommand As SqlCommand = New SqlCommand(strExe, m_SqlConn)
|
||||
If myCommand.ExecuteNonQuery() > 0 Then
|
||||
Result = True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Try
|
||||
m_SqlConn.Close()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Return Result
|
||||
End Function
|
||||
|
||||
'Public Function Insert(ByVal strInsert As String) As Boolean
|
||||
' Return ExeCommand(strInsert)
|
||||
'End Function
|
||||
|
||||
'Public Function Update(ByVal strUpdate As String) As Boolean
|
||||
' Return ExeCommand(strUpdate)
|
||||
'End Function
|
||||
|
||||
'Public Function Delete(ByVal strDelete As String) As Boolean
|
||||
' Return ExeCommand(strDelete)
|
||||
'End Function
|
||||
End Class
|
||||
68
WT-DMS/CStore.vb
Normal file
68
WT-DMS/CStore.vb
Normal file
@@ -0,0 +1,68 @@
|
||||
Public Class CStore
|
||||
Dim m_SQL As New CSQLInterface
|
||||
Private cst_TABLE_NAME As String = "仓库表"
|
||||
|
||||
Public Shared m_COLS_NAME() As String = {
|
||||
"仓库序号",
|
||||
"仓库名称",
|
||||
"仓库地点",
|
||||
"仓库库位表"
|
||||
}
|
||||
|
||||
Public Enum COLS
|
||||
仓库序号
|
||||
仓库名称
|
||||
仓库地点
|
||||
仓库库位表
|
||||
max
|
||||
End Enum
|
||||
|
||||
|
||||
'权限
|
||||
Public Shared AccessRight As Integer = RIGHTS.NONE
|
||||
|
||||
Public Function AddItem(ByVal 仓库名称 As String,
|
||||
ByVal 仓库地点 As String
|
||||
) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
'"INSERT INTO [dbo].[TABLE1] ([11],[22],[33],[44],[55]) VALUES ('11','2','3','4','5')"
|
||||
Dim strSql As String = "INSERT INTO `" & cst_TABLE_NAME & "` ("
|
||||
'加入列名
|
||||
Dim isFirst As Boolean = True
|
||||
For i As Integer = COLS.仓库名称 To COLS.max - 1
|
||||
If isFirst = True Then
|
||||
isFirst = False
|
||||
Else
|
||||
strSql &= ","
|
||||
End If
|
||||
strSql &= "`" & m_COLS_NAME(i) & "`"
|
||||
Next
|
||||
strSql &= ") VALUES ("
|
||||
strSql &= "'" & 仓库名称 & "',"
|
||||
strSql &= "'" & 仓库地点 & "'"
|
||||
strSql &= ")"
|
||||
|
||||
If SQL_ExeCommand(COL_RIGHTS.仓库管理, strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function QueryAll(ByRef rTable As Data.DataTable) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSQL As String = "SELECT * FROM " & cst_TABLE_NAME
|
||||
|
||||
If SQL_Query(COL_RIGHTS.仓库管理, strSQL, rTable) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
End Class
|
||||
66
WT-DMS/CStoreLocation.vb
Normal file
66
WT-DMS/CStoreLocation.vb
Normal file
@@ -0,0 +1,66 @@
|
||||
Public Class CStoreLocation
|
||||
Dim m_SQL As New CSQLInterface
|
||||
Public TABLE_NAME As String = ""
|
||||
|
||||
Public Shared m_COLS_NAME() As String = {
|
||||
"序号",
|
||||
"库位"
|
||||
}
|
||||
|
||||
Public Enum COLS
|
||||
序号
|
||||
库位
|
||||
max
|
||||
End Enum
|
||||
|
||||
|
||||
'权限
|
||||
Public Shared AccessRight As Integer = RIGHTS.NONE
|
||||
|
||||
Public Function AddItem(ByVal 库位 As String
|
||||
) As ERROR_CODE
|
||||
If TABLE_NAME.Length = 0 Then Return ERROR_CODE.NONE
|
||||
|
||||
If CBool(AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
'"INSERT INTO [dbo].[TABLE1] ([11],[22],[33],[44],[55]) VALUES ('11','2','3','4','5')"
|
||||
Dim strSql As String = "INSERT INTO `" & TABLE_NAME & "` ("
|
||||
'加入列名
|
||||
Dim isFirst As Boolean = True
|
||||
For i As Integer = COLS.库位 To COLS.max - 1
|
||||
If isFirst = True Then
|
||||
isFirst = False
|
||||
Else
|
||||
strSql &= ","
|
||||
End If
|
||||
strSql &= "`" & m_COLS_NAME(i) & "`"
|
||||
Next
|
||||
strSql &= ") VALUES ("
|
||||
strSql &= "'" & 库位 & "'"
|
||||
strSql &= ")"
|
||||
|
||||
If SQL_ExeCommand(COL_RIGHTS.库位管理, strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function QueryAll(ByRef rTable As Data.DataTable) As ERROR_CODE
|
||||
If TABLE_NAME.Length = 0 Then Return ERROR_CODE.NONE
|
||||
|
||||
If CBool(AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSQL As String = "SELECT * FROM " & TABLE_NAME
|
||||
|
||||
If SQL_Query(COL_RIGHTS.库位管理, strSQL, rTable) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
End Class
|
||||
185
WT-DMS/CSupplier.vb
Normal file
185
WT-DMS/CSupplier.vb
Normal file
@@ -0,0 +1,185 @@
|
||||
Public Class CSupplier
|
||||
Dim m_SQL As New CSQLInterface
|
||||
Public Shared cst_TABLE_NAME As String = "供应商信息表"
|
||||
|
||||
Public Shared m_COLS_NAME() As String = {
|
||||
"序号",
|
||||
"供应商ID",
|
||||
"中文名称",
|
||||
"英文名称",
|
||||
"供应商工厂全称",
|
||||
"供应商网址",
|
||||
"供应商地址",
|
||||
"公司资本类型",
|
||||
"公司主营产品",
|
||||
"公司现有人数",
|
||||
"公司电话1",
|
||||
"公司电话2",
|
||||
"公司电话3",
|
||||
"公司电话4",
|
||||
"公司传真",
|
||||
"主要业务联系人",
|
||||
"主要业务联系人职务",
|
||||
"主要业务联系人公司工作年限",
|
||||
"主要业务联系人联系电话",
|
||||
"主要业务联系人分机",
|
||||
"主要业务联系人手机",
|
||||
"主要业务联系人邮箱",
|
||||
"主要品质负责人",
|
||||
"主要品质负责人职务",
|
||||
"主要品质负责人公司工作年限",
|
||||
"主要品质负责人联系电话",
|
||||
"主要品质负责人分机",
|
||||
"主要品质负责人手机",
|
||||
"主要品质负责人邮箱",
|
||||
"对公账号",
|
||||
"对公账号开户行",
|
||||
"对公账号户名",
|
||||
"对公账号帐号",
|
||||
"对私帐号",
|
||||
"对私帐号开户行",
|
||||
"对私帐号户名",
|
||||
"对私帐号帐号",
|
||||
"年审情况"
|
||||
}
|
||||
|
||||
Public Enum COLS
|
||||
序号
|
||||
供应商ID
|
||||
中文名称
|
||||
英文名称
|
||||
供应商工厂全称
|
||||
供应商网址
|
||||
供应商地址
|
||||
公司资本类型
|
||||
公司主营产品
|
||||
公司现有人数
|
||||
公司电话1
|
||||
公司电话2
|
||||
公司电话3
|
||||
公司电话4
|
||||
公司传真
|
||||
主要业务联系人
|
||||
主要业务联系人职务
|
||||
主要业务联系人公司工作年限
|
||||
主要业务联系人联系电话
|
||||
主要业务联系人分机
|
||||
主要业务联系人手机
|
||||
主要业务联系人邮箱
|
||||
主要品质负责人
|
||||
主要品质负责人职务
|
||||
主要品质负责人公司工作年限
|
||||
主要品质负责人联系电话
|
||||
主要品质负责人分机
|
||||
主要品质负责人手机
|
||||
主要品质负责人邮箱
|
||||
对公账号
|
||||
对公账号开户行
|
||||
对公账号户名
|
||||
对公账号帐号
|
||||
对私帐号
|
||||
对私帐号开户行
|
||||
对私帐号户名
|
||||
对私帐号帐号
|
||||
年审情况
|
||||
max
|
||||
End Enum
|
||||
|
||||
'权限
|
||||
Public Shared AccessRight As Integer = RIGHTS.NONE
|
||||
|
||||
Public Function AddItem(ByRef SectionName() As String,
|
||||
ByRef Value() As String
|
||||
) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
'"INSERT INTO [dbo].[TABLE1] ([11],[22],[33],[44],[55]) VALUES ('11','2','3','4','5')"
|
||||
Dim strSql As String = "INSERT INTO `" & cst_TABLE_NAME & "` ("
|
||||
'加入列名 取消第一个序号 序号自增
|
||||
Dim isFirst As Boolean = True
|
||||
For i As Integer = 1 To SectionName.Length - 1
|
||||
If isFirst = True Then
|
||||
isFirst = False
|
||||
Else
|
||||
strSql &= ","
|
||||
End If
|
||||
strSql &= "`" & SectionName(i) & "`"
|
||||
Next
|
||||
strSql &= ") VALUES ("
|
||||
|
||||
isFirst = True
|
||||
For i As Integer = 1 To SectionName.Length - 1
|
||||
|
||||
If isFirst = True Then
|
||||
isFirst = False
|
||||
Else
|
||||
strSql &= ","
|
||||
End If
|
||||
strSql &= "'" & Value(i) & "'"
|
||||
Next
|
||||
strSql &= ")"
|
||||
|
||||
If SQL_ExeCommand(COL_RIGHTS.供应商管理, strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function QueryAll_IDAndName(ByRef rTable As Data.DataTable) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSQL As String = "SELECT 供应商ID,中文名称 FROM " & cst_TABLE_NAME
|
||||
|
||||
If SQL_Query(COL_RIGHTS.供应商管理, strSQL, rTable) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function CheckSupplierID(ByVal 供应商ID As String, ByRef isExist As Boolean) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.READ) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
Dim strSql As String = "SELECT `" & m_COLS_NAME(COLS.供应商ID) & "` FROM `" & cst_TABLE_NAME & "` WHERE "
|
||||
strSql &= "`" & m_COLS_NAME(COLS.供应商ID) & "`='" & 供应商ID & "'"
|
||||
|
||||
Dim rTable As New System.Data.DataTable
|
||||
If SQL_Query(COL_RIGHTS.供应商管理, strSql, rTable) = True Then
|
||||
isExist = False
|
||||
|
||||
If rTable.Rows.Count > 0 Then
|
||||
'If rTable.Rows(0).Item(0) = 料号PN Then
|
||||
isExist = True
|
||||
'End If
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
Public Function DeleteItem(ByRef 供应商ID As String) As ERROR_CODE
|
||||
If CBool(AccessRight And RIGHTS.WRITE) = False Then
|
||||
Return ERROR_CODE.NORIGHT
|
||||
End If
|
||||
|
||||
'"INSERT INTO [dbo].[TABLE1] ([11],[22],[33],[44],[55]) VALUES ('11','2','3','4','5')"
|
||||
Dim strSql As String = "DELETE FROM `" & cst_TABLE_NAME & "` WHERE "
|
||||
strSql &= "`" & m_COLS_NAME(COLS.供应商ID) & "`= '" & 供应商ID & "'"
|
||||
|
||||
If SQL_ExeCommand(COL_RIGHTS.供应商管理, strSql) = True Then
|
||||
Return ERROR_CODE.SUCCESS
|
||||
End If
|
||||
|
||||
Return ERROR_CODE.ACCESS
|
||||
End Function
|
||||
|
||||
End Class
|
||||
317
WT-DMS/Form1.Designer.vb
generated
Normal file
317
WT-DMS/Form1.Designer.vb
generated
Normal file
@@ -0,0 +1,317 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form1
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<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
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.系统ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.注销ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.退出ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.料号管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.录入ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.查询ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.原料库存管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.录入ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.删除ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.查询ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.出入库记录ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.成品库存管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.录入ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.删除ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.查询ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.BOM管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.BOMToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.合并备料查询ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.供应商管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.财务管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.录入ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.查询ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.tsmi_录入_销售部 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.tsmi_查询_销售部 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.用户管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.备份管理ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.系统记录ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.关于ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系统ToolStripMenuItem, Me.料号管理ToolStripMenuItem, Me.原料库存管理ToolStripMenuItem, Me.成品库存管理ToolStripMenuItem, Me.BOM管理ToolStripMenuItem, Me.供应商管理ToolStripMenuItem, Me.财务管理ToolStripMenuItem, Me.用户管理ToolStripMenuItem, Me.备份管理ToolStripMenuItem1, Me.系统记录ToolStripMenuItem, Me.关于ToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(956, 25)
|
||||
Me.MenuStrip1.TabIndex = 1
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'系统ToolStripMenuItem
|
||||
'
|
||||
Me.系统ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.注销ToolStripMenuItem, Me.退出ToolStripMenuItem})
|
||||
Me.系统ToolStripMenuItem.Name = "系统ToolStripMenuItem"
|
||||
Me.系统ToolStripMenuItem.Size = New System.Drawing.Size(59, 21)
|
||||
Me.系统ToolStripMenuItem.Text = "系统(&S)"
|
||||
'
|
||||
'注销ToolStripMenuItem
|
||||
'
|
||||
Me.注销ToolStripMenuItem.Name = "注销ToolStripMenuItem"
|
||||
Me.注销ToolStripMenuItem.Size = New System.Drawing.Size(116, 22)
|
||||
Me.注销ToolStripMenuItem.Text = "注销(&L)"
|
||||
'
|
||||
'退出ToolStripMenuItem
|
||||
'
|
||||
Me.退出ToolStripMenuItem.Name = "退出ToolStripMenuItem"
|
||||
Me.退出ToolStripMenuItem.Size = New System.Drawing.Size(116, 22)
|
||||
Me.退出ToolStripMenuItem.Text = "退出(&X)"
|
||||
'
|
||||
'料号管理ToolStripMenuItem
|
||||
'
|
||||
Me.料号管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.录入ToolStripMenuItem2, Me.查询ToolStripMenuItem3})
|
||||
Me.料号管理ToolStripMenuItem.Name = "料号管理ToolStripMenuItem"
|
||||
Me.料号管理ToolStripMenuItem.Size = New System.Drawing.Size(86, 21)
|
||||
Me.料号管理ToolStripMenuItem.Text = "料号管理(&N)"
|
||||
'
|
||||
'录入ToolStripMenuItem2
|
||||
'
|
||||
Me.录入ToolStripMenuItem2.Name = "录入ToolStripMenuItem2"
|
||||
Me.录入ToolStripMenuItem2.Size = New System.Drawing.Size(180, 22)
|
||||
Me.录入ToolStripMenuItem2.Text = "录入"
|
||||
'
|
||||
'查询ToolStripMenuItem3
|
||||
'
|
||||
Me.查询ToolStripMenuItem3.Name = "查询ToolStripMenuItem3"
|
||||
Me.查询ToolStripMenuItem3.Size = New System.Drawing.Size(180, 22)
|
||||
Me.查询ToolStripMenuItem3.Text = "查询"
|
||||
'
|
||||
'原料库存管理ToolStripMenuItem
|
||||
'
|
||||
Me.原料库存管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.录入ToolStripMenuItem, Me.删除ToolStripMenuItem, Me.查询ToolStripMenuItem, Me.出入库记录ToolStripMenuItem})
|
||||
Me.原料库存管理ToolStripMenuItem.Name = "原料库存管理ToolStripMenuItem"
|
||||
Me.原料库存管理ToolStripMenuItem.Size = New System.Drawing.Size(112, 21)
|
||||
Me.原料库存管理ToolStripMenuItem.Text = "原料库存管理(&M)"
|
||||
'
|
||||
'录入ToolStripMenuItem
|
||||
'
|
||||
Me.录入ToolStripMenuItem.Name = "录入ToolStripMenuItem"
|
||||
Me.录入ToolStripMenuItem.Size = New System.Drawing.Size(141, 22)
|
||||
Me.录入ToolStripMenuItem.Text = "入库"
|
||||
'
|
||||
'删除ToolStripMenuItem
|
||||
'
|
||||
Me.删除ToolStripMenuItem.Name = "删除ToolStripMenuItem"
|
||||
Me.删除ToolStripMenuItem.Size = New System.Drawing.Size(141, 22)
|
||||
Me.删除ToolStripMenuItem.Text = "出库"
|
||||
'
|
||||
'查询ToolStripMenuItem
|
||||
'
|
||||
Me.查询ToolStripMenuItem.Name = "查询ToolStripMenuItem"
|
||||
Me.查询ToolStripMenuItem.Size = New System.Drawing.Size(141, 22)
|
||||
Me.查询ToolStripMenuItem.Text = "查询"
|
||||
'
|
||||
'出入库记录ToolStripMenuItem
|
||||
'
|
||||
Me.出入库记录ToolStripMenuItem.Name = "出入库记录ToolStripMenuItem"
|
||||
Me.出入库记录ToolStripMenuItem.Size = New System.Drawing.Size(141, 22)
|
||||
Me.出入库记录ToolStripMenuItem.Text = "出/入库记录"
|
||||
'
|
||||
'成品库存管理ToolStripMenuItem
|
||||
'
|
||||
Me.成品库存管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.录入ToolStripMenuItem1, Me.删除ToolStripMenuItem1, Me.查询ToolStripMenuItem1})
|
||||
Me.成品库存管理ToolStripMenuItem.Enabled = False
|
||||
Me.成品库存管理ToolStripMenuItem.Name = "成品库存管理ToolStripMenuItem"
|
||||
Me.成品库存管理ToolStripMenuItem.Size = New System.Drawing.Size(107, 21)
|
||||
Me.成品库存管理ToolStripMenuItem.Text = "成品库存管理(&P)"
|
||||
'
|
||||
'录入ToolStripMenuItem1
|
||||
'
|
||||
Me.录入ToolStripMenuItem1.Name = "录入ToolStripMenuItem1"
|
||||
Me.录入ToolStripMenuItem1.Size = New System.Drawing.Size(100, 22)
|
||||
Me.录入ToolStripMenuItem1.Text = "入库"
|
||||
'
|
||||
'删除ToolStripMenuItem1
|
||||
'
|
||||
Me.删除ToolStripMenuItem1.Name = "删除ToolStripMenuItem1"
|
||||
Me.删除ToolStripMenuItem1.Size = New System.Drawing.Size(100, 22)
|
||||
Me.删除ToolStripMenuItem1.Text = "出库"
|
||||
'
|
||||
'查询ToolStripMenuItem1
|
||||
'
|
||||
Me.查询ToolStripMenuItem1.Name = "查询ToolStripMenuItem1"
|
||||
Me.查询ToolStripMenuItem1.Size = New System.Drawing.Size(100, 22)
|
||||
Me.查询ToolStripMenuItem1.Text = "查询"
|
||||
'
|
||||
'BOM管理ToolStripMenuItem
|
||||
'
|
||||
Me.BOM管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BOMToolStripMenuItem, Me.合并备料查询ToolStripMenuItem})
|
||||
Me.BOM管理ToolStripMenuItem.Name = "BOM管理ToolStripMenuItem"
|
||||
Me.BOM管理ToolStripMenuItem.Size = New System.Drawing.Size(90, 21)
|
||||
Me.BOM管理ToolStripMenuItem.Text = "BOM管理(&B)"
|
||||
'
|
||||
'BOMToolStripMenuItem
|
||||
'
|
||||
Me.BOMToolStripMenuItem.Name = "BOMToolStripMenuItem"
|
||||
Me.BOMToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
|
||||
Me.BOMToolStripMenuItem.Text = "BOM管理"
|
||||
'
|
||||
'合并备料查询ToolStripMenuItem
|
||||
'
|
||||
Me.合并备料查询ToolStripMenuItem.Name = "合并备料查询ToolStripMenuItem"
|
||||
Me.合并备料查询ToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
|
||||
Me.合并备料查询ToolStripMenuItem.Text = "合并备料查询"
|
||||
'
|
||||
'供应商管理ToolStripMenuItem
|
||||
'
|
||||
Me.供应商管理ToolStripMenuItem.Name = "供应商管理ToolStripMenuItem"
|
||||
Me.供应商管理ToolStripMenuItem.Size = New System.Drawing.Size(97, 21)
|
||||
Me.供应商管理ToolStripMenuItem.Text = "供应商管理(&G)"
|
||||
'
|
||||
'财务管理ToolStripMenuItem
|
||||
'
|
||||
Me.财务管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.录入ToolStripMenuItem3, Me.查询ToolStripMenuItem2, Me.ToolStripSeparator1, Me.tsmi_录入_销售部, Me.tsmi_查询_销售部})
|
||||
Me.财务管理ToolStripMenuItem.Name = "财务管理ToolStripMenuItem"
|
||||
Me.财务管理ToolStripMenuItem.Size = New System.Drawing.Size(82, 21)
|
||||
Me.财务管理ToolStripMenuItem.Text = "财务管理(&F)"
|
||||
'
|
||||
'录入ToolStripMenuItem3
|
||||
'
|
||||
Me.录入ToolStripMenuItem3.Name = "录入ToolStripMenuItem3"
|
||||
Me.录入ToolStripMenuItem3.Size = New System.Drawing.Size(160, 22)
|
||||
Me.录入ToolStripMenuItem3.Text = "录入（开发部）"
|
||||
'
|
||||
'查询ToolStripMenuItem2
|
||||
'
|
||||
Me.查询ToolStripMenuItem2.Name = "查询ToolStripMenuItem2"
|
||||
Me.查询ToolStripMenuItem2.Size = New System.Drawing.Size(160, 22)
|
||||
Me.查询ToolStripMenuItem2.Text = "查询（开发部）"
|
||||
'
|
||||
'ToolStripSeparator1
|
||||
'
|
||||
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||
Me.ToolStripSeparator1.Size = New System.Drawing.Size(157, 6)
|
||||
'
|
||||
'tsmi_录入_销售部
|
||||
'
|
||||
Me.tsmi_录入_销售部.Name = "tsmi_录入_销售部"
|
||||
Me.tsmi_录入_销售部.Size = New System.Drawing.Size(160, 22)
|
||||
Me.tsmi_录入_销售部.Text = "录入（销售部）"
|
||||
'
|
||||
'tsmi_查询_销售部
|
||||
'
|
||||
Me.tsmi_查询_销售部.Name = "tsmi_查询_销售部"
|
||||
Me.tsmi_查询_销售部.Size = New System.Drawing.Size(160, 22)
|
||||
Me.tsmi_查询_销售部.Text = "查询（销售部）"
|
||||
'
|
||||
'用户管理ToolStripMenuItem
|
||||
'
|
||||
Me.用户管理ToolStripMenuItem.Name = "用户管理ToolStripMenuItem"
|
||||
Me.用户管理ToolStripMenuItem.Size = New System.Drawing.Size(85, 21)
|
||||
Me.用户管理ToolStripMenuItem.Text = "用户管理(&U)"
|
||||
'
|
||||
'备份管理ToolStripMenuItem1
|
||||
'
|
||||
Me.备份管理ToolStripMenuItem1.Name = "备份管理ToolStripMenuItem1"
|
||||
Me.备份管理ToolStripMenuItem1.Size = New System.Drawing.Size(68, 21)
|
||||
Me.备份管理ToolStripMenuItem1.Text = "备份管理"
|
||||
'
|
||||
'系统记录ToolStripMenuItem
|
||||
'
|
||||
Me.系统记录ToolStripMenuItem.Name = "系统记录ToolStripMenuItem"
|
||||
Me.系统记录ToolStripMenuItem.Size = New System.Drawing.Size(82, 21)
|
||||
Me.系统记录ToolStripMenuItem.Text = "系统记录(&L)"
|
||||
'
|
||||
'关于ToolStripMenuItem
|
||||
'
|
||||
Me.关于ToolStripMenuItem.Name = "关于ToolStripMenuItem"
|
||||
Me.关于ToolStripMenuItem.Size = New System.Drawing.Size(61, 21)
|
||||
Me.关于ToolStripMenuItem.Text = "关于(&H)"
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
Me.StatusStrip1.Location = New System.Drawing.Point(0, 493)
|
||||
Me.StatusStrip1.Name = "StatusStrip1"
|
||||
Me.StatusStrip1.Size = New System.Drawing.Size(956, 22)
|
||||
Me.StatusStrip1.TabIndex = 2
|
||||
Me.StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 25)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(956, 25)
|
||||
Me.ToolStrip1.TabIndex = 3
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'Form1
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(956, 515)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.StatusStrip1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.IsMdiContainer = True
|
||||
Me.MainMenuStrip = Me.MenuStrip1
|
||||
Me.Name = "Form1"
|
||||
Me.Text = "W&T Data Manage System"
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
|
||||
Friend WithEvents 系统ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 注销ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 退出ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 料号管理ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 原料库存管理ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 成品库存管理ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents BOM管理ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 供应商管理ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 用户管理ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 系统记录ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents 关于ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 录入ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 删除ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 查询ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 录入ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 删除ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 查询ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 录入ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 查询ToolStripMenuItem3 As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 出入库记录ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 财务管理ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 录入ToolStripMenuItem3 As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 查询ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents tsmi_录入_销售部 As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents tsmi_查询_销售部 As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents BOMToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 合并备料查询ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 备份管理ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
|
||||
|
||||
End Class
|
||||
132
WT-DMS/Form1.resx
Normal file
132
WT-DMS/Form1.resx
Normal file
@@ -0,0 +1,132 @@
|
||||
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>130, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>256, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>47</value>
|
||||
</metadata>
|
||||
</root>
|
||||
358
WT-DMS/Form1.vb
Normal file
358
WT-DMS/Form1.vb
Normal file
@@ -0,0 +1,358 @@
|
||||
Public Class Form1
|
||||
Public QuitReson As QUIT_RESON = QUIT_RESON.close
|
||||
|
||||
Public Enum FORM_TYPE
|
||||
none
|
||||
料号管理
|
||||
料号查询
|
||||
物料入库
|
||||
物料出库
|
||||
物料查询
|
||||
物料入出库记录
|
||||
BOM管理
|
||||
供应商管理
|
||||
用户管理
|
||||
系统记录
|
||||
财务明细录入_开发
|
||||
财务明细查询_开发
|
||||
财务明细录入_销售
|
||||
财务明细查询_销售
|
||||
合并用料查询
|
||||
备份管理
|
||||
max
|
||||
End Enum
|
||||
|
||||
Dim g_Form_Track(FORM_TYPE.max - 1) As Form
|
||||
|
||||
|
||||
Dim m_AccountManage As New CAccountManage
|
||||
|
||||
Dim m_LastError As String = ""
|
||||
|
||||
Private Function GetLastError() As String
|
||||
Return m_LastError
|
||||
End Function
|
||||
|
||||
'Private Function LoginCheck() As Boolean
|
||||
' Dim pLoginForm As New LoginForm1
|
||||
|
||||
' pLoginForm.ShowDialog()
|
||||
' Return pLoginForm.LoginResult
|
||||
'End Function
|
||||
|
||||
'根据权限设置相应菜单的禁用状态
|
||||
Private Sub SetAccessState()
|
||||
'开启最低权限
|
||||
Current_Rights(COL_RIGHTS.仓库管理) = Current_Rights(COL_RIGHTS.仓库管理) Or RIGHTS.READ
|
||||
Current_Rights(COL_RIGHTS.库位管理) = Current_Rights(COL_RIGHTS.库位管理) Or RIGHTS.READ
|
||||
|
||||
|
||||
'设置相应权限
|
||||
CAccountManage.AccessRight = Current_Rights(COL_RIGHTS.用户管理)
|
||||
CBOM.AccessRight = Current_Rights(COL_RIGHTS.BOM管理)
|
||||
'CCompanyManage.AccessRight = Current_Rights(COL_RIGHTS.
|
||||
'CDepartmentManage.AccessRight = Current_Rights(
|
||||
CLogManage.AccessRight = Current_Rights(COL_RIGHTS.系统记录)
|
||||
CMaterialInOut.AccessRight = Current_Rights(COL_RIGHTS.原料库存管理)
|
||||
CPartNumber.AccessRight = Current_Rights(COL_RIGHTS.料号管理)
|
||||
CProductsManage.AccessRight = Current_Rights(COL_RIGHTS.成品库存管理)
|
||||
CStore.AccessRight = Current_Rights(COL_RIGHTS.仓库管理)
|
||||
CStoreLocation.AccessRight = Current_Rights(COL_RIGHTS.库位管理)
|
||||
CSupplier.AccessRight = Current_Rights(COL_RIGHTS.供应商管理)
|
||||
|
||||
料号管理ToolStripMenuItem.Enabled = CBool(Current_Rights(COL_RIGHTS.料号管理))
|
||||
查询ToolStripMenuItem3.Enabled = CBool(Current_Rights(COL_RIGHTS.料号管理) And RIGHTS.READ)
|
||||
录入ToolStripMenuItem2.Enabled = CBool(Current_Rights(COL_RIGHTS.料号管理) And RIGHTS.WRITE)
|
||||
|
||||
原料库存管理ToolStripMenuItem.Enabled = CBool(Current_Rights(COL_RIGHTS.原料库存管理)) And 料号管理ToolStripMenuItem.Enabled
|
||||
录入ToolStripMenuItem.Enabled = CBool(Current_Rights(COL_RIGHTS.原料库存管理) And RIGHTS.WRITE) And 查询ToolStripMenuItem3.Enabled
|
||||
删除ToolStripMenuItem.Enabled = CBool(Current_Rights(COL_RIGHTS.原料库存管理) And RIGHTS.WRITE) And 查询ToolStripMenuItem3.Enabled
|
||||
查询ToolStripMenuItem.Enabled = CBool(Current_Rights(COL_RIGHTS.原料库存管理) And RIGHTS.READ) And 查询ToolStripMenuItem3.Enabled
|
||||
|
||||
'成品库存管理ToolStripMenuItem.Enabled = CBool(Current_Rights(COL_RIGHTS.成品库存管理))
|
||||
'录入ToolStripMenuItem1.Enabled = CBool(Current_Rights(COL_RIGHTS.成品库存管理) And RIGHTS.WRITE)
|
||||
'删除ToolStripMenuItem1.Enabled = CBool(Current_Rights(COL_RIGHTS.成品库存管理) And RIGHTS.WRITE)
|
||||
'查询ToolStripMenuItem1.Enabled = CBool(Current_Rights(COL_RIGHTS.成品库存管理) And RIGHTS.READ)
|
||||
|
||||
'BOM管理ToolStripMenuItem.Enabled = CBool(Current_Rights(COL_RIGHTS.BOM管理))
|
||||
供应商管理ToolStripMenuItem.Enabled = CBool(Current_Rights(COL_RIGHTS.供应商管理) And RIGHTS.WRITE)
|
||||
用户管理ToolStripMenuItem.Enabled = CBool(Current_Rights(COL_RIGHTS.用户管理) And RIGHTS.WRITE)
|
||||
系统记录ToolStripMenuItem.Enabled = CBool(Current_Rights(COL_RIGHTS.系统记录) And RIGHTS.READ)
|
||||
|
||||
财务管理ToolStripMenuItem.Enabled = CBool(Current_Rights(COL_RIGHTS.财务管理) And RIGHTS.WRITE)
|
||||
录入ToolStripMenuItem3.Enabled = CBool(Current_Rights(COL_RIGHTS.财务管理) And RIGHTS.WRITE)
|
||||
查询ToolStripMenuItem2.Enabled = CBool(Current_Rights(COL_RIGHTS.财务管理) And RIGHTS.READ)
|
||||
End Sub
|
||||
|
||||
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.Text &= " (Build:" & My.Application.Info.Version.ToString & ") " & "用户:" & Current_UserName
|
||||
|
||||
MainForm = Me
|
||||
|
||||
'根据权限设置相应菜单的禁用状态
|
||||
SetAccessState()
|
||||
End Sub
|
||||
|
||||
Private Sub 关于ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 关于ToolStripMenuItem.Click
|
||||
Dim pAbout As New AboutBox1
|
||||
pAbout.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub 用户管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 用户管理ToolStripMenuItem.Click
|
||||
If g_Form_Track(FORM_TYPE.用户管理) Is Nothing OrElse g_Form_Track(FORM_TYPE.用户管理).IsDisposed Then
|
||||
g_Form_Track(FORM_TYPE.用户管理) = New form_UserManage
|
||||
g_Form_Track(FORM_TYPE.用户管理).Text = "Form" & FORM_TYPE.用户管理 & "-" & g_Form_Track(FORM_TYPE.用户管理).Text
|
||||
End If
|
||||
g_Form_Track(FORM_TYPE.用户管理).MdiParent = Me
|
||||
g_Form_Track(FORM_TYPE.用户管理).Show()
|
||||
g_Form_Track(FORM_TYPE.用户管理).BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub 新建ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
'Dim m_BomOper As New CBOM
|
||||
'If m_BomOper.CreateNew("333") = ERROR_CODE.SUCCESS Then
|
||||
' MsgBox("Create OK")
|
||||
'Else
|
||||
' MsgBox("Create Fail")
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
Private Sub 注销ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 注销ToolStripMenuItem.Click
|
||||
QuitReson = QUIT_RESON.logout
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click
|
||||
QuitReson = QUIT_RESON.close
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub 系统记录ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 系统记录ToolStripMenuItem.Click
|
||||
If CBool(Current_Rights(COL_RIGHTS.系统记录) & RIGHTS.READ) = False Then
|
||||
MsgBox("权限不足，请联系管理员!")
|
||||
Return
|
||||
End If
|
||||
|
||||
If g_Form_Track(FORM_TYPE.系统记录) Is Nothing OrElse g_Form_Track(FORM_TYPE.系统记录).IsDisposed Then
|
||||
g_Form_Track(FORM_TYPE.系统记录) = New Form_SysLog
|
||||
g_Form_Track(FORM_TYPE.系统记录).Text = "Form" & FORM_TYPE.系统记录 & "-" & g_Form_Track(FORM_TYPE.系统记录).Text
|
||||
End If
|
||||
g_Form_Track(FORM_TYPE.系统记录).MdiParent = Me
|
||||
g_Form_Track(FORM_TYPE.系统记录).Show()
|
||||
g_Form_Track(FORM_TYPE.系统记录).BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Function StoreSelect(ByRef storeName As String, ByRef 库位表名 As String) As Boolean
|
||||
Dim pdlg As New dlg_StoreSelect
|
||||
If dlg_StoreSelect.ShowDialog() <> DialogResult.OK Then Return False
|
||||
|
||||
storeName = dlg_StoreSelect.combo_Store.Text
|
||||
库位表名 = dlg_StoreSelect.m_SelPosName
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Sub 录入ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 录入ToolStripMenuItem.Click
|
||||
If CBool(Current_Rights(COL_RIGHTS.原料库存管理) & RIGHTS.WRITE) = False Then
|
||||
MsgBox("权限不足，请联系管理员!")
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim StoreName As String = ""
|
||||
Dim PosName As String = ""
|
||||
If g_Form_Track(FORM_TYPE.物料入库) Is Nothing OrElse g_Form_Track(FORM_TYPE.物料入库).IsDisposed Then
|
||||
g_Form_Track(FORM_TYPE.物料入库) = New form_Material
|
||||
End If
|
||||
CType(g_Form_Track(FORM_TYPE.物料入库), form_Material).OutStore = False '指定为入库操作
|
||||
g_Form_Track(FORM_TYPE.物料入库).Text = "物料入库"
|
||||
g_Form_Track(FORM_TYPE.物料入库).Text = "Form" & FORM_TYPE.物料入库 & "-" & g_Form_Track(FORM_TYPE.物料入库).Text
|
||||
g_Form_Track(FORM_TYPE.物料入库).MdiParent = Me
|
||||
g_Form_Track(FORM_TYPE.物料入库).Show()
|
||||
g_Form_Track(FORM_TYPE.物料入库).BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub 删除ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 删除ToolStripMenuItem.Click
|
||||
If CBool(Current_Rights(COL_RIGHTS.原料库存管理) & RIGHTS.WRITE) = False Then
|
||||
MsgBox("权限不足，请联系管理员!")
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim StoreName As String = ""
|
||||
Dim PosName As String = ""
|
||||
If g_Form_Track(FORM_TYPE.物料出库) Is Nothing OrElse g_Form_Track(FORM_TYPE.物料出库).IsDisposed Then
|
||||
g_Form_Track(FORM_TYPE.物料出库) = New form_Material
|
||||
End If
|
||||
CType(g_Form_Track(FORM_TYPE.物料出库), form_Material).OutStore = True '指定为出库操作
|
||||
g_Form_Track(FORM_TYPE.物料出库).Text = "物料出库"
|
||||
g_Form_Track(FORM_TYPE.物料出库).Text = "Form" & FORM_TYPE.物料出库 & "-" & g_Form_Track(FORM_TYPE.物料出库).Text
|
||||
g_Form_Track(FORM_TYPE.物料出库).MdiParent = Me
|
||||
g_Form_Track(FORM_TYPE.物料出库).Show()
|
||||
g_Form_Track(FORM_TYPE.物料出库).BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub 供应商管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 供应商管理ToolStripMenuItem.Click
|
||||
If g_Form_Track(FORM_TYPE.供应商管理) Is Nothing OrElse g_Form_Track(FORM_TYPE.供应商管理).IsDisposed Then
|
||||
g_Form_Track(FORM_TYPE.供应商管理) = New form_SupplierManage
|
||||
g_Form_Track(FORM_TYPE.供应商管理).Text = "Form" & FORM_TYPE.供应商管理 & "-" & g_Form_Track(FORM_TYPE.供应商管理).Text
|
||||
End If
|
||||
g_Form_Track(FORM_TYPE.供应商管理).MdiParent = Me
|
||||
g_Form_Track(FORM_TYPE.供应商管理).Show()
|
||||
g_Form_Track(FORM_TYPE.供应商管理).BringToFront()
|
||||
End Sub
|
||||
|
||||
'Private Sub 录入ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 录入ToolStripMenuItem1.Click
|
||||
' If CBool(Current_Rights(COL_RIGHTS.成品库存管理) & RIGHTS.WRITE) = False Then
|
||||
' MsgBox("权限不足，请联系管理员!")
|
||||
' Return
|
||||
' End If
|
||||
|
||||
' Dim StoreName As String = ""
|
||||
' Dim PosName As String = ""
|
||||
' Dim pForm As New form_Product
|
||||
' pForm.OutStore = False '指定为入库操作
|
||||
' pForm.Text = "成品入库"
|
||||
' pForm.MdiParent = Me
|
||||
' pForm.Show()
|
||||
'End Sub
|
||||
|
||||
'Private Sub 删除ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 删除ToolStripMenuItem1.Click
|
||||
' If CBool(Current_Rights(COL_RIGHTS.成品库存管理) & RIGHTS.WRITE) = False Then
|
||||
' MsgBox("权限不足，请联系管理员!")
|
||||
' Return
|
||||
' End If
|
||||
|
||||
' Dim StoreName As String = ""
|
||||
' Dim PosName As String = ""
|
||||
' Dim pForm As New form_Product
|
||||
' pForm.OutStore = True '指定为出库操作
|
||||
' pForm.Text = "成品出库"
|
||||
' pForm.MdiParent = Me
|
||||
' pForm.Show()
|
||||
'End Sub
|
||||
|
||||
Private Sub 查询ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询ToolStripMenuItem3.Click
|
||||
If g_Form_Track(FORM_TYPE.料号查询) Is Nothing OrElse g_Form_Track(FORM_TYPE.料号查询).IsDisposed Then
|
||||
g_Form_Track(FORM_TYPE.料号查询) = New form_QuerySim
|
||||
g_Form_Track(FORM_TYPE.料号查询).Text = "Form" & FORM_TYPE.料号查询 & "-" & g_Form_Track(FORM_TYPE.料号查询).Text
|
||||
End If
|
||||
g_Form_Track(FORM_TYPE.料号查询).MdiParent = Me
|
||||
g_Form_Track(FORM_TYPE.料号查询).Show()
|
||||
g_Form_Track(FORM_TYPE.料号查询).BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub 录入ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 录入ToolStripMenuItem2.Click
|
||||
If g_Form_Track(FORM_TYPE.料号管理) Is Nothing OrElse g_Form_Track(FORM_TYPE.料号管理).IsDisposed Then
|
||||
g_Form_Track(FORM_TYPE.料号管理) = New form_PartNumber
|
||||
g_Form_Track(FORM_TYPE.料号管理).Text = "Form" & FORM_TYPE.料号管理 & "-" & g_Form_Track(FORM_TYPE.料号管理).Text
|
||||
End If
|
||||
g_Form_Track(FORM_TYPE.料号管理).MdiParent = Me
|
||||
g_Form_Track(FORM_TYPE.料号管理).Show()
|
||||
g_Form_Track(FORM_TYPE.料号管理).BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub 查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询ToolStripMenuItem.Click
|
||||
If g_Form_Track(FORM_TYPE.物料查询) Is Nothing OrElse g_Form_Track(FORM_TYPE.物料查询).IsDisposed Then
|
||||
g_Form_Track(FORM_TYPE.物料查询) = New Form_QueryStorage
|
||||
g_Form_Track(FORM_TYPE.物料查询).Text = "Form" & FORM_TYPE.物料查询 & "-" & g_Form_Track(FORM_TYPE.物料查询).Text
|
||||
End If
|
||||
|
||||
g_Form_Track(FORM_TYPE.物料查询).MdiParent = Me
|
||||
g_Form_Track(FORM_TYPE.物料查询).Show()
|
||||
g_Form_Track(FORM_TYPE.物料查询).BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub 出入库记录ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 出入库记录ToolStripMenuItem.Click
|
||||
If g_Form_Track(FORM_TYPE.物料入出库记录) Is Nothing OrElse g_Form_Track(FORM_TYPE.物料入出库记录).IsDisposed Then
|
||||
g_Form_Track(FORM_TYPE.物料入出库记录) = New Form_QueryStorageRecord
|
||||
g_Form_Track(FORM_TYPE.物料入出库记录).Text = "Form" & FORM_TYPE.物料入出库记录 & "-" & g_Form_Track(FORM_TYPE.物料入出库记录).Text
|
||||
End If
|
||||
|
||||
g_Form_Track(FORM_TYPE.物料入出库记录).MdiParent = Me
|
||||
g_Form_Track(FORM_TYPE.物料入出库记录).Show()
|
||||
g_Form_Track(FORM_TYPE.物料入出库记录).BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub BOM管理ToolStripMenuItem_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub 录入ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles 录入ToolStripMenuItem3.Click
|
||||
If g_Form_Track(FORM_TYPE.财务明细录入_开发) Is Nothing OrElse g_Form_Track(FORM_TYPE.财务明细录入_开发).IsDisposed Then
|
||||
g_Form_Track(FORM_TYPE.财务明细录入_开发) = New Form_FinancialRecords_Development
|
||||
g_Form_Track(FORM_TYPE.财务明细录入_开发).Text = "Form" & FORM_TYPE.财务明细录入_开发 & "-" & g_Form_Track(FORM_TYPE.财务明细录入_开发).Text
|
||||
End If
|
||||
|
||||
g_Form_Track(FORM_TYPE.财务明细录入_开发).MdiParent = Me
|
||||
g_Form_Track(FORM_TYPE.财务明细录入_开发).Show()
|
||||
g_Form_Track(FORM_TYPE.财务明细录入_开发).BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub 查询ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles 查询ToolStripMenuItem2.Click
|
||||
If g_Form_Track(FORM_TYPE.财务明细查询_开发) Is Nothing OrElse g_Form_Track(FORM_TYPE.财务明细查询_开发).IsDisposed Then
|
||||
g_Form_Track(FORM_TYPE.财务明细查询_开发) = New Form_FinancialQuery_Development
|
||||
g_Form_Track(FORM_TYPE.财务明细查询_开发).Text = "Form" & FORM_TYPE.财务明细查询_开发 & "-" & g_Form_Track(FORM_TYPE.财务明细查询_开发).Text
|
||||
End If
|
||||
|
||||
g_Form_Track(FORM_TYPE.财务明细查询_开发).MdiParent = Me
|
||||
g_Form_Track(FORM_TYPE.财务明细查询_开发).Show()
|
||||
g_Form_Track(FORM_TYPE.财务明细查询_开发).BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub tsmi_录入_销售部_Click(sender As Object, e As EventArgs) Handles tsmi_录入_销售部.Click
|
||||
If g_Form_Track(FORM_TYPE.财务明细录入_销售) Is Nothing OrElse g_Form_Track(FORM_TYPE.财务明细录入_销售).IsDisposed Then
|
||||
g_Form_Track(FORM_TYPE.财务明细录入_销售) = New Form_FinancialRecords_Sales
|
||||
g_Form_Track(FORM_TYPE.财务明细录入_销售).Text = "Form" & FORM_TYPE.财务明细录入_销售 & "-" & g_Form_Track(FORM_TYPE.财务明细录入_销售).Text
|
||||
End If
|
||||
|
||||
g_Form_Track(FORM_TYPE.财务明细录入_销售).MdiParent = Me
|
||||
g_Form_Track(FORM_TYPE.财务明细录入_销售).Show()
|
||||
g_Form_Track(FORM_TYPE.财务明细录入_销售).BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub tsmi_查询_销售部_Click(sender As Object, e As EventArgs) Handles tsmi_查询_销售部.Click
|
||||
If g_Form_Track(FORM_TYPE.财务明细查询_销售) Is Nothing OrElse g_Form_Track(FORM_TYPE.财务明细查询_销售).IsDisposed Then
|
||||
g_Form_Track(FORM_TYPE.财务明细查询_销售) = New Form_FinancialQuery_Sales
|
||||
g_Form_Track(FORM_TYPE.财务明细查询_销售).Text = "Form" & FORM_TYPE.财务明细查询_销售 & "-" & g_Form_Track(FORM_TYPE.财务明细查询_销售).Text
|
||||
End If
|
||||
|
||||
g_Form_Track(FORM_TYPE.财务明细查询_销售).MdiParent = Me
|
||||
g_Form_Track(FORM_TYPE.财务明细查询_销售).Show()
|
||||
g_Form_Track(FORM_TYPE.财务明细查询_销售).BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub BOMToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BOMToolStripMenuItem.Click
|
||||
If g_Form_Track(FORM_TYPE.BOM管理) Is Nothing OrElse g_Form_Track(FORM_TYPE.BOM管理).IsDisposed Then
|
||||
g_Form_Track(FORM_TYPE.BOM管理) = New form_BomManage
|
||||
g_Form_Track(FORM_TYPE.BOM管理).Text = "Form" & FORM_TYPE.BOM管理 & "-" & g_Form_Track(FORM_TYPE.BOM管理).Text
|
||||
End If
|
||||
|
||||
g_Form_Track(FORM_TYPE.BOM管理).MdiParent = Me
|
||||
g_Form_Track(FORM_TYPE.BOM管理).Show()
|
||||
g_Form_Track(FORM_TYPE.BOM管理).BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub 合并备料查询ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 合并备料查询ToolStripMenuItem.Click
|
||||
If g_Form_Track(FORM_TYPE.合并用料查询) Is Nothing OrElse g_Form_Track(FORM_TYPE.合并用料查询).IsDisposed Then
|
||||
g_Form_Track(FORM_TYPE.合并用料查询) = New Form_合并备料查询
|
||||
g_Form_Track(FORM_TYPE.合并用料查询).Text = "Form" & FORM_TYPE.合并用料查询 & "-" & g_Form_Track(FORM_TYPE.合并用料查询).Text
|
||||
End If
|
||||
|
||||
g_Form_Track(FORM_TYPE.合并用料查询).MdiParent = Me
|
||||
g_Form_Track(FORM_TYPE.合并用料查询).Show()
|
||||
g_Form_Track(FORM_TYPE.合并用料查询).BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub 备份管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 备份管理ToolStripMenuItem1.Click
|
||||
If g_Form_Track(FORM_TYPE.备份管理) Is Nothing OrElse g_Form_Track(FORM_TYPE.备份管理).IsDisposed Then
|
||||
g_Form_Track(FORM_TYPE.备份管理) = New Form_备份管理
|
||||
g_Form_Track(FORM_TYPE.备份管理).Text = "Form" & FORM_TYPE.备份管理 & "-" & g_Form_Track(FORM_TYPE.备份管理).Text
|
||||
End If
|
||||
|
||||
g_Form_Track(FORM_TYPE.备份管理).MdiParent = Me
|
||||
g_Form_Track(FORM_TYPE.备份管理).Show()
|
||||
g_Form_Track(FORM_TYPE.备份管理).BringToFront()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
103
WT-DMS/Form_FinancialQuery_Development.Designer.vb
generated
Normal file
103
WT-DMS/Form_FinancialQuery_Development.Designer.vb
generated
Normal file
@@ -0,0 +1,103 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form_FinancialQuery_Development
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<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
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form_FinancialQuery_Development))
|
||||
Me.Grid1 = New FlexCell.Grid()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.tsb_Query = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.tsb_ExportToExcel = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Grid1
|
||||
'
|
||||
Me.Grid1.AllowUserSort = True
|
||||
Me.Grid1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Grid1.CheckedImage = CType(resources.GetObject("Grid1.CheckedImage"), System.Drawing.Bitmap)
|
||||
Me.Grid1.Cols = 7
|
||||
Me.Grid1.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||
Me.Grid1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Grid1.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.Grid1.ImeMode = System.Windows.Forms.ImeMode.[On]
|
||||
Me.Grid1.Location = New System.Drawing.Point(0, 28)
|
||||
Me.Grid1.Name = "Grid1"
|
||||
Me.Grid1.Rows = 500
|
||||
Me.Grid1.Size = New System.Drawing.Size(948, 539)
|
||||
Me.Grid1.TabIndex = 16
|
||||
Me.Grid1.UncheckedImage = CType(resources.GetObject("Grid1.UncheckedImage"), System.Drawing.Bitmap)
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsb_Query, Me.ToolStripSeparator1, Me.tsb_ExportToExcel})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(948, 25)
|
||||
Me.ToolStrip1.TabIndex = 19
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'tsb_Query
|
||||
'
|
||||
Me.tsb_Query.Image = CType(resources.GetObject("tsb_Query.Image"), System.Drawing.Image)
|
||||
Me.tsb_Query.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsb_Query.Name = "tsb_Query"
|
||||
Me.tsb_Query.Size = New System.Drawing.Size(52, 22)
|
||||
Me.tsb_Query.Text = "查询"
|
||||
'
|
||||
'ToolStripSeparator1
|
||||
'
|
||||
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'tsb_ExportToExcel
|
||||
'
|
||||
Me.tsb_ExportToExcel.Image = CType(resources.GetObject("tsb_ExportToExcel.Image"), System.Drawing.Image)
|
||||
Me.tsb_ExportToExcel.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsb_ExportToExcel.Name = "tsb_ExportToExcel"
|
||||
Me.tsb_ExportToExcel.Size = New System.Drawing.Size(93, 22)
|
||||
Me.tsb_ExportToExcel.Text = "导出为Excel"
|
||||
'
|
||||
'Form_FinancialQuery_Development
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(948, 569)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.Grid1)
|
||||
Me.Name = "Form_FinancialQuery_Development"
|
||||
Me.Text = "帐务明细查询-开发部"
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Grid1 As FlexCell.Grid
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents tsb_ExportToExcel As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents tsb_Query As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
|
||||
End Class
|
||||
170
WT-DMS/Form_FinancialQuery_Development.resx
Normal file
170
WT-DMS/Form_FinancialQuery_Development.resx
Normal file
@@ -0,0 +1,170 @@
|
||||
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="Grid1.CheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAo6j/////+ACjqP/w///4AKOo/wAP//gAo6jwAAD/+ACjqPAPAA/4AKOo8P/wAPgAo6j///8A+A
|
||||
CjqP////D4AKOo//////gAo6iIiIiIiACjo=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Grid1.UncheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAo6j/////+ACjqP/////4AKOo//////gAo6j/////+ACjqP/////4AKOo//////gAo6j/////+A
|
||||
CjqP/////4AKOo//////gAo6iIiIiIiACjo=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<data name="tsb_Query.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="tsb_ExportToExcel.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
63
WT-DMS/Form_FinancialQuery_Development.vb
Normal file
63
WT-DMS/Form_FinancialQuery_Development.vb
Normal file
@@ -0,0 +1,63 @@
|
||||
Public Class Form_FinancialQuery_Development
|
||||
Dim m_Table As New System.Data.DataTable
|
||||
Dim m_InitOver As Boolean = False
|
||||
|
||||
Public Shared cst_TABLE_NAME As String = "收支明细表_开发"
|
||||
|
||||
Private Sub tsb_Query_Click(sender As Object, e As EventArgs) Handles tsb_Query.Click
|
||||
RefreshList()
|
||||
End Sub
|
||||
|
||||
Private Function QueryAllFinancialItems() As Boolean
|
||||
Dim result As Boolean = False
|
||||
Dim strSQL As String = "SELECT * FROM `" & cst_TABLE_NAME & "` GROUP BY `序号`"
|
||||
|
||||
m_Table.Rows.Clear()
|
||||
m_Table.Columns.Clear()
|
||||
If SQL_Query(COL_RIGHTS.财务管理, strSQL, m_Table) = True Then
|
||||
result = True
|
||||
End If
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Private Function RefreshList() As Boolean
|
||||
QueryAllFinancialItems()
|
||||
|
||||
Grid1.AllowUserSort = True
|
||||
Grid1.DisplayFocusRect = False
|
||||
Grid1.ExtendLastCol = True
|
||||
Grid1.DisplayRowArrow = True
|
||||
Grid1.BoldFixedCell = False
|
||||
Grid1.SortIndicatorStyle = FlexCell.SortIndicatorStyleEnum.Light3D
|
||||
|
||||
'绑定到数据源时可以指定固定行数，但绑定后不能改变Grid.FixedRows属性的值
|
||||
'Grid1.SetDataBinding(m_Table, "products", True, 2)
|
||||
Grid1.SetDataBinding(m_Table, "", True, 1)
|
||||
|
||||
CGirdInfo.LoadGridInfo("财务管理_查询", Grid1)
|
||||
|
||||
Grid1.Locked = True
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Sub Grid1_ColWidthChange(Sender As Object, e As FlexCell.Grid.ColWidthChangeEventArgs) Handles Grid1.ColWidthChange
|
||||
CGirdInfo.SaveGirdInfo("财务管理_查询", Grid1)
|
||||
End Sub
|
||||
|
||||
Private Sub tsb_ExportToExcel_Click(sender As Object, e As EventArgs) Handles tsb_ExportToExcel.Click
|
||||
Dim dlg As New SaveFileDialog
|
||||
dlg.DefaultExt = "xls"
|
||||
dlg.Filter = "Excel File (*.xls)|*.xls"
|
||||
If dlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then
|
||||
Return
|
||||
End If
|
||||
|
||||
If Grid1.ExportToExcel(dlg.FileName, True, False) = True Then
|
||||
MsgBox("导出为Excel OK！")
|
||||
Else
|
||||
MsgBox("导出为Excel Error！")
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
101
WT-DMS/Form_FinancialQuery_Sales.Designer.vb
generated
Normal file
101
WT-DMS/Form_FinancialQuery_Sales.Designer.vb
generated
Normal file
@@ -0,0 +1,101 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form_FinancialQuery_Sales
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<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
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form_FinancialQuery_Sales))
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.tsb_Query = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.tsb_ExportToExcel = New System.Windows.Forms.ToolStripButton()
|
||||
Me.Grid1 = New FlexCell.Grid()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsb_Query, Me.ToolStripSeparator1, Me.tsb_ExportToExcel})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(893, 25)
|
||||
Me.ToolStrip1.TabIndex = 21
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'tsb_Query
|
||||
'
|
||||
Me.tsb_Query.Image = CType(resources.GetObject("tsb_Query.Image"), System.Drawing.Image)
|
||||
Me.tsb_Query.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsb_Query.Name = "tsb_Query"
|
||||
Me.tsb_Query.Size = New System.Drawing.Size(52, 22)
|
||||
Me.tsb_Query.Text = "查询"
|
||||
'
|
||||
'ToolStripSeparator1
|
||||
'
|
||||
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'tsb_ExportToExcel
|
||||
'
|
||||
Me.tsb_ExportToExcel.Image = CType(resources.GetObject("tsb_ExportToExcel.Image"), System.Drawing.Image)
|
||||
Me.tsb_ExportToExcel.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsb_ExportToExcel.Name = "tsb_ExportToExcel"
|
||||
Me.tsb_ExportToExcel.Size = New System.Drawing.Size(93, 22)
|
||||
Me.tsb_ExportToExcel.Text = "导出为Excel"
|
||||
'
|
||||
'Grid1
|
||||
'
|
||||
Me.Grid1.AllowUserSort = True
|
||||
Me.Grid1.CheckedImage = CType(resources.GetObject("Grid1.CheckedImage"), System.Drawing.Bitmap)
|
||||
Me.Grid1.Cols = 7
|
||||
Me.Grid1.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||
Me.Grid1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Grid1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Grid1.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.Grid1.ImeMode = System.Windows.Forms.ImeMode.[On]
|
||||
Me.Grid1.Location = New System.Drawing.Point(0, 25)
|
||||
Me.Grid1.Name = "Grid1"
|
||||
Me.Grid1.Rows = 500
|
||||
Me.Grid1.Size = New System.Drawing.Size(893, 535)
|
||||
Me.Grid1.TabIndex = 22
|
||||
Me.Grid1.UncheckedImage = CType(resources.GetObject("Grid1.UncheckedImage"), System.Drawing.Bitmap)
|
||||
'
|
||||
'Form_FinancialQuery_Sales
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(893, 560)
|
||||
Me.Controls.Add(Me.Grid1)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Name = "Form_FinancialQuery_Sales"
|
||||
Me.Text = "帐务明细查询-销售部"
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents tsb_Query As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents tsb_ExportToExcel As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents Grid1 As FlexCell.Grid
|
||||
End Class
|
||||
170
WT-DMS/Form_FinancialQuery_Sales.resx
Normal file
170
WT-DMS/Form_FinancialQuery_Sales.resx
Normal file
@@ -0,0 +1,170 @@
|
||||
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="tsb_Query.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="tsb_ExportToExcel.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="Grid1.CheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAo6j/////+ACjqP/w///4AKOo/wAP//gAo6jwAAD/+ACjqPAPAA/4AKOo8P/wAPgAo6j///8A+A
|
||||
CjqP////D4AKOo//////gAo6iIiIiIiACjo=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Grid1.UncheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAo6j/////+ACjqP/////4AKOo//////gAo6j/////+ACjqP/////4AKOo//////gAo6j/////+A
|
||||
CjqP/////4AKOo//////gAo6iIiIiIiACjo=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
63
WT-DMS/Form_FinancialQuery_Sales.vb
Normal file
63
WT-DMS/Form_FinancialQuery_Sales.vb
Normal file
@@ -0,0 +1,63 @@
|
||||
Public Class Form_FinancialQuery_Sales
|
||||
Dim m_Table As New System.Data.DataTable
|
||||
Dim m_InitOver As Boolean = False
|
||||
|
||||
Public Shared cst_TABLE_NAME As String = "收支明细表_销售"
|
||||
|
||||
Private Sub tsb_Query_Click(sender As Object, e As EventArgs) Handles tsb_Query.Click
|
||||
RefreshList()
|
||||
End Sub
|
||||
|
||||
Private Function QueryAllFinancialItems() As Boolean
|
||||
Dim result As Boolean = False
|
||||
Dim strSQL As String = "SELECT * FROM `" & cst_TABLE_NAME & "` GROUP BY `序号`"
|
||||
|
||||
m_Table.Rows.Clear()
|
||||
m_Table.Columns.Clear()
|
||||
If SQL_Query(COL_RIGHTS.财务管理, strSQL, m_Table) = True Then
|
||||
result = True
|
||||
End If
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Private Function RefreshList() As Boolean
|
||||
QueryAllFinancialItems()
|
||||
|
||||
Grid1.AllowUserSort = True
|
||||
Grid1.DisplayFocusRect = False
|
||||
Grid1.ExtendLastCol = True
|
||||
Grid1.DisplayRowArrow = True
|
||||
Grid1.BoldFixedCell = False
|
||||
Grid1.SortIndicatorStyle = FlexCell.SortIndicatorStyleEnum.Light3D
|
||||
|
||||
'绑定到数据源时可以指定固定行数，但绑定后不能改变Grid.FixedRows属性的值
|
||||
'Grid1.SetDataBinding(m_Table, "products", True, 2)
|
||||
Grid1.SetDataBinding(m_Table, "", True, 1)
|
||||
|
||||
CGirdInfo.LoadGridInfo("财务管理_查询_销售", Grid1)
|
||||
|
||||
Grid1.Locked = True
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Sub Grid1_ColWidthChange(Sender As Object, e As FlexCell.Grid.ColWidthChangeEventArgs) Handles Grid1.ColWidthChange
|
||||
CGirdInfo.SaveGirdInfo("财务管理_查询_销售", Grid1)
|
||||
End Sub
|
||||
|
||||
Private Sub tsb_ExportToExcel_Click(sender As Object, e As EventArgs) Handles tsb_ExportToExcel.Click
|
||||
Dim dlg As New SaveFileDialog
|
||||
dlg.DefaultExt = "xls"
|
||||
dlg.Filter = "Excel File (*.xls)|*.xls"
|
||||
If dlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then
|
||||
Return
|
||||
End If
|
||||
|
||||
If Grid1.ExportToExcel(dlg.FileName, True, False) = True Then
|
||||
MsgBox("导出为Excel OK！")
|
||||
Else
|
||||
MsgBox("导出为Excel Error！")
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
139
WT-DMS/Form_FinancialRecords_Development.Designer.vb
generated
Normal file
139
WT-DMS/Form_FinancialRecords_Development.Designer.vb
generated
Normal file
@@ -0,0 +1,139 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form_FinancialRecords_Development
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<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
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form_FinancialRecords_Development))
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.新建NToolStripButton = New System.Windows.Forms.ToolStripButton()
|
||||
Me.保存SToolStripButton = New System.Windows.Forms.ToolStripButton()
|
||||
Me.toolStripSeparator = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.Grid1 = New FlexCell.Grid()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.AutoSize = False
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.新建NToolStripButton, Me.保存SToolStripButton, Me.toolStripSeparator, Me.ToolStripButton1, Me.ToolStripButton2})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(828, 48)
|
||||
Me.ToolStrip1.TabIndex = 0
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'新建NToolStripButton
|
||||
'
|
||||
Me.新建NToolStripButton.Image = CType(resources.GetObject("新建NToolStripButton.Image"), System.Drawing.Image)
|
||||
Me.新建NToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.新建NToolStripButton.Name = "新建NToolStripButton"
|
||||
Me.新建NToolStripButton.Size = New System.Drawing.Size(70, 45)
|
||||
Me.新建NToolStripButton.Text = "新建(&N)"
|
||||
'
|
||||
'保存SToolStripButton
|
||||
'
|
||||
Me.保存SToolStripButton.Image = CType(resources.GetObject("保存SToolStripButton.Image"), System.Drawing.Image)
|
||||
Me.保存SToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.保存SToolStripButton.Name = "保存SToolStripButton"
|
||||
Me.保存SToolStripButton.Size = New System.Drawing.Size(67, 45)
|
||||
Me.保存SToolStripButton.Text = "保存(&S)"
|
||||
'
|
||||
'toolStripSeparator
|
||||
'
|
||||
Me.toolStripSeparator.Name = "toolStripSeparator"
|
||||
Me.toolStripSeparator.Size = New System.Drawing.Size(6, 48)
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
|
||||
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||
Me.ToolStripButton1.Size = New System.Drawing.Size(48, 45)
|
||||
Me.ToolStripButton1.Text = "增加行"
|
||||
'
|
||||
'ToolStripButton2
|
||||
'
|
||||
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
|
||||
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton2.Name = "ToolStripButton2"
|
||||
Me.ToolStripButton2.Size = New System.Drawing.Size(48, 45)
|
||||
Me.ToolStripButton2.Text = "删除行"
|
||||
'
|
||||
'Grid1
|
||||
'
|
||||
Me.Grid1.AllowUserSort = True
|
||||
Me.Grid1.CheckedImage = CType(resources.GetObject("Grid1.CheckedImage"), System.Drawing.Bitmap)
|
||||
Me.Grid1.Cols = 7
|
||||
Me.Grid1.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||
Me.Grid1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Grid1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Grid1.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.Grid1.ImeMode = System.Windows.Forms.ImeMode.[On]
|
||||
Me.Grid1.Location = New System.Drawing.Point(0, 48)
|
||||
Me.Grid1.Name = "Grid1"
|
||||
Me.Grid1.Rows = 500
|
||||
Me.Grid1.Size = New System.Drawing.Size(828, 442)
|
||||
Me.Grid1.TabIndex = 16
|
||||
Me.Grid1.UncheckedImage = CType(resources.GetObject("Grid1.UncheckedImage"), System.Drawing.Bitmap)
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.BackColor = System.Drawing.Color.Gainsboro
|
||||
Me.Label1.Font = New System.Drawing.Font("微软雅黑", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Label1.ForeColor = System.Drawing.Color.Blue
|
||||
Me.Label1.Location = New System.Drawing.Point(348, 1)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(125, 46)
|
||||
Me.Label1.TabIndex = 17
|
||||
Me.Label1.Text = "开发部"
|
||||
'
|
||||
'Form_FinancialRecords_Development
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(828, 490)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.Grid1)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Name = "Form_FinancialRecords_Development"
|
||||
Me.Text = "帐务明细录入-开发部"
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents 新建NToolStripButton As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents 保存SToolStripButton As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents toolStripSeparator As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents Grid1 As FlexCell.Grid
|
||||
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
End Class
|
||||
197
WT-DMS/Form_FinancialRecords_Development.resx
Normal file
197
WT-DMS/Form_FinancialRecords_Development.resx
Normal file
@@ -0,0 +1,197 @@
|
||||
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="新建NToolStripButton.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEPSURBVDhPrdPZasJAFAZgX8q+Q32N9o2kXkjphQsigoJC
|
||||
ixa1VAWXiohG7IakbmjcNcYl5i8TCQSdGXPhgcPczHwz5xzGZrtWRN+bOM1wqo5gvAJfrIBy4w/cu8hh
|
||||
VjyG3nDjuOcjkbTABB58cSRy9SMiiPSXhF6rTMDpedEPG0ktJfD8wQT26gEEMSAq4I3mqYCmaZCVHQZj
|
||||
WQfst3f0Ep7CGSqw3amYzBWI/TkfcAdTZ4B60LCQt+hJK3yJEz7g8ifOAGWzhzRdo9WdofYt8QFSnzlI
|
||||
42bLDdqDBZqtMUpC3zpgbtxPe4rq5xDZSsc6YG6c8DtCodZDsihaA4x5s1bmGI0Zkw2X8lofWHf+AdjM
|
||||
9sNc+xBlAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="保存SToolStripButton.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="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="Grid1.CheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAo6j/////+ACjqP/w///4AKOo/wAP//gAo6jwAAD/+ACjqPAPAA/4AKOo8P/wAPgAo6j///8A+A
|
||||
CjqP////D4AKOo//////gAo6iIiIiIiACjo=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Grid1.UncheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAo6j/////+ACjqP/////4AKOo//////gAo6j/////+ACjqP/////4AKOo//////gAo6j/////+A
|
||||
CjqP/////4AKOo//////gAo6iIiIiIiACjo=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
564
WT-DMS/Form_FinancialRecords_Development.vb
Normal file
564
WT-DMS/Form_FinancialRecords_Development.vb
Normal file
@@ -0,0 +1,564 @@
|
||||
Public Class Form_FinancialRecords_Development
|
||||
Dim m_Table As New System.Data.DataTable
|
||||
Dim m_InitOver As Boolean = False
|
||||
|
||||
Public Shared cst_TABLE_NAME As String = "收支明细表_开发"
|
||||
|
||||
Public Enum COLS
|
||||
序号
|
||||
日期
|
||||
收入
|
||||
支出
|
||||
余额
|
||||
收支类别
|
||||
收支子类别
|
||||
机种
|
||||
交易方
|
||||
业务类型
|
||||
事由
|
||||
经手人
|
||||
单据类型
|
||||
单据编号
|
||||
备注1
|
||||
备注2
|
||||
备注3
|
||||
记录日期
|
||||
记录时间
|
||||
max
|
||||
End Enum
|
||||
|
||||
Public Enum COLS_PROP
|
||||
Name
|
||||
Insert
|
||||
Visible
|
||||
End Enum
|
||||
|
||||
'名称/Query
|
||||
Public Shared m_COLS_NAME(,) As String = {
|
||||
{"序号", "0", "1"},
|
||||
{"日期", "1", "1"},
|
||||
{"收入", "1", "1"},
|
||||
{"支出", "1", "1"},
|
||||
{"余额", "1", "1"},
|
||||
{"收支类别", "1", "1"},
|
||||
{"收支子类别", "1", "1"},
|
||||
{"机种", "1", "1"},
|
||||
{"交易方", "1", "1"},
|
||||
{"业务类型", "1", "1"},
|
||||
{"事由", "1", "1"},
|
||||
{"经手人", "1", "1"},
|
||||
{"单据类型", "1", "1"},
|
||||
{"单据编号", "1", "1"},
|
||||
{"备注1", "1", "1"},
|
||||
{"备注2", "1", "1"},
|
||||
{"备注3", "1", "1"},
|
||||
{"记录日期", "1", "1"},
|
||||
{"记录时间", "1", "1"}
|
||||
}
|
||||
|
||||
Private m_ColsType() As FlexCell.CellTypeEnum = {
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.Calendar,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.ComboBox,
|
||||
FlexCell.CellTypeEnum.ComboBox,
|
||||
FlexCell.CellTypeEnum.ComboBox,
|
||||
FlexCell.CellTypeEnum.ComboBox,
|
||||
FlexCell.CellTypeEnum.ComboBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.ComboBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.TextBox
|
||||
}
|
||||
|
||||
|
||||
Dim gridItemRecords_收支类别 As New System.Windows.Forms.AutoCompleteStringCollection
|
||||
Dim gridItemRecords_机种 As New System.Windows.Forms.AutoCompleteStringCollection
|
||||
Dim gridItemRecords_交易方 As New System.Windows.Forms.AutoCompleteStringCollection
|
||||
Dim gridItemRecords_业务类型 As New System.Windows.Forms.AutoCompleteStringCollection
|
||||
Dim gridItemRecords_单据类型 As New System.Windows.Forms.AutoCompleteStringCollection
|
||||
|
||||
Dim gridSubList_收支类别 As New ArrayList
|
||||
|
||||
Dim gridItemRecords_收支子类别 As New System.Windows.Forms.AutoCompleteStringCollection
|
||||
|
||||
Private Sub FillGridHeaderByDataTable()
|
||||
Grid1.NewFile()
|
||||
|
||||
Grid1.AllowUserSort = False
|
||||
Grid1.DisplayFocusRect = False
|
||||
Grid1.ExtendLastCol = True
|
||||
Grid1.DisplayRowArrow = True
|
||||
Grid1.BoldFixedCell = False
|
||||
Grid1.SortIndicatorStyle = FlexCell.SortIndicatorStyleEnum.Light3D
|
||||
|
||||
Grid1.Cols = COLS.max
|
||||
Dim colIndex As Integer = 0
|
||||
For col As Integer = 0 To COLS.max - 1
|
||||
If m_COLS_NAME(col, COLS_PROP.Visible) = "1" Then
|
||||
Grid1.Cell(0, colIndex).Text = m_COLS_NAME(col, 0)
|
||||
Grid1.Column(colIndex).CellType = m_ColsType(col)
|
||||
colIndex += 1
|
||||
End If
|
||||
Next
|
||||
|
||||
SetGridDataSource()
|
||||
|
||||
|
||||
'调整宽度
|
||||
Grid1.Column(COLS.序号).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_序号
|
||||
Grid1.Column(COLS.日期).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_日期
|
||||
Grid1.Column(COLS.收入).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_收入
|
||||
Grid1.Column(COLS.支出).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_支出
|
||||
Grid1.Column(COLS.余额).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_余额
|
||||
Grid1.Column(COLS.收支类别).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_收支类别
|
||||
Grid1.Column(COLS.收支子类别).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_收支子类别
|
||||
Grid1.Column(COLS.机种).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_机种
|
||||
Grid1.Column(COLS.交易方).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_交易方
|
||||
Grid1.Column(COLS.业务类型).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_业务类型
|
||||
Grid1.Column(COLS.事由).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_事由
|
||||
Grid1.Column(COLS.经手人).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_经手人
|
||||
Grid1.Column(COLS.单据类型).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_单据类型
|
||||
Grid1.Column(COLS.单据编号).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_单据编号
|
||||
Grid1.Column(COLS.备注1).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_备注1
|
||||
Grid1.Column(COLS.备注2).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_备注2
|
||||
Grid1.Column(COLS.备注3).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_备注3
|
||||
Me.Height = My.Settings.FORM_FINAN_RECORD_HEIGHT
|
||||
Me.Width = My.Settings.FORM_FINAN_RECORD_WIDTH
|
||||
|
||||
|
||||
Grid1.Column(COLS.余额).Locked = True
|
||||
Grid1.Column(COLS.记录日期).Locked = True
|
||||
Grid1.Column(COLS.记录时间).Locked = True
|
||||
|
||||
|
||||
Grid1.AllowUserSort = True
|
||||
Grid1.Locked = False
|
||||
Grid1.Column(COLS.序号).Locked = True
|
||||
|
||||
Grid1.Rows = 500
|
||||
|
||||
'更新序号
|
||||
UpdateItemSN()
|
||||
|
||||
Application.DoEvents()
|
||||
End Sub
|
||||
|
||||
Private Sub SetGridDataSource()
|
||||
With Grid1.ComboBox(COLS.收支类别)
|
||||
.DataSource = Nothing
|
||||
.DataSource = gridItemRecords_收支类别
|
||||
.Locked = False
|
||||
.AutoComplete = True
|
||||
End With
|
||||
With Grid1.ComboBox(COLS.收支子类别)
|
||||
.DataSource = Nothing
|
||||
.DataSource = gridItemRecords_收支子类别
|
||||
.Locked = False
|
||||
.AutoComplete = True
|
||||
End With
|
||||
With Grid1.ComboBox(COLS.机种)
|
||||
.DataSource = Nothing
|
||||
.DataSource = gridItemRecords_机种
|
||||
.Locked = False
|
||||
.AutoComplete = True
|
||||
End With
|
||||
With Grid1.ComboBox(COLS.交易方)
|
||||
.DataSource = Nothing
|
||||
.DataSource = gridItemRecords_交易方
|
||||
.Locked = False
|
||||
.AutoComplete = True
|
||||
End With
|
||||
With Grid1.ComboBox(COLS.业务类型)
|
||||
.DataSource = Nothing
|
||||
.DataSource = gridItemRecords_业务类型
|
||||
.Locked = False
|
||||
.AutoComplete = True
|
||||
End With
|
||||
With Grid1.ComboBox(COLS.单据类型)
|
||||
.DataSource = Nothing
|
||||
.DataSource = gridItemRecords_单据类型
|
||||
.Locked = False
|
||||
.AutoComplete = True
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub Form_FinancialRecords_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_序号 = Grid1.Column(COLS.序号).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_日期 = Grid1.Column(COLS.日期).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_收入 = Grid1.Column(COLS.收入).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_支出 = Grid1.Column(COLS.支出).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_余额 = Grid1.Column(COLS.余额).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_收支类别 = Grid1.Column(COLS.收支类别).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_收支子类别 = Grid1.Column(COLS.收支子类别).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_机种 = Grid1.Column(COLS.机种).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_交易方 = Grid1.Column(COLS.交易方).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_业务类型 = Grid1.Column(COLS.业务类型).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_事由 = Grid1.Column(COLS.事由).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_经手人 = Grid1.Column(COLS.经手人).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_单据类型 = Grid1.Column(COLS.单据类型).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_单据编号 = Grid1.Column(COLS.单据编号).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_备注1 = Grid1.Column(COLS.备注1).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_备注2 = Grid1.Column(COLS.备注2).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_备注3 = Grid1.Column(COLS.备注3).Width
|
||||
My.Settings.FORM_FINAN_RECORD_HEIGHT = Me.Height
|
||||
My.Settings.FORM_FINAN_RECORD_WIDTH = Me.Width
|
||||
|
||||
My.Settings.Save()
|
||||
CGirdInfo.SaveRecentList("财务_收支类别", gridItemRecords_收支类别)
|
||||
'CGirdInfo.SaveRecentList("财务_收支子类别", gridItemRecords_收支子类别)
|
||||
CGirdInfo.SaveRecentList("财务_机种", gridItemRecords_机种)
|
||||
CGirdInfo.SaveRecentList("财务_交易方", gridItemRecords_交易方)
|
||||
CGirdInfo.SaveRecentList("财务_业务类型", gridItemRecords_业务类型)
|
||||
CGirdInfo.SaveRecentList("财务_单据类型", gridItemRecords_单据类型)
|
||||
CGirdInfo.SaveRecentSubList(gridSubList_收支类别)
|
||||
End Sub
|
||||
|
||||
Private Sub Form_FinancialRecords_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
CGirdInfo.LoadRecentList("财务_收支类别", gridItemRecords_收支类别)
|
||||
'CGirdInfo.LoadRecentList("财务_收支子类别", gridItemRecords_收支子类别)
|
||||
CGirdInfo.LoadRecentList("财务_机种", gridItemRecords_机种)
|
||||
CGirdInfo.LoadRecentList("财务_交易方", gridItemRecords_交易方)
|
||||
CGirdInfo.LoadRecentList("财务_业务类型", gridItemRecords_业务类型)
|
||||
CGirdInfo.LoadRecentList("财务_单据类型", gridItemRecords_单据类型)
|
||||
CGirdInfo.LoadRecentSubList("财务_收支类别", gridSubList_收支类别)
|
||||
|
||||
gridItemRecords_收支子类别 = Nothing
|
||||
|
||||
FillGridHeaderByDataTable()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
||||
Grid1.Selection.InsertRows()
|
||||
UpdateItemSN()
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
|
||||
Grid1.Selection.DeleteByRow()
|
||||
UpdateItemSN()
|
||||
End Sub
|
||||
|
||||
Private Sub 新建NToolStripButton_Click(sender As Object, e As EventArgs) Handles 新建NToolStripButton.Click
|
||||
FillGridHeaderByDataTable()
|
||||
End Sub
|
||||
Private Sub 保存SToolStripButton_Click(sender As Object, e As EventArgs) Handles 保存SToolStripButton.Click
|
||||
If CheckAllRowValid() = False Then
|
||||
MsgBox("输入信息存在错误!")
|
||||
Return
|
||||
End If
|
||||
|
||||
'计算余额
|
||||
Dim dblBalance As Double = 0
|
||||
If GetLatestBalance(dblBalance) = False Then
|
||||
MsgBox("查询余额失败!")
|
||||
Return
|
||||
End If
|
||||
|
||||
'计算各个有效列对应的余额
|
||||
Dim dblIncom As Double = 0
|
||||
Dim dblExpenditure As Double = 0
|
||||
For row = 1 To Grid1.Rows - 1
|
||||
If Grid1.Cell(row, COLS.序号).BackColor = Color.Green Then
|
||||
dblIncom = Grid1.Cell(row, COLS.收入).Text
|
||||
dblExpenditure = Grid1.Cell(row, COLS.支出).Text
|
||||
dblBalance += dblIncom
|
||||
dblBalance -= dblExpenditure
|
||||
|
||||
Grid1.Cell(row, COLS.余额).Text = dblBalance
|
||||
End If
|
||||
Next
|
||||
|
||||
'更新"记录日期"及"记录时间"
|
||||
Dim mCurrDateTime As Date = Now
|
||||
For row = 1 To Grid1.Rows - 1
|
||||
If Grid1.Cell(row, COLS.序号).BackColor = Color.Green Then
|
||||
Grid1.Cell(row, COLS.记录日期).Text = mCurrDateTime.ToString("yyyy-MM-dd")
|
||||
Grid1.Cell(row, COLS.记录时间).Text = mCurrDateTime.ToString("HH:mm:ss")
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
'将列表中的数据保存到数据库中
|
||||
If SaveFinancialRecordItems() = True Then
|
||||
MsgBox("保存成功!")
|
||||
Else
|
||||
MsgBox("保存失败!")
|
||||
End If
|
||||
|
||||
'更新历史列表
|
||||
SaveRecentList()
|
||||
End Sub
|
||||
|
||||
Private Function SaveRecentList() As Boolean
|
||||
For row As Integer = 1 To Grid1.Rows - 1
|
||||
CGirdInfo.AddToRecentList(Grid1.Cell(row, COLS.机种).Text, gridItemRecords_机种)
|
||||
CGirdInfo.AddToRecentList(Grid1.Cell(row, COLS.交易方).Text, gridItemRecords_交易方)
|
||||
CGirdInfo.AddToRecentList(Grid1.Cell(row, COLS.业务类型).Text, gridItemRecords_业务类型)
|
||||
CGirdInfo.AddToRecentList(Grid1.Cell(row, COLS.单据类型).Text, gridItemRecords_单据类型)
|
||||
CGirdInfo.AddToRecentList(Grid1.Cell(row, COLS.收支类别).Text, gridItemRecords_收支类别)
|
||||
If Grid1.Cell(row, COLS.收支类别).Text.Length > 0 AndAlso Grid1.Cell(row, COLS.收支子类别).Text.Length > 0 Then
|
||||
CGirdInfo.AddToRecentSubList("财务_收支类别", Grid1.Cell(row, COLS.收支类别).Text, Grid1.Cell(row, COLS.收支子类别).Text, gridSubList_收支类别)
|
||||
End If
|
||||
Next
|
||||
|
||||
SetGridDataSource()
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Function CheckRowValid(ByVal rowIndex As Integer) As Boolean
|
||||
Dim checkResult As Boolean = True
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.日期).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.日期).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.日期).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
Dim strVal1 As String = Grid1.Cell(rowIndex, COLS.收入).Text
|
||||
Dim strVal2 As String = Grid1.Cell(rowIndex, COLS.支出).Text
|
||||
Dim DataValid1 As Boolean = False
|
||||
Dim DataValid2 As Boolean = False
|
||||
If strVal1.Length > 0 AndAlso strVal1 <> "0" Then
|
||||
DataValid1 = isDoubleValue(strVal1)
|
||||
|
||||
If DataValid1 = False Then
|
||||
Grid1.Cell(rowIndex, COLS.收入).BackColor = Color.Red
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.收入).BackColor = Color.Green
|
||||
End If
|
||||
End If
|
||||
If strVal2.Length > 0 AndAlso strVal2 <> "0" Then
|
||||
DataValid2 = isDoubleValue(strVal2)
|
||||
|
||||
If DataValid2 = False Then
|
||||
Grid1.Cell(rowIndex, COLS.支出).BackColor = Color.Red
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.支出).BackColor = Color.Green
|
||||
End If
|
||||
End If
|
||||
|
||||
If (DataValid1 = True AndAlso DataValid2 = True) OrElse
|
||||
(DataValid1 = False AndAlso DataValid2 = False) Then
|
||||
Grid1.Cell(rowIndex, COLS.收入).BackColor = Color.Red
|
||||
Grid1.Cell(rowIndex, COLS.支出).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
If DataValid1 = False Then
|
||||
Grid1.Cell(rowIndex, COLS.收入).Text = "0"
|
||||
Grid1.Cell(rowIndex, COLS.收入).BackColor = Color.Green
|
||||
End If
|
||||
If DataValid2 = False Then
|
||||
Grid1.Cell(rowIndex, COLS.支出).Text = "0"
|
||||
Grid1.Cell(rowIndex, COLS.支出).BackColor = Color.Green
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.收支类别).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.收支类别).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.收支类别).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.收支子类别).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.收支子类别).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.收支子类别).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.机种).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.机种).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.机种).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.交易方).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.交易方).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.交易方).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.业务类型).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.业务类型).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.业务类型).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.事由).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.事由).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.事由).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.经手人).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.经手人).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.经手人).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.单据类型).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.单据类型).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.单据类型).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.单据编号).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.单据编号).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.单据编号).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
|
||||
Return checkResult
|
||||
End Function
|
||||
|
||||
Private Function CheckAllRowValid() As Boolean
|
||||
'清除表状态
|
||||
For row As Integer = 1 To Grid1.Rows - 1
|
||||
For col As Integer = 0 To Grid1.Cols - 1
|
||||
Grid1.Cell(row, col).BackColor = Color.White
|
||||
Next
|
||||
Next
|
||||
|
||||
Dim checkResult As Boolean = True
|
||||
Dim isEmpty As Boolean = True
|
||||
For row As Integer = 1 To Grid1.Rows - 1
|
||||
If Grid1.Cell(row, COLS.日期).Text.Length > 0 Then
|
||||
isEmpty = False
|
||||
If CheckRowValid(row) = False Then
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(row, COLS.序号).BackColor = Color.Green
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
If isEmpty = True Then
|
||||
checkResult = False
|
||||
MsgBox("列表为空！")
|
||||
End If
|
||||
|
||||
Return checkResult
|
||||
End Function
|
||||
|
||||
Private Function SaveFinancialRecordItems() As Boolean
|
||||
Dim row As Integer
|
||||
Dim col As Integer
|
||||
Dim result As Boolean = True
|
||||
|
||||
'INSERT INTO table_name(col_name,...) values(expr,...)
|
||||
Dim strInsert As String = "INSERT INTO `" & cst_TABLE_NAME & "` "
|
||||
Dim insertItems As String = ""
|
||||
For col = 0 To COLS.max - 1
|
||||
If m_COLS_NAME(col, COLS_PROP.Insert) = "1" Then
|
||||
If insertItems.Length > 0 Then
|
||||
insertItems &= ","
|
||||
End If
|
||||
insertItems &= "`" & m_COLS_NAME(col, 0) & "`"
|
||||
End If
|
||||
Next
|
||||
|
||||
'增加“操作人”字段
|
||||
insertItems &= ",`操作人`"
|
||||
|
||||
For row = 1 To Grid1.Rows - 1
|
||||
If Grid1.Cell(row, COLS.序号).BackColor = Color.Green Then
|
||||
Dim insertValues As String = ""
|
||||
|
||||
For col = 0 To COLS.max - 1
|
||||
If m_COLS_NAME(col, COLS_PROP.Insert) = "1" Then
|
||||
If insertValues.Length > 0 Then
|
||||
insertValues &= ","
|
||||
End If
|
||||
|
||||
If Grid1.Column(col).CellType = FlexCell.CellTypeEnum.CheckBox Then
|
||||
If Grid1.Cell(row, col).BooleanValue = True Then
|
||||
insertValues &= "'1'"
|
||||
Else
|
||||
insertValues &= "'0'"
|
||||
End If
|
||||
Else
|
||||
insertValues &= "'" & Grid1.Cell(row, col).Text & "'"
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
insertValues &= "," & "'" & Current_UserName & "'"
|
||||
|
||||
Dim strSQL As String = strInsert & "(" & insertItems & ") values(" & insertValues & ")"
|
||||
If SQL_ExeCommand(COL_RIGHTS.财务管理, strSQL) = False Then
|
||||
result = False
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Private Sub UpdateItemSN()
|
||||
For row As Integer = 1 To Grid1.Rows - 1
|
||||
Grid1.Cell(row, COLS.序号).Text = row
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Grid1_CellChange(Sender As Object, e As FlexCell.Grid.CellChangeEventArgs) Handles Grid1.CellChange
|
||||
If e.Row > 0 AndAlso e.Col = COLS.收支类别 Then
|
||||
Grid1.Cell(e.Row, COLS.收支子类别).Text = ""
|
||||
|
||||
''查找当前“收支类别”对应的子类别
|
||||
'If Grid1.Cell(e.Row, COLS.收支类别).Text.Length > 0 Then
|
||||
' CGirdInfo.GetRecentSubList("财务_收支类别", Grid1.Cell(e.Row, COLS.收支类别).Text, gridSubList_收支类别, gridItemRecords_收支子类别)
|
||||
' SetGridDataSource()
|
||||
'End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Grid1_RowColChange(Sender As Object, e As FlexCell.Grid.RowColChangeEventArgs) Handles Grid1.RowColChange
|
||||
If e.Row > 0 AndAlso e.Col = COLS.收支子类别 Then
|
||||
'查找当前“收支类别”对应的子类别
|
||||
If Grid1.Cell(e.Row, COLS.收支类别).Text.Length > 0 Then
|
||||
CGirdInfo.GetRecentSubList("财务_收支类别", Grid1.Cell(e.Row, COLS.收支类别).Text, gridSubList_收支类别, gridItemRecords_收支子类别)
|
||||
SetGridDataSource()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function GetLatestBalance(ByRef rBalance As Double) As Boolean
|
||||
Dim result As Boolean = False
|
||||
Dim strSQL As String = "SELECT `" & m_COLS_NAME(COLS.余额, COLS_PROP.Name) & "` FROM `" & cst_TABLE_NAME & "` WHERE `" & m_COLS_NAME(COLS.序号, COLS_PROP.Name) & "`= (SELECT max(`" & m_COLS_NAME(COLS.序号, COLS_PROP.Name) & "`) FROM `" & cst_TABLE_NAME & "`)"
|
||||
|
||||
rBalance = 0
|
||||
|
||||
m_Table.Rows.Clear()
|
||||
m_Table.Columns.Clear()
|
||||
If SQL_Query(COL_RIGHTS.财务管理, strSQL, m_Table) = True Then
|
||||
Try
|
||||
rBalance = m_Table.Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
result = True
|
||||
End If
|
||||
|
||||
Return result
|
||||
End Function
|
||||
End Class
|
||||
139
WT-DMS/Form_FinancialRecords_Sales.Designer.vb
generated
Normal file
139
WT-DMS/Form_FinancialRecords_Sales.Designer.vb
generated
Normal file
@@ -0,0 +1,139 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form_FinancialRecords_Sales
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<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
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form_FinancialRecords_Sales))
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.新建NToolStripButton = New System.Windows.Forms.ToolStripButton()
|
||||
Me.保存SToolStripButton = New System.Windows.Forms.ToolStripButton()
|
||||
Me.toolStripSeparator = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Grid1 = New FlexCell.Grid()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.AutoSize = False
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.新建NToolStripButton, Me.保存SToolStripButton, Me.toolStripSeparator, Me.ToolStripButton1, Me.ToolStripButton2})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(855, 48)
|
||||
Me.ToolStrip1.TabIndex = 18
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'新建NToolStripButton
|
||||
'
|
||||
Me.新建NToolStripButton.Image = CType(resources.GetObject("新建NToolStripButton.Image"), System.Drawing.Image)
|
||||
Me.新建NToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.新建NToolStripButton.Name = "新建NToolStripButton"
|
||||
Me.新建NToolStripButton.Size = New System.Drawing.Size(70, 45)
|
||||
Me.新建NToolStripButton.Text = "新建(&N)"
|
||||
'
|
||||
'保存SToolStripButton
|
||||
'
|
||||
Me.保存SToolStripButton.Image = CType(resources.GetObject("保存SToolStripButton.Image"), System.Drawing.Image)
|
||||
Me.保存SToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.保存SToolStripButton.Name = "保存SToolStripButton"
|
||||
Me.保存SToolStripButton.Size = New System.Drawing.Size(67, 45)
|
||||
Me.保存SToolStripButton.Text = "保存(&S)"
|
||||
'
|
||||
'toolStripSeparator
|
||||
'
|
||||
Me.toolStripSeparator.Name = "toolStripSeparator"
|
||||
Me.toolStripSeparator.Size = New System.Drawing.Size(6, 48)
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
|
||||
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||
Me.ToolStripButton1.Size = New System.Drawing.Size(48, 45)
|
||||
Me.ToolStripButton1.Text = "增加行"
|
||||
'
|
||||
'ToolStripButton2
|
||||
'
|
||||
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
|
||||
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton2.Name = "ToolStripButton2"
|
||||
Me.ToolStripButton2.Size = New System.Drawing.Size(48, 45)
|
||||
Me.ToolStripButton2.Text = "删除行"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.BackColor = System.Drawing.Color.Gainsboro
|
||||
Me.Label1.Font = New System.Drawing.Font("微软雅黑", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Label1.ForeColor = System.Drawing.Color.Blue
|
||||
Me.Label1.Location = New System.Drawing.Point(361, 2)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(125, 46)
|
||||
Me.Label1.TabIndex = 21
|
||||
Me.Label1.Text = "销售部"
|
||||
'
|
||||
'Grid1
|
||||
'
|
||||
Me.Grid1.AllowUserSort = True
|
||||
Me.Grid1.CheckedImage = CType(resources.GetObject("Grid1.CheckedImage"), System.Drawing.Bitmap)
|
||||
Me.Grid1.Cols = 7
|
||||
Me.Grid1.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||
Me.Grid1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Grid1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Grid1.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.Grid1.ImeMode = System.Windows.Forms.ImeMode.[On]
|
||||
Me.Grid1.Location = New System.Drawing.Point(0, 48)
|
||||
Me.Grid1.Name = "Grid1"
|
||||
Me.Grid1.Rows = 500
|
||||
Me.Grid1.Size = New System.Drawing.Size(855, 468)
|
||||
Me.Grid1.TabIndex = 22
|
||||
Me.Grid1.UncheckedImage = CType(resources.GetObject("Grid1.UncheckedImage"), System.Drawing.Bitmap)
|
||||
'
|
||||
'Form_FinancialRecords_Sales
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(855, 516)
|
||||
Me.Controls.Add(Me.Grid1)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Name = "Form_FinancialRecords_Sales"
|
||||
Me.Text = "帐务明细录入-销售部"
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents 新建NToolStripButton As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents 保存SToolStripButton As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents toolStripSeparator As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Grid1 As FlexCell.Grid
|
||||
End Class
|
||||
200
WT-DMS/Form_FinancialRecords_Sales.resx
Normal file
200
WT-DMS/Form_FinancialRecords_Sales.resx
Normal file
@@ -0,0 +1,200 @@
|
||||
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="新建NToolStripButton.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEPSURBVDhPrdPZasJAFAZgX8q+Q32N9o2kXkjphQsigoJC
|
||||
ixa1VAWXiohG7IakbmjcNcYl5i8TCQSdGXPhgcPczHwz5xzGZrtWRN+bOM1wqo5gvAJfrIBy4w/cu8hh
|
||||
VjyG3nDjuOcjkbTABB58cSRy9SMiiPSXhF6rTMDpedEPG0ktJfD8wQT26gEEMSAq4I3mqYCmaZCVHQZj
|
||||
WQfst3f0Ep7CGSqw3amYzBWI/TkfcAdTZ4B60LCQt+hJK3yJEz7g8ifOAGWzhzRdo9WdofYt8QFSnzlI
|
||||
42bLDdqDBZqtMUpC3zpgbtxPe4rq5xDZSsc6YG6c8DtCodZDsihaA4x5s1bmGI0Zkw2X8lofWHf+AdjM
|
||||
9sNc+xBlAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="保存SToolStripButton.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="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="Grid1.CheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAo6j/////+ACjqP/w///4AKOo/wAP//gAo6jwAAD/+ACjqPAPAA/4AKOo8P/wAPgAo6j///8A+A
|
||||
CjqP////D4AKOo//////gAo6iIiIiIiACjo=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Grid1.UncheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAo6j/////+ACjqP/////4AKOo//////gAo6j/////+ACjqP/////4AKOo//////gAo6j/////+A
|
||||
CjqP/////4AKOo//////gAo6iIiIiIiACjo=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>66</value>
|
||||
</metadata>
|
||||
</root>
|
||||
564
WT-DMS/Form_FinancialRecords_Sales.vb
Normal file
564
WT-DMS/Form_FinancialRecords_Sales.vb
Normal file
@@ -0,0 +1,564 @@
|
||||
Public Class Form_FinancialRecords_Sales
|
||||
Dim m_Table As New System.Data.DataTable
|
||||
Dim m_InitOver As Boolean = False
|
||||
|
||||
Public Shared cst_TABLE_NAME As String = "收支明细表_销售"
|
||||
|
||||
Public Enum COLS
|
||||
序号
|
||||
日期
|
||||
收入
|
||||
支出
|
||||
余额
|
||||
收支类别
|
||||
收支子类别
|
||||
机种
|
||||
交易方
|
||||
业务类型
|
||||
事由
|
||||
经手人
|
||||
单据类型
|
||||
单据编号
|
||||
备注1
|
||||
备注2
|
||||
备注3
|
||||
记录日期
|
||||
记录时间
|
||||
max
|
||||
End Enum
|
||||
|
||||
Public Enum COLS_PROP
|
||||
Name
|
||||
Insert
|
||||
Visible
|
||||
End Enum
|
||||
|
||||
'名称/Query
|
||||
Public Shared m_COLS_NAME(,) As String = {
|
||||
{"序号", "0", "1"},
|
||||
{"日期", "1", "1"},
|
||||
{"收入", "1", "1"},
|
||||
{"支出", "1", "1"},
|
||||
{"余额", "1", "1"},
|
||||
{"收支类别", "1", "1"},
|
||||
{"收支子类别", "1", "1"},
|
||||
{"机种", "1", "1"},
|
||||
{"交易方", "1", "1"},
|
||||
{"业务类型", "1", "1"},
|
||||
{"事由", "1", "1"},
|
||||
{"经手人", "1", "1"},
|
||||
{"单据类型", "1", "1"},
|
||||
{"单据编号", "1", "1"},
|
||||
{"备注1", "1", "1"},
|
||||
{"备注2", "1", "1"},
|
||||
{"备注3", "1", "1"},
|
||||
{"记录日期", "1", "1"},
|
||||
{"记录时间", "1", "1"}
|
||||
}
|
||||
|
||||
Private m_ColsType() As FlexCell.CellTypeEnum = {
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.Calendar,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.ComboBox,
|
||||
FlexCell.CellTypeEnum.ComboBox,
|
||||
FlexCell.CellTypeEnum.ComboBox,
|
||||
FlexCell.CellTypeEnum.ComboBox,
|
||||
FlexCell.CellTypeEnum.ComboBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.ComboBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.TextBox,
|
||||
FlexCell.CellTypeEnum.TextBox
|
||||
}
|
||||
|
||||
|
||||
Dim gridItemRecords_收支类别 As New System.Windows.Forms.AutoCompleteStringCollection
|
||||
Dim gridItemRecords_机种 As New System.Windows.Forms.AutoCompleteStringCollection
|
||||
Dim gridItemRecords_交易方 As New System.Windows.Forms.AutoCompleteStringCollection
|
||||
Dim gridItemRecords_业务类型 As New System.Windows.Forms.AutoCompleteStringCollection
|
||||
Dim gridItemRecords_单据类型 As New System.Windows.Forms.AutoCompleteStringCollection
|
||||
|
||||
Dim gridSubList_收支类别 As New ArrayList
|
||||
|
||||
Dim gridItemRecords_收支子类别 As New System.Windows.Forms.AutoCompleteStringCollection
|
||||
|
||||
Private Sub FillGridHeaderByDataTable()
|
||||
Grid1.NewFile()
|
||||
|
||||
Grid1.AllowUserSort = False
|
||||
Grid1.DisplayFocusRect = False
|
||||
Grid1.ExtendLastCol = True
|
||||
Grid1.DisplayRowArrow = True
|
||||
Grid1.BoldFixedCell = False
|
||||
Grid1.SortIndicatorStyle = FlexCell.SortIndicatorStyleEnum.Light3D
|
||||
|
||||
Grid1.Cols = COLS.max
|
||||
Dim colIndex As Integer = 0
|
||||
For col As Integer = 0 To COLS.max - 1
|
||||
If m_COLS_NAME(col, COLS_PROP.Visible) = "1" Then
|
||||
Grid1.Cell(0, colIndex).Text = m_COLS_NAME(col, 0)
|
||||
Grid1.Column(colIndex).CellType = m_ColsType(col)
|
||||
colIndex += 1
|
||||
End If
|
||||
Next
|
||||
|
||||
SetGridDataSource()
|
||||
|
||||
|
||||
'调整宽度
|
||||
Grid1.Column(COLS.序号).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_序号
|
||||
Grid1.Column(COLS.日期).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_日期
|
||||
Grid1.Column(COLS.收入).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_收入
|
||||
Grid1.Column(COLS.支出).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_支出
|
||||
Grid1.Column(COLS.余额).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_余额
|
||||
Grid1.Column(COLS.收支类别).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_收支类别
|
||||
Grid1.Column(COLS.收支子类别).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_收支子类别
|
||||
Grid1.Column(COLS.机种).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_机种
|
||||
Grid1.Column(COLS.交易方).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_交易方
|
||||
Grid1.Column(COLS.业务类型).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_业务类型
|
||||
Grid1.Column(COLS.事由).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_事由
|
||||
Grid1.Column(COLS.经手人).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_经手人
|
||||
Grid1.Column(COLS.单据类型).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_单据类型
|
||||
Grid1.Column(COLS.单据编号).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_单据编号
|
||||
Grid1.Column(COLS.备注1).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_备注1
|
||||
Grid1.Column(COLS.备注2).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_备注2
|
||||
Grid1.Column(COLS.备注3).Width = My.Settings.FORM_FINAN_RECORD_COL_WIDTH_备注3
|
||||
Me.Height = My.Settings.FORM_FINAN_RECORD_HEIGHT
|
||||
Me.Width = My.Settings.FORM_FINAN_RECORD_WIDTH
|
||||
|
||||
|
||||
Grid1.Column(COLS.余额).Locked = True
|
||||
Grid1.Column(COLS.记录日期).Locked = True
|
||||
Grid1.Column(COLS.记录时间).Locked = True
|
||||
|
||||
|
||||
Grid1.AllowUserSort = True
|
||||
Grid1.Locked = False
|
||||
Grid1.Column(COLS.序号).Locked = True
|
||||
|
||||
Grid1.Rows = 500
|
||||
|
||||
'更新序号
|
||||
UpdateItemSN()
|
||||
|
||||
Application.DoEvents()
|
||||
End Sub
|
||||
|
||||
Private Sub SetGridDataSource()
|
||||
With Grid1.ComboBox(COLS.收支类别)
|
||||
.DataSource = Nothing
|
||||
.DataSource = gridItemRecords_收支类别
|
||||
.Locked = False
|
||||
.AutoComplete = True
|
||||
End With
|
||||
With Grid1.ComboBox(COLS.收支子类别)
|
||||
.DataSource = Nothing
|
||||
.DataSource = gridItemRecords_收支子类别
|
||||
.Locked = False
|
||||
.AutoComplete = True
|
||||
End With
|
||||
With Grid1.ComboBox(COLS.机种)
|
||||
.DataSource = Nothing
|
||||
.DataSource = gridItemRecords_机种
|
||||
.Locked = False
|
||||
.AutoComplete = True
|
||||
End With
|
||||
With Grid1.ComboBox(COLS.交易方)
|
||||
.DataSource = Nothing
|
||||
.DataSource = gridItemRecords_交易方
|
||||
.Locked = False
|
||||
.AutoComplete = True
|
||||
End With
|
||||
With Grid1.ComboBox(COLS.业务类型)
|
||||
.DataSource = Nothing
|
||||
.DataSource = gridItemRecords_业务类型
|
||||
.Locked = False
|
||||
.AutoComplete = True
|
||||
End With
|
||||
With Grid1.ComboBox(COLS.单据类型)
|
||||
.DataSource = Nothing
|
||||
.DataSource = gridItemRecords_单据类型
|
||||
.Locked = False
|
||||
.AutoComplete = True
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub Form_FinancialRecords_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_序号 = Grid1.Column(COLS.序号).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_日期 = Grid1.Column(COLS.日期).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_收入 = Grid1.Column(COLS.收入).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_支出 = Grid1.Column(COLS.支出).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_余额 = Grid1.Column(COLS.余额).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_收支类别 = Grid1.Column(COLS.收支类别).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_收支子类别 = Grid1.Column(COLS.收支子类别).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_机种 = Grid1.Column(COLS.机种).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_交易方 = Grid1.Column(COLS.交易方).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_业务类型 = Grid1.Column(COLS.业务类型).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_事由 = Grid1.Column(COLS.事由).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_经手人 = Grid1.Column(COLS.经手人).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_单据类型 = Grid1.Column(COLS.单据类型).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_单据编号 = Grid1.Column(COLS.单据编号).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_备注1 = Grid1.Column(COLS.备注1).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_备注2 = Grid1.Column(COLS.备注2).Width
|
||||
My.Settings.FORM_FINAN_RECORD_COL_WIDTH_备注3 = Grid1.Column(COLS.备注3).Width
|
||||
My.Settings.FORM_FINAN_RECORD_HEIGHT = Me.Height
|
||||
My.Settings.FORM_FINAN_RECORD_WIDTH = Me.Width
|
||||
|
||||
My.Settings.Save()
|
||||
CGirdInfo.SaveRecentList("财务_收支类别_销售", gridItemRecords_收支类别)
|
||||
'CGirdInfo.SaveRecentList("财务_收支子类别_销售", gridItemRecords_收支子类别)
|
||||
CGirdInfo.SaveRecentList("财务_机种_销售", gridItemRecords_机种)
|
||||
CGirdInfo.SaveRecentList("财务_交易方_销售", gridItemRecords_交易方)
|
||||
CGirdInfo.SaveRecentList("财务_业务类型_销售", gridItemRecords_业务类型)
|
||||
CGirdInfo.SaveRecentList("财务_单据类型_销售", gridItemRecords_单据类型)
|
||||
CGirdInfo.SaveRecentSubList(gridSubList_收支类别)
|
||||
End Sub
|
||||
|
||||
Private Sub Form_FinancialRecords_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
CGirdInfo.LoadRecentList("财务_收支类别_销售", gridItemRecords_收支类别)
|
||||
'CGirdInfo.LoadRecentList("财务_收支子类别", gridItemRecords_收支子类别)
|
||||
CGirdInfo.LoadRecentList("财务_机种_销售", gridItemRecords_机种)
|
||||
CGirdInfo.LoadRecentList("财务_交易方_销售", gridItemRecords_交易方)
|
||||
CGirdInfo.LoadRecentList("财务_业务类型_销售", gridItemRecords_业务类型)
|
||||
CGirdInfo.LoadRecentList("财务_单据类型_销售", gridItemRecords_单据类型)
|
||||
CGirdInfo.LoadRecentSubList("财务_收支类别_销售", gridSubList_收支类别)
|
||||
|
||||
gridItemRecords_收支子类别 = Nothing
|
||||
|
||||
FillGridHeaderByDataTable()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
||||
Grid1.Selection.InsertRows()
|
||||
UpdateItemSN()
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
|
||||
Grid1.Selection.DeleteByRow()
|
||||
UpdateItemSN()
|
||||
End Sub
|
||||
|
||||
Private Sub 新建NToolStripButton_Click(sender As Object, e As EventArgs) Handles 新建NToolStripButton.Click
|
||||
FillGridHeaderByDataTable()
|
||||
End Sub
|
||||
Private Sub 保存SToolStripButton_Click(sender As Object, e As EventArgs) Handles 保存SToolStripButton.Click
|
||||
If CheckAllRowValid() = False Then
|
||||
MsgBox("输入信息存在错误!")
|
||||
Return
|
||||
End If
|
||||
|
||||
'计算余额
|
||||
Dim dblBalance As Double = 0
|
||||
If GetLatestBalance(dblBalance) = False Then
|
||||
MsgBox("查询余额失败!")
|
||||
Return
|
||||
End If
|
||||
|
||||
'计算各个有效列对应的余额
|
||||
Dim dblIncom As Double = 0
|
||||
Dim dblExpenditure As Double = 0
|
||||
For row = 1 To Grid1.Rows - 1
|
||||
If Grid1.Cell(row, COLS.序号).BackColor = Color.Green Then
|
||||
dblIncom = Grid1.Cell(row, COLS.收入).Text
|
||||
dblExpenditure = Grid1.Cell(row, COLS.支出).Text
|
||||
dblBalance += dblIncom
|
||||
dblBalance -= dblExpenditure
|
||||
|
||||
Grid1.Cell(row, COLS.余额).Text = dblBalance
|
||||
End If
|
||||
Next
|
||||
|
||||
'更新"记录日期"及"记录时间"
|
||||
Dim mCurrDateTime As Date = Now
|
||||
For row = 1 To Grid1.Rows - 1
|
||||
If Grid1.Cell(row, COLS.序号).BackColor = Color.Green Then
|
||||
Grid1.Cell(row, COLS.记录日期).Text = mCurrDateTime.ToString("yyyy-MM-dd")
|
||||
Grid1.Cell(row, COLS.记录时间).Text = mCurrDateTime.ToString("HH:mm:ss")
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
'将列表中的数据保存到数据库中
|
||||
If SaveFinancialRecordItems() = True Then
|
||||
MsgBox("保存成功!")
|
||||
Else
|
||||
MsgBox("保存失败!")
|
||||
End If
|
||||
|
||||
'更新历史列表
|
||||
SaveRecentList()
|
||||
End Sub
|
||||
|
||||
Private Function SaveRecentList() As Boolean
|
||||
For row As Integer = 1 To Grid1.Rows - 1
|
||||
CGirdInfo.AddToRecentList(Grid1.Cell(row, COLS.机种).Text, gridItemRecords_机种)
|
||||
CGirdInfo.AddToRecentList(Grid1.Cell(row, COLS.交易方).Text, gridItemRecords_交易方)
|
||||
CGirdInfo.AddToRecentList(Grid1.Cell(row, COLS.业务类型).Text, gridItemRecords_业务类型)
|
||||
CGirdInfo.AddToRecentList(Grid1.Cell(row, COLS.单据类型).Text, gridItemRecords_单据类型)
|
||||
CGirdInfo.AddToRecentList(Grid1.Cell(row, COLS.收支类别).Text, gridItemRecords_收支类别)
|
||||
If Grid1.Cell(row, COLS.收支类别).Text.Length > 0 AndAlso Grid1.Cell(row, COLS.收支子类别).Text.Length > 0 Then
|
||||
CGirdInfo.AddToRecentSubList("财务_收支类别_销售", Grid1.Cell(row, COLS.收支类别).Text, Grid1.Cell(row, COLS.收支子类别).Text, gridSubList_收支类别)
|
||||
End If
|
||||
Next
|
||||
|
||||
SetGridDataSource()
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Function CheckRowValid(ByVal rowIndex As Integer) As Boolean
|
||||
Dim checkResult As Boolean = True
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.日期).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.日期).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.日期).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
Dim strVal1 As String = Grid1.Cell(rowIndex, COLS.收入).Text
|
||||
Dim strVal2 As String = Grid1.Cell(rowIndex, COLS.支出).Text
|
||||
Dim DataValid1 As Boolean = False
|
||||
Dim DataValid2 As Boolean = False
|
||||
If strVal1.Length > 0 AndAlso strVal1 <> "0" Then
|
||||
DataValid1 = isDoubleValue(strVal1)
|
||||
|
||||
If DataValid1 = False Then
|
||||
Grid1.Cell(rowIndex, COLS.收入).BackColor = Color.Red
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.收入).BackColor = Color.Green
|
||||
End If
|
||||
End If
|
||||
If strVal2.Length > 0 AndAlso strVal2 <> "0" Then
|
||||
DataValid2 = isDoubleValue(strVal2)
|
||||
|
||||
If DataValid2 = False Then
|
||||
Grid1.Cell(rowIndex, COLS.支出).BackColor = Color.Red
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.支出).BackColor = Color.Green
|
||||
End If
|
||||
End If
|
||||
|
||||
If (DataValid1 = True AndAlso DataValid2 = True) OrElse
|
||||
(DataValid1 = False AndAlso DataValid2 = False) Then
|
||||
Grid1.Cell(rowIndex, COLS.收入).BackColor = Color.Red
|
||||
Grid1.Cell(rowIndex, COLS.支出).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
If DataValid1 = False Then
|
||||
Grid1.Cell(rowIndex, COLS.收入).Text = "0"
|
||||
Grid1.Cell(rowIndex, COLS.收入).BackColor = Color.Green
|
||||
End If
|
||||
If DataValid2 = False Then
|
||||
Grid1.Cell(rowIndex, COLS.支出).Text = "0"
|
||||
Grid1.Cell(rowIndex, COLS.支出).BackColor = Color.Green
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.收支类别).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.收支类别).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.收支类别).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.收支子类别).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.收支子类别).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.收支子类别).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.机种).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.机种).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.机种).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.交易方).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.交易方).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.交易方).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.业务类型).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.业务类型).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.业务类型).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.事由).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.事由).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.事由).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.经手人).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.经手人).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.经手人).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.单据类型).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.单据类型).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.单据类型).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
If Grid1.Cell(rowIndex, COLS.单据编号).Text.Length = 0 Then
|
||||
Grid1.Cell(rowIndex, COLS.单据编号).BackColor = Color.Red
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(rowIndex, COLS.单据编号).BackColor = Color.Green
|
||||
End If
|
||||
|
||||
|
||||
Return checkResult
|
||||
End Function
|
||||
|
||||
Private Function CheckAllRowValid() As Boolean
|
||||
'清除表状态
|
||||
For row As Integer = 1 To Grid1.Rows - 1
|
||||
For col As Integer = 0 To Grid1.Cols - 1
|
||||
Grid1.Cell(row, col).BackColor = Color.White
|
||||
Next
|
||||
Next
|
||||
|
||||
Dim checkResult As Boolean = True
|
||||
Dim isEmpty As Boolean = True
|
||||
For row As Integer = 1 To Grid1.Rows - 1
|
||||
If Grid1.Cell(row, COLS.日期).Text.Length > 0 Then
|
||||
isEmpty = False
|
||||
If CheckRowValid(row) = False Then
|
||||
checkResult = False
|
||||
Else
|
||||
Grid1.Cell(row, COLS.序号).BackColor = Color.Green
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
If isEmpty = True Then
|
||||
checkResult = False
|
||||
MsgBox("列表为空！")
|
||||
End If
|
||||
|
||||
Return checkResult
|
||||
End Function
|
||||
|
||||
Private Function SaveFinancialRecordItems() As Boolean
|
||||
Dim row As Integer
|
||||
Dim col As Integer
|
||||
Dim result As Boolean = True
|
||||
|
||||
'INSERT INTO table_name(col_name,...) values(expr,...)
|
||||
Dim strInsert As String = "INSERT INTO `" & cst_TABLE_NAME & "` "
|
||||
Dim insertItems As String = ""
|
||||
For col = 0 To COLS.max - 1
|
||||
If m_COLS_NAME(col, COLS_PROP.Insert) = "1" Then
|
||||
If insertItems.Length > 0 Then
|
||||
insertItems &= ","
|
||||
End If
|
||||
insertItems &= "`" & m_COLS_NAME(col, 0) & "`"
|
||||
End If
|
||||
Next
|
||||
|
||||
'增加“操作人”字段
|
||||
insertItems &= ",`操作人`"
|
||||
|
||||
For row = 1 To Grid1.Rows - 1
|
||||
If Grid1.Cell(row, COLS.序号).BackColor = Color.Green Then
|
||||
Dim insertValues As String = ""
|
||||
|
||||
For col = 0 To COLS.max - 1
|
||||
If m_COLS_NAME(col, COLS_PROP.Insert) = "1" Then
|
||||
If insertValues.Length > 0 Then
|
||||
insertValues &= ","
|
||||
End If
|
||||
|
||||
If Grid1.Column(col).CellType = FlexCell.CellTypeEnum.CheckBox Then
|
||||
If Grid1.Cell(row, col).BooleanValue = True Then
|
||||
insertValues &= "'1'"
|
||||
Else
|
||||
insertValues &= "'0'"
|
||||
End If
|
||||
Else
|
||||
insertValues &= "'" & Grid1.Cell(row, col).Text & "'"
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
insertValues &= "," & "'" & Current_UserName & "'"
|
||||
|
||||
Dim strSQL As String = strInsert & "(" & insertItems & ") values(" & insertValues & ")"
|
||||
If SQL_ExeCommand(COL_RIGHTS.财务管理, strSQL) = False Then
|
||||
result = False
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Private Sub UpdateItemSN()
|
||||
For row As Integer = 1 To Grid1.Rows - 1
|
||||
Grid1.Cell(row, COLS.序号).Text = row
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Grid1_CellChange(Sender As Object, e As FlexCell.Grid.CellChangeEventArgs) Handles Grid1.CellChange
|
||||
If e.Row > 0 AndAlso e.Col = COLS.收支类别 Then
|
||||
Grid1.Cell(e.Row, COLS.收支子类别).Text = ""
|
||||
|
||||
''查找当前“收支类别”对应的子类别
|
||||
'If Grid1.Cell(e.Row, COLS.收支类别).Text.Length > 0 Then
|
||||
' CGirdInfo.GetRecentSubList("财务_收支类别", Grid1.Cell(e.Row, COLS.收支类别).Text, gridSubList_收支类别, gridItemRecords_收支子类别)
|
||||
' SetGridDataSource()
|
||||
'End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Grid1_RowColChange(Sender As Object, e As FlexCell.Grid.RowColChangeEventArgs) Handles Grid1.RowColChange
|
||||
If e.Row > 0 AndAlso e.Col = COLS.收支子类别 Then
|
||||
'查找当前“收支类别”对应的子类别
|
||||
If Grid1.Cell(e.Row, COLS.收支类别).Text.Length > 0 Then
|
||||
CGirdInfo.GetRecentSubList("财务_收支类别_销售", Grid1.Cell(e.Row, COLS.收支类别).Text, gridSubList_收支类别, gridItemRecords_收支子类别)
|
||||
SetGridDataSource()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function GetLatestBalance(ByRef rBalance As Double) As Boolean
|
||||
Dim result As Boolean = False
|
||||
Dim strSQL As String = "SELECT `" & m_COLS_NAME(COLS.余额, COLS_PROP.Name) & "` FROM `" & cst_TABLE_NAME & "` WHERE `" & m_COLS_NAME(COLS.序号, COLS_PROP.Name) & "`= (SELECT max(`" & m_COLS_NAME(COLS.序号, COLS_PROP.Name) & "`) FROM `" & cst_TABLE_NAME & "`)"
|
||||
|
||||
rBalance = 0
|
||||
|
||||
m_Table.Rows.Clear()
|
||||
m_Table.Columns.Clear()
|
||||
If SQL_Query(COL_RIGHTS.财务管理, strSQL, m_Table) = True Then
|
||||
Try
|
||||
rBalance = m_Table.Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
result = True
|
||||
End If
|
||||
|
||||
Return result
|
||||
End Function
|
||||
End Class
|
||||
81
WT-DMS/Form_LogManage.Designer.vb
generated
Normal file
81
WT-DMS/Form_LogManage.Designer.vb
generated
Normal file
@@ -0,0 +1,81 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form_LogManage
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<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
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form_LogManage))
|
||||
Me.Grid1 = New FlexCell.Grid()
|
||||
Me.btAdd = New System.Windows.Forms.Button()
|
||||
Me.btDelete = New System.Windows.Forms.Button()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Grid1
|
||||
'
|
||||
Me.Grid1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Grid1.CheckedImage = CType(resources.GetObject("Grid1.CheckedImage"), System.Drawing.Bitmap)
|
||||
Me.Grid1.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||
Me.Grid1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Grid1.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.Grid1.Location = New System.Drawing.Point(12, 12)
|
||||
Me.Grid1.MultiSelect = False
|
||||
Me.Grid1.Name = "Grid1"
|
||||
Me.Grid1.Size = New System.Drawing.Size(600, 503)
|
||||
Me.Grid1.TabIndex = 1
|
||||
Me.Grid1.UncheckedImage = CType(resources.GetObject("Grid1.UncheckedImage"), System.Drawing.Bitmap)
|
||||
'
|
||||
'btAdd
|
||||
'
|
||||
Me.btAdd.Location = New System.Drawing.Point(618, 12)
|
||||
Me.btAdd.Name = "btAdd"
|
||||
Me.btAdd.Size = New System.Drawing.Size(93, 23)
|
||||
Me.btAdd.TabIndex = 2
|
||||
Me.btAdd.Text = "Add"
|
||||
Me.btAdd.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btDelete
|
||||
'
|
||||
Me.btDelete.Location = New System.Drawing.Point(618, 41)
|
||||
Me.btDelete.Name = "btDelete"
|
||||
Me.btDelete.Size = New System.Drawing.Size(93, 23)
|
||||
Me.btDelete.TabIndex = 2
|
||||
Me.btDelete.Text = "Delete"
|
||||
Me.btDelete.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Form_LogManage
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(723, 527)
|
||||
Me.Controls.Add(Me.btDelete)
|
||||
Me.Controls.Add(Me.btAdd)
|
||||
Me.Controls.Add(Me.Grid1)
|
||||
Me.Name = "Form_LogManage"
|
||||
Me.Text = "系统记录管理"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Grid1 As FlexCell.Grid
|
||||
Friend WithEvents btAdd As System.Windows.Forms.Button
|
||||
Friend WithEvents btDelete As System.Windows.Forms.Button
|
||||
End Class
|
||||
137
WT-DMS/Form_LogManage.resx
Normal file
137
WT-DMS/Form_LogManage.resx
Normal file
@@ -0,0 +1,137 @@
|
||||
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="Grid1.CheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAD/j/////+AAP+P/w///4AA/4/wAP//gAD/jwAAD/+AAP+PAPAA/4AA/48P/wAPgAD/j///8A+A
|
||||
AP+P////D4AA/4//////gAD/iIiIiIiAAP8=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Grid1.UncheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAD/j/////+AAP+P/////4AA/4//////gAD/j/////+AAP+P/////4AA/4//////gAD/j/////+A
|
||||
AP+P/////4AA/4//////gAD/iIiIiIiAAP8=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
3
WT-DMS/Form_LogManage.vb
Normal file
3
WT-DMS/Form_LogManage.vb
Normal file
@@ -0,0 +1,3 @@
|
||||
Public Class Form_LogManage
|
||||
|
||||
End Class
|
||||
157
WT-DMS/Form_QueryStorage.Designer.vb
generated
Normal file
157
WT-DMS/Form_QueryStorage.Designer.vb
generated
Normal file
@@ -0,0 +1,157 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form_QueryStorage
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<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
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form_QueryStorage))
|
||||
Me.Grid1 = New FlexCell.Grid()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.tb_PN = New System.Windows.Forms.TextBox()
|
||||
Me.bt_Add = New System.Windows.Forms.Button()
|
||||
Me.bt_Query = New System.Windows.Forms.Button()
|
||||
Me.bt_Delete = New System.Windows.Forms.Button()
|
||||
Me.bt_Clear = New System.Windows.Forms.Button()
|
||||
Me.lbl_Result = New System.Windows.Forms.Label()
|
||||
Me.btn_SaveAs = New System.Windows.Forms.Button()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Grid1
|
||||
'
|
||||
Me.Grid1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Grid1.CheckedImage = CType(resources.GetObject("Grid1.CheckedImage"), System.Drawing.Bitmap)
|
||||
Me.Grid1.Cols = 7
|
||||
Me.Grid1.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||
Me.Grid1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Grid1.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.Grid1.Location = New System.Drawing.Point(12, 82)
|
||||
Me.Grid1.Name = "Grid1"
|
||||
Me.Grid1.Rows = 500
|
||||
Me.Grid1.Size = New System.Drawing.Size(741, 524)
|
||||
Me.Grid1.TabIndex = 5
|
||||
Me.Grid1.UncheckedImage = CType(resources.GetObject("Grid1.UncheckedImage"), System.Drawing.Bitmap)
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(13, 13)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(29, 12)
|
||||
Me.Label1.TabIndex = 3
|
||||
Me.Label1.Text = "料号"
|
||||
'
|
||||
'tb_PN
|
||||
'
|
||||
Me.tb_PN.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
||||
Me.tb_PN.ImeMode = System.Windows.Forms.ImeMode.Off
|
||||
Me.tb_PN.Location = New System.Drawing.Point(60, 10)
|
||||
Me.tb_PN.MaxLength = 32
|
||||
Me.tb_PN.Name = "tb_PN"
|
||||
Me.tb_PN.Size = New System.Drawing.Size(239, 21)
|
||||
Me.tb_PN.TabIndex = 0
|
||||
'
|
||||
'bt_Add
|
||||
'
|
||||
Me.bt_Add.Location = New System.Drawing.Point(220, 37)
|
||||
Me.bt_Add.Name = "bt_Add"
|
||||
Me.bt_Add.Size = New System.Drawing.Size(79, 23)
|
||||
Me.bt_Add.TabIndex = 1
|
||||
Me.bt_Add.Text = "添加料号"
|
||||
Me.bt_Add.UseVisualStyleBackColor = True
|
||||
'
|
||||
'bt_Query
|
||||
'
|
||||
Me.bt_Query.Location = New System.Drawing.Point(305, 10)
|
||||
Me.bt_Query.Name = "bt_Query"
|
||||
Me.bt_Query.Size = New System.Drawing.Size(100, 50)
|
||||
Me.bt_Query.TabIndex = 2
|
||||
Me.bt_Query.Text = "查询"
|
||||
Me.bt_Query.UseVisualStyleBackColor = True
|
||||
'
|
||||
'bt_Delete
|
||||
'
|
||||
Me.bt_Delete.Location = New System.Drawing.Point(12, 37)
|
||||
Me.bt_Delete.Name = "bt_Delete"
|
||||
Me.bt_Delete.Size = New System.Drawing.Size(75, 23)
|
||||
Me.bt_Delete.TabIndex = 3
|
||||
Me.bt_Delete.Text = "删除"
|
||||
Me.bt_Delete.UseVisualStyleBackColor = True
|
||||
'
|
||||
'bt_Clear
|
||||
'
|
||||
Me.bt_Clear.Location = New System.Drawing.Point(93, 37)
|
||||
Me.bt_Clear.Name = "bt_Clear"
|
||||
Me.bt_Clear.Size = New System.Drawing.Size(75, 23)
|
||||
Me.bt_Clear.TabIndex = 4
|
||||
Me.bt_Clear.Text = "清空"
|
||||
Me.bt_Clear.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lbl_Result
|
||||
'
|
||||
Me.lbl_Result.AutoSize = True
|
||||
Me.lbl_Result.ForeColor = System.Drawing.Color.Blue
|
||||
Me.lbl_Result.Location = New System.Drawing.Point(12, 67)
|
||||
Me.lbl_Result.Name = "lbl_Result"
|
||||
Me.lbl_Result.Size = New System.Drawing.Size(0, 12)
|
||||
Me.lbl_Result.TabIndex = 8
|
||||
'
|
||||
'btn_SaveAs
|
||||
'
|
||||
Me.btn_SaveAs.Location = New System.Drawing.Point(458, 10)
|
||||
Me.btn_SaveAs.Name = "btn_SaveAs"
|
||||
Me.btn_SaveAs.Size = New System.Drawing.Size(159, 50)
|
||||
Me.btn_SaveAs.TabIndex = 9
|
||||
Me.btn_SaveAs.Text = "另存为。。。"
|
||||
Me.btn_SaveAs.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Form_QueryStorage
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(765, 618)
|
||||
Me.Controls.Add(Me.btn_SaveAs)
|
||||
Me.Controls.Add(Me.lbl_Result)
|
||||
Me.Controls.Add(Me.bt_Clear)
|
||||
Me.Controls.Add(Me.bt_Delete)
|
||||
Me.Controls.Add(Me.bt_Query)
|
||||
Me.Controls.Add(Me.bt_Add)
|
||||
Me.Controls.Add(Me.tb_PN)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.Grid1)
|
||||
Me.MinimumSize = New System.Drawing.Size(100, 100)
|
||||
Me.Name = "Form_QueryStorage"
|
||||
Me.Text = "物料库存查询"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Grid1 As FlexCell.Grid
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents tb_PN As System.Windows.Forms.TextBox
|
||||
Friend WithEvents bt_Add As System.Windows.Forms.Button
|
||||
Friend WithEvents bt_Query As System.Windows.Forms.Button
|
||||
Friend WithEvents bt_Delete As System.Windows.Forms.Button
|
||||
Friend WithEvents bt_Clear As System.Windows.Forms.Button
|
||||
Friend WithEvents lbl_Result As System.Windows.Forms.Label
|
||||
Friend WithEvents btn_SaveAs As System.Windows.Forms.Button
|
||||
End Class
|
||||
137
WT-DMS/Form_QueryStorage.resx
Normal file
137
WT-DMS/Form_QueryStorage.resx
Normal file
@@ -0,0 +1,137 @@
|
||||
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="Grid1.CheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAAAj/////+AAACP/w///4AAAI/wAP//gAAAjwAAD/+AAACPAPAA/4AAAI8P/wAPgAAAj///8A+A
|
||||
AACP////D4AAAI//////gAAAiIiIiIiAAAA=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Grid1.UncheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAAAj/////+AAACP/////4AAAI//////gAAAj/////+AAACP/////4AAAI//////gAAAj/////+A
|
||||
AACP/////4AAAI//////gAAAiIiIiIiAAAA=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
379
WT-DMS/Form_QueryStorage.vb
Normal file
379
WT-DMS/Form_QueryStorage.vb
Normal file
@@ -0,0 +1,379 @@
|
||||
Public Class Form_QueryStorage
|
||||
Dim m_Table As New System.Data.DataTable
|
||||
Dim 仓库列表 As New ArrayList
|
||||
Dim m_PartNumber As New CPartNumber
|
||||
Dim m_InitOver As Boolean = False
|
||||
|
||||
Public Enum COLS
|
||||
序号
|
||||
料号
|
||||
物料名称
|
||||
规格描述
|
||||
总数量
|
||||
START
|
||||
End Enum
|
||||
|
||||
Private Function GetStoreList() As Boolean
|
||||
Dim m_Store As New CStore
|
||||
|
||||
仓库列表.Clear()
|
||||
|
||||
m_Table.Rows.Clear()
|
||||
m_Table.Columns.Clear()
|
||||
If m_Store.QueryAll(m_Table) = ERROR_CODE.SUCCESS Then
|
||||
For i As Integer = 0 To m_Table.Rows.Count - 1
|
||||
仓库列表.Add(m_Table.Rows(i).Item(CStore.COLS.仓库名称))
|
||||
Next
|
||||
Return True
|
||||
End If
|
||||
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Private Sub Set_GridTitles()
|
||||
Grid1.Rows = 500
|
||||
Grid1.Cols = 5
|
||||
Grid1.Cell(0, COLS.序号).Text = "序号"
|
||||
Grid1.Cell(0, COLS.料号).Text = "料号"
|
||||
Grid1.Cell(0, COLS.物料名称).Text = "物料名称"
|
||||
Grid1.Cell(0, COLS.规格描述).Text = "规格描述"
|
||||
Grid1.Cell(0, COLS.总数量).Text = "总数量"
|
||||
Dim col As Integer = COLS.START
|
||||
For Each pItem As String In 仓库列表
|
||||
Grid1.Cols += 1
|
||||
Grid1.Cell(0, col).Text = pItem
|
||||
col += 1
|
||||
'V1.6.0.0 Momo: 查库存同时查库位
|
||||
Grid1.Cols += 1
|
||||
Grid1.Cell(0, col).Text = "库位" 'V1.6.0.0 Momo: 查库存同时查库位
|
||||
col += 1
|
||||
|
||||
Next
|
||||
|
||||
Grid1.FixedRows = 1
|
||||
Grid1.FixedCols = 1
|
||||
End Sub
|
||||
|
||||
Private Sub Form_QueryStorage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
Me.Width = My.Settings.FORM_QUERYSTORAGE_WIDTH
|
||||
Me.Height = My.Settings.FORM_QUERYSTORAGE_HEIGHT
|
||||
Me.Left = My.Settings.FORM_QUERYSTORAGE_X
|
||||
Me.Top = My.Settings.FORM_QUERYSTORAGE_Y
|
||||
Me.WindowState = My.Settings.FORM_QUERYSTORAGE_WINSTATE
|
||||
|
||||
|
||||
If CBool(Current_Rights(COL_RIGHTS.料号管理) And RIGHTS.READ) = False OrElse
|
||||
CBool(Current_Rights(COL_RIGHTS.原料库存管理) And RIGHTS.READ) = False Then
|
||||
bt_Query.Enabled = False
|
||||
bt_Add.Enabled = False
|
||||
End If
|
||||
|
||||
If GetStoreList() = False Then
|
||||
MsgBox("无法获取仓库列表，请检查网络连接！")
|
||||
End If
|
||||
|
||||
Set_GridTitles()
|
||||
|
||||
CGirdInfo.LoadGridInfo("物料库存查询", Grid1)
|
||||
|
||||
m_InitOver = True
|
||||
End Sub
|
||||
|
||||
Private Sub bt_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Add.Click
|
||||
|
||||
Grid1.NewFile()
|
||||
Set_GridTitles()
|
||||
|
||||
If Not m_Table Is Nothing Then
|
||||
m_Table.Dispose()
|
||||
End If
|
||||
m_Table = New DataTable
|
||||
|
||||
QueryData_Quick()
|
||||
|
||||
Grid1.AllowUserSort = False
|
||||
Grid1.DisplayFocusRect = False
|
||||
Grid1.ExtendLastCol = True
|
||||
Grid1.DisplayRowArrow = True
|
||||
Grid1.BoldFixedCell = False
|
||||
Grid1.SortIndicatorStyle = FlexCell.SortIndicatorStyleEnum.Light3D
|
||||
|
||||
'Grid1.SetDataBinding(m_Table, "", True, 1)
|
||||
If m_Table.Rows.Count < 500 Then
|
||||
Grid1.Rows = 500
|
||||
Else
|
||||
Grid1.Rows = m_Table.Rows.Count
|
||||
End If
|
||||
|
||||
For i As Integer = 0 To m_Table.Rows.Count - 1
|
||||
Grid1.Cell(i + 1, COLS.料号).Text = m_Table.Rows(i).Item(0)
|
||||
Next
|
||||
|
||||
For i As Integer = 1 To Grid1.Rows - 1
|
||||
Grid1.Cell(i, 0).Text = i
|
||||
Next
|
||||
|
||||
CGirdInfo.LoadGridInfo("料号查询", Grid1)
|
||||
Grid1.AllowUserSort = True
|
||||
|
||||
'Grid1.Locked = True
|
||||
End Sub
|
||||
|
||||
Private Sub bt_Clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Clear.Click
|
||||
Grid1.Rows = 1
|
||||
End Sub
|
||||
|
||||
Private Sub bt_Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Delete.Click
|
||||
If Grid1.Selection.FirstRow >= 1 Then
|
||||
Grid1.RemoveItem(Grid1.Selection.FirstRow)
|
||||
Grid1.Selection.ClearAll()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function QueryStorageCount(ByVal storeIndex As Integer, ByVal PartNumber As String, ByRef rCount As Integer) As Boolean
|
||||
Dim strSelect As String = "SELECT SUM(`" & CMaterialInOut.m_COLS_NAME(CMaterialInOut.COLS.数量) & "`) FROM "
|
||||
strSelect &= "`" & CMaterialInOut.cst_TABLE_NAME & "` "
|
||||
strSelect &= " WHERE `" & CMaterialInOut.m_COLS_NAME(CMaterialInOut.COLS.料号PN) & "` COLLATE gbk_chinese_ci = '" & PartNumber & "' "
|
||||
strSelect &= "AND `" & CMaterialInOut.m_COLS_NAME(CMaterialInOut.COLS.仓库) & "` = '" & 仓库列表.Item(storeIndex) & "' "
|
||||
|
||||
'查询入库数量
|
||||
Dim result As Boolean = False
|
||||
Dim Count_In As Integer = 0
|
||||
Dim strSQL As String = strSelect
|
||||
strSQL &= "AND `" & CMaterialInOut.m_COLS_NAME(CMaterialInOut.COLS.入库出库) & "` = '0'"
|
||||
m_Table.Rows.Clear()
|
||||
m_Table.Columns.Clear()
|
||||
If SQL_Query(COL_RIGHTS.原料库存管理, strSQL, m_Table) = True Then
|
||||
Try
|
||||
Count_In = m_Table.Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
Count_In = 0
|
||||
End Try
|
||||
|
||||
result = True
|
||||
End If
|
||||
|
||||
'查询出库数量
|
||||
Dim Count_Out As Integer = 0
|
||||
strSQL = strSelect
|
||||
strSQL &= "AND `" & CMaterialInOut.m_COLS_NAME(CMaterialInOut.COLS.入库出库) & "` = '1'"
|
||||
If result Then
|
||||
result = False
|
||||
m_Table.Rows.Clear()
|
||||
m_Table.Columns.Clear()
|
||||
If SQL_Query(COL_RIGHTS.原料库存管理, strSQL, m_Table) = True Then
|
||||
Try
|
||||
Count_Out = m_Table.Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
Count_Out = 0
|
||||
End Try
|
||||
result = True
|
||||
End If
|
||||
End If
|
||||
|
||||
rCount = Count_In - Count_Out
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Private Function QueryStorageLocation(ByVal storeIndex As Integer, ByVal PartNumber As String, ByRef dataTable As System.Data.DataTable) As Boolean
|
||||
Dim strSelect As String = "SELECT DISTINCT `" & CMaterialInOut.m_COLS_NAME(CMaterialInOut.COLS.库位) & "` FROM "
|
||||
strSelect &= "`" & CMaterialInOut.cst_TABLE_NAME & "` "
|
||||
strSelect &= " WHERE `" & CMaterialInOut.m_COLS_NAME(CMaterialInOut.COLS.料号PN) & "` COLLATE gbk_chinese_ci = '" & PartNumber & "' "
|
||||
strSelect &= "AND `" & CMaterialInOut.m_COLS_NAME(CMaterialInOut.COLS.仓库) & "` = '" & 仓库列表.Item(storeIndex) & "' "
|
||||
|
||||
'查询入库数量
|
||||
Dim result As Boolean = False
|
||||
Dim strSQL As String = strSelect
|
||||
strSQL &= "AND `" & CMaterialInOut.m_COLS_NAME(CMaterialInOut.COLS.库位库存) & "` > '0'"
|
||||
dataTable.Rows.Clear()
|
||||
dataTable.Columns.Clear()
|
||||
If SQL_Query(COL_RIGHTS.原料库存管理, strSQL, dataTable) = True Then
|
||||
result = True
|
||||
End If
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Private Sub bt_Query_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Query.Click
|
||||
lbl_Result.Text = ""
|
||||
Grid1.AutoRedraw = False
|
||||
|
||||
'检测查询列是否有效
|
||||
If Grid1.Rows > 1 Then
|
||||
Dim col As Integer
|
||||
Dim row As Integer
|
||||
|
||||
'清除每行的颜色
|
||||
For row = 1 To Grid1.Rows - 1
|
||||
Grid1.Cell(row, 1).BackColor = Grid1.Cell(0, 0).BackColor
|
||||
Next
|
||||
|
||||
Dim result As Boolean
|
||||
Dim rCount As Integer = 0
|
||||
Dim TotalCount As Integer = 0
|
||||
Dim OK_Cnt As Integer = 0
|
||||
Dim Fail_Cnt As Integer = 0
|
||||
|
||||
Dim m_物料名称 As String = ""
|
||||
Dim m_规格描述 As String = ""
|
||||
Dim m_单位 As String = ""
|
||||
Dim m_单重 As Double = 0.0
|
||||
Dim m_供应商ID As String = ""
|
||||
|
||||
For row = 1 To Grid1.Rows - 1
|
||||
Grid1.Cell(row, 0).Text = row
|
||||
result = False
|
||||
TotalCount = 0
|
||||
col = COLS.START
|
||||
For i As Integer = 0 To 仓库列表.Count - 1
|
||||
'V1.6.0.0 Momo 增加对空白栏的检测
|
||||
Dim temp_tb_PN = Grid1.Cell(row, COLS.料号).Text
|
||||
If temp_tb_PN.Length > 0 Then
|
||||
'检测料号是否有效
|
||||
Dim isExist As Boolean = True
|
||||
If m_PartNumber.CheckPartNumber(temp_tb_PN, isExist) = ERROR_CODE.SUCCESS Then
|
||||
If isExist = False Then
|
||||
'MsgBox("当前料号不存在: " & tb_PN.Text)
|
||||
result = False
|
||||
Else
|
||||
'查询料号信息
|
||||
m_物料名称 = ""
|
||||
m_规格描述 = ""
|
||||
m_单位 = ""
|
||||
m_单重 = 0.0
|
||||
m_供应商ID = ""
|
||||
If m_PartNumber.QueryItem(temp_tb_PN, m_物料名称, m_规格描述, m_单位, m_单重, m_供应商ID) = ERROR_CODE.SUCCESS Then
|
||||
Grid1.Cell(row, COLS.物料名称).Text = m_物料名称
|
||||
Grid1.Cell(row, COLS.规格描述).Text = m_规格描述
|
||||
End If
|
||||
|
||||
If QueryStorageCount(i, Grid1.Cell(row, COLS.料号).Text, rCount) = True Then
|
||||
Grid1.Cell(row, col).Text = rCount
|
||||
TotalCount += rCount
|
||||
Grid1.Cell(row, 1).ForeColor = Color.Green
|
||||
result = True
|
||||
Else
|
||||
Grid1.Cell(row, 1).ForeColor = Color.Red
|
||||
result = False
|
||||
End If
|
||||
|
||||
Dim strLoc As String = ""
|
||||
If QueryStorageLocation(i, Grid1.Cell(row, COLS.料号).Text, m_Table) = True Then
|
||||
If m_Table.Rows.Count > 0 Then
|
||||
For k As Integer = 0 To m_Table.Rows.Count - 1
|
||||
Dim isExit As Boolean
|
||||
If m_PartNumber.GetStockSum(仓库列表.Item(i), m_Table.Rows(k).Item(0), isExit) <= 0 Then '若库位库存量为0则跳过本次循环
|
||||
Continue For
|
||||
End If
|
||||
If strLoc.Length > 0 Then
|
||||
strLoc &= ","
|
||||
End If
|
||||
strLoc &= m_Table.Rows(k).Item(0)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Grid1.Cell(row, col + 1).Text = strLoc
|
||||
Grid1.Cell(row, 4).Font = New Font("Arial", 8)
|
||||
Grid1.Cell(row, 4).FontSize = 11
|
||||
Grid1.Cell(row, 4).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
||||
Grid1.Cell(row, 4).FontBold = True
|
||||
Grid1.Cell(row, 4).ForeColor = Color.Blue
|
||||
|
||||
Grid1.Cell(row, 5).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
||||
Grid1.Cell(row, 6).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
||||
Grid1.Cell(row, 7).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
||||
Grid1.Cell(row, 8).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
||||
|
||||
End If
|
||||
Else
|
||||
'MsgBox("访问数据库失败: 请检查网络连接或联系管理员!")
|
||||
result = False
|
||||
End If
|
||||
Else
|
||||
result = False
|
||||
End If
|
||||
col += 2
|
||||
Next i
|
||||
|
||||
If result = True Then
|
||||
Grid1.Cell(row, COLS.总数量).Text = TotalCount
|
||||
OK_Cnt += 1
|
||||
Else
|
||||
Fail_Cnt += 1
|
||||
End If
|
||||
Next row
|
||||
|
||||
lbl_Result.Text = "查询完成: 共" & OK_Cnt + Fail_Cnt & "条, 成功" & OK_Cnt & "条"
|
||||
End If
|
||||
|
||||
'Format
|
||||
|
||||
Grid1.Refresh()
|
||||
Grid1.AutoRedraw = True
|
||||
End Sub
|
||||
|
||||
Private Sub Grid1_ColWidthChange(ByVal Sender As System.Object, ByVal e As FlexCell.Grid.ColWidthChangeEventArgs) Handles Grid1.ColWidthChange
|
||||
CGirdInfo.SaveGirdInfo("物料库存查询", Grid1)
|
||||
End Sub
|
||||
|
||||
Private Sub Form_QueryStorage_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
|
||||
If m_InitOver = True Then
|
||||
My.Settings.FORM_QUERYSTORAGE_WIDTH = Me.Width
|
||||
My.Settings.FORM_QUERYSTORAGE_HEIGHT = Me.Height
|
||||
My.Settings.FORM_QUERYSTORAGE_WINSTATE = Me.WindowState
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Form_QueryStorage_LocationChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LocationChanged
|
||||
If m_InitOver = True Then
|
||||
My.Settings.FORM_QUERYSTORAGE_X = Me.Left
|
||||
My.Settings.FORM_QUERYSTORAGE_Y = Me.Top
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
' V1.6.0.0 Momo 库存页面增加模糊查询
|
||||
Private Sub QueryData_Quick()
|
||||
Dim strSQL As String = "SELECT `" &
|
||||
CPartNumber.m_COLS_NAME(CPartNumber.COLS.料号PN) & "`"
|
||||
strSQL &= " FROM `" & CPartNumber.cst_TABLE_NAME & "`"
|
||||
|
||||
If tb_PN.Text.Length > 0 Then
|
||||
strSQL &= " WHERE "
|
||||
|
||||
Dim strSplit() As String
|
||||
Dim firstLike As Boolean = True
|
||||
If tb_PN.Text.Length > 0 Then
|
||||
strSplit = Split(tb_PN.Text, ",")
|
||||
For i As Integer = 0 To strSplit.Length - 1
|
||||
If firstLike = True Then
|
||||
firstLike = False
|
||||
Else
|
||||
strSQL &= " AND "
|
||||
End If
|
||||
strSQL &= "`" & CPartNumber.m_COLS_NAME(CPartNumber.COLS.料号PN) & "`"
|
||||
strSQL &= " COLLATE gbk_chinese_ci "
|
||||
strSQL &= " LIKE '%"
|
||||
strSQL &= form_QuerySim.GetLikeString(strSplit(i)) & "%'"
|
||||
strSQL &= " escape '/'"
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
SQL_Query(COL_RIGHTS.料号管理, strSQL, m_Table)
|
||||
End Sub
|
||||
|
||||
Private Sub btn_SaveAs_Click(sender As Object, e As EventArgs) Handles btn_SaveAs.Click
|
||||
Dim dlg As New SaveFileDialog()
|
||||
dlg.DefaultExt = "xls"
|
||||
dlg.Filter = "Excel File|*.xls"
|
||||
If dlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return
|
||||
|
||||
If Grid1.ExportToExcel(dlg.FileName, True, True) Then
|
||||
MsgBox("保存为Excel成功：" & dlg.FileName)
|
||||
Else
|
||||
MsgBox("保存失败!")
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
121
WT-DMS/Form_QueryStorageRecord.Designer.vb
generated
Normal file
121
WT-DMS/Form_QueryStorageRecord.Designer.vb
generated
Normal file
@@ -0,0 +1,121 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form_QueryStorageRecord
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<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
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form_QueryStorageRecord))
|
||||
Me.Grid1 = New FlexCell.Grid()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.tb_PN = New System.Windows.Forms.TextBox()
|
||||
Me.bt_Query = New System.Windows.Forms.Button()
|
||||
Me.lbl_Result = New System.Windows.Forms.Label()
|
||||
Me.btn_SaveAs = New System.Windows.Forms.Button()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Grid1
|
||||
'
|
||||
Me.Grid1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Grid1.CheckedImage = CType(resources.GetObject("Grid1.CheckedImage"), System.Drawing.Bitmap)
|
||||
Me.Grid1.Cols = 7
|
||||
Me.Grid1.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||
Me.Grid1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Grid1.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.Grid1.Location = New System.Drawing.Point(12, 72)
|
||||
Me.Grid1.Name = "Grid1"
|
||||
Me.Grid1.Rows = 500
|
||||
Me.Grid1.Size = New System.Drawing.Size(741, 534)
|
||||
Me.Grid1.TabIndex = 5
|
||||
Me.Grid1.UncheckedImage = CType(resources.GetObject("Grid1.UncheckedImage"), System.Drawing.Bitmap)
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(13, 13)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(137, 12)
|
||||
Me.Label1.TabIndex = 3
|
||||
Me.Label1.Text = "料号: (不支持模糊查询)"
|
||||
'
|
||||
'tb_PN
|
||||
'
|
||||
Me.tb_PN.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
||||
Me.tb_PN.ImeMode = System.Windows.Forms.ImeMode.Off
|
||||
Me.tb_PN.Location = New System.Drawing.Point(12, 28)
|
||||
Me.tb_PN.MaxLength = 32
|
||||
Me.tb_PN.Name = "tb_PN"
|
||||
Me.tb_PN.Size = New System.Drawing.Size(292, 21)
|
||||
Me.tb_PN.TabIndex = 0
|
||||
'
|
||||
'bt_Query
|
||||
'
|
||||
Me.bt_Query.Location = New System.Drawing.Point(306, 13)
|
||||
Me.bt_Query.Name = "bt_Query"
|
||||
Me.bt_Query.Size = New System.Drawing.Size(100, 37)
|
||||
Me.bt_Query.TabIndex = 2
|
||||
Me.bt_Query.Text = "查询"
|
||||
Me.bt_Query.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lbl_Result
|
||||
'
|
||||
Me.lbl_Result.AutoSize = True
|
||||
Me.lbl_Result.ForeColor = System.Drawing.Color.Blue
|
||||
Me.lbl_Result.Location = New System.Drawing.Point(12, 57)
|
||||
Me.lbl_Result.Name = "lbl_Result"
|
||||
Me.lbl_Result.Size = New System.Drawing.Size(0, 12)
|
||||
Me.lbl_Result.TabIndex = 8
|
||||
'
|
||||
'btn_SaveAs
|
||||
'
|
||||
Me.btn_SaveAs.Location = New System.Drawing.Point(417, 13)
|
||||
Me.btn_SaveAs.Name = "btn_SaveAs"
|
||||
Me.btn_SaveAs.Size = New System.Drawing.Size(179, 37)
|
||||
Me.btn_SaveAs.TabIndex = 9
|
||||
Me.btn_SaveAs.Text = "保存为Excel表格"
|
||||
Me.btn_SaveAs.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Form_QueryStorageRecord
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(765, 618)
|
||||
Me.Controls.Add(Me.btn_SaveAs)
|
||||
Me.Controls.Add(Me.lbl_Result)
|
||||
Me.Controls.Add(Me.bt_Query)
|
||||
Me.Controls.Add(Me.tb_PN)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.Grid1)
|
||||
Me.MinimumSize = New System.Drawing.Size(100, 100)
|
||||
Me.Name = "Form_QueryStorageRecord"
|
||||
Me.Text = "物料出入库记录查询"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Grid1 As FlexCell.Grid
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents tb_PN As System.Windows.Forms.TextBox
|
||||
Friend WithEvents bt_Query As System.Windows.Forms.Button
|
||||
Friend WithEvents lbl_Result As System.Windows.Forms.Label
|
||||
Friend WithEvents btn_SaveAs As System.Windows.Forms.Button
|
||||
End Class
|
||||
137
WT-DMS/Form_QueryStorageRecord.resx
Normal file
137
WT-DMS/Form_QueryStorageRecord.resx
Normal file
@@ -0,0 +1,137 @@
|
||||
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="Grid1.CheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAAAj/////+AAACP/w///4AAAI/wAP//gAAAjwAAD/+AAACPAPAA/4AAAI8P/wAPgAAAj///8A+A
|
||||
AACP////D4AAAI//////gAAAiIiIiIiAAAA=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Grid1.UncheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAAAj/////+AAACP/////4AAAI//////gAAAj/////+AAACP/////4AAAI//////gAAAj/////+A
|
||||
AACP/////4AAAI//////gAAAiIiIiIiAAAA=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
218
WT-DMS/Form_QueryStorageRecord.vb
Normal file
218
WT-DMS/Form_QueryStorageRecord.vb
Normal file
@@ -0,0 +1,218 @@
|
||||
Public Class Form_QueryStorageRecord
|
||||
Dim m_Table As New System.Data.DataTable
|
||||
Dim 仓库列表 As New ArrayList
|
||||
Dim m_PartNumber As New CPartNumber
|
||||
Dim m_InitOver As Boolean = False
|
||||
|
||||
Public Enum COLS
|
||||
序号
|
||||
日期
|
||||
时间
|
||||
仓库
|
||||
库位
|
||||
入库
|
||||
出库
|
||||
库位库存
|
||||
总结余
|
||||
用途
|
||||
操作员ID
|
||||
max
|
||||
End Enum
|
||||
|
||||
Public Shared m_COLS_NAME() As String = {
|
||||
"序号",
|
||||
"日期",
|
||||
"时间",
|
||||
"仓库",
|
||||
"库位",
|
||||
"入库",
|
||||
"出库",
|
||||
"库位库存",
|
||||
"总结余",
|
||||
"用途",
|
||||
"操作员ID"
|
||||
}
|
||||
|
||||
|
||||
Private Sub Set_GridTitles()
|
||||
Grid1.NewFile()
|
||||
|
||||
Grid1.Rows = 1
|
||||
Grid1.Cols = COLS.max
|
||||
|
||||
For i As Integer = 0 To COLS.max - 1
|
||||
Grid1.Cell(0, i).Text = m_COLS_NAME(i)
|
||||
Next
|
||||
|
||||
Grid1.FixedRows = 1
|
||||
Grid1.FixedCols = 1
|
||||
End Sub
|
||||
|
||||
Private Sub Form_QueryStorage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.Width = My.Settings.FORM_QUERYSTORAGE_WIDTH
|
||||
Me.Height = My.Settings.FORM_QUERYSTORAGE_HEIGHT
|
||||
Me.Left = My.Settings.FORM_QUERYSTORAGE_X
|
||||
Me.Top = My.Settings.FORM_QUERYSTORAGE_Y
|
||||
Me.WindowState = My.Settings.FORM_QUERYSTORAGE_WINSTATE
|
||||
|
||||
If CBool(Current_Rights(COL_RIGHTS.料号管理) And RIGHTS.READ) = False OrElse
|
||||
CBool(Current_Rights(COL_RIGHTS.原料库存管理) And RIGHTS.READ) = False Then
|
||||
bt_Query.Enabled = False
|
||||
End If
|
||||
|
||||
Set_GridTitles()
|
||||
|
||||
m_InitOver = True
|
||||
End Sub
|
||||
|
||||
Private Function QueryStorageInOutRecords(ByVal PartNumber As String, ByRef dataTable As Data.DataTable) As Boolean
|
||||
' Dim selectItem As String = "`日期`,`时间`,`仓库`,`库位`,`入库出库`,`数量`,`用途`,`操作员ID`"
|
||||
|
||||
'=================================================================================================
|
||||
'获取需要的数据列
|
||||
Dim selectItem As String = "`日期`,`时间`,`仓库`,`库位`,`入库出库`,`数量`,`用途`,`操作员ID`,`库位库存`"
|
||||
'=================================================================================================
|
||||
Dim strSelect As String = "SELECT " & selectItem
|
||||
strSelect &= " FROM `" & CMaterialInOut.cst_TABLE_NAME & "` "
|
||||
' strSelect &= " WHERE `" & CMaterialInOut.m_COLS_NAME(CMaterialInOut.COLS.料号PN) & "` COLLATE gbk_chinese_ci = '" & PartNumber & "' "
|
||||
strSelect &= " WHERE `" & CMaterialInOut.m_COLS_NAME(CMaterialInOut.COLS.料号PN) & "`= '" & PartNumber & "' "
|
||||
'查询入库数量
|
||||
Dim result As Boolean = False
|
||||
Dim strSQL As String = strSelect
|
||||
dataTable.Rows.Clear()
|
||||
dataTable.Columns.Clear()
|
||||
If SQL_Query(COL_RIGHTS.原料库存管理, strSQL, dataTable) = True Then
|
||||
result = True
|
||||
End If
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Private Sub bt_Query_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Query.Click
|
||||
lbl_Result.Text = ""
|
||||
|
||||
If tb_PN.Text.Length = 0 Then
|
||||
MsgBox("请指定料号!")
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim row As Integer
|
||||
Dim totalCount As Long = 0
|
||||
Dim inOutFlag As Boolean = False
|
||||
|
||||
Set_GridTitles()
|
||||
|
||||
If QueryStorageInOutRecords(tb_PN.Text, m_Table) = True Then
|
||||
If m_Table.Rows.Count > 0 Then
|
||||
Grid1.Rows = m_Table.Rows.Count + 1
|
||||
For row = 0 To m_Table.Rows.Count - 1
|
||||
Dim insertRow As Integer = row + 1
|
||||
|
||||
Grid1.Cell(insertRow, COLS.序号).Text = row + 1
|
||||
Grid1.Cell(insertRow, COLS.日期).Text = m_Table.Rows.Item(row).Item(0).ToString
|
||||
Grid1.Cell(insertRow, COLS.时间).Text = m_Table.Rows.Item(row).Item(1).ToString
|
||||
Grid1.Cell(insertRow, COLS.仓库).Text = m_Table.Rows.Item(row).Item(2).ToString
|
||||
Grid1.Cell(insertRow, COLS.库位).Text = m_Table.Rows.Item(row).Item(3).ToString
|
||||
|
||||
inOutFlag = CBool(m_Table.Rows.Item(row).Item(4))
|
||||
If inOutFlag = True Then
|
||||
Grid1.Cell(insertRow, COLS.入库).Text = "0"
|
||||
Grid1.Cell(insertRow, COLS.出库).Text = m_Table.Rows.Item(row).Item(5)
|
||||
Else
|
||||
Grid1.Cell(insertRow, COLS.入库).Text = m_Table.Rows.Item(row).Item(5)
|
||||
Grid1.Cell(insertRow, COLS.出库).Text = "0"
|
||||
End If
|
||||
' Grid1.Cell(insertRow, COLS.数量).Text = m_Table.Rows.Item(row).Item(5)
|
||||
|
||||
'=================================================================================================
|
||||
'添加内容至表格
|
||||
Grid1.Cell(insertRow, COLS.库位库存).Text = m_Table.Rows.Item(row).Item(8)
|
||||
|
||||
'=================================================================================================
|
||||
Dim numCount As Long = 0
|
||||
Try
|
||||
numCount = CLng(m_Table.Rows.Item(row).Item(5))
|
||||
If inOutFlag = True Then
|
||||
totalCount -= numCount
|
||||
Else
|
||||
totalCount += numCount
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("库存信息错误!")
|
||||
Return
|
||||
End Try
|
||||
|
||||
Grid1.Cell(insertRow, COLS.总结余).Text = totalCount
|
||||
Grid1.Cell(insertRow, COLS.用途).Text = m_Table.Rows.Item(row).Item(6)
|
||||
Grid1.Cell(insertRow, COLS.操作员ID).Text = m_Table.Rows.Item(row).Item(7)
|
||||
Next
|
||||
End If
|
||||
|
||||
lbl_Result.Text = "查询完成: 共" & m_Table.Rows.Count & "条"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Grid1_ColWidthChange(ByVal Sender As System.Object, ByVal e As FlexCell.Grid.ColWidthChangeEventArgs) Handles Grid1.ColWidthChange
|
||||
CGirdInfo.SaveGirdInfo("物料库存查询", Grid1)
|
||||
End Sub
|
||||
|
||||
Private Sub Form_QueryStorage_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
|
||||
If m_InitOver = True Then
|
||||
My.Settings.FORM_QUERYSTORAGE_WIDTH = Me.Width
|
||||
My.Settings.FORM_QUERYSTORAGE_HEIGHT = Me.Height
|
||||
My.Settings.FORM_QUERYSTORAGE_WINSTATE = Me.WindowState
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Form_QueryStorage_LocationChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LocationChanged
|
||||
If m_InitOver = True Then
|
||||
My.Settings.FORM_QUERYSTORAGE_X = Me.Left
|
||||
My.Settings.FORM_QUERYSTORAGE_Y = Me.Top
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
' V1.6.0.0 Momo 库存页面增加模糊查询
|
||||
Private Sub QueryData_Quick()
|
||||
Dim strSQL As String = "SELECT `" &
|
||||
CPartNumber.m_COLS_NAME(CPartNumber.COLS.料号PN) & "`"
|
||||
strSQL &= " FROM `" & CPartNumber.cst_TABLE_NAME & "`"
|
||||
|
||||
If tb_PN.Text.Length > 0 Then
|
||||
strSQL &= " WHERE "
|
||||
|
||||
Dim strSplit() As String
|
||||
Dim firstLike As Boolean = True
|
||||
If tb_PN.Text.Length > 0 Then
|
||||
strSplit = Split(tb_PN.Text, ",")
|
||||
For i As Integer = 0 To strSplit.Length - 1
|
||||
If firstLike = True Then
|
||||
firstLike = False
|
||||
Else
|
||||
strSQL &= " AND "
|
||||
End If
|
||||
strSQL &= "`" & CPartNumber.m_COLS_NAME(CPartNumber.COLS.料号PN) & "`"
|
||||
strSQL &= " COLLATE gbk_chinese_ci "
|
||||
strSQL &= " LIKE '%"
|
||||
strSQL &= form_QuerySim.GetLikeString(strSplit(i)) & "%'"
|
||||
strSQL &= " escape '/'"
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
SQL_Query(COL_RIGHTS.料号管理, strSQL, m_Table)
|
||||
End Sub
|
||||
|
||||
Private Sub btn_SaveAs_Click(sender As Object, e As EventArgs) Handles btn_SaveAs.Click
|
||||
Dim dlg As New SaveFileDialog()
|
||||
dlg.DefaultExt = "xls"
|
||||
dlg.Filter = "Excel File|*.xls"
|
||||
If dlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return
|
||||
|
||||
If Grid1.ExportToExcel(dlg.FileName, True, True) Then
|
||||
MsgBox("保存为Excel成功：" & dlg.FileName)
|
||||
Else
|
||||
MsgBox("保存失败!")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
70
WT-DMS/Form_SysLog.Designer.vb
generated
Normal file
70
WT-DMS/Form_SysLog.Designer.vb
generated
Normal file
@@ -0,0 +1,70 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form_SysLog
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<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
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form_SysLog))
|
||||
Me.Grid1 = New FlexCell.Grid()
|
||||
Me.btRefresh = New System.Windows.Forms.Button()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Grid1
|
||||
'
|
||||
Me.Grid1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Grid1.CheckedImage = CType(resources.GetObject("Grid1.CheckedImage"), System.Drawing.Bitmap)
|
||||
Me.Grid1.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||
Me.Grid1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Grid1.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.Grid1.Location = New System.Drawing.Point(12, 41)
|
||||
Me.Grid1.MultiSelect = False
|
||||
Me.Grid1.Name = "Grid1"
|
||||
Me.Grid1.Size = New System.Drawing.Size(699, 443)
|
||||
Me.Grid1.TabIndex = 1
|
||||
Me.Grid1.UncheckedImage = CType(resources.GetObject("Grid1.UncheckedImage"), System.Drawing.Bitmap)
|
||||
'
|
||||
'btRefresh
|
||||
'
|
||||
Me.btRefresh.Location = New System.Drawing.Point(12, 12)
|
||||
Me.btRefresh.Name = "btRefresh"
|
||||
Me.btRefresh.Size = New System.Drawing.Size(105, 23)
|
||||
Me.btRefresh.TabIndex = 6
|
||||
Me.btRefresh.Text = "刷新"
|
||||
Me.btRefresh.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Form_SysLog
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(723, 496)
|
||||
Me.Controls.Add(Me.btRefresh)
|
||||
Me.Controls.Add(Me.Grid1)
|
||||
Me.MinimumSize = New System.Drawing.Size(100, 100)
|
||||
Me.Name = "Form_SysLog"
|
||||
Me.Text = "系统记录"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Grid1 As FlexCell.Grid
|
||||
Friend WithEvents btRefresh As System.Windows.Forms.Button
|
||||
End Class
|
||||
137
WT-DMS/Form_SysLog.resx
Normal file
137
WT-DMS/Form_SysLog.resx
Normal file
@@ -0,0 +1,137 @@
|
||||
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="Grid1.CheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAMAj/////+AAwCP/w///4ADAI/wAP//gAMAjwAAD/+AAwCPAPAA/4ADAI8P/wAPgAMAj///8A+A
|
||||
AwCP////D4ADAI//////gAMAiIiIiIiAAwA=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Grid1.UncheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAMAj/////+AAwCP/////4ADAI//////gAMAj/////+AAwCP/////4ADAI//////gAMAj/////+A
|
||||
AwCP/////4ADAI//////gAMAiIiIiIiAAwA=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
97
WT-DMS/Form_SysLog.vb
Normal file
97
WT-DMS/Form_SysLog.vb
Normal file
@@ -0,0 +1,97 @@
|
||||
Public Class Form_SysLog
|
||||
Dim m_LogManage As New CLogManage
|
||||
Dim m_Table As New System.Data.DataTable
|
||||
Dim m_InitOver As Boolean = False
|
||||
|
||||
Private Sub GetDataSet()
|
||||
If Not m_Table Is Nothing Then
|
||||
m_Table.Dispose()
|
||||
End If
|
||||
m_Table = New DataTable
|
||||
|
||||
SQL_Query(COL_RIGHTS.系统记录, "SELECT * FROM `" & CLogManage.cst_TABLE_NAME & "` GROUP BY `" & CLogManage.m_COLS_NAME(CLogManage.COLS.序号) & "`", m_Table)
|
||||
End Sub
|
||||
|
||||
'Private Sub bt_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
' If m_LogManage.AddItem("系统记录表", "添加一条", "tony") = ERROR_CODE.SUCCESS Then
|
||||
' MsgBox("OK")
|
||||
' Else
|
||||
' MsgBox("error")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Private Sub btDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
' m_LogManage.DeleteItem(1)
|
||||
'End Sub
|
||||
|
||||
'Private Sub btQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
|
||||
' Dim rDate As Date = Now
|
||||
' Dim rData(6) As String
|
||||
|
||||
' m_LogManage.QueryItem(2, rDate, rData(1), rData(2), rData(3), rData(4), rData(5))
|
||||
'End Sub
|
||||
|
||||
'Private Sub btGetCount_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
' Dim count As Integer
|
||||
' m_LogManage.GetLogCounts(count)
|
||||
' MsgBox(count)
|
||||
'End Sub
|
||||
|
||||
Private Sub btRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btRefresh.Click
|
||||
RefreshList()
|
||||
End Sub
|
||||
|
||||
Private Function RefreshList() As Boolean
|
||||
GetDataSet()
|
||||
|
||||
Grid1.AllowUserSort = True
|
||||
Grid1.DisplayFocusRect = False
|
||||
Grid1.ExtendLastCol = True
|
||||
Grid1.DisplayRowArrow = True
|
||||
Grid1.BoldFixedCell = False
|
||||
Grid1.SortIndicatorStyle = FlexCell.SortIndicatorStyleEnum.Light3D
|
||||
|
||||
'绑定到数据源时可以指定固定行数，但绑定后不能改变Grid.FixedRows属性的值
|
||||
'Grid1.SetDataBinding(m_Table, "products", True, 2)
|
||||
Grid1.SetDataBinding(m_Table, "", True, 1)
|
||||
|
||||
CGirdInfo.LoadGridInfo("系统记录", Grid1)
|
||||
|
||||
Grid1.Locked = True
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Sub Form_SysLog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
RefreshList()
|
||||
CGirdInfo.LoadGridInfo("系统记录", Grid1)
|
||||
|
||||
Me.Left = My.Settings.FORM_SYSLOG_X
|
||||
Me.Top = My.Settings.FORM_SYSLOG_Y
|
||||
Me.Width = My.Settings.FORM_SYSLOG_WIDTH
|
||||
Me.Height = My.Settings.FORM_SYSLOG_HEIGHT
|
||||
|
||||
m_InitOver = True
|
||||
End Sub
|
||||
|
||||
Private Sub Form_SysLog_LocationChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LocationChanged
|
||||
If m_InitOver = True Then
|
||||
My.Settings.FORM_SYSLOG_X = Me.Left
|
||||
My.Settings.FORM_SYSLOG_Y = Me.Top
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Form_SysLog_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
|
||||
If m_InitOver = True Then
|
||||
My.Settings.FORM_SYSLOG_HEIGHT = Me.Height
|
||||
My.Settings.FORM_SYSLOG_WIDTH = Me.Width
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Grid1_ColWidthChange(ByVal Sender As System.Object, ByVal e As FlexCell.Grid.ColWidthChangeEventArgs) Handles Grid1.ColWidthChange
|
||||
CGirdInfo.SaveGirdInfo("系统记录", Grid1)
|
||||
End Sub
|
||||
End Class
|
||||
144
WT-DMS/Form_合并备料查询.Designer.vb
generated
Normal file
144
WT-DMS/Form_合并备料查询.Designer.vb
generated
Normal file
@@ -0,0 +1,144 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form_合并备料查询
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<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
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form_合并备料查询))
|
||||
Me.Grid_Input = New FlexCell.Grid()
|
||||
Me.Grid_QueryInfo = New FlexCell.Grid()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.bt_Go = New System.Windows.Forms.Button()
|
||||
Me.bt_ExportResult = New System.Windows.Forms.Button()
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||
Me.SplitContainer1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Grid_Input
|
||||
'
|
||||
Me.Grid_Input.AllowUserSort = True
|
||||
Me.Grid_Input.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Grid_Input.CheckedImage = CType(resources.GetObject("Grid_Input.CheckedImage"), System.Drawing.Bitmap)
|
||||
Me.Grid_Input.Cols = 7
|
||||
Me.Grid_Input.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||
Me.Grid_Input.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Grid_Input.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.Grid_Input.ImeMode = System.Windows.Forms.ImeMode.[On]
|
||||
Me.Grid_Input.Location = New System.Drawing.Point(4, 56)
|
||||
Me.Grid_Input.Name = "Grid_Input"
|
||||
Me.Grid_Input.Rows = 500
|
||||
Me.Grid_Input.Size = New System.Drawing.Size(365, 585)
|
||||
Me.Grid_Input.TabIndex = 7
|
||||
Me.Grid_Input.UncheckedImage = CType(resources.GetObject("Grid_Input.UncheckedImage"), System.Drawing.Bitmap)
|
||||
'
|
||||
'Grid_QueryInfo
|
||||
'
|
||||
Me.Grid_QueryInfo.AllowUserSort = True
|
||||
Me.Grid_QueryInfo.CheckedImage = CType(resources.GetObject("Grid_QueryInfo.CheckedImage"), System.Drawing.Bitmap)
|
||||
Me.Grid_QueryInfo.Cols = 7
|
||||
Me.Grid_QueryInfo.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||
Me.Grid_QueryInfo.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Grid_QueryInfo.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Grid_QueryInfo.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.Grid_QueryInfo.ImeMode = System.Windows.Forms.ImeMode.[On]
|
||||
Me.Grid_QueryInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Grid_QueryInfo.Name = "Grid_QueryInfo"
|
||||
Me.Grid_QueryInfo.Rows = 500
|
||||
Me.Grid_QueryInfo.Size = New System.Drawing.Size(738, 644)
|
||||
Me.Grid_QueryInfo.TabIndex = 7
|
||||
Me.Grid_QueryInfo.UncheckedImage = CType(resources.GetObject("Grid_QueryInfo.UncheckedImage"), System.Drawing.Bitmap)
|
||||
'
|
||||
'SplitContainer1
|
||||
'
|
||||
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer1.Name = "SplitContainer1"
|
||||
'
|
||||
'SplitContainer1.Panel1
|
||||
'
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.bt_ExportResult)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.bt_Go)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.Label1)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.Grid_Input)
|
||||
'
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.Grid_QueryInfo)
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(1113, 644)
|
||||
Me.SplitContainer1.SplitterDistance = 371
|
||||
Me.SplitContainer1.TabIndex = 8
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(2, 38)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(95, 12)
|
||||
Me.Label1.TabIndex = 8
|
||||
Me.Label1.Text = "待查询机种列表:"
|
||||
'
|
||||
'bt_Go
|
||||
'
|
||||
Me.bt_Go.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.bt_Go.Location = New System.Drawing.Point(259, 3)
|
||||
Me.bt_Go.Name = "bt_Go"
|
||||
Me.bt_Go.Size = New System.Drawing.Size(109, 47)
|
||||
Me.bt_Go.TabIndex = 9
|
||||
Me.bt_Go.Text = "查询"
|
||||
Me.bt_Go.UseVisualStyleBackColor = True
|
||||
'
|
||||
'bt_ExportResult
|
||||
'
|
||||
Me.bt_ExportResult.Location = New System.Drawing.Point(113, 3)
|
||||
Me.bt_ExportResult.Name = "bt_ExportResult"
|
||||
Me.bt_ExportResult.Size = New System.Drawing.Size(62, 47)
|
||||
Me.bt_ExportResult.TabIndex = 10
|
||||
Me.bt_ExportResult.Text = "导出查询结果"
|
||||
Me.bt_ExportResult.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Form_合并备料查询
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1113, 644)
|
||||
Me.Controls.Add(Me.SplitContainer1)
|
||||
Me.Name = "Form_合并备料查询"
|
||||
Me.Text = "Form_合并备料查询"
|
||||
Me.SplitContainer1.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel1.PerformLayout()
|
||||
Me.SplitContainer1.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Grid_Input As FlexCell.Grid
|
||||
Friend WithEvents Grid_QueryInfo As FlexCell.Grid
|
||||
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
|
||||
Friend WithEvents bt_Go As System.Windows.Forms.Button
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents bt_ExportResult As System.Windows.Forms.Button
|
||||
End Class
|
||||
153
WT-DMS/Form_合并备料查询.resx
Normal file
153
WT-DMS/Form_合并备料查询.resx
Normal file
@@ -0,0 +1,153 @@
|
||||
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="Grid_Input.CheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAo6j/////+ACjqP/w///4AKOo/wAP//gAo6jwAAD/+ACjqPAPAA/4AKOo8P/wAPgAo6j///8A+A
|
||||
CjqP////D4AKOo//////gAo6iIiIiIiACjo=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Grid_Input.UncheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAo6j/////+ACjqP/////4AKOo//////gAo6j/////+ACjqP/////4AKOo//////gAo6j/////+A
|
||||
CjqP/////4AKOo//////gAo6iIiIiIiACjo=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Grid_QueryInfo.CheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAo6j/////+ACjqP/w///4AKOo/wAP//gAo6jwAAD/+ACjqPAPAA/4AKOo8P/wAPgAo6j///8A+A
|
||||
CjqP////D4AKOo//////gAo6iIiIiIiACjo=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Grid_QueryInfo.UncheckedImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk3OAAAAAAAAAHYAAAAoAAAACwAAAAsAAAABAAQAAAAAAAAAAADEDgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////4iI
|
||||
iIiIgAo6j/////+ACjqP/////4AKOo//////gAo6j/////+ACjqP/////4AKOo//////gAo6j/////+A
|
||||
CjqP/////4AKOo//////gAo6iIiIiIiACjo=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
391
WT-DMS/Form_合并备料查询.vb
Normal file
391
WT-DMS/Form_合并备料查询.vb
Normal file
@@ -0,0 +1,391 @@
|
||||
Public Class Form_合并备料查询
|
||||
Dim m_Table As New System.Data.DataTable
|
||||
Dim m_InitOver As Boolean = False
|
||||
Dim m_PartNumber As New CPartNumber
|
||||
|
||||
Dim validBomPnList As New ArrayList
|
||||
Dim validBomBackupCountList As New ArrayList
|
||||
|
||||
Public Enum COLS_INPUT
|
||||
序号
|
||||
料号PN
|
||||
数量
|
||||
max
|
||||
End Enum
|
||||
|
||||
Public Shared m_COLS_NAME_INPUT(,) As String = {
|
||||
{"序号", "0"},
|
||||
{"料号PN", "1"},
|
||||
{"数量", "1"}
|
||||
}
|
||||
|
||||
Public Enum COLS_QUERYINFO
|
||||
序号
|
||||
料号PN
|
||||
物料名称
|
||||
规格描述
|
||||
单位
|
||||
总数量
|
||||
库存数量
|
||||
剩余数量
|
||||
max
|
||||
End Enum
|
||||
|
||||
Public Shared m_COLS_NAME_QUERYINFO(,) As String = {
|
||||
{"序号", "0"},
|
||||
{"料号PN", "1"},
|
||||
{"物料名称", "0"},
|
||||
{"规格描述", "0"},
|
||||
{"单位", "0"},
|
||||
{"总数量", "0"},
|
||||
{"库存数量", "0"},
|
||||
{"剩余数量", "0"}
|
||||
}
|
||||
|
||||
|
||||
Private Sub Form_合并备料查询_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
InitGrid_Input()
|
||||
End Sub
|
||||
|
||||
Private Sub InitGrid_Input()
|
||||
Grid_Input.NewFile()
|
||||
|
||||
Grid_Input.AllowUserSort = False
|
||||
Grid_Input.DisplayFocusRect = False
|
||||
Grid_Input.ExtendLastCol = True
|
||||
Grid_Input.DisplayRowArrow = True
|
||||
Grid_Input.BoldFixedCell = False
|
||||
Grid_Input.SortIndicatorStyle = FlexCell.SortIndicatorStyleEnum.Light3D
|
||||
|
||||
Grid_Input.Cols = COLS_INPUT.max
|
||||
For col As Integer = 0 To COLS_INPUT.max - 1
|
||||
Grid_Input.Cell(0, col).Text = m_COLS_NAME_INPUT(col, 0)
|
||||
Next
|
||||
|
||||
'调整宽度
|
||||
Grid_Input.Column(COLS_INPUT.序号).Width = 50
|
||||
Grid_Input.Column(COLS_INPUT.料号PN).Width = 100
|
||||
Grid_Input.Column(COLS_INPUT.数量).Width = 50
|
||||
|
||||
Grid_Input.AllowUserSort = True
|
||||
Grid_Input.Locked = False
|
||||
Grid_Input.Column(COLS_INPUT.序号).Locked = True
|
||||
|
||||
Grid_Input.Rows = 500
|
||||
|
||||
Application.DoEvents()
|
||||
End Sub
|
||||
|
||||
Private Sub InitGrid_QueryInfo(ByVal BomPnCount As Integer, ByRef bomArray As ArrayList)
|
||||
Grid_QueryInfo.NewFile()
|
||||
|
||||
Grid_QueryInfo.AllowUserSort = False
|
||||
Grid_QueryInfo.DisplayFocusRect = False
|
||||
Grid_QueryInfo.ExtendLastCol = True
|
||||
Grid_QueryInfo.DisplayRowArrow = True
|
||||
Grid_QueryInfo.BoldFixedCell = False
|
||||
Grid_QueryInfo.SortIndicatorStyle = FlexCell.SortIndicatorStyleEnum.Light3D
|
||||
|
||||
Grid_QueryInfo.Cols = COLS_QUERYINFO.max
|
||||
For col As Integer = 0 To COLS_QUERYINFO.max - 1
|
||||
Grid_QueryInfo.Cell(0, col).Text = m_COLS_NAME_QUERYINFO(col, 0)
|
||||
Next
|
||||
|
||||
If BomPnCount > 0 Then
|
||||
For i = 0 To BomPnCount - 1
|
||||
Grid_QueryInfo.Cols += 1
|
||||
Grid_QueryInfo.Cell(0, Grid_QueryInfo.Cols - 1).Text = bomArray.Item(i)
|
||||
Next
|
||||
End If
|
||||
|
||||
'调整宽度
|
||||
Grid_QueryInfo.Column(COLS_QUERYINFO.序号).Width = My.Settings.FORM_合并用料查询_COL_WIDTH_序号
|
||||
Grid_QueryInfo.Column(COLS_QUERYINFO.料号PN).Width = My.Settings.FORM_合并用料查询_COL_WIDTH_料号PN
|
||||
Grid_QueryInfo.Column(COLS_QUERYINFO.物料名称).Width = My.Settings.FORM_合并用料查询_COL_WIDTH_物料名称
|
||||
Grid_QueryInfo.Column(COLS_QUERYINFO.规格描述).Width = My.Settings.FORM_合并用料查询_COL_WIDTH_规格描述
|
||||
Grid_QueryInfo.Column(COLS_QUERYINFO.单位).Width = My.Settings.FORM_合并用料查询_COL_WIDTH_单位
|
||||
Me.Height = My.Settings.FORM_合并用料查询_HEIGHT
|
||||
Me.Width = My.Settings.FORM_合并用料查询_WIDTH
|
||||
|
||||
Grid_QueryInfo.AllowUserSort = True
|
||||
Grid_QueryInfo.Locked = True
|
||||
Grid_QueryInfo.Rows = 1
|
||||
|
||||
Application.DoEvents()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function QueryBom(ByVal BomName As String, ByRef dataTable As Data.DataTable) As Boolean
|
||||
Dim strSelect As String = "SELECT * FROM `" & "bom_" & BomName & "`"
|
||||
|
||||
'查询入库数量
|
||||
Dim result As Boolean = False
|
||||
Dim strSQL As String = strSelect
|
||||
dataTable.Rows.Clear()
|
||||
dataTable.Columns.Clear()
|
||||
If SQL_Query(COL_RIGHTS.BOM管理, strSQL, dataTable) = True Then
|
||||
result = True
|
||||
End If
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Private Function CheckBomExist(ByVal bomName As String, ByRef isExist As Boolean) As Boolean
|
||||
Dim strSQL As String = "CHECK TABLE `" & "bom_" & bomName & "`" 'CHECK TABLE `BOM_U01-ATMEGA328P-TQFP32`
|
||||
Dim result As Boolean = False
|
||||
m_Table.Rows.Clear()
|
||||
m_Table.Columns.Clear()
|
||||
isExist = False
|
||||
If SQL_Query(COL_RIGHTS.BOM管理, strSQL, m_Table) = True Then
|
||||
If m_Table.Rows.Count > 0 Then
|
||||
If m_Table.Rows(0).Item(3) = "OK" Then
|
||||
isExist = True
|
||||
End If
|
||||
End If
|
||||
result = True
|
||||
End If
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Private Sub bt_Go_Click(sender As Object, e As EventArgs) Handles bt_Go.Click
|
||||
'检测Input表格是否存在错误
|
||||
Dim inputSn As String = ""
|
||||
Dim validBomPnCount As Integer = 0
|
||||
validBomPnList.Clear()
|
||||
validBomBackupCountList.Clear()
|
||||
Dim notEmptyCount As Integer = 0
|
||||
Dim curRowResult As Boolean = False
|
||||
|
||||
For row = 1 To Grid_Input.Rows - 1
|
||||
Grid_Input.Cell(row, COLS_INPUT.序号).Text = ""
|
||||
Grid_Input.Cell(row, COLS_INPUT.料号PN).BackColor = Color.White
|
||||
Grid_Input.Cell(row, COLS_INPUT.数量).BackColor = Color.White
|
||||
Next
|
||||
For row = 1 To Grid_Input.Rows - 1
|
||||
inputSn = Grid_Input.Cell(row, COLS_INPUT.料号PN).Text
|
||||
If inputSn.Length > 0 Then
|
||||
notEmptyCount += 1
|
||||
'检查输入料号是否有效
|
||||
curRowResult = True
|
||||
|
||||
Dim isExist As Boolean = False
|
||||
If m_PartNumber.CheckPartNumber(inputSn, isExist) = ERROR_CODE.SUCCESS Then
|
||||
If isExist = False Then
|
||||
Grid_Input.Cell(row, COLS_INPUT.料号PN).BackColor = Color.Red
|
||||
curRowResult = False
|
||||
End If
|
||||
Else
|
||||
MsgBox("查询BOM料号错误!")
|
||||
Return
|
||||
End If
|
||||
|
||||
'检测输入料号的料表是否已经存在
|
||||
If CheckBomExist(inputSn, isExist) = True Then
|
||||
If isExist = False Then
|
||||
Grid_Input.Cell(row, COLS_INPUT.料号PN).BackColor = Color.Red
|
||||
curRowResult = False
|
||||
End If
|
||||
Else
|
||||
MsgBox("无法查询输入料号对应的料表是否存在，请检查网络连接!")
|
||||
Return
|
||||
End If
|
||||
|
||||
If curRowResult = True Then
|
||||
Grid_Input.Cell(row, COLS_INPUT.料号PN).BackColor = Color.Green
|
||||
|
||||
'检查数量是否正确
|
||||
Dim numStr As String = Grid_Input.Cell(row, COLS_INPUT.数量).Text
|
||||
Dim numNum As Integer = 0
|
||||
Try
|
||||
numNum = numStr
|
||||
validBomPnCount += 1
|
||||
validBomPnList.Add(inputSn)
|
||||
validBomBackupCountList.Add(numNum)
|
||||
Grid_Input.Cell(row, COLS_INPUT.数量).BackColor = Color.Green
|
||||
Catch ex As Exception
|
||||
Grid_Input.Cell(row, COLS_INPUT.数量).BackColor = Color.Red
|
||||
End Try
|
||||
Else
|
||||
Grid_Input.Cell(row, COLS_INPUT.料号PN).BackColor = Color.Red
|
||||
End If
|
||||
Grid_Input.Cell(row, COLS_INPUT.序号).Text = validBomPnCount
|
||||
End If
|
||||
Next
|
||||
|
||||
If notEmptyCount > 0 Then
|
||||
If validBomPnCount <> notEmptyCount Then
|
||||
MsgBox("输入BOM料号列表存在错误")
|
||||
Return
|
||||
End If
|
||||
Else
|
||||
MsgBox("输入不能为空")
|
||||
Return
|
||||
End If
|
||||
|
||||
'重新设置QueryInfo表格内容
|
||||
InitGrid_QueryInfo(validBomPnCount, validBomPnList)
|
||||
|
||||
'逐个机种查询-----------------------------
|
||||
For bomIndex = 0 To validBomPnCount - 1
|
||||
'查询物料列表
|
||||
Dim queryBomName As String = validBomPnList.Item(bomIndex)
|
||||
If QueryBom(queryBomName, m_Table) = True Then
|
||||
CompareAndFillToGridByDataTable(bomIndex)
|
||||
End If
|
||||
Next
|
||||
|
||||
'查询物料其它信息
|
||||
For rowIndex = 1 To Grid_QueryInfo.Rows - 1
|
||||
If Grid_QueryInfo.Cell(rowIndex, COLS_QUERYINFO.料号PN).Text.Length > 0 Then
|
||||
If GetPNItemInfo(rowIndex) = False Then
|
||||
Return
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
'查询库存数量
|
||||
For rowIndex = 1 To Grid_QueryInfo.Rows - 1
|
||||
Dim strPN As String = Grid_QueryInfo.Cell(rowIndex, COLS_QUERYINFO.料号PN).Text
|
||||
If strPN.Length > 0 Then
|
||||
Dim countInStore As Integer = 0
|
||||
Dim usageCount As Integer = Grid_QueryInfo.Cell(rowIndex, COLS_QUERYINFO.总数量).Text
|
||||
If QueryStorageCount(strPN, countInStore) = True Then
|
||||
Grid_QueryInfo.Cell(rowIndex, COLS_QUERYINFO.库存数量).Text = countInStore
|
||||
Grid_QueryInfo.Cell(rowIndex, COLS_QUERYINFO.剩余数量).Text = countInStore - usageCount
|
||||
Else
|
||||
Return
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
MsgBox("查询完成.")
|
||||
End Sub
|
||||
|
||||
Private Function QueryStorageCount(ByVal PartNumber As String, ByRef rCount As Integer) As Boolean
|
||||
Dim strSelect As String = "SELECT SUM(`" & CMaterialInOut.m_COLS_NAME(CMaterialInOut.COLS.数量) & "`) FROM "
|
||||
strSelect &= "`" & CMaterialInOut.cst_TABLE_NAME & "` "
|
||||
strSelect &= " WHERE `" & CMaterialInOut.m_COLS_NAME(CMaterialInOut.COLS.料号PN) & "` COLLATE gbk_chinese_ci = '" & PartNumber & "' "
|
||||
|
||||
'查询入库数量
|
||||
Dim result As Boolean = False
|
||||
Dim Count_In As Integer = 0
|
||||
Dim strSQL As String = strSelect
|
||||
strSQL &= "AND `" & CMaterialInOut.m_COLS_NAME(CMaterialInOut.COLS.入库出库) & "` = '0'"
|
||||
m_Table.Rows.Clear()
|
||||
m_Table.Columns.Clear()
|
||||
If SQL_Query(COL_RIGHTS.原料库存管理, strSQL, m_Table) = True Then
|
||||
Try
|
||||
Count_In = m_Table.Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
Count_In = 0
|
||||
End Try
|
||||
|
||||
result = True
|
||||
End If
|
||||
|
||||
'查询出库数量
|
||||
Dim Count_Out As Integer = 0
|
||||
strSQL = strSelect
|
||||
strSQL &= "AND `" & CMaterialInOut.m_COLS_NAME(CMaterialInOut.COLS.入库出库) & "` = '1'"
|
||||
If result Then
|
||||
result = False
|
||||
m_Table.Rows.Clear()
|
||||
m_Table.Columns.Clear()
|
||||
If SQL_Query(COL_RIGHTS.原料库存管理, strSQL, m_Table) = True Then
|
||||
Try
|
||||
Count_Out = m_Table.Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
Count_Out = 0
|
||||
End Try
|
||||
result = True
|
||||
End If
|
||||
End If
|
||||
|
||||
rCount = Count_In - Count_Out
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Private Sub CompareAndFillToGridByDataTable(ByVal bomIndex As Integer)
|
||||
Dim existRows As Integer = Grid_QueryInfo.Rows
|
||||
Dim insertRow As Integer = 0
|
||||
Dim queryPn As String = ""
|
||||
Dim queryCount As Integer = 0
|
||||
Dim curCount As Integer = 0
|
||||
Dim CountForBackup As Integer = validBomBackupCountList.Item(bomIndex)
|
||||
Dim MultiCount As Integer = 0
|
||||
If m_Table.Rows.Count > 0 Then
|
||||
For row = 0 To m_Table.Rows.Count - 1
|
||||
queryPn = m_Table.Rows.Item(row).Item(2)
|
||||
queryCount = m_Table.Rows.Item(row).Item(3)
|
||||
MultiCount = queryCount * CountForBackup
|
||||
|
||||
Dim findIndex As Integer = -1
|
||||
For rowIndex = 1 To Grid_QueryInfo.Rows - 1
|
||||
If Grid_QueryInfo.Cell(rowIndex, COLS_QUERYINFO.料号PN).Text.ToUpper = queryPn.ToUpper Then
|
||||
findIndex = rowIndex
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If findIndex > 0 Then
|
||||
Try
|
||||
curCount = Grid_QueryInfo.Cell(findIndex, COLS_QUERYINFO.总数量).Text
|
||||
Catch ex As Exception
|
||||
curCount = 0
|
||||
End Try
|
||||
curCount += MultiCount
|
||||
Grid_QueryInfo.Cell(findIndex, COLS_QUERYINFO.总数量).Text = curCount
|
||||
Else
|
||||
Grid_QueryInfo.Rows += 1
|
||||
findIndex = Grid_QueryInfo.Rows - 1
|
||||
Grid_QueryInfo.Cell(findIndex, COLS_QUERYINFO.料号PN).Text = queryPn
|
||||
Grid_QueryInfo.Cell(findIndex, COLS_QUERYINFO.总数量).Text = MultiCount
|
||||
End If
|
||||
|
||||
Grid_QueryInfo.Cell(findIndex, COLS_QUERYINFO.max + bomIndex).Text = MultiCount
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function GetPNItemInfo(ByVal gridRowIndex As Integer) As Boolean
|
||||
Dim 物料名称 As String = ""
|
||||
Dim 规格描述 As String = ""
|
||||
Dim 单位 As String = ""
|
||||
Dim 单重 As Double = 0
|
||||
Dim 图片(0) As Byte
|
||||
Dim 供应商ID As String = ""
|
||||
|
||||
Grid_QueryInfo.Cell(gridRowIndex, COLS_QUERYINFO.物料名称).Text = ""
|
||||
Grid_QueryInfo.Cell(gridRowIndex, COLS_QUERYINFO.规格描述).Text = ""
|
||||
Grid_QueryInfo.Cell(gridRowIndex, COLS_QUERYINFO.单位).Text = ""
|
||||
|
||||
Dim result As Boolean = False
|
||||
Dim strPn As String = Grid_QueryInfo.Cell(gridRowIndex, COLS_QUERYINFO.料号PN).Text
|
||||
If m_PartNumber.QueryItem(strPn, 物料名称, 规格描述, 单位, 单重, 供应商ID) = ERROR_CODE.SUCCESS Then
|
||||
Grid_QueryInfo.Cell(gridRowIndex, COLS_QUERYINFO.物料名称).Text = 物料名称
|
||||
Grid_QueryInfo.Cell(gridRowIndex, COLS_QUERYINFO.规格描述).Text = 规格描述
|
||||
Grid_QueryInfo.Cell(gridRowIndex, COLS_QUERYINFO.单位).Text = 单位
|
||||
|
||||
result = True
|
||||
Else
|
||||
MsgBox("查询物料信息错误,料号:" & strPn)
|
||||
End If
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Private Sub bt_ExportResult_Click(sender As Object, e As EventArgs) Handles bt_ExportResult.Click
|
||||
Dim dlg As New SaveFileDialog()
|
||||
dlg.DefaultExt = "xls"
|
||||
dlg.Filter = "Excel File|*.xls"
|
||||
If dlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return
|
||||
|
||||
If Grid_QueryInfo.ExportToExcel(dlg.FileName, True, True) Then
|
||||
MsgBox("保存为Excel成功：" & dlg.FileName)
|
||||
Else
|
||||
MsgBox("保存失败!")
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
101
WT-DMS/Form_备份管理.Designer.vb
generated
Normal file
101
WT-DMS/Form_备份管理.Designer.vb
generated
Normal file
@@ -0,0 +1,101 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form_备份管理
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<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
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.bt_BackupNow = New System.Windows.Forms.Button()
|
||||
Me.bt_RestoreBackup = New System.Windows.Forms.Button()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.lbl_LatestTime = New System.Windows.Forms.Label()
|
||||
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'bt_BackupNow
|
||||
'
|
||||
Me.bt_BackupNow.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.bt_BackupNow.Location = New System.Drawing.Point(122, 96)
|
||||
Me.bt_BackupNow.Name = "bt_BackupNow"
|
||||
Me.bt_BackupNow.Size = New System.Drawing.Size(124, 46)
|
||||
Me.bt_BackupNow.TabIndex = 9
|
||||
Me.bt_BackupNow.Text = "立即备份"
|
||||
Me.bt_BackupNow.UseVisualStyleBackColor = True
|
||||
'
|
||||
'bt_RestoreBackup
|
||||
'
|
||||
Me.bt_RestoreBackup.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.bt_RestoreBackup.Location = New System.Drawing.Point(312, 96)
|
||||
Me.bt_RestoreBackup.Name = "bt_RestoreBackup"
|
||||
Me.bt_RestoreBackup.Size = New System.Drawing.Size(124, 46)
|
||||
Me.bt_RestoreBackup.TabIndex = 9
|
||||
Me.bt_RestoreBackup.Text = "还原备份"
|
||||
Me.bt_RestoreBackup.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("宋体", 16.0!)
|
||||
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
|
||||
Me.Label1.Location = New System.Drawing.Point(26, 42)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(153, 22)
|
||||
Me.Label1.TabIndex = 10
|
||||
Me.Label1.Text = "最近备份时间:"
|
||||
'
|
||||
'lbl_LatestTime
|
||||
'
|
||||
Me.lbl_LatestTime.AutoSize = True
|
||||
Me.lbl_LatestTime.Font = New System.Drawing.Font("宋体", 16.0!)
|
||||
Me.lbl_LatestTime.ForeColor = System.Drawing.Color.BlueViolet
|
||||
Me.lbl_LatestTime.Location = New System.Drawing.Point(185, 42)
|
||||
Me.lbl_LatestTime.Name = "lbl_LatestTime"
|
||||
Me.lbl_LatestTime.Size = New System.Drawing.Size(0, 22)
|
||||
Me.lbl_LatestTime.TabIndex = 10
|
||||
'
|
||||
'ProgressBar1
|
||||
'
|
||||
Me.ProgressBar1.Location = New System.Drawing.Point(45, 178)
|
||||
Me.ProgressBar1.Name = "ProgressBar1"
|
||||
Me.ProgressBar1.Size = New System.Drawing.Size(457, 23)
|
||||
Me.ProgressBar1.TabIndex = 11
|
||||
'
|
||||
'Form_备份管理
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(547, 246)
|
||||
Me.Controls.Add(Me.ProgressBar1)
|
||||
Me.Controls.Add(Me.lbl_LatestTime)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.bt_RestoreBackup)
|
||||
Me.Controls.Add(Me.bt_BackupNow)
|
||||
Me.Name = "Form_备份管理"
|
||||
Me.Text = "备份管理"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents bt_BackupNow As System.Windows.Forms.Button
|
||||
Friend WithEvents bt_RestoreBackup As System.Windows.Forms.Button
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents lbl_LatestTime As System.Windows.Forms.Label
|
||||
Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
|
||||
End Class
|
||||
120
WT-DMS/Form_备份管理.resx
Normal file
120
WT-DMS/Form_备份管理.resx
Normal 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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
164
WT-DMS/Form_备份管理.vb
Normal file
164
WT-DMS/Form_备份管理.vb
Normal file
@@ -0,0 +1,164 @@
|
||||
Public Class Form_备份管理
|
||||
Dim m_Table As New System.Data.DataTable
|
||||
Dim m_InitOver As Boolean = False
|
||||
Public Const cst_TABLE_NAME As String = "备份记录表"
|
||||
Dim m_BackupManage As New CBackupManage
|
||||
|
||||
Dim m_FixTableNames() As String = {
|
||||
"帐号表", "仓库表", "原料库存表", "员工信息表", "库位表_大岭山", "库位表_松山湖", "料号表"
|
||||
}
|
||||
|
||||
Private Function CopyTable(ByVal srcTable As String, ByVal aimTable As String) As Boolean
|
||||
Dim strCreate As String = "CREATE TABLE `" & aimTable & "` LIKE `" & srcTable & "`"
|
||||
Dim strInsert As String = "INSERT INTO `" & aimTable & "` SELECT * FROM `" & srcTable & "`"
|
||||
|
||||
Dim result As Boolean = False
|
||||
If SQL_ExeCommand(COL_RIGHTS.BOM管理, strCreate) = True AndAlso
|
||||
SQL_ExeCommand(COL_RIGHTS.BOM管理, strInsert) = True Then
|
||||
result = True
|
||||
End If
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Private Function CheckTableExist(ByVal table As String, ByRef isExist As Boolean) As Boolean
|
||||
Dim strSQL As String = "CHECK TABLE `" & table & "`" 'CHECK TABLE `BOM_U01-ATMEGA328P-TQFP32`
|
||||
Dim result As Boolean = False
|
||||
m_Table.Rows.Clear()
|
||||
m_Table.Columns.Clear()
|
||||
isExist = False
|
||||
If SQL_Query(COL_RIGHTS.BOM管理, strSQL, m_Table) = True Then
|
||||
If m_Table.Rows.Count > 0 Then
|
||||
If m_Table.Rows(0).Item(3) = "OK" Then
|
||||
isExist = True
|
||||
End If
|
||||
End If
|
||||
result = True
|
||||
End If
|
||||
|
||||
Return result
|
||||
End Function
|
||||
Private Function DropTable(ByVal tableName As String) As Boolean
|
||||
Dim strSQL As String = "DROP TABLE IF EXISTS `" & tableName & "`"
|
||||
Dim result As Boolean = False
|
||||
If SQL_ExeCommand(COL_RIGHTS.BOM管理, strSQL) = True Then
|
||||
result = True
|
||||
End If
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Private Function GetAllBomTableNames(ByRef nameList As ArrayList) As Boolean
|
||||
Dim strQuery As String = "SELECT `" & CPartNumber.m_COLS_NAME(CPartNumber.COLS.料号PN) & "` FROM `" & CPartNumber.cst_TABLE_NAME & "`"
|
||||
Dim rTable As New System.Data.DataTable
|
||||
If SQL_Query(COL_RIGHTS.BOM管理, strQuery, rTable) = False Then
|
||||
Return False
|
||||
End If
|
||||
|
||||
Dim result As Boolean = True
|
||||
nameList.Clear()
|
||||
For i As Integer = 0 To rTable.Rows.Count - 1
|
||||
Try
|
||||
Dim name As String = rTable.Rows.Item(i).Item(0)
|
||||
nameList.Add(name)
|
||||
Catch ex As Exception
|
||||
result = False
|
||||
End Try
|
||||
Next
|
||||
Return result
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub bt_BackupNow_Click(sender As Object, e As EventArgs) Handles bt_BackupNow.Click
|
||||
Dim result As Boolean = True
|
||||
|
||||
Dim timeNow As Date = Now
|
||||
Dim backName As String = "bak_"
|
||||
'备份固定表
|
||||
For Each pTableName As String In m_FixTableNames
|
||||
Dim newTablename As String = backName & pTableName
|
||||
DropTable(newTablename)
|
||||
If CopyTable(pTableName, newTablename) = False Then
|
||||
MsgBox("备份失败,文件:" & pTableName)
|
||||
result = False
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
'备份BOM表
|
||||
If result Then
|
||||
Dim bomNameList As New ArrayList
|
||||
If GetAllBomTableNames(bomNameList) = True Then
|
||||
Dim totalCount = bomNameList.Count
|
||||
ProgressBar1.Visible = True
|
||||
ProgressBar1.Maximum = 0
|
||||
ProgressBar1.Maximum = totalCount
|
||||
Dim index As Integer = 0
|
||||
Dim isExist As Boolean = False
|
||||
For Each pTableName As String In bomNameList
|
||||
pTableName = Strings.Trim(pTableName)
|
||||
Dim bomName = "bom_" & pTableName
|
||||
If CheckTableExist(bomName, isExist) = False Then
|
||||
MsgBox("备份失败,文件:" & bomName)
|
||||
result = False
|
||||
Exit For
|
||||
End If
|
||||
|
||||
If isExist = True Then
|
||||
Dim newTablename As String = backName & bomName
|
||||
DropTable(newTablename)
|
||||
If CopyTable(bomName, newTablename) = False Then
|
||||
MsgBox("备份失败,文件:" & bomName)
|
||||
result = False
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
|
||||
index += 1
|
||||
ProgressBar1.Value = index
|
||||
ProgressBar1.Refresh()
|
||||
Application.DoEvents()
|
||||
Next
|
||||
|
||||
ProgressBar1.Visible = False
|
||||
End If
|
||||
|
||||
bomNameList.Clear()
|
||||
End If
|
||||
|
||||
If result Then
|
||||
Dim timeStr As String = timeNow.ToString("yyyyMMddHHmmss")
|
||||
|
||||
m_BackupManage.SetBackupTime(timeStr)
|
||||
|
||||
RefreshUpdateTime()
|
||||
|
||||
MsgBox("备份完成")
|
||||
Else
|
||||
MsgBox("备份失败")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub RefreshUpdateTime()
|
||||
Dim rTimeStr As String = ""
|
||||
If m_BackupManage.GetBackupTime(rTimeStr) = True Then
|
||||
lbl_LatestTime.Text = Strings.Left(rTimeStr, 4) & "年" & Strings.Mid(rTimeStr, 5, 2) & "月" & Strings.Mid(rTimeStr, 7, 2) & "日" &
|
||||
Strings.Mid(rTimeStr, 9, 2) & ":" & Strings.Mid(rTimeStr, 11, 2) & ":" & Strings.Mid(rTimeStr, 13, 2)
|
||||
Else
|
||||
lbl_LatestTime.Text = "----"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Form_备份管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
RefreshUpdateTime()
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs)
|
||||
Dim timeNow As Date = Now
|
||||
Dim timeStr As String = timeNow.ToString("yyyyMMddHHmmss")
|
||||
|
||||
m_BackupManage.SetBackupTime(timeStr)
|
||||
|
||||
RefreshUpdateTime()
|
||||
End Sub
|
||||
End Class
|
||||
167
WT-DMS/LoginForm1.Designer.vb
generated
Normal file
167
WT-DMS/LoginForm1.Designer.vb
generated
Normal file
@@ -0,0 +1,167 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
<Global.System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Naming", "CA1726")> _
|
||||
Partial Class LoginForm1
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<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
|
||||
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 UsernameTextBox As System.Windows.Forms.TextBox
|
||||
Friend WithEvents PasswordTextBox As System.Windows.Forms.TextBox
|
||||
Friend WithEvents OK As System.Windows.Forms.Button
|
||||
Friend WithEvents Cancel As System.Windows.Forms.Button
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(LoginForm1))
|
||||
Me.LogoPictureBox = New System.Windows.Forms.PictureBox()
|
||||
Me.UsernameLabel = New System.Windows.Forms.Label()
|
||||
Me.PasswordLabel = New System.Windows.Forms.Label()
|
||||
Me.PasswordTextBox = New System.Windows.Forms.TextBox()
|
||||
Me.OK = New System.Windows.Forms.Button()
|
||||
Me.Cancel = New System.Windows.Forms.Button()
|
||||
Me.UsernameTextBox = New System.Windows.Forms.TextBox()
|
||||
Me.chk_AutoLogin = New System.Windows.Forms.CheckBox()
|
||||
Me.chk_SaveUserName = New System.Windows.Forms.CheckBox()
|
||||
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
|
||||
CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'LogoPictureBox
|
||||
'
|
||||
Me.LogoPictureBox.Image = CType(resources.GetObject("LogoPictureBox.Image"), System.Drawing.Image)
|
||||
Me.LogoPictureBox.Location = New System.Drawing.Point(0, 0)
|
||||
Me.LogoPictureBox.Name = "LogoPictureBox"
|
||||
Me.LogoPictureBox.Size = New System.Drawing.Size(165, 193)
|
||||
Me.LogoPictureBox.TabIndex = 0
|
||||
Me.LogoPictureBox.TabStop = False
|
||||
'
|
||||
'UsernameLabel
|
||||
'
|
||||
Me.UsernameLabel.Location = New System.Drawing.Point(172, 24)
|
||||
Me.UsernameLabel.Name = "UsernameLabel"
|
||||
Me.UsernameLabel.Size = New System.Drawing.Size(220, 23)
|
||||
Me.UsernameLabel.TabIndex = 0
|
||||
Me.UsernameLabel.Text = "用户名(&U)"
|
||||
Me.UsernameLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'PasswordLabel
|
||||
'
|
||||
Me.PasswordLabel.Location = New System.Drawing.Point(172, 81)
|
||||
Me.PasswordLabel.Name = "PasswordLabel"
|
||||
Me.PasswordLabel.Size = New System.Drawing.Size(220, 23)
|
||||
Me.PasswordLabel.TabIndex = 2
|
||||
Me.PasswordLabel.Text = "密码(&P)"
|
||||
Me.PasswordLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'PasswordTextBox
|
||||
'
|
||||
Me.PasswordTextBox.Location = New System.Drawing.Point(174, 101)
|
||||
Me.PasswordTextBox.Name = "PasswordTextBox"
|
||||
Me.PasswordTextBox.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
|
||||
Me.PasswordTextBox.Size = New System.Drawing.Size(220, 21)
|
||||
Me.PasswordTextBox.TabIndex = 1
|
||||
'
|
||||
'OK
|
||||
'
|
||||
Me.OK.Location = New System.Drawing.Point(195, 170)
|
||||
Me.OK.Name = "OK"
|
||||
Me.OK.Size = New System.Drawing.Size(94, 23)
|
||||
Me.OK.TabIndex = 2
|
||||
Me.OK.Text = "确定(&O)"
|
||||
'
|
||||
'Cancel
|
||||
'
|
||||
Me.Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
||||
Me.Cancel.Location = New System.Drawing.Point(298, 170)
|
||||
Me.Cancel.Name = "Cancel"
|
||||
Me.Cancel.Size = New System.Drawing.Size(94, 23)
|
||||
Me.Cancel.TabIndex = 3
|
||||
Me.Cancel.Text = "取消(&C)"
|
||||
'
|
||||
'UsernameTextBox
|
||||
'
|
||||
Me.UsernameTextBox.Location = New System.Drawing.Point(174, 44)
|
||||
Me.UsernameTextBox.Name = "UsernameTextBox"
|
||||
Me.UsernameTextBox.Size = New System.Drawing.Size(220, 21)
|
||||
Me.UsernameTextBox.TabIndex = 0
|
||||
'
|
||||
'chk_AutoLogin
|
||||
'
|
||||
Me.chk_AutoLogin.AutoSize = True
|
||||
Me.chk_AutoLogin.Checked = Global.WT_DMS.My.MySettings.Default.CHK_AUTOLOGIN
|
||||
Me.chk_AutoLogin.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.WT_DMS.My.MySettings.Default, "CHK_AUTOLOGIN", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
|
||||
Me.chk_AutoLogin.Location = New System.Drawing.Point(298, 137)
|
||||
Me.chk_AutoLogin.Name = "chk_AutoLogin"
|
||||
Me.chk_AutoLogin.Size = New System.Drawing.Size(72, 16)
|
||||
Me.chk_AutoLogin.TabIndex = 5
|
||||
Me.chk_AutoLogin.Text = "自动登录"
|
||||
Me.chk_AutoLogin.UseVisualStyleBackColor = True
|
||||
'
|
||||
'chk_SaveUserName
|
||||
'
|
||||
Me.chk_SaveUserName.AutoSize = True
|
||||
Me.chk_SaveUserName.Checked = Global.WT_DMS.My.MySettings.Default.CHK_SAVEUSERNAME
|
||||
Me.chk_SaveUserName.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.WT_DMS.My.MySettings.Default, "CHK_SAVEUSERNAME", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
|
||||
Me.chk_SaveUserName.Location = New System.Drawing.Point(183, 137)
|
||||
Me.chk_SaveUserName.Name = "chk_SaveUserName"
|
||||
Me.chk_SaveUserName.Size = New System.Drawing.Size(84, 16)
|
||||
Me.chk_SaveUserName.TabIndex = 4
|
||||
Me.chk_SaveUserName.Text = "记住用户名"
|
||||
Me.chk_SaveUserName.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Me.Timer1.Interval = 2000
|
||||
'
|
||||
'LoginForm1
|
||||
'
|
||||
Me.AcceptButton = Me.OK
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.CancelButton = Me.Cancel
|
||||
Me.ClientSize = New System.Drawing.Size(401, 211)
|
||||
Me.Controls.Add(Me.chk_AutoLogin)
|
||||
Me.Controls.Add(Me.chk_SaveUserName)
|
||||
Me.Controls.Add(Me.Cancel)
|
||||
Me.Controls.Add(Me.OK)
|
||||
Me.Controls.Add(Me.PasswordTextBox)
|
||||
Me.Controls.Add(Me.UsernameTextBox)
|
||||
Me.Controls.Add(Me.PasswordLabel)
|
||||
Me.Controls.Add(Me.UsernameLabel)
|
||||
Me.Controls.Add(Me.LogoPictureBox)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "LoginForm1"
|
||||
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "INHAOS DMS"
|
||||
CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents chk_SaveUserName As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents chk_AutoLogin As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents Timer1 As System.Windows.Forms.Timer
|
||||
|
||||
End Class
|
||||
722
WT-DMS/LoginForm1.resx
Normal file
722
WT-DMS/LoginForm1.resx
Normal file
@@ -0,0 +1,722 @@
|
||||
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="LogoPictureBox.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAXIAAADBCAYAAADSDTtmAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALDAAA
|
||||
CwwBP0AiyAAAinlJREFUeF7tvQV8VEf79h8gxHGJG5KEhBAgWHB3d3eKu7sVd4fi7u7uDhWo0FJ5KpyN
|
||||
bDa4T/d/X2d3wuRwdpNH/u+vwJzn831D0/5K2Lz95tpr7plxcFvqpgDXxa6K6wJiDjHNVXGZ6KK4TCDG
|
||||
EWOJMcRoCxmrZ1QcHBxAUSKUCCK8iZxEFsKdcCEyEo5EeiKd2Wx2kLwPPU6OjhmV27df67Ju3TOlXr1E
|
||||
pVixL5WoqNM2OKlEROxQwsLWKKGhXyj58y8hFqcgX76F+J79RbQkmhL1iWpEOaIYEU4EE/he5iAyEfz7
|
||||
mF7va5dIJP/3JItclfkiq8xnE1NI5hD5eKvIwWgro1yUDMUzQAqTiYJEfiKQ8CIggMyEG+FMQAIZCClz
|
||||
G+D1SZcuna7EwebNz5X69f97kefPvwjfswdEK4KLvDpRnhBF7kPghzK+j66E+j3U+9olEsn/PSlE7rbE
|
||||
KvN5xEwS+WSSto1U7tzDWUkfnB5i6EZEEPmIAMKTyE5wmTsRUuZ2wGtjT+Q7djxXGjZMu8hDQlaQtFMV
|
||||
eTNCFHlxAt/HPIQUuUTyAeHgtkwQOaFWLAuJucR0oWLRSeVOzZyUdJnSQQ54e440l5fwJyDzbATemkME
|
||||
kDkqFshcilwDPRntVSu7d7/4D0SulXiKaqU1wUVeg0iTyAn5vZNI/oG8J3JV5mLFMlVTsfBUTiIHjhUd
|
||||
IYeFRGGiAIG35r5EbiIr4UHIvtwO9Li7urrrShzs3fu/Evk8fK9+J7Qir0CUIFCT4Ycxvn9S5BLJB4JF
|
||||
5LZkPp+YpVOxjLZCInce5KxkKKD25YOIQgRf/OSpji9+yr7cBvRkz5Ilh67Ewb59L9LQkZ9QwsO32RV5
|
||||
3ryz8H36lfh3RI56TIpcIvkH807kWpmjL7dVsWhSuVNrJyVdNrVigRgiiRBCb/FT7MulFKzQ4+fl5a8r
|
||||
cQCRY2olOvq2jsA5x1WRh4auJpEv1xV5njxT8T36kUiLyHMRUuQSyQeAg9tyq8R1ZJ5iJFE7xTLaCmQ+
|
||||
0kVxrKRWLMuIaIIvftrry2Uqt0JPWN684boSB6hWatc2kshv6QjcQqFCx0jkW+yKPChoAr5HdwmtyCsS
|
||||
JQmIHN83KXKJ5APCrshVmfOKBVMsk0ja2oVPayp3HuisZAhVK5aBRBECfTkWzrgUZF9uA3qKR0XF6Eoc
|
||||
YLGzRg2I/KauxKOiTqkiL1Bgs12RBwSMxPfnNsFF3oCoSXCR490URO5HSJFLJB8IDm4rSNj2ZC5WLNgo
|
||||
pF34tIocqdypuZOSzkOtWJDyogjtZiFZsehAT7Vy5eroShxg/LBKFYj8ho7EuciPkMg3WEW+TFfkfn4D
|
||||
8b25QkiRSyQfERaRpyLz5CkWLHx+TtLWLnxaRa5WLKXVimUOgQ0mfLOQOF8uKxYN9LSoW7edrsTBpk3P
|
||||
lYoVE5SiRa/rSPydyMPC1pPIV9kUuY9Pd3xvThOyWpFIPiIc3L4gWXORizIXRJ4sc2wU0lv4FFK5ulHI
|
||||
T90o1JnAFn4+X46UJ0cSdaCnV7t2g3QlDlavfqaULQuRX9WRuEXkkZGHSeTr7Irc07Mdvi+HCLnYKZF8
|
||||
RFhEngaZp1j45LPlNlJ5xlrqWSybCKQ8zJeHEeJIoqxYBOgZN3DgDF2Jg8WLnyqlSxtI5Fd0JM5FftAq
|
||||
8pUk8qW6Is+VqzG+LzuItIhcjh9KJB8IFpGvJESZc5FrZW5r4ZOncqvIXYa58Nny4QQqFnSvsmKxAT1L
|
||||
pkzZoCtxMHPmEyUm5k+lSJGLOhIHJ5WCBfeTyNeSyL+wKfLs2avje7KW+HdELjcESST/cCwdOUS+itCT
|
||||
uSDyFAuf2h2fowku8xHW7fsuydv3MZKoV7HIjUIEPbu/+OKUrsTBuHGPlVKlfiWRX9CROBf53mSR65+z
|
||||
sljJnDkG349FhFbkcou+RPIBYzk0CwKHyNMg8+SKBQuf9lI5yTxDtJrKpxLaioUfkypWLEjln6Qs6Lmy
|
||||
f/89XYmDgQMfKiVL/mhD5KeIE0pExC5B5O9LHLi7F8T3YwohD82SSD4iHFCXqOLmIucyT61i4Ts+7aXy
|
||||
dpTKs6qpvAmhN8XCNwp9sguf9Ph4evopN24815U46NIlSSle/DulcOHzGolzkR9P9ZwV4Ozsj+/FSEIe
|
||||
YyuRfEQ4IF2rgobAV1tB1ZLWVM7PYdERuctwF8UxRh1HnE+UJjDFwg/WEs9iQSoXK5ZPSeQx0dHldQXO
|
||||
adbMRCL/hkR+ViNxi8gtuzq3Uhq3vRkoX74FSoYMmfC96EXIiyUkko8IB3WkkMSspnBIfC2RlopFHEfU
|
||||
pnJer5DInTs7K+lyqqkcvSwW1PjBWvwsFnHh85NL5fS0atiwk67AweXLr9Tt+Tgwq3DhMzZEjs1AG60i
|
||||
1x89tG7P/5ZoR0DkeJdUj4DIyxJYx8APWV598e+LFLlE8g/HQR0nXEgih7AhcIhclLkNkasLn0jls0nk
|
||||
fJOQrVReVk3lS4gyRFoXPj8VkY/p12+qrsTB/v0v1M1A2NWpL/KTSmTkISW1zUC+vn3xPbhIcJE3JuoS
|
||||
eiIXf8BKkUsk/3AcUI9gpFCVMyoVSHyd9SNk/u+kcj5XrhG5c9fkVN6WKEWkZeHzk0jl9KydM2e3rsTB
|
||||
F188S54hf1/k6MfF0UPbM+Senm3w+h8g8D1oQUDkdYiqBH7Aovbi3xO+foGNW/jhqn4/9L5+iUTyf49F
|
||||
5Fi45Iuea4j1BGSOqsXewqeYym115SRyNZWXSU7lSH984VM8IZHv+PxkUjn+jOnTZ1D27PlWV+Jg4kSM
|
||||
Hv6mFClySSNxLvITJPI9qY4eZs9eA6//OoKLvBEBkVchIHIcdMYrLylyieQDwgGbe9R6RVz0hMhBGioW
|
||||
3VQujiJaRa525ZYzyzExEUPwExKRAPV2fH70qZyeiNDQKF2Bc3r2fKiUKGF79BALnZaJlbV2J1Y8PIri
|
||||
tccZOG0ILvLaRGUC3w+8S8I58nyiiNdd/HvxSVRdEsmHiEXkuNIN9QolbFXaEPgGgsvc3hQLT+XaufLR
|
||||
hFCvqKm8pJrK5xGYksDcsnbHp/Yclo86ldPTtE6dNroC51gmVu7YHD3EQicmViyjh/oTK8DZ2Q+vPUYP
|
||||
IfLmREOiFlGJQN2FRWh8L/AOSVy3kCKXSP7hOCBJqyJHqka9AlmjXoHINxKQuV7FopfK+TG3ELlOKndq
|
||||
66Skc1NTOSRiaxzxk0nl9Ng9Y+XChVdKtWo4vva2zuihpR/HYVmpHV8bHPy5kj69M173bgTf1ZnaEbZ8
|
||||
LFSKXCL5h+OAM8RVkaMnx/QKJM3rlU0EZI6+3N7CpzaV81FEjchBhih1tyd2F2ITCh9H/CRTOT07li8/
|
||||
ritxsH79M6VMmXj1+Fr7C532D8vy9e2D1/wC0Z7QO2cF747kgVkSyQeKQ/q86VXpqiLnPTmqFKvI3Te7
|
||||
W9I5KpbUUrl4Bou46CnUK05NnCCVIwS6WT4t8cmlcnqC/PzyKGfPxulKHIwfb1noLFr0sg2RY0fn7lQX
|
||||
OnPlaorXfBcBkdvb1SnPWZFIPkDwTMlYJ6OlGoHI0ZMjeUPcEPlWd4vMIfa0pHKcjIjzym0segL88KDf
|
||||
dyjxyaZyehrUqNFcV+Cczp2TlBIlfrBx6iH68aNpWujMkqUMXu+lRFo3A8ldnRLJBwSeUum90yvOw5wt
|
||||
IsYuT4gaPflGq8gJtWZJSyqfQyLXbhDSiDxjdfW88i3EJ5vK6ZkwaNAsXYFz6tZNtG7N1y50iv04v6dT
|
||||
vx8HLi7BeL3HEmmZIcdmIH4GDh8FlSKXSP7B4EH6HeVYzdEicr7gae3JVZFvt8pcTOVc5ILM1TNYcF45
|
||||
H0W0Ua8490zeINSJ4Knc1gTLRzlXTs/BtWsv6Aoc4J7OcuWwo/OWjYXOEyTyA9Z+3PaOzqCg8Ur69Gqd
|
||||
1ZXQGz3EojNGDzFDrvfaqz9E9f4MEonknwEeJN9C6XKkU5yHUCqHyCFnLvItJPEdVlCxpJbKcV45Ngil
|
||||
sujpWCJ5FJHLRJwrF3d7pjiDRe8P8aFBTzHcmn/r1itdiQPLRqDfbe7otMyPp96Pe3t3wet8kuhA8NFD
|
||||
TKzI0UOJ5CMBD/6DxajZUMeqlMpRrUDO1u36kLcq8Z1EWlI5H0XULnpqRO7UQk2JAAtufK5c3O2pPYPl
|
||||
o6lX6OnVvv1gXYFz2rdHP35P7cdTitxSq2B+PC39uHVH53rC1sQKfzckjh6KtZZc6JRI/uHgwYIW+tBI
|
||||
1B0QripmvjEIC54Q+W6rzFNL5eKiJ0SORc/RhKZeAemD1UXPIQSSId/tKXa12pMRPwqp0LN+3ry9ugIH
|
||||
V6++UmrUwImHX9vpxw8pBQpsSrUfd3MrgNcY4558odPW8bVyYkUi+UDBg9SF9IX/eEfh4mRV0KLI0ZFD
|
||||
5IB+nZzKRZELMk9e9MT5K2K9ohG5Y0W1XsH5H3x6AlLBLTX8ZES9jSkfdCqnp2BoaGHl/PkEXYmDZctw
|
||||
2XKs9cTDczoiP64ULLhP6Mf158eDgiYqGTJ44DXGGeRY6Ezt1EPd42sJKXKJ5B8MHvzHiuoCFUY0Jlhc
|
||||
J7m+OwkRkyvbrBLfS+wieCq3N4qIRU9xp+doQluvdEy+1xPjcNhhiL42itAe3iSK5YNOiPR81qZNf12B
|
||||
c/r0wdVuP+v047xWwdjhTqEff1/iwMurM17b40RHQlzo5Idl8bUJeViWRPIBgwf/sUKQeCsNYU7J2JRS
|
||||
ORI3FzkmVyDyfVaZ77CmcsjeVirHoid2eor1ikbkIEOIutNzDIFROJ4Q9a4cS5HK9f4wHwL0rJ8/33at
|
||||
AurVw9jhXfWgLD2RY+wwPHwLidz+1W7ZslXGa7uaSG2h095hWVLkEsk/HDxIuGIqr5I+P6VyTK9oRb6f
|
||||
OGD9NVI5zmCxt+g5l0SOmXI79UrGqupM+WZCXHzT2yD0wS960lOicOEyypUrj3QFDtauxbZ8Pnao14+j
|
||||
VsG2fFwkkdr8eB68tuMJvqNTb6GTLzDrLXTitZa1ikTyDwcPpMhTOV/4XOn0mZO+yA8RSOboynEGS2qL
|
||||
nuJMuc4Yonq8raVegWRsjSJ+FIue9Azt2XO8rsA5/fo9VEqV+lUpWvQqiVycHxdrFX5j/koStv7Yob//
|
||||
IHpNk2f17e3o1Hv3Ixc6JZIPCDzpCC5zvvDZ2rGUo6U+4SJHN05p3OOwh0XmJHb8vVQXPXm9YqMnB+nz
|
||||
qdMrqFfESQq+6IlDnPSS4gf1lp+eLJkzZ1PWr7+kK3COpVb51ubYoaVWwbG19scOc+ZsiNd0B4F+XHuZ
|
||||
hLijk//A1L3ejZAil0j+4eDhIucVC/4j9k3nnk7tttWpFVHkRzwUj6Mk8/301/T55EVPWyJHvcI3B/Gz
|
||||
VzQit06vYNaZH6sqLnryekVchPvg0iI9jWrWbKkrb87SpU/V0w7fr1UgccsmIMu0Suq1irt7JF7TmYTY
|
||||
j2vPIMdrrNePy4VOieQDAg+ECHi9wrvysRmbZLRsCOLVCkROEvc4TiCZk9zV1K6tV7jMeb0ibg7S6clx
|
||||
Tjn9fgBjcTwt6h3k9MG+7adnyZQpG3QFzunWLck6rWKrVsEmID6tYrtWCQgYpaRP74bXE2OH9vpxeQa5
|
||||
RPIRgAebRfAfOxIaEhkSOUReOUNoBsV9rVXkSOT7rYn8pEXmaleORU979QqmV/jmIHv1iq9arwwg+NGq
|
||||
4k5PmzPlen+ofxr0lCxSpKzd2fEzZ14q1asb1duA9GsVnK1yUD0kK7VplVy5muG13EPIflwi+QRwmFsu
|
||||
v9Il3Esp5ZlJcXdUZbqGwBGzSMd7XAa7vDtvhcStJnKIHBwimWPRM7V6BZuD+NG2owkdkTsWV+uVRQR/
|
||||
68/vkbQ14wzZfBAdLj1jBwyYritwzoQJj5WYmAdKdPRNnVoFaRy1yl6SODYB2a9VPDwK47WcTfBaRTs/
|
||||
jnc8tnbRyn5cIvnAcHjTr7Lyplc55c1npZR7TQsq2yoGKSMicyvVfTwMOZwzPErvl/65UwenRy6TXYzu
|
||||
u90NkHem45mUrCeyWrpyLHpiegUit8o7hcxRr8wjkU8hYdvpyTPWV8cQDxJ8MU7cdchT4wdXr9ATkidP
|
||||
AWXPnu90Bc5p2tSknq1i2QRkq1axnK1ibxNQQMAIsVaByG1d7SbnxyWSjwSHt4NrK2/6V1Xe9CyrvOlW
|
||||
UnnTqajypn0h5XXbCMN3dfMlLI7xZl2LZmPReVxZ+qzpmFMLpyeuE11N2XZli8t0NJNB3SC0gWSOnpyL
|
||||
nEMSx0fdMURNT+7cw1lJ56qOy6HP/WjqFXoGdO06SlfenBUrnillyyYoxYp9qdkEJC5y7lfv5kztkmVh
|
||||
WkWsVbQ3AmmvdpPz4xLJB4zD2zHNlLfD6ilvB1SjZF5eTeZvOkdbZN4m3GBoGvL8t7Yh7H6H/GxrXX82
|
||||
tExOVqWAB8vqmZG5NHN5Sgk7iSQeRxjcFqtYBC7wXk+uI3JgPUQLN72LkxUfbL1CT6Cvb7CyZcsNXYFz
|
||||
cBOQZZHzGklcPFtFTON8dtz22SpAOCTL3tih3kLyBz+nL5F8qji8ndROeTu2ufJ2eAPl7cDqypu+lZQ3
|
||||
Pcoob7oUV153iDIktSzw6PdWIezXjiHsJ5L5PeKH9vnZnoaBbGS53KwqST1LTkeWsW7GJ859nE1uC0jm
|
||||
C61A6kTyGeUQub2ePEbtyZcTH4V06OnVocMQXXlzdu9+oVSpgkXObzSLnJY0jp2cWOS0bMm3X6tYLllW
|
||||
39V0Juxty/8o1h4kEokFh7efd1DeTmitqMl8eH3l7eBaypt+VdSq5XW3koZnHYoYH7QIY391DmW/daJk
|
||||
3pFkTiL/vn0Iu9suP/uqbT62uY4f61ciByuZx42lz5yOZWyc8REl7gRV5hA7kXwaIhe5TiLP2FDtyXEx
|
||||
8wdfA9CjpvGNG6/qCpyDA7JKlfqX9aTD8xqR852cuEAi9UXObNmq4PXDYjWvVfQuWv5opoEkEokFh7ej
|
||||
mygqIxtZRD60jvJ2UE2SuWUR9PVnpQyxrQu9fNA5nD3oEsr+1TmE/ULp/McOISTzUHaHZP5lm3zsZqu8
|
||||
7HqLvGxhZW/WKjILy+PtxBwrOj517k4pfb4qcoPrZFeDy1gXQ7LIh1mxitz5M2eF8iBkhBT5QS/M0dOv
|
||||
c+cRuvLmHDv2Uj13HDs5LTfl80VOnsYxcniI0vi2VNN4cPBkxcnJG6/dCEKsVcT7OT+KBWSJRJISB3WB
|
||||
EwudvStYahWkcYBf0+de9yxrSOxY/MmDzlHsQfeCTOkWxv4kof/aKZT93DHMKvN87MvW+dgNEvnV5nnY
|
||||
5WZ52K46AWxIyZysdF435ljU8UXGFhkfuoxyiSOJG1xGEsOJoSRwwIVOWOfJcdnEBzsqR09Y3rwRyvbt
|
||||
X+oKnDN48CMlJuZPdSfn+4ucljRuGTnkOzltL3Lmzt0Sr9t+AmmcT6toa5WPZqRTIpG8wyGuWahiah6m
|
||||
PG1VAIubypv2kZbJlS7FLVMsxONOxU0POhZhD3pGMaVHJDN0K0DpvAD7g4DMf6B0/k1bkjmlclXmJHLI
|
||||
/ELTYHa2STCbUs6T1S2QiWXL7sgcqzo+ouQdTwI3uAwRsEo9QyH1WFvc5cnrgA9u8wo9o/r2/VxX3pyT
|
||||
J18qtWoZlRIlvteMHGrT+HZrGre9kxO4uxfE64Yt+WmZVpG1ikTyEeHwbb28yg/18yn3G+RXfmuUX3nQ
|
||||
JESJJ7kntXgn9xdtwuMftCR5f0aJvEdBZugewWK7gXCSeTj7hdI5FkDvtMnHviKZ3xRkfp5EDpmfahzE
|
||||
FlTyYs0jsjDfXBlZhnIZHjt3dE5wGUQSB4MtQs9YWe3JtxE4F0SsVz6I7eT0lI6OrqAcOfKrrsA5ljT+
|
||||
F6Xx23bS+L40jRz6+HTHa3aG4Glcuwnoozz2QCKRWHC4WTuPcov4sk4e5es6eZW7dS1i/6lBPuVXEvuf
|
||||
jUMUQ9NQwy8N87/4pV2IWqsgjRu6hqsyN3SNsCbzEHUR9NvWJPOWedktkvm1ZnmTZX6mcTA72TCInWgQ
|
||||
xJZV8mZtCmZhgbmdWIbSGZ44t38ndKemTgaSyXmiCYHdpTjaVqwE/tEHPNEzd9y4L3TlzTlyxNKNv0vj
|
||||
fORQTOOHhQ1AK+2OHGbJUgYiX0ZA5OIly+ImoI/uIDKJRGLB4UatPAoHUge3rWL/hqTOE/vXdfM+udUk
|
||||
rzqp8kOHUPZLxwLs907h7K8uEST3cPYbOvMO+dmP9Pe/o2T+DSXz2yTz680tMkfNcqZRMDtBMj9WP4gd
|
||||
qRfIllX2Ya0jspLQKaGXpYTe2TneuZuzgTI2ZA4hcRGhFuBH26JeEc8o/8f05PQ0qV27tXLjxnNdgXMw
|
||||
qRIT80cq3biYxm2fq+LvP1jJkCETRN6P4Iuc2rNVPsqjgSUSiYUUItcipvVrNfMknasTzC6TnG+0otTd
|
||||
FuOHYexeh3B2vwMSeSj7iRI5RP5j23cy/5LSOWR+BTJHMofMKZUfJZEfJg7UCWSLKnqxZuGZmWcOR+ZY
|
||||
2fFR+pzp40gqOO8FqRKpHAt1vF7RXsz8j6gF6PHz9g5Qli07pitvzrZtz5WqVfmkil4ax9z4ISGN298A
|
||||
lC1bVUgcF1iLtQo/srY28VFf1iGRSFIRucjVWsEJJ2oEsjPN87BzzfOxSy3ys+stQ9nt1mHsqzZh7BsS
|
||||
OxY8vyWB/2AFMr9jrVp4b36xSR52VpD5IRL5/toBbC8xo6wnq50/E/NwSc9IKvsIJEukcr7oqZ1egcjF
|
||||
euX/UuRDevQYpytvEeziLFXqt1QnVdKSxgMCRikZM+aCyPFDjy9yirPjH/31eRKJ5N8Q+fVaeQzHqgSy
|
||||
k43ysNPN8rKzzfKxCy1CKKGHsqsk9KstQ9i1VnnYDZI2xI00DonfJfDrd705ybxxMDvbMJidrE8yr/tO
|
||||
5nuI3cTIIjlZ2dxuz0gshwls2ceCnTaVox7g0yu8Xsmg94f8/xt6qpQpU0s5dux3XXlzFi16qpQvn0Bp
|
||||
/K7O3PhJgu/ifDepYi+NZ89eGxLfRNhb5LQ39SNrFYnkI8CBBA1JJ6Mncc7pqkHPTzYgkTfNx840y0/J
|
||||
PISdbx7KLhDnm+Ov89Cvg9VOHAudSOGoViBxzq0Wedh1+vuXSObnSOanKJkfqxekynyfVeY7q/qzbeX8
|
||||
XvQJy24Kz+KcSJJZRUBQYir3J/Q2B/0/TZX05MyePbcyZ84uXXmLNGtmUs9Usb2LE2eqYBfn+lTTeGDg
|
||||
GL4BCD/o+CKneIGE3iKnODsuri/IWkUi+YBxuFwjWLlSM1i5JmBL7OeqBT0+UTeYErlV5M0g8DAVSP00
|
||||
CfpU0yB2GpJuEswuNs2jduPoyJHGsfgJbpHwr9Pfu0z/3IVG78t8dw2igv+rA5UCTMtKeic2DcycmN0p
|
||||
g5FkM4pAKscsdB5CTJcppAT0/sD/a+gZ1K3bmBTC1mPUqEdK6dKxSrFiX1vPVEmZxnHCoSWN812c9tN4
|
||||
jhxqGt9MQOLanZxYV+AXSIiLnDZnxwkpconkA8XhaOVA5VTVQOVstSDlQvUg5ZJV7Fd1pH6+enDSiVrB
|
||||
qsTPNgtJFvmF5gXUX59qmpedIJGfaBzETjYKUmfHMUOOiRWkdHTk10niN4kbTS0yv4K/TzI/3SCYHecy
|
||||
r6WK/M1BEvn+igGmvRX9E8dG5jLG5HJLIOF8QUBUfOGOJ0ze93KZ//8uJ3pqVaxYP9VKBQdjWcYNcd44
|
||||
TjjUpvET1jSOEw75mSq258YDA0fppXFx5FDcyWlrV6xc5JRIPhIcdpT3U3aW91dIlsqhSgHK8SoWsZ8j
|
||||
qUPsSOxc6herBxmP1aDETSI/I0j8QvNw9deoXI43CWLHSeInrIhCxzz5pSYk76Z52DX6CJFzmV8kmaM3
|
||||
P14/iB2uSzKv5M8OVw58iFS+j0S+r4K/cWNZ34T2wVnjvV0d40k+fQks3iFl5iZQsSBlcpknJ02g94f/
|
||||
b6Anf2BgfmXp0iPJwrZFp05Y4PzduvlHe8KhOG6Ia9yQxnGmiu1dnNmz14DENxBiGtcbORR3cqKK4q+T
|
||||
XOSUSD4iHLaW81PAdoJLndKwQgJVtGn9YvXguMNVA0nYJPKm6MctErdQQE3qXOTHG75DFDo2Bp0nsOCJ
|
||||
auUqSRyIMj8BmVcNYMerBDw6UiXQRMk88UBFfyP9sEnYU8E/YUKhXPGlc7lhRHEugdQpLnzyyoDL/H+e
|
||||
zq3/3qlDh87TFbfI5MmP1UsjcBcnHze0iFxc4OTjhqmfcOjvP0TJmDEnRD6YENO4eEu+rZFD7U5OVeR6
|
||||
f0aJRPLh4LCxjK+yqayfspnYQkDq2+xIndLx66MN87FTTUPZuWYk8mbh7GLzCFXmZ5qFsONNKVVrRP6e
|
||||
0IkzJGwsdkLeWPiE1AGX+cnq9AOjauCTk1UDTUerBCYerhRg3G+VOX1N8WtL+8a1CsoSm8M5QyzJCIt8
|
||||
EJUoc3TmotD/Z+mcnh4tW/ZWbt16pStvzv79L5Q6dRKVkiV/JIlf16lULAucBQvuSR43tHfCIciatQIk
|
||||
vpKwl8axgYrfkq8dOZQ7OSWSjwyHdaV9lfUkc6AndTGpUxrG51/srZOXHWkcyk42LcDONougZG4VOaX0
|
||||
E03zsGOUvI/piJyD3Z2YIz9FH880sAgdPTmXuirzWkHsQo2gp+erBZnoB0hisswrIZUHxO8q7x9HX1Ps
|
||||
sIicsVHZXLATFMe3Qlhc5hAWkuf/NJ3TU7d8+Tok6XvviVsLKhXs4LRc4WZrgfOAsMCJzT+207iPT08l
|
||||
Qwb1Ps7ehF4a5xuAcK5KUUI8rlZ35JCQIpdIPnAc1sT4KoASrmJL6jylQ+prS/s821gtmO2qH8IONAxj
|
||||
xxuHs1NNCpLEI9jppvTXTfKwo40CVZGLpJA5SZyDGgVTK6LQwfk6QexyjeBnV2sGmy5UDzadrhaUeKJK
|
||||
oPFw5YCE/RUD4umHStyuCv6xkPmC4t6G2r6ZDBS3ITlUCpAW0icW9bTpPFnmQO9FsQU90SEhhZTly4/r
|
||||
iltk7NjHSpkyfGYclYqYxnmlgvNUdgqViu1xw3z5FiiZMkXjzzefSEsa19sAhB9ucuRQIvnISBa5iCj1
|
||||
DVahA6T0NaV9nqyrHMS21M3PttcLY3saFGCHGkVQCo8gqYexw43z0F8HsiMNA9nRBhbeEzokTgIXEYWO
|
||||
auWcReTPb9TKY4LML9YITjxbLch4ompgwpHKgfEHKgbEcZnvKO9vAJ3zZlO8XNXr4pBQsbCHCY3/STqn
|
||||
JwDz4pMmrdUVt8i6dc+sUyqWSuX9HZyWKRXLDs6NaVrgzJ27Nf5cBwlc42avG5dpXCL5xNAVuYg2pa+O
|
||||
8X24qmIg21w3hG2tG8Z21CtA6TyC7a4fzvY1CCWx5yEC2P76AexQ/UB22CrzFEIXRV7PivWvsdtTFTqJ
|
||||
/Hz1oJc3SeSQ+bVawYkkduO56kEJp6oGxh+tHBhHyTxuryWVqyJH/TO8YE4lMqszpNefQBLVpnNxqiVN
|
||||
MqcH/7fT+vefpitukUuXXqkbfyzb8PmUyn9XqQQFjVdcXfPizzSJgMSxi1OmcYlEouKwqLi3rsC1IKVD
|
||||
5itjfJJWlPNnG+uEkswLUCoPJ5lHsJ0kciT0TXWDCT+2vY4/21OXhF7PIvQjWqGTsEGyyAWhI52frBPI
|
||||
zlYLfHm9pkXkN2rnSbxeK9h4pWZwwoXqQfFc5pTMY/dUVCWuyhx9/uxoT6WSlzvEN5XADDU2wWDWHKkU
|
||||
o3f/VtVCz/COHYfqiltLjx4PldKlH6gbfyzb8G1NqaStUgHWccP1hDaNi3PjfFJFpnGJ5BPDIbeLo1Iy
|
||||
p6vSMiiLMrpgLiRuXZFzvijlk7i0jD9bXzuUbapTgFJ5BNtGbCeZI6FvqBPMVtfyZWtr+rLNtfzYDhL6
|
||||
Xh2hc5FjRyfQyvx4XXVq5RVqlWsk8+u18iSS0I03agcncJmfrhoUd6xyYCxkvrvCu1QOma8t7aM0Dsis
|
||||
ZEyv3iqPHY5Iphi/w65GvapFV+b09GrcuKty9mysrrhFxo17rJQrh14cJxva3vjzbkol9UrFx6eX4uiY
|
||||
hb/D4Gmcn6ki7uLkc+O2JlVkGpdIPlLwdCemEVuIK/kyOSk1fTyUfmE5lCUl3k/rK0v5JCyK8WPralP6
|
||||
rhOusoWA0JHQ19XOw74gka+q4cNWVfdl60joW2r7sZ1WoR8gmatCJ3D6IRe5VubH6lAqrxr4+mKN4KQr
|
||||
NUjmtYLVRA4gc/rreMy1n6kaFKvKvFKAYRfJnIuc0ylvViWHs3p9HOoH7GxMc9VCT6eaNVsqBw/e1xW3
|
||||
yNKlT5Vq1Sy9OM5SsXfOeHj41jRVKnnzzlQ8PArja8e8PF/g5CccimeqiLs4+dy4TOMSyScCHggOQsBb
|
||||
dCyaYaMJbps5EeCeUanu7aH0J6kvL+mjinxVKd/4hSVJ0LUKsPW1wtmG2haZg82U0NfWzsuWk7xXVPdh
|
||||
K6tB5hahb6jpx7bW9me7SOj7KJ0ftJ5HDpnjBESt0I/VpY9VAt9cqB6cdIlETik8kdK5KnOI/AaJnJJ6
|
||||
HMk8VpV5lUADZI65d63M+4VlV4Loz0J/JvTKEBwWQnnVAsnxtCrKvDW23+/Y8bWuuEWwBb9+fcyL40As
|
||||
HE9r+yyVlBt/7FcqOXM2xNe8g+CVit4Jh0jj/EwVcRenmMbl3LhE8hGDByLAed9IdphDhhy43LENfhFx
|
||||
Ij8l9Ub+mVG/xC0s4atKnAOZb7QKfU2tvGxpDV+2lCS+vKoPW0EfudBXk9A31fJj20noe+oEsP3EIZL4
|
||||
EUIrc1HkJGvTZZI4IJkjlasiv1ErTxzJPFaVebUgHLNrOFgpQN3EJMocY5OjCuZUwrOoi6A9CewEhej4
|
||||
VIu2N29ZtmxtZdOma7riFrl48ZXSsqUpeV7cdi+OUUOcpWI52TC1SsXXt5/2rHFx3FA8b5yfcIir8PiZ
|
||||
KuIuTpnGJZKPHDzoVjHtACFgwQxnWEPukAQW0bjYkdRXuzumjy2W0431KxnMVtQIe0/oq2vmY0tI5Iur
|
||||
erOlJPJlVpl/IaRztW6hhL6rlj/bSzLHLUE4XwUyTyH0KoFvucgplScCSuZGXHJBMo+/SSInmcdeJZnT
|
||||
3zNA5jgrBjtRd5HItTKfFJVbKZrdBXIcRPDUqu3N25QpU1PZsOGyrri1dOmSpC5uFi/+jY15cbEX32St
|
||||
VHCyYWqVSlF8nfMIW+OG+KFbheCXKuO8cX7CofZMFZnGJZKPGDyQABbJcDwselaIAXLHzTLoXiELUezt
|
||||
M2TM8KRktZIvi+XxZB2LBrJZlUOSZb6qVj62mGS9iES+qIo3W0JA6O+l82qUzmtQOq9J6bw2pXMCJx+m
|
||||
SOckcpy4CJFzmWMEESK/RiK/bhU5fYy9ViuPATI/Wy1IPfiLy1wUOZhZ1FOJyeUKSeJIXCwIir15Z0ri
|
||||
hvXrLxn0pK2lX7+HSpky8WlY3BR7cftnqYAcOerh69uGr4fQW+DUGzfk543rnXAo07hE8hGDB0kO3Spk
|
||||
gLfnGF+D3CEIvGWH2NHBQuxI7LUyZMhgmrJpiqn7+O6PqjSu8rxAQC7WIsqfTa2Qn62qmZ9E7scWWkUO
|
||||
FltlLqZzVehVKZ2T0LeQ0NV0TjI/KKbzygGqyLGzUxQ5plau1rSIHBIHN2rnMdDnDPT31UO+6IeAsr/i
|
||||
+zLHDtX5xbyU8rnVre7jCMgPVUTfChXqxW7ceNVw69YrFT15c4YPf6ROqFhuwtfb9GNZ3LTMi+PGn7T1
|
||||
4j4+3RVHx6z8XUNqC5y2xg35eeMyjUsknwB4IAC8JcciGVIdpAC5Y4wNN8tgEgILaRA7Enu5dOnSJc7Z
|
||||
PSdx5o6ZidO2TjMNnDXwYa02tZ7l98/FGhT0YsPK5CaR+7CFlb1VuMxTpHPiiyokdPq4ugqlc5L/Dms6
|
||||
R9WCdA6Rn6sWpIpclblG5Fjs5DKHyAGO2xVlvq/i+xULZL6ohLdS0VOdNZ9IjK1Ro0Xc9u1fxt68+TKW
|
||||
i9yWzDFmWLEiJH5PmFCxv7iZll4cG3/c3Arga5pO6FUq2ivc+AKnOG6ovf1HpnGJ5CMHD1IcFv/QGUMG
|
||||
WCyD3CH2EEIUOxJ7MRK5cfGRxcYFBxYY5+6bmwipz9g+I3HYwmFJZduUfebp7cyqh2ViI2JypZC5WLUs
|
||||
I4mvIFSZE6tI5huq+bFtYtVSKeAtCTkJB2dxkVMqTyFyK8kiv1ELN/4HqxdknCGZ49RGUeZc5Dg/Zk60
|
||||
lyHYw+lxvXodnuzffy/u5s0XxEu7MsextFWqGNUTDe1PqGDTD1/ctMyL27vxB2TNWhESX03oVSp8BycW
|
||||
pvHuCFVYWhY4ZRqXSD5y8OA/frwdxwIZEh06Vsgdi2Zc7LhWjSf2yAyOGRK+OPNFwvKTyxOWHl9qXHR4
|
||||
kUXqe+cm9t/YP9FrpFdSxkoZn3l7ZmT1wjOzSWU9k0WeLHOS97LKlM6JFQSXeXLVQkInAb89VTUoiWRu
|
||||
gsy5yC/riJxSuQFA5PTRchGGVeZHKgeoF2eIMl9Y3Cuujm+mp93a9mWH9n3LLlwwPrGI3LbMp059oiNx
|
||||
WxMqu4VzVOwvboJcuZqRxNXNS58RYqWCKRW9SiWtC5wyjUskHzl4kOAAelWIAAtlEDu2tYtiR2JHnxzu
|
||||
7OIcv/7q+vi1l9YmrDq3SpX6spPLjEuOLjEO2z3M6DffL9FluEuiUxunJMeSjs/z+zqzNoWysgVCMl9M
|
||||
v15KAgfLK1lk/oVV6GuqWqqWneX93h6rEph0umqQCTK/UD0oEbcUQeSUym2KnMucZK/K/LRV5nwscUrh
|
||||
3Mag3J5sSK+x7MY5hV07q7Bzp/5iFy8mPrYl8ylTHhuqVoXEf7Ir8XcTKvy2H/ubfoCPTw8+aoijeLnE
|
||||
U6tUtDs4xQVOOW4okXxC4MF/+HgrDjCCBxnoiZ0n9giPrB5x277aFrf51ub4jTc2qlJfc3FNwsqzKxPG
|
||||
Hh6b4LfMz+gyxsXoPMA50bmfc2LGphkfORZ2fFEi2I31LZ7DInMS+eJKVpmTyLUyV3vzMr5vD1YMSCKZ
|
||||
myiZm85ZRX6pRpAq8qt2RC7KHLcb4VKMwyTzYRE5TUXDCrKpYxapEudctSPzSZMeGapUSTBQEjdYDsK6
|
||||
JEicjxlyie9VwsO3WCWOxU3bd2+CgIBRiptbKCQ+g7A3pWKrUuELnGKlIhc4JZJPCDz4jx5AAHhLjkUy
|
||||
Lne8TRfFjoW0yFzeuWJ3f787bue3O+N23NkRt+3LbXGbbm2K33B9Q/yk05Pifdf4JrhMdklwGeZidBlC
|
||||
Qh/obHTuT0KvmfFxjpyOrE6BzGxKWU9V5KrMSeJgmShzYnWM7xtK0EkHKgWYIHOcSX6umkXkl2sEqSK3
|
||||
YlPkqFhI+srZaoFKr5BsD2uVr8G+mL8zhcRFmZ9VZW56xGU+duzD2MqV42NLlrxHEr9poCRueF/itsYM
|
||||
7U+oYF48c+ZSkPgKQpS4duOPdkpFr1IRz1ORaVwi+YTAg+QG8B8/sCd2yKJYYP7A2IM/H4w98NOB2H33
|
||||
9iVLffvX2+OmXpoa773RO95luks8pfIEl5GC0Ac5G526OCU5xjg+i/B1Yd0KZ1dFvqTi+zJfQR9Xxfi8
|
||||
2VTWL2lHeT+TVeaJp6sGGs9Xt4hckLk6R64VOZf5trJ+8S2Dsjzt1LwrO7D1KrupI3Fwnbhy9gE7QzK/
|
||||
dCnp4bBhprgKFWLjSpb8ITY6+kZskSIXSOJnidMGfYnzY2lXE/avbAPWUw3FeXHtqCGOTeAbf2xNqchK
|
||||
RSL5xMGjnvhnBQIA9sReNrxYuOHoH0cNR/51xHDo10Oq1Pf/uD927w97Y6ffnB7ntd0rznW2a5zLBJL5
|
||||
eKvQRxHDicEk9P7ORscajo8yZc3AaufPxKaU8Xxf5hUplZfyeb2xrG/S5rJ+Jsh8f8UA9ZagM9UC1dMP
|
||||
IfIrNYKTRQ60Ip9V1NNUKG9+NmbgFFXgt84r7CahJ3IAmV8+84B173aflSnzR1Lx4t/FFS16I65IkfOx
|
||||
lMIJSPwUcQJoJG6ZFU9tzBBgcTNdOvX8lz6EvV5c3PiDcVAsOPMpFVmpSCQSh/c/8b7YxcQOUdQqVa2U
|
||||
4ST97/iD44Zjfx4zHPn9iOHwb4djD/5yMHbGVzNic+7JGes63zXOdQoxmZjg+k7olNCdBzsnOHV1MmZs
|
||||
ntGUoUiGZ1F+Lqxv0RwpZV5BFfmr9WV8kzaV9TVZZZ54sGKA8XjVwISz1QLjIXOInEgWORI4BH68SmBs
|
||||
79Dsj+pWqs1WztvObpO8IXGOLZmfO/qA9ezwM6sQ8wOLLnqRFSlyKbFw4fNxUVFn4kjisSRxAhI/bihU
|
||||
6LBBlHhaZsWBl1dHxdExm7i4CSBxvV6cn6XCTzbEBBHGRbEYLSsViUTyvsi1QApWeFpvVaNlDeV03Gnl
|
||||
VOwpA/53QjlhOP7XcTWlT7s7zZBtf7ZY18Wusa4ziOkaoY9ziXceTiLv4ZTg1NnJ6NTOyehYwfGxZw5H
|
||||
1iw8M1tiFfnS8pTKSeTrSOQbyviaIPMtZf0Sd5b3Mx6sFJBwsmpgPGR+sbpF5FdrBieLfH4xr8S8np6s
|
||||
X+ch7MSer0niBisamWskvmvjn6xD8/usaum7rEKJi6xEkWMsMnI/i4o6mUACjytU6AQJ/QSJ/HisReJ7
|
||||
DeHhWw2ixFObFff17a04O/tB4pMJ7eKmXi/Oz1KJIMSTDfnGH1mpSCSfOLqftAUkQfRu0buFctZ4Vjmb
|
||||
cFY5E3/GInUSOlL6xO8mGjwOehhcl7oaXOeQyGcTMwWhT3KNcxlNMu/lHO/0Gcm8E0Eyz1gvY1KG8Awv
|
||||
KubxYBNLe7Kl5VSRv1xb2jeJUrkJMt9c1jdxazk/464KfgmHKgXGn6oaFHeuWlDcJavI91X0j+8Zkv1x
|
||||
zbLV2MJp6wSBi6RM5Vzmy+f+zprX/YlVifmaJH6elY0+xsoUPciiC+1lBQseeFqo0PF4gmR+lDgcSxKP
|
||||
tUh8LbHakBaJ+/sPVlxd80Piswm9xU3xxh+xF8eoITZn8bNUtBt/ZKUikXzC6H7SHvSM6zW5l3Iu8ZyK
|
||||
Vugjvhth8DjkYXBb4WZwm+9mcJ1HQp9rFToS+jQS+XiXOOf+znHOPZ3jnbuQ0DuSzNsTbZyMGYpneFrI
|
||||
14X1L5SDLS/l8wIiX1fa1wSZbyzjm7ilnK9xWzm/hN0V/OOPVA6Mg8zPVw+OnRCVK6mAfwAb2G2YJoVr
|
||||
UVREmU8e8RurX/VHVqnUTVa++BlWLvooK1PkACtdZC+LKbyHFY7chWT+uFChI/GRkYfiIiL2xJHEY0ni
|
||||
BCS+whASssSgJ29OQMBIxd29ICSOY4FFiYuLmzjVkPfiOLhMPBBLHDXEBJHc+CORSFR0P2kPepaM/WKs
|
||||
ct50XiWF0Ik+3/ZRPA54KG7LSOQLrYhCp3TuMtEl1nkQibwv0Z1k3pXo7JygCt1StTzyy5KRdcqb7TlE
|
||||
Tpggc0rliZvK+hq3lvNN2FbOPx636M8s6pXU0D/zs2a1m7GV83dYRa0ncBGLxC8dV9iAbr+wmuVJ4iWv
|
||||
sfLFTpHEj6gSL0MSL00SByWjdrGogtspme95GBGxKz48fHMcCTwuNHRVLEk81iLxRVbelzjOULEeS7uc
|
||||
0E6oiIub/No2LG7yeXF+IBZ6cTlqKJFI3kP3k/agZ/eCgwuSRS4Cobf/pr3ivt9dcfvCTXFbQnCZc6HP
|
||||
dTW4TCaRD3OOpVQe69xLTeZxzp9Z0zmqlg5OCen90idlypj+afPAzClEvpFEvrmsb8KsaE9Ts4AsT8sX
|
||||
K8smj5zHrp/5U5Vz2kRuYJuW/8E6NP2ZVS9zl1UqcYlVKHaClS16iAS+P4XESxfezWKidrDoyC0svMBa
|
||||
VqDA+sTQ0NXxoaErSeTL40jUsSRwoCvy4OBJSubMJSFx8QwVcUKF3/YjLm7icDJxXtxeLy4rFYnkE0f3
|
||||
k/ag58rW21t1RQ4afNlAcd9tFflSq8y50BdYZf45yXyki4FSeSyl8ljn3gRk3oOwpPN4EnkC/V6YsT5X
|
||||
2zeTaXEJb9P60r6Jc4t7JrUOzvI0Kn84G9RzNDu887bacaMi4XVJajL/fMRvrEmNn1i1mC9J4udI4sdZ
|
||||
+eiDJPJ9uhIvVWgLKxG5jhUKW87y5VvAQkK+SAgJWR5P4iaRqxIXRP5O5sHBn5PEYyBx8QZ8LnFxQoXf
|
||||
9iOeo8IXN8V5cb1eXKZxieQTR/eTtqDHJ7dvbrUP15M4KH+jvOK+QxA5BzJf7Ka4znc1uE62iNxlKDGQ
|
||||
hN6PRN4nZTpPnyN9PP1+84nxxOFSOV2T6vtlehoaEMR6dBjAtq89k2LiBIuWqcn84La/WK8Ov7CaZX9k
|
||||
VUpdY5WKn2EVix1h5YoeJPaxsiTxMkUsAi9deBdJfDtJfDNJfC0rFrGMRYcvYuEh8yHzJ/nyLYwH+fMv
|
||||
1JU5JJ4lS2lIfAPRldCTOE401JtQ4Zt+9BY3ZS8ukUhSoPtJW9ATU7hMYV2BcwpeLqi4byWRryBxL7Mi
|
||||
yNx1gaviOslVcRlFEh9GDLLKHDULhI50Tsk8nVu6OPr9cPEDbvjf5+0d+KJty15s3Yqj6qYdjn2Zv5P4
|
||||
zPG/seZ17rPqpb9hlUteJIGfYBWiD7HyRQ8Q+1g5knhZkniZIrsJSHwbSXwTSXw1CXyJKvGiBeazqNDZ
|
||||
LCTvNJY379yHtmQeHDzRQEncQF/3RqIbwdO4LYnjwg4+oSIubvJNP3xxU/biEonkPXQ/aQt6WtVpW0dX
|
||||
4OBYwjEl4HyA4raJpL3cKnERiHw+SXyCi+IymhhODCGRD04pdKf2TrH0e/1OHAkKCn3UocOQR2vWnHt0
|
||||
9mzcc5yFgm30eiLnMhdT+b5NlhReq9yPrGrMNVa5BFL4UavE9ydLvBxJvCxJvGyRnZTGIfGNrETBVSTw
|
||||
xckSLxI2mxUOncEK5p/O8uaZRsl8XuI7kVtkHhQ0LjZz5pKQ+CaiO9GFgMjFg7D4rLg4Zojr9rQTKnLT
|
||||
j0QiSRXdT9qCnjE9JvTQlThY89caJfuZ7IrbepK2nsgplbvOs4p8DDGCGJpC5rEu/VySnOo5PXdz83hV
|
||||
oULdh1u23HqIc084587FPxNlrhW5KnOryCcO/dXShZf+mlUpeUE3hUPgFkjihXew0pTEYwqtJ4mvZMVI
|
||||
4sXCF7LoAvOSJc4pkI9knnfW03z5FiRwmQcEjIjz8CiKH0JI4r0ILnJUKpgVx5ihKHF+LC3ffo8TDbUT
|
||||
KrqLm0DveySRSD49dD9pC3rWTtk0RVfiYOLPExWP4x6K21qStlbk1nrFda5G5MOIwS4JLv1dHrn2dmWZ
|
||||
+2dmWWtnZ9HRFV4OHz4viQv88uWHSZzz5xOecpnriXzp7N9Z+yb3WfUy37Mqpa5au/CjJO+D76VwCLxc
|
||||
kV0k8e2sTNQWkvhaVrLgclacUnh0gQWqxIuGzWJFBImDKCJUrVjmPILM/f0Hxru7R6AOQhLvR/QmcEkE
|
||||
0jifUBEPwoLE+aw4HzPE9nucaKg3oSJ7cYlEoovuJ/WARNJnSK9svLFRV+Kgy7ddFPcD7orbao3EuchR
|
||||
rcyyinykSzwl8IfO/Z2fewzIxLINzcFyj/Rm3mP8Wa6q3qxatabPR45cqIpclPiVK49MADf6QOZXBZlv
|
||||
W/OHek5KzfL3WOVSN1lF60TK+ylclPhOVeKlozaSxNewEhFLiMUkciTxuSTwmarEOaLMC4ZMZ/nyTGM+
|
||||
Pt1Nrq75sDgLiQ8jBhA4DIuLHGkclQrf8MMlLs6K60lcTqhIJJJU0f2kHvRE5IvMpytwTrVb1Syjh6s0
|
||||
EreK3HW+a4LrJNeHzsOdn7sP9mBZhmRjOUd6Mu9x/sxnfADzGUeMDWC5SnizZs26Px01avF7AgdXrz5O
|
||||
BFzmB3b8xQb2+IXVq/IjqxxzmwR+kZUvdoKVI4GXI4FjIkU/he9gZQpvJYmvZ6UiV7KSqsQXkcTns2IF
|
||||
ZrPosBmUxt9JXCtyEODdijk7+zyj1wd1ylgCB2HhBnwuctQqSONY3KxH6G34EWfFxTFDPqEie3GJRGIT
|
||||
3U/qQU/T6i2q6wqco06sbLOOHkLeS9zi3Ba6mVznuT6hJP7SYwYl74k5WM4JJO8JfhZ5ayGZ5wz1Yp99
|
||||
NubxmDFL3xM5l/i1a0+NR48+Nvbt+9eT6lXusUrqGSkQ+LvdmZgLV9F04WoKL7KdJL5ZrVJKFVxKEl/M
|
||||
SlAKLxE+jxVXJT5TRStyUeZ5vBqybK7ZmbeL4xN6fTDzPoEYSQwm+hKYWEGtgjSOSgWz4nzDDz/NUEpc
|
||||
IpH8V+h+Ug961DNW9AQODsYfVLxOecW7rSFxL3B97Drb9YXHbA+WdX42lmNRbua5zJf5Lg1kPjNI1p8T
|
||||
EwV5C3gP9mfZvTzZsGHzHo4bt0JX4ocOPTYOGJBgrFnTkFCq1L8SoqNvPCle5CQrSwIvW/QgSZxv7MFc
|
||||
uGWsEBMp6oJmEaTwbZTCN7CYyFVqCrdIfAEJfC4rFjaLmKliS+ZR+SewwNxVWFYnZ9YoINPjqt7uD90y
|
||||
pH9IrxEOwxpNDCGQyLHQiVoFaRyVCsYMMSuut2tTb1ZcSlwikaSK7if1oGfHvH3zVGmfTTgbdyr2lPH4
|
||||
g+NJR/84+vjQr4eej785nmXek4VlXUHiXpyLxO3DfFYGML9VQcxvpQXfxSTyaSTsycSElALneHX2Y4UK
|
||||
lXw1duzypPHjv0gWOQS+bVtSYq9e8cZq1RRjqVK/JRQvfiehaNHrCUWKXEgoVOjo0+hC2p2ZmAu3zIZj
|
||||
rFBd0KQUXlpN4cveS+Fc4HoiL2qVeHjwIOaXvTgrnsP1RevgzI865s36sGO+rEmFsrok0Wt0lBhDIJFz
|
||||
kWNSBd04tt+jF8eYofaWHy5x8SAsKXGJRJIm8EAaEAje1mOxDSNwkA26XFQCGKOb6xXo9Wzrl1tfHPz5
|
||||
4KsD9w+wQ78cZkf/dYyd+OMUO/XgLOvxdW/mdyiY+W0gaa8mIHAOJL4ikPkusIp80vsC53g28GUVKtR9
|
||||
MXbsChL5SlXiixcbTR06xCZWqqQYS5a8byxW7GsS+DUS+MX4woXPxkdFnSZOJBQsuP9ZdCHsyny3xR47
|
||||
NEuri5lbSeDowu2ncC2izEP9OzGvLCGsgqf7804kcBWSeGeiWVDmJC9XR8h8GQGRY2oFm4DwGqIbx7w4
|
||||
tt+jF9e75UcrcTlmKJFI0oSDo2NGxdXVXcmSJYfi5eWv5M0brkRFxSjlytVR6tZtp7RrN0ipU6dNUq0W
|
||||
ddlp5Tw7F3uRXUi48h61r9dnfntJ5Os0EuciX04in0sin0rCtlGrgFzlvFnDhp2fDRmyPKlhwxVJjRop
|
||||
ptKl/zQVL/5dYrFit4xFi14hgZ9PsAj8FHEyvlChk7j0gT4eMxaM2MmKF4K8LeekWHZobiSBr2YlCy5V
|
||||
J1LspXA9IPJ83g1ZLrfcrLavx1MS90PQhQQOuhLd8mVLqpDbHSI/T0Dk+AGITUCYG8e4IW7Ax85NnKHC
|
||||
b/nBrLj2SFopcYlE8m/hcPv2ayU1OnUa/mTIrBG6AucUuVic+e0gka99X+KqyNGPzyJZ2+nHQZYQL1a4
|
||||
8ODHERELk/LmXZBE6dtE6TuxcOELxBkjpW/c1iMIXJV4MpGRh0yFCm4nmW9lpaI2s5KRa1nxiBWseDhG
|
||||
CjGRknoKF4nKN5wF5SrHsjk5snbBWR93y5/tYdf8WR92y0/yzp+NBG6ReI8QCyGZnUwkYJx0iM1AOKYW
|
||||
h2JhkZN340jj/AwVfnGyuGtTSlwikfxbpEnkMTHVX648uVZX4OCLf61hgWfyMr+tJO01gsS5yL8Q+nEd
|
||||
kece7c+yDfNnmbr6sYxuuVhQ0PiHwcGTk4KDJyVR8jaRuBNJ3CTxEyDBkr7fCZz+Hu7RjMXtPZGRh+Mi
|
||||
InY+jAxfy6Ij+O5My+aeYgXmWccK9aWtJTygE/PNGsZq+Hg8HxiW4+GAAtkf9gklYZPARXqSwHuHZk/q
|
||||
G5bd1Mg/s8klQ7pEEjFmybHQiSNqMTeOWgW7N9GNo8LC9nvt4qaUuEQi+bdJVeRr114wlqlagZ2Pv6wr
|
||||
cdD37kDmd4TS+EaStl4/jlpF6Me9xwWwXKMs8s48mAQ+yI95DPRlrvW9WKZMxV4GBIxMCgwEY5IKFTpm
|
||||
IhILFTpuJEjiKiRyLnF+h+aR2MjIg7EFC+7BFWxxISErHkeEYlMP350527JoSYgiL14gpbxB0ZCJLJ9X
|
||||
LZbbLTtrFZTl6bDwHA+HRuR4OCQ8R9KAsOwkbYjbIu8+EDjRv0B206DwHInDInImFsvpaiQZryH4Qif6
|
||||
ccyN48o2TKrwm34gcnH7vZS4RCL5t0lV5IMGzXrYZVgPXYFzql2rxfz2WftxUeS8VlkWyLxmBbAc4/1Z
|
||||
1uFWeQ+0yNtjoI8Vb+ZSKhfLlq3KC3//IUkBAcNUmUdGHiGRH7WK/JhV4pb7M98J/JB6h2ZExPbYAgXW
|
||||
x4aFrSFWxeXPv+BZRMhsxndnYvKEi5zLHCIXZR4R2J35Zy/CKnm5vSBRPx4ekfMhGBmRI4k+Jg2jjwPD
|
||||
SdyQNzGwQA4I3DQkIkfi8II5E0cXzG3skjdrQjanDDhPHZMrWOjEEbW4CR8iRz8uihy1CkSu7tzU+yZJ
|
||||
JBKJPVIVeY0aLZ7P2bFAV+DgZNxZFnE+KkU/7kvy9qIUnmtxIMtOSTzLzACWaSyJezgxmMvb+z2c8uRg
|
||||
uXI1f2IR+XAS+SiryI+QyI9ZRX6MJH5MrVAsCVwVuIEEbiCB84uQY0NClsfmz7/QiC30kSGW0cF3In8/
|
||||
lUeHTmT5vesyT/fcrGlg5mcjSN5gJMl7VEELoyMJ+jiCQDqnlG4CEPioyFzGMZG5jRMK5U6YFJU7oZKX
|
||||
O7bsoyvHAVmYH0cix9ghT+R85BCJnPfjMo1LJJJ/G7si37LlZkKxsqXYsV9P6Ur8fPwVNvneDOZ9NJjl
|
||||
WhPIciwJZNkg7vkBLPM8Yi4l79l+LNMUkvdIkvcwEvYgUd5eybh38WQZPbIzH5+eD9+JfHSSReLgKIn8
|
||||
cAKl7/iCBQ/EWSqUbUjggsBXGkjg1ouQLeeD58s3NwmHW2EnpipznXolIrArC8gexSp7ur/sGZrtsSrx
|
||||
gjkfQt5jQGSupPGFciVNICZGWT6OjcxpGhlJCZwYW0gVuHEiCXxqkdzx04t4xlNCj/NydcQhWlj0hMiR
|
||||
yHFMLW79QUfOJ1bQkXORy7lxiUTyb+Owe/cLZe/eF8q+fRbw6z17Xig7djxX2ref87Btv67stHKFnXpA
|
||||
6fuvy+zEn5fZ8d8vs6P/usyO/HaZ1TzXkmXZHMgyL/UneRNz/SzM8VXJNNOHZZpIEh9J4h7yTtxaXOvk
|
||||
ZpkyFXnp5zcwyd9/qCDyw4mRkQeAkdJ3Qnj4jvjw8C1xYWHrrBWKmsBFgYsglcflzTv7CY6dTSnyGepE
|
||||
Sl7Pqiy3WzbWKjjLMxL2w9HEGCRvAh/HkcQh7kkk8MmFcyVNK5LbNLVwbtO0wrkTJxbOlTipcG7j5MKe
|
||||
CZ8T00niM4t6xs+O9oqbV8wrrqZvJhxpu4oQFztDCMyQY2oFh2OJo4fqYqfeN0oikUhs4dCwYaIC6tdP
|
||||
VOrVS1Rq1zYqNWoYlSpVjEru3I1eTFg9nx3+9dI7frnIDqlcUMl3uCjLsobEvZDEPY/EPReQvOdY8JhO
|
||||
Ah9Lsh5ODE4pbxGXYujHqz739x9EIn+XyCMj9yVGROw2hodvTyhQYGMCLj5+d4M9KpRlgsD5pceiyJHK
|
||||
F8bjIojIkOmqxIuETmP5fZoxnyx5WXVv9xf9C+R4NJYETqlalfZ4awIHEPjnhXMnUdJOIkmbZhPzor0S
|
||||
5xfzMs6J9jROL+KVML2oZwJ9ngTuGT+XBL6guFfsouLesWMjc8f6uGXEJRPYGMRvAOJz5NgMJG7L5wue
|
||||
MpVLJJJ/C4dixb5UONHRt4lbxE2FRGmMLFmG7fn+JAn7vC4TvpzDsuz1Y5lWkLTnExA4BxKfRRKfQowi
|
||||
WQ8jBqWUt4iTfw7m6dnyiZ/fABI5UjlkPiQpPHxzIiVvI309qsRDQlbGh4YujyOBk6QXc2ELEk8hcpBc
|
||||
seCKthD/zswvexFWLIfLy1ZBWZ4MCc/xcGTBnA8h70lRuZMmq7xL4FNI4jNI3nMIknfiQmJpSW/jMmJp
|
||||
CZ8ESt4J9Pl4kjcJ3DtucQmv2CUlvWPpnzEsK+ljqOubCSLHbk9sCMLZ41jwxAgiP2OF3wAkU7lEIvmP
|
||||
cIiKOq3o4eXV+XG7Qb10Bc6pda45y7yFEvgSEve8lBJXRT6TJD6JGEmyHvq+vDluLXMzR8dszNe3T5Kv
|
||||
b2+BviZK3YmEMSRkhXpzPaXv5GvV3slalLi+zP39B8dmyVL2ibuTG3ZnPusTmv1h/7Ds6kghuvCJlL4h
|
||||
7emUvGcU8YS8KYHnTpoV7WmaG+1lgsCXlPBO/CLGx7g2xidhXYwviF9Zyid+aQnvOBJ3HIk7lgQfu7yU
|
||||
j2E5SXwFQane4OniiEuYcc0b3xSEUw/5dW58ekWmcolE8h+hK/KIiH2xWXP4s7l7vtAVOCfv4cIs81oS
|
||||
+UIbIldrFWIECVunVnEfYMGlfE6WOXOJlz4+3ZK8vbsm4aOPTw+it4nEnUhiNpKMk69Ug5it2BE5WGQI
|
||||
DBxlyJ69hiFjxpzoq/d6ZEz/qIF/pof9wjA6mD1pKIkckyhYxITE50R7Js0rpoIEblpAAl9MAl9eytu4
|
||||
miS+roxvwuayfglby/rFby3rG7+pjG/cmtI+satiOL6GlTE+BhI8UFaV8lVq+nhA5PMInEOOc2x4KueH
|
||||
Zmnv5ZSpXCKRpBldkQcGjk2q3KiBrrw5Q29OYln26NQqYhrX1Cpc3BY8reRmGfNlZdmyVXvq7d2JRA66
|
||||
EJ9B5qZ8+RYYLfdivrsbMy0iDwwco+TIUVtxcvJGtbGFwPGyuIJtTVhmpySIfDBJfHhEDkygqDXKbErh
|
||||
i4p7mZaW9DItL+kNElcQJGbjutK+CRtJ4lvL+sfvKO8fv7eCf5xKRf9Yknrs+tK+hrVWSPgGkruyOsZX
|
||||
ZXTBXErmjOkhc2wOwqInT+W4n1OmcolE8l+hK/Ls2Ws/GzZ/sq7AOeVP1WGZN9mpVWaQxCd6M/eRJO2h
|
||||
orgt8ua4tcvFHN2zsNy5Wzz08mqX5OXVPsnTsyN97EIi7y6IfGG8RuRWiacUeUDAKHz9EDjEyQWOEcAe
|
||||
BA6ywqmEp2v4eKibe0aRxMdTGp9GaXweJfBlJPA1MT6J60r7JG4o42vcUNbXuLEsBO6XsKOcf/zuCv7x
|
||||
ByoGxB2uHBh3tHJA7KFKAbEkdMOWsn4GSueG9QRJXyGhK2sIiHwNUcHTHV/PFAKpHF05RhFlKpdIJP81
|
||||
74kc4ixUqgzb8fVRXYGDjff2Mt+DYSzzahu1ymyS+FSS9xiS9nBi8DtxW8iVjEul7MzDI/Jl7tytSOCt
|
||||
CcgcqbybycenV6IocovE9ftxf//BSrZsVZWMGXNBmLg7Ezf14L5MDs4G70rg1p4ZAR4Zk/qGZksaVyhX
|
||||
0udRuUyziniaFhX3TlxVyidxSzk/4/byfsZdFfwSwE5K4LtI4PtJ4AcrBZDAA2NPVAmMPWnBQH9t2EMy
|
||||
31rOV9lU1k/ZUMZPIaFbZG4Veb+wHPi6jhDi5RIylUskkv+a90Tu6dn2SdfRA3QEfi6Zdpd7sSw7/Vim
|
||||
5STt+d4kbyuzvVQ8Zngyj8kk8BEk7aHEoHfi1uIUkpVlyVLhmacnRN6GaC+IvLeOyFPWKpTalSxZyigZ
|
||||
MmSCKNcRQwmM+3FwZyauW8ORshx8bldVL3fT5KjcpplFcieiC0eVsr6Mj5HEbTxUOSABHK4UGE/yjqfk
|
||||
HXeEUjgEfqpqUOyZakGGc9WDDefo4+mqgQb6ZxVK7MrWcn5Wmfu+J/OobC74GvH1yVQukUj+Z5DIT5LA
|
||||
wQklLGxlfHBYIbbi9JYU4n7HWXbw57Ms4mgJlnk9iXsxiXseMcfTwmwLHtNyM4/xJPARJOvB78ub49om
|
||||
B3N0z8xy5Wr8yCLytkQHEnlnEnl3k69vH4j8vX48OHhSbO7cLQ3u7gXRf58lMN6H/pvLG7KGvHGMLKZF
|
||||
cPlxSwFc9jDA08XRNDA8R+K8aE91pHBNaR/j9nJ+CQcr+SecqBIUf7ZaUDyJOu50tcC4U1Uh8MDY0yRx
|
||||
yPs8SfxiDaI6fh2kkOCVvRX8FUryyTLXirx9nqwQOeoemcolEsn/DIeIiB0KCA/fruTO3fpRq75dSdZn
|
||||
bDLi1mSWZa8Py/wFCXwBiXuuRuIzSOJTSOKjSNbDCDtp3Ll8NubhEfWSpEwC57VKR5J4V0rjPUjkfa0i
|
||||
t0jc17d3XLZslWOtC5iHiDkEKhOevCFwLm+cPAhhNydwuQPuzcQFyADnn4CV1bzdjZD4qhifhM1lfRP2
|
||||
VAiIP1Y5MJ7kHHetVh4iOPZKzeDYCzWCY+lzFoETl0jil2sGK5drBCn0a+UsyfwwpXJK8ylSOfpyLvJZ
|
||||
Rb0UX7eMkDm+Xp7KbU2wyLlyiUSSJhzCwtZQEl+j5M07I843OIQtOLBKV+AHfz6tUuZENZZpE0l8CYl7
|
||||
nlXihAckPpskPp2YaE3jQ4mBKeUtkjE4C8uatfJTT0+IXFur9Er08+tv9PcflpAzZ4N4N7cCceQzjBBu
|
||||
JsYRWMDkEofAcfa3KPBmBC514OLGLT01CdydCXCVXZtczhkSxhXKlbCxtJ86jXKwYkD8GUrhJO+4r+rk
|
||||
jf2mbt5Y+mi4USvYQJ+DvA2XSeJXSeJXa+axEqxQOldOVg1UdiOVk8i3kMg3WusVLnJQ490oIlI5Jlj4
|
||||
bfr86je9w7TkqYgSicQmDiEhKxSQO3fzR017dEgWth7z7qxgnvuDWaaVJO0FJOy5xBwCAgczCaTxMSTq
|
||||
4YS9WqVxDpYhQyZ1WuVdP26pVXLmbGrKmrV8oqtrPmP69G44DhaXGi8mcFkDjoblEkcK5wJHZcLTNy5z
|
||||
gLzrErUISBtnglckkISxXR7VBkQ6q55fJpK4nzqNcqxKYByl7tibtfPE3q2XN/aH+vkM39XPayChG+hz
|
||||
BkroqrivkcCv18qjUGqnXyOZUyqvFqQcrBSg0L/LZr0yODynks7BATLXXsaMw7Sw2xOHaSGV8zNYZL0i
|
||||
kUjs4oCJj6CgiXG+QfnZvL0rdAXOqX6mIcu0hSS+lIQ9j9CKHLXKpLSlcedi2VimTMWf81ole/aaSZky
|
||||
FUtydg40pUvnjOvSLhBI35OJ4cRAAhL/jMAUClI4776RvlGdYE4bAq9DIH1D4DgLHMKEuHECIc47QTeN
|
||||
JIyLkGt6uWaImx/tpU6jnKkWGEupO/ZrEvc9kvivjUKI/Pi18k3dPMqt2haBgxvWjwByv1A9SKEfBGq9
|
||||
ss1GvQIisjpD5EMIfG0xBL4WXHrND9PiV8DxVC7rFYlEYhNV5DlzNnzUoncnXXlzVn6/mfkdCGGZ1pDI
|
||||
F5GwIXJR4rOIqcTY1Bc53brkZI65MjEPjyKP3d3DkjJmzJlEnsLFxZeJ3cQCYiqBCmUEMYjoSyCJQ+JY
|
||||
yOQJnNcnuMAB9Qnux8Rpg0jfSN4QJVIvZIkpERxaBWni7kyA0wintg7KGnu6WlDshRpBao1yp24+w08N
|
||||
8hv+aBxi+LNJiEJCV76vl08hwSs3SOaQOEdN5tZUfqpqoLK3Ysp6RSvy5oFZIHJM2OAHjXiYFs4q59fA
|
||||
8SNu5aKnRCKxi0Ng4Oj44AIRbPGRNboC59Q/15Jl3ubFPJaTrOcTeml8Mkl8JMkaaVyzyOnWPweRlbn2
|
||||
y8wyVnJh6dI5viQxfUvg1vldBCZPIHAsYELiE4lRBJIrJM6TOKoUSBwC5/UJT9/onXE4FeTI0zcEjuoC
|
||||
PTQWFXHyIJIvFhdRZeBjxUB3J8Pmsn5qD367Th7Dd/XyGn5ukF+BxJWmocqfjUOU+w3zK9/Wy6vcJpHf
|
||||
FGQupvJzlMoP6dQrosgnFMqtuDuqOz3xLgI/cPC14ohbfjEzFj1xxK14MbNM5RKJRBeH7NlrP+44rJeu
|
||||
vDlrvt/GAg6GsUxrKY0vJmHbSuPjLGncbQiknY2knYXIxFz6ujHnPi7MuZ/zS+f+zs/TB6d/QlI6QeCs
|
||||
7hXEUmIhMZeYTkwixhCQOMYKkcTRh2MhEzUKEjgELqZv1CfovDEJEk1AjDx9o3/m8vYlUF9Alki++Ii/
|
||||
ntEnLDul8TyGr+vkUX6on1f5mcT9oEmoEt8sVIkjKJ3T5/MpX9XJm0LkXOZI5Vj0PK6pV7Q9OYjO7gqR
|
||||
48+Irx8/ePA1hxN2RxH1vokSieTTxiGqdAxbe3G7rsA5ahrfTml8BclaTOOzchEk7elZmdukLMxluAdz
|
||||
GUzS7q9K+xVJ+4XzAOdnLgNdHrsMcnlIJDk1dEKF8j3xBbGcECU+g0Anjm312DiDJI6dmOjDIXEkWFQo
|
||||
EDgWL5G+xe6b1ycQItItqgoIHMkbEyGQNgSJtAuwqIiPmBSpWSS7i3KhRpByp25eBZ34r41I5JTGjc3D
|
||||
lETCQL+G3PH30ZXriRz1yulqQco+oV7R68lbB6v1CtYA8GfhR9zqbRCSi54SicQuDgNmjCRZn0rmwP2T
|
||||
Vk4Qx9myu2uYz/4g5rGaZL0wM3ObnYm5zfRgrjPcmOtM1zfEK5dpLi9cxrs8dxnh8tRlGEl7sEXaemSI
|
||||
zACRnyS4xHmdgiQOiSOlQuJI4qhT0IdjnBALmejAkWC5wLXpm9cnSLWoKNA3I21jEgSyhhiRclFZYFYb
|
||||
QJT4a/y9VdOLeCrf1sun/Nggn/IbiRy1CkT+sEWYkkCp/HdK5ejKv6TUbqtewQYhzJTzekVvDHFSVHK9
|
||||
gncYtkYR5aKnRCJJFYc93+95u+/HfSr7f9r/Bhy4f+D1wZ8PvgJVz1R96b7N/YXrctfnrgtdn7rOd33i
|
||||
Os/1sdt8t4dEkusc1yTXaa5JLmNJ1COJoSnFLeLUysmUzi0dJlJwKfEiYj4hSlybxCFxjBOiC0cHjgoF
|
||||
AsfiJSZPePctpm+kWVQTvDqBDLnAIW5UFeidkXJRWeAjRIm/16aObya1PvnJKvIHTULUNP6IRA6ZQ+z4
|
||||
e99QKrdVr2CDEK9XbPXkoLBlyz5+cOHPhmpIXPREBYSvX9YrEonELg7HHxxPssWce3OSch/LneS+0T3J
|
||||
bYVbktsiYgFBAlclPpckPpOYTCIfTbIeQQxxMVEi18WxuCMkfprgVcosgi9scoljxBCHW2E2HBLnKRyi
|
||||
w030GBm01X1r6xNMfiDRInVD1lzefKMNPnLw931x3CwqkfsN8qcQ+ZOWBZSnrQqo6Ryf54ueWpEDXq/s
|
||||
sW4O2mytV7Q9uXV6ZT2BxVrtoievV/DnkDs9JRKJTRxOKCdMtihzoYzJfZe7yW21m8ltKbGIWEgssEAi
|
||||
N1EaN1EaN7mMIoalFLdAonMH58R0WdMlkoSwwDmbQB+OY13HEzipECOGkDgmUzAfjk09kDgEh9oBFQq2
|
||||
s4vpG9UJl7c2fUPgSLJc4FzYEDhkiL4Z4Nf4HASPf35M/7DsahfOqxWIHBJ/0bqAmswhd6R2bb3CZc7r
|
||||
Fb45yNYY4qiCufjmICzc4ocV3m3gz2lvp6cUuUQiSYFNkQ+7M8yU5UgWE6Vxk9tyEvdijcTnkcRnEpNd
|
||||
E13GuCRSGk+kNJ4IaevhWNrRSAJCN44aBQLHZArmxLHZBzs2exKQOBY10Ydj5yN2YSKFI6ViAZMncAic
|
||||
yxuiQ2rl8kb65vWJmL5FgZM/LTK0/hqfxz+H/5uKxXK4Kt/Vy6f8q5Fl9JCL/FXrcFXm6Mohenv1CqZX
|
||||
+OYge/VKvkxOEDn+/PzPK+70tDlTrv1GSiSSTxeHk4aTiXpEnI1IdN/hnui2yi3RbQmxiFhILLDgOsc1
|
||||
kdJ4IqXxRErjiZTGIXKjHs6dnY3pcqaDyJcQqFGQwjEjPozoT2C8EJMpmA9HHw6pYSSPX4uGFA6B89FB
|
||||
sToRu2+9+kRM38kCT34BLJ/D3xNT+ZZVMT7qwiYmVUwk8mck8jdtwlWQyjGKiHpFb3qF1yvYHLRLM4ao
|
||||
FXkNb/XsFawX4CgBvtMT9RH+zOJMuVivqH8W8c8hkUg+XRxOxZ4yaml5u6XR44iHkdK4kdK4kURuJJEb
|
||||
SeQqrvNdja6zicmuRhK50WUkMdQq7qEuCVocyzjivBRcqgCBowtHCue7NTGZAoljegMS53PVfOEPyRR9
|
||||
MWoGpFNUJxC4PXnrpm9bWP8ZMZX37Zovm/JXkxAl1iry5xB52wjlTftINZXj8xhRRL0iipzLHPUKzl7Z
|
||||
XzHAbk/eIyQ7RH6QwLEC4kw56hU+Uy7rFYlEYhOH03GnE0SW/rY0weeUTwKl8QS31W4JbsuIJcRiYhGx
|
||||
0C3Bda5rAqXxBJJ4gstoYkRKcRPxHOeOzvGUxuNJPJhOgcCxoIkqAdeuYVETkynYas8ljp4YEyl8egP1
|
||||
AsYH0X9D4HoLl1zgdtO3Laz/rJjKixfM6qzca5Bf3QiURAkc8n7TtqDypmNhVeiQe2r1Cs5eOWIdQ7TV
|
||||
k88s6qV4WMYQUSnJekUikfzbOJyJT/m/0ldKx7vvd493W+8W7/YFsZRYQiy24LrANd51lmu8yyQS9Vhi
|
||||
5Dtpp2CYSxxwLOUYR9LB+SnYpYkUjvlwSBynF2K7PSSOTT783BFIHH04ttJziaFa4PPUeguXaU7ftrD+
|
||||
3+Lfh38vfp/NSNDowzF2qIqc0vibTkVVmaNqSUu9Io4h6okcFMyqjiFiwZfXK5hekfWKRCJJEw5nE87G
|
||||
cbrd6RaX6XimePfNJPLVJO5lqsjjSOAqrgtd4yiNx7lOdY1zGUeiHkOMsAhbD6e2TnHpsqpniKMXh8Ax
|
||||
lYJLkCFxXAAhJnFep3CJow9HEuc1Cl+8/I+Ttz2s/x78+yBJyHJAn9Ds6kLn45YFlNfox5HGu5ZQ3nQp
|
||||
rqZy1CuYXtGOIXKZX6FUjjHE1Hryur7qNXXYIMXrFVvTK3JzkEQieY9kka/6fVVc0LmgOPdd7nFua0nc
|
||||
ywlIfIkg8nkk8Rkk8Qkk6rHEKJdYErZNMkRngMQ3EhA4Ujg/vZAncb6wiToBEtfWCejDUaVA4lxe/zN5
|
||||
a7H+u3m9UrZETtfkGfJkkXcrqbzpXpp+XUStXFCv2Dt7BYdoiT25nsh7WXpyrCGIrwevV+xtDpIil0gk
|
||||
JHLj2VhQ5mqZWI9DHrHum9xj3Va6xZLIY0nksSRyFUrjsa5ziCmusS7jSdRjiBEpxZ3McBeDU1MnQzqX
|
||||
dLiSbTCB0ULs1OQSx5Z7HHzFzxnBiKGtK89SSFzvD/G/gh78gMDvg98Pv+9h3PqTPLGCWgUS71VOFTrq
|
||||
Fky2pDaGyLfr83NXtAueOBbAOX06yBw/3PjmILwmOHsFx+yKrwl+sMmeXCKRJONwLvGcof2d9gaPkx4G
|
||||
923uBrc1bga3FcQyYimxxM3gusjV4DqfmO5qIIkbKI0bKI0bIGxdhroYMhTIAInjVh+kcCxq4ko21CkY
|
||||
MYTEISxbFyuInfj/sxoBvwchpvIp04t6vlvo7FJMedOzrPKmbyWLzNtFquOJmDnX9uRc5rwnF89d0Yoc
|
||||
5LXMk+OHHuoVHAiGekX7uvCzV/gPN/Xdid6fRSKRfDo4TP9lusHnrI/BfRdJfB2J+4uUEndbTCJfQBKf
|
||||
RRKfSJKGyEcL0tYhY82MkDhG6pDC+b2a4jniXFZ81E7sxf9Pb5LH70PwVN68eWBmS62ChU70470rKG8H
|
||||
VFfe9K+qih3TKzhgy1ZPjjFEzJOntuBZwdMdIsexBeLCL39ttEfbyp5cIpEk41DwckHF/YC74rbJTXFb
|
||||
RawglhFLLVAaV1znElNdFZcJLgqlccVlJDFcH+fPnJX0fuo43ecEv1cTSRzjdfwALPTA9o5u1VYq/89k
|
||||
hd+LwA8O/N4heTyclHiStdqPf1ZKTeNvB9ciaqvpHLXLL9aeXE/kqFcwT45zV+wteLYKUs9d2Urg9RGP
|
||||
tkXlZG8MUYpcIvnEcfA45qG4byWRr7FKfLkg8cUk8PnEDEHio1KKW4tjjCOEtIHgSRxz4jg7hV8IgRE7
|
||||
fmwrRg3FjS//p2mcY/09eb2y+0T1PMqbztHKmx5lKI1XU94Or6+8HdnQksrbRqhjiKnNkx+oZFnwtCVy
|
||||
XMpMv9dZAscTiGOIOJ5AryfHZI36+uj9GSQSyaeDg/sOkvg6EvcXVonzNL6ERL6AJD6LJD6JJD2eGJ1S
|
||||
2lqcmjkp6TzURTtsu4fEsWMTpxhicROVCg6H4ke28u33/5g0zsHvaf298TVMnlnc1zKtgloFaXx0E+Xt
|
||||
2ObK26F1VcFjDBHz5FqRc5mjJ+cbg2xNrsyJ9lKcM6ivHeoncQyR/7CTPblEItHFwW09SRuViihxXqnM
|
||||
IaaksVLp76xkCM0AEaHnhcTFSoVvv9cucHJB/WPSOMDvaf29IcqWbfPntEyroFYheasSn9RWeTummVqv
|
||||
YAwR8+S2FjwxT84XPPnkilbkIMA9I/8hKHtyiUSSZhxs9uLziOn/RqVSUa1UdhAYMdSmcRxJi5TJ5STO
|
||||
jOMaNjGN852L/6eCoofXK0WicrpbplX6V1XeDm+gvJ3QWnk7pZNF5gOqqeewYJ48rQueeiOIoHgO9R5P
|
||||
nAyp7cm18/XaH3hS5BLJJ4yDbi+OSmUmSXwiSXockVql0tJJSZdNrQVwjgpP43xKhS9wQkz88gRsP+dj
|
||||
deKZ2//naZyD35vADxOXDOnSKd+1Lam8HVTTUqt83kF5O7O78nZaV7Uvx2gizi63dYAWX/DEDk97I4jW
|
||||
HZ4rCb6WwHtyOU8ukUhs4mCzF59MkkYaH0OkVqmEqZXKPIKncb7AiQ0u/K5NPhvNqwLxQCxxAe8fURfg
|
||||
97d+Hfh61u9pUMSyyDm+lfJ2Rjfl7fx+ytu5fZW341qqY4i4bAILnlqRA77gickViBwLnnojiJ3yZsPr
|
||||
uIfg72DwmvG7PG2duyJFLpF84jikkPhCkvi/0YsDx/JqpbKN0KtUsMDJ+15sO+fjhlxK4uId73z/z9M4
|
||||
x/p14OsZP61CgXdpfG4f5e3SYRamdlZrl/hmocpdnckVgFSOHZ6YXOEjiHoiH2KZXDlPiAvDvCcXz12R
|
||||
C54SiSQZh+RKhc+LT0t7L+7UxElJl0mtVHCqYWoLnLbGDflc9D8mjXPwdRAQebvOhYMtaXx6V+XtwkEK
|
||||
WzlWYavGWVL5wOrqZRO4Xd/e5Aq26tsbQcRWffq97hDihdP8Uma+aUoueEokkhSoIn9vcTMNvbi68SdY
|
||||
3fiDq9v0KhVeD4gnG2LRThw35FvxebL8x6RxgK+DgCTLlQ/KbUnjs3sqb5eNVNi6zxW2YRql8uHqTDm2
|
||||
8WOHpy2RY3LlaGXL5IqtEcSVpXwUXP5Mvx9eT+2Cp3ZjkLimIEUukXzCOKgSx6YfvrjJ58VHvJO2Hhmi
|
||||
1V58NaFXqTQhUKnwHZz89vvUFjj/UULC10LgB0uAfxZ35eXUzsrbBQPUJM62zFLY9nkKWzNRnWLBgicm
|
||||
V2yNIKInP2EdQbQlchBoGUHEOxy9BU/8EMSUj7iuICdXJJJPHIecC7K/zjk7++sck7O9zjGJGJftVY7R
|
||||
xEhdXoKstTO/dHd3e9mgXpW7jRtW+4b4uknjGl82b1brVsvmdW60bVP/asf2jS5269LsXK/urU/369P+
|
||||
+NDBXQ6PGtFj/4SxffZ8PmnAjpnThm6dO2vExgXzRq9fNH/smiULx61aumj8F8sWT1i+fMnEpcQSYhGx
|
||||
kJhPzCPmELOJmcQMYhoxlficmExMJCYQ44gxxGhiJDGCGEYMJQYTg4gBRH+iL9GH6EX0JLoTnxFdiS70
|
||||
dXVeOG9M58yZPX7+fkz7pJdLhye9Wj816dXOhUmv9ixNerV5tunljO6ml11LmH5uEma6WS+/6VpdK3Xy
|
||||
J3Ku1M6XeLJGnsTtlQITt1QITFxfzt+4psz7FM7pbvT18VxdOKrA8GLRBQfElCrcs1zZYp2qVy3Til7v
|
||||
Ri2b167RuWOTSvSalh42pGuJSeP7FZ45fWjBBXNHh9PXG0qEEPmIvEQeIpgIIgKJAMKf8CV8CG/Ci/Ak
|
||||
chO5iJxEDiI7kY3ISmQhMlvJRHgQ7oQb4Uq4WHEmnIiMVhyJDFbSE+mA3v9HlEgk/zkOwUuDzUHzg8xB
|
||||
s4mZxFTic9sEdAsw+4T5mKdNm2Zes2aNee3ateb169ebN2/ebN6+fbt5z5495kOHDplPnjxpvnjxovnm
|
||||
zZvmO3fumH/66Sfz77//bo6NjTUnJiaaHz9+bH7+/Ln51atX5jdv3pgZY+a///6bvqZ/1oOvCV9fw4YN
|
||||
zZfG9zSzrbPNbP8XZnZii5md2WFmR9eb364eb34zvL5Z6VLGfLddKfNXbd7nduuS5kstSpgPNoo2721Q
|
||||
1LyzfhHztrrv0zAyj7l///5/79q16+3BgwffnDhx4g29jq/pdXz93Xffvf7ll19ePXjw4KXRaHzx6NGj
|
||||
5y9evHhGr+HTt2/fPqavFTwiHlpJIkxEImG0kkDEE3FELGEgFOIB8SfxB/E78S/iN+JX4hfiZ+I+8RPx
|
||||
I3GP+J74jl6mu8Qd4hvia+JLK7eIm8QN4hpxlbhMXCIuEheI88RZ4gxxijhJnCCOE8eII8Rh4hBxkNhP
|
||||
7CP2WNlF7CR2ENuILcRmKxuJ9VbWWFlFrCRWEMuJZcRSYjGxiFhAzCfmEnOI2cRMYgYxnZhKfG5lEjGR
|
||||
mECMI8YQo4mRVoYTQ60MJgYSA4j+RF+iD9HLSg+iO/EZ0ZXoTHQiOhIdiHZEW6K1lZZEc6IZ0ZRoQjQi
|
||||
GlipR9Ql6hC1iZpEDaI6UZWoQlQmKhEViPJEOaIsUYaIIUoRJawUJ6KJokQRojBRyEpBIoIIJwoQYUQo
|
||||
EULkJ/IReYk8RBARaCWA8CN8rfgQXlZyW8lF5CRyENmJbERWIouVzEQmwoNwt+JGuFpxseJkJSPhaCUD
|
||||
gYkvgIDxwYYMhxxTrUl8PDGG0E/iKtk/y/oyU5j7y9IxRX+jFI40fqdJo+rfNGtS88sWzWrfat2y7o12
|
||||
bRpcpcR4qXu3Fuf79Gp7emC/jseHD+l2ZOyoXvsnju+3Z+rkQTtnzRi2dd7skZsp6SKNr6PUu5qS+EpK
|
||||
ayuIf1Qip3cJnelr7BwQ4HN6U49mSa82zkh6tW950qsTm5Nend6R9OroetOrleNMLwdUNz1oHm76sn6I
|
||||
biK/SpypmTdxR6WgxK0VAxM32Ejk9QKyGnPkyLo/qlDYiKJFwgeXKF6od9nS0V2qVIppU7d2xcbNmtas
|
||||
1b5tw8o9u7cqN2RQl5Ljx/QpMm3K4EiZyCWSTxeH5CQ+LWXy1hI4NtDsV9nP/Nlnn5lXr16tpvF169aZ
|
||||
N27caN66dat5586d5v3795uPHj1qPnPmjPny5cvm27dvmylFmn/++Wfzn3/+aY6LizMnJSWZnzx5YqYk
|
||||
aX79+vU/Oo3jwddFadc8btw489Le7c3s4GozO7vT/Pe1Y+a/b502syuHzWz3EvPbye3Npu7lzN+3j9FN
|
||||
5F8S11qWMB+iRL6voe1E3qNEqLl58+Zsx44db/ft2/eWXs83Z8+efX39+vXXd+/efXX//v2X9Fq+pNfy
|
||||
Ob2Wz589e/aUEvkTeh0f0+soJnKkcZ7IgV4aB0jj4C9CTORI4wBpHGjT+A+EXiL/ikAav00gkSONXyds
|
||||
pfFzBNL4aUKbyI8SYho/QCCN7yX00riYyJHGNxDriLUE0vhqQi+NLyHEND6PQCJHGp9F8DQ+jZhC6KXx
|
||||
sQTSOE/kI4hhBE/jgwgkcqTxfgQSeW9CTOPdCKTxLgRP5DyNgzZEKwJpvAXBEzlP4w0JnsaBmMYBT+OA
|
||||
p/GKBE/k2jRekuBpvBghJvIogqdxnsjFNA60aTyYQCJHEgf+hJjGvQmkcU9CTOP2EjnSuJjI9dK4M6FN
|
||||
5EjjPJF/0GkcOKhJfKyaxDm6aTxLxUyvwgvkjW3cqPp3xLeUxO9SEv+mebNaX7VqUedW2zb1b3Rs3+ha
|
||||
187NLlFaPN+vT/vTQwZ2Pj5yePfD48b0PvD5xAF7pk8ZvHP2jOHb588ZtXnR/DEbFy8Yt54S71pK46so
|
||||
qf0jEznRid4xdCoWXXDDkEbVkl7tX5n06tT2pNdXjya9vnk66fWVw6ZXuxaZXo5tYTK1ijB908B2Ij9P
|
||||
iXxXZUsi32gjkXcLzWnMlMn9UqHI0FFFChcYXLxYZN+YUkW6Va5Yql2tmuWb0Wtft23r+lU/69qi3KAB
|
||||
nUqNGt69KBL5nJkjIuj1DKOvVyZyieQTwyFoun4CFwloHmD29vc2L1q0yG4vfuLECfP58+fNlB7NX3/9
|
||||
tfnevXvm3377zawoijkhIcH86NEjMyVItRdHGkfSpURHX8c/+8E7Brzr6Nesnpmd201J/JT572+vmv/+
|
||||
8Uv1Izu93fx2fn/z857lzffsJPIbrUqajzWxJPJdSOT13k/kY8qFmytXrvw3va5v9+7d++bIkSNvTp8+
|
||||
/frKlSuv6TV9+eOPP778/fffn8fGxj43mUzPntLz8uXLJ/R6IpEjjWsTOfpx3pHb68fFRK7tx8U0nqIf
|
||||
J76ll+gOfRT7cZ7GeT+ORH6FEBM5T+O8H0ci1+vHkca1/TgS+W6CJ/LtxFZCm8bRjSOR8zSOfvwLAolc
|
||||
m8YXEmIaRz+ONI5+nKdx3o9PJpDIeRrn/fgogqdx3o8PIcR+XC+NA3TjSOTaNN6eQDeONM67cZ7GeTfe
|
||||
mOBpvD7B+3Gk8VoE78erETyN6/XjSOOlCSRypHGeyMU0jm6cp/FIIi39uJjGeTcu9uPaNA5SS+O8G+dp
|
||||
HCCNaxM50jhAEtdL4zyR6wryQ8GB0raYxt9L5FkbZ37l4eX+qlrVMj9TClfTeNPGNe42b1rrm5bN63zV
|
||||
plW92+3bNrzRuWOTq927tbjcp1fb8wP7dTwzbEjX46NH9jwycVzfA1MnD9w7c9rQXZQaty+YO3rrovlj
|
||||
N1F63EBpfB2l8TWU0v7RiZy+zk51alWYVb9s8aRXZ3Ymvb5xMun1nSsW7l4xvTq9w/RyVk/Ti3aRpm8b
|
||||
huomcnCpVr7EfVWCkxP52rLvJ/KRkV5GN1eXO5EFQ0YVjiowNLpowX6lShbuXqFc8Q41qpdt3qBelXr0
|
||||
Dqh6l05NK/Tt3S5m+NBu0Z9PGlCIXl+ZyCWSTxQHvQTOCegeYPaN9DWPGTMmRS++adMm3V780qVL5lu3
|
||||
bpm//fZb8/37981//PGHOqVCyfGDmVLRe/B1Xrt2zVyvcjnz37fPmP++d8uSxjmU0NXJlb6Vzfc76Cdy
|
||||
cKt1SfOJpsXM++0k8jmVI81FihT5e8uWLW937979BpMrJ0+efE2v7evbt2+/+uGHH17Qu5zn9C7neWJi
|
||||
4tMnT54gkT8WErm2H7eXxu1NrOhNq6ToxolvAb1E39BH3o/rpXFMrGjTuDitwvvx/2ZaBYlcO60i9uP2
|
||||
plWQxsV+XEzj6MeRxnk/Lqbx8YTYj4tpXOzH9aZVkMh7EmIa5/04n1ZBGufTKrwfRxoHfFoFaZz342Ia
|
||||
Rz+ul8YxrYIkntq0CtI4unFxWgVpHPA0DngaB0jjSOI8jYvduJjI0Y2LaTy1fpyncZCWaRWexNMyrQJ0
|
||||
5fghYTORZ+uY5VWmUPdXpWOK/klJ/B7xPSXx7yiJ36Uk/k3rlnW/bt+2we1OHRrf6Nal2dVe3Vtf6t+3
|
||||
/fkhAzufHjm8+4lxY3of+XzigIPTpgzeO2vGsN3zZo/cvmj+GKTxLUsWjttISXw9pbO1xAeRyLt2bjYi
|
||||
KjRf0uvbZ96lcWsif33ztOnVitGml52LmX5oZDuRY5b8QFX7iXx6tLfR2dnpF0rkowtHhQ0rWiR8QMkS
|
||||
UT3Llo7uVK1K6Vb16lRqQN+DGvS6V+zds03poYO7FJs4vl8UEjm92ylAX69M5BLJJ4ZuIg8cGGj2jfE1
|
||||
9+nTJ0US37Bhg5mSonnHjh3mvXv3JvfiFy5cUHvxb775JrkXf/DggdqLP3z40Pz06VMzpcbkXvxDSuN4
|
||||
8LViBr5Y4UIpkziHEjrbPs/8ZlAt868d7SfyU80siXx3g6K6ifyLmlHm/Pnzq4mc3vG8OXDgwJvjx4+/
|
||||
ptf41c2bN19+9913L3755ZdnlMifGY3GZ48ePXry4sULJPJH9NqKiVybxoF2WgVJnKdxoJ0f15sdRyJH
|
||||
GueJXJ1WoY/aflxM45hYQRoH4rSK3vw40rh2WoWncZ7I0Y/zNG6rH9emcYA0LvbjfHZc24/z2XGxH9eb
|
||||
VkEi52kc/bheGrc1rcLTuDg7LqZx3o/rTauIs+PaflycHeeJHNMqSOTi7DifVrGVxrWz49ppFb1+3Nbs
|
||||
uDaNaxO5No0D3o2ndVqFJ3JxUoVPq4j9uJjIESo+imDxXiLP3ivrq8yFPV4Viy5oaNK4xo/EPUriP1AK
|
||||
/K5l89rftmpZ95u2bep/1aFdo9uUUm/07N7qat/e7S4OGtDp3PCh3c6MHd3rOCXEo1MnDzw4c/rQfXNm
|
||||
jthNSXEnJfFtixeM20LpdjOl8Q2UzD6YRE50HDuqVy+vXDlSpnGeyNGTb55letm9tOnHRmF2E/nhapZE
|
||||
vql8gG4iX1LK15gxo+ODghH5x0QVChtepHD4wOLFInuVKV20c+WKpVrXrlmhYbMmNWt2bN+oEr0LKkOv
|
||||
e3F691N42ueDsLtTJnKJ5BMkRSIPHBFo9qvkZ+7cuXNyEhcnVLZt26ZOqFBKNFNKNJ89e9Z85cqVFPPi
|
||||
9nrxD2VKRe/B7Hve4GD9RE5gvhy7O3/rVFo3jQPs7jydSiLfWKew2d/f/296vd/SO5839M7n9dGjR1+d
|
||||
P3/+1Y0bN15+++23aiL/66+/ntE7nqf0jucJvcaP6TVGItdOq4jdeFqmVcT5cVuJnPfjd61gYuVrQtuP
|
||||
i2kcEys8jQPttIrYjyONi/04ZseRyPnsOJ9W4Wlc7MfFaRWkcfCfTquIs+OYVuH9uJjGxd2cYiK3N63C
|
||||
d3OKaVzsx5HGxX5cb1qFz47zfjyt0yra3ZxiGtdOq+jNjov9uL00ru3HxWkVMY3zRC5Oq9jbzQnEaRXA
|
||||
0zifVAFiGhcTOZ9W+XgTefa+2V5nKZHpdeGosHhK4Pcp9f1E3KMk/gMl8e8piX9LSfxOh3YNv+rSqemt
|
||||
7t1a3ujTq+3Vgf06Xho2pOu50SN6nJ4wts+JKZMGHpkxdcih2TOG7583e+SeRfPHII3vWLJw3FZK41so
|
||||
jW+iVPbBJfK5s0d2dndztZ3I9y4zvexTwfRT4/8uka8q7W90dHSMRyKPLBgyonBUgUFI5KVjinapVLFk
|
||||
m1o1yzeid0nq7s4en7UsKxO5RCJRE3ngSEriVfzM7dq1M69atSpFEseECpL4rl27dCdU7t69q56j8q9/
|
||||
/ctsMBjMRqMxeV78Q+7FtQ/+DD4+PrppHLCTW81vRjX+rxP5VsLb2/tvet3f0Ov+mt4BvT5y5Mgres1f
|
||||
Xrt27cWdO3ee0zufZ3/++efTuLi4J0lJSU+ePn36iBL5Q3rXw7vx1KZVbKVxvfNVeBpHN877cXTjPI2r
|
||||
/TiBflw7rcLTOCZWxGkV7W5OW2nc1m5OvTS+ibDVj2unVZDG03K2ijaN82kVPj8u9uN6Z6ugH9emcW0/
|
||||
rp1WQTfOd3PyNM77cVtpXOzHkcb5bk69s1XEnZw8kfM0bu9slf9kdhyklsZtTauI/bjYjWvnx3k3zqdV
|
||||
eD/+yaRx4JC9jyWJRxUKS6Ak/gulcDWNN29W60dK4j+0bln3O0ri33Zo1+gbSuJfde/W4lbvnm2uD+jX
|
||||
4cqQQV0ujhze/RwlwtOfTxxwYtqUwUdnzRh2iNLrfkqHexcvGLt78YJxOyiJb6ckvoXS2Gbig0zk9K6i
|
||||
o7Ozk+1EfnS96WXfKmlO5LamVlYTlMgTKJGPpUQ+Eom8WHRk79IxRbpWrFCybc0a5Ro3blS9Nn1PKmN3
|
||||
J70jKjFmVM8iSORzZo7AeSsykUsknxgO6MTbt2+fnMSBmMT5rDilQvOpU6fUEw1v3Ljx3oRKfHz8B3eO
|
||||
yr/z4M8T4O+vm8YBO7+XEnnTNCdydY5cJ41vqVMEyf/vjRs3vtm6dSsS+avDhw+rifzq1asv6HV/fv/+
|
||||
fZ7In2oTOb3eYhoXE7ne7Lh2N6c4Py4mcr1plRT9OGGvH0ciF0861E6r8NlxvWkVsR9HGueJnKdxTKsg
|
||||
jQNbaRz9uF4a15tWEftxnsb5tIo4P440Lu7mFKdV0I/bO1sFiVzsx/luTluz43rTKuLZKtppFTGNi7s5
|
||||
+bQK0jg/WwVpXOzHkcbRjdvbzYk0DpDG/9NpFSRxe7PjYhrn8ETOd3LyNK6dH+dpnCdy7W7OjyqNA4fo
|
||||
ohEJlMB/bda05i/Ez5TEf2rZvM6PlMTvtW1d/7uO7RvdpST+DaW/ryiJ3+rft/31IQM7X6EkfnHc6N5n
|
||||
J0/of3rq5EEnZk0fdpQS4eH5c0YdWDR/zD5K4rspie+iJI40vo2S2AedyOndRrdsmTPbTuQnt6YpkR8S
|
||||
Erk2jYMVMX6YWomlRD7uXSIv2AfnrVSsUKJdzerlmjRqUK1Om1b1quglcnoXhBMQZSKXSD4hHLTTKdpd
|
||||
m5QG1bPF+az4V199Zf7+++/Nv/zyi3qiod6EysfSi4sPzlAPDw3VTeOAXdyfakf+3s5OTRoHa2tF/R0U
|
||||
FPT3hg0bXguJ/OXp06dfXLly5fnXX3/9/Keffnr2xx9/8I78Mb0LQiJPokRu0iRye9MqfHZc24+Luznv
|
||||
07+P9+Pibk6kcd6NI41/SSCR835cm8YxsSLOjvNu/L+dVuGz4zyN6+3m5NMqSOT2plV4Gtf249qzVbTT
|
||||
KtqzVcTZcb2zVbS7OcU0ntrZKtrdnOK0CtK4vd2cYj+ObhyI0yq8H9dOq2jTuHjSoZjGgV4aFxO5dnYc
|
||||
iNMq9mbHkcTF3ZzaRK7Xj4tz4xyexj+uRN68aa3fiF9aNKv9c6sWde5T0vuxbZv6P3Tq0Pg7SuJ3u3dr
|
||||
8Q0l8S8pid+kJH59xLDPLo8d3evCpPH9zk2dPPD0zOlDT1ASPEpJ/DAl8YOUCPdTEt9L7KYkvpMS2Hbi
|
||||
g0/kgwZ0GpA3wM92Ij+1TZ1asTdHflnY2WnrPPJ5JXwokWf8PS2JvGvnpmoip3dHMpFLJJ8wDtrpFL0k
|
||||
jnNGeBIXZ8WRUrUTKh9TLy4+P/zwg7liTCndNA7URD6snt2dnTdblTQfb1LM5nnkW+sW/ntR1ci/IyIi
|
||||
3kvkp06denn58mUk8mc//vgjEvkT+h6IidxkTeSpTasAdOPA3rQK0vhPSOSE3WkV4jaht5tTnB+3Nzue
|
||||
2tkq2pMO9aZV0nK2it60ChK53tkq2jSud/Y40rg4rWJvdjwtZ6vwaRVtP440bu+0Q73Zcb1pFd6P29vN
|
||||
qTc7ru3HtbPjPI3zaRWkcXvz47wbtzWtwtM40E6raNM4nx3naRzwSRVtIuf9uK4MP2QcWjav/WurlnV/
|
||||
btu6/v32bRv8SEn8h66dm33XvVvLu5TEv+7ft8OXQwZ1uUmp7xol8csTx/e7QEn87MxpQ0/PmTn8BCXx
|
||||
YwvnjTlMSfDQ4gXjDlAS30dJfA8lr13ER5PI6d3K+PLFithO5Mc3qzs7bZ21gvPIcfrh3ir2bwiaVNjb
|
||||
6OLifO9dIg8bTIm8b8kSUd3Klyvernq1sk0b1q9al75nVWUil0gkwIHv2ORz4phOSS2J682Kf6xJnD84
|
||||
U6Z94wa6aRzg1qA3A2uYf7Zx+iHOI79OifxwY8t55Dt0O/LCf0+pEPF3yZIlGU/ku3fvfnXo0KHkRE7f
|
||||
j2f37t17+vvvvyORP6JE/ogS+UNrIk+0JnKkcSCmcZ7IxUkVnsi1afxnIY3fI7SJXOzHkcbBTcJWPy4m
|
||||
cjGNAz6twhM5nx231Y/bmlYRzx5HGuf9uPakQ20/zmfHeSLXnq0i7ubUmx1PrR/naVy7m5On8bT242k5
|
||||
WyUt0yraNC5Oq/B+nKdxgEQu9uM8jQN+2qGtaRV+7ri2H7eXxm3147Zmxzl6s+NiIv9o0zhwaNum/i8d
|
||||
2jX8iZL4j926NP+hx2ctv+3Tq+0dSnpfUxK/TWnvBiXxa5TEL0+dPOjCjKlDzlISPz1v9siTlMSPUQI8
|
||||
Qkn8ECXxg5TE91Pi2kt8dIm8QvkSSzo1rmc7kR9YaXrZqajpOzuJHDcE7awUZPcW/f4RuY3u7q43tR05
|
||||
T+ToyJHIZUcukUg4Djg7he/YPH36tDonLk6n6CVx8TRDJHF+hgr4WJ8lS5aYJw3orZvGATu81vymT0Xz
|
||||
j3ZuCLra8t0t+mIi5xMrSOSDYkL/rl27Nk/kr+j781IztYKO/Cl9Tx5bE/lDSuRJ1kRupPSsnR3XTqto
|
||||
d3MijfNErpvGCUysfEsfkcjF2fHkfpxAIhd3cyKJ8zTOJ1Z4Gtfey4k0Lu7k/E+mVdCNA34vpzitwvtx
|
||||
vWkVcTenXhrn0ypI49p+PC1nqyCNi/04383J07h4E5Ct3ZxiGk/tbBUxjaMfRxoXz1bh0yrafhxpnO/m
|
||||
LGIlrbs5eRoH9rpxcVqFJ3K92fG0TqvwblxvWgWJnHfjAAGCoyvDDxmHzh2b3P+sa4t7vXq0/r5v73bf
|
||||
Duzf8Zuhg7t+NWp499vjxvS+Pml8v6uUxC9TEr9ASfwcJfHTlMRPUvI7Tkn8KCXxI5TEkcYPUNr6aBN5
|
||||
eIG8e2YP6287kW+eZXratqDpTsPUb9HfTIl8nc6uTtA6b3ZjliyZTv87c+QykUsknzYOOMWQn51y8+ZN
|
||||
dccmJjTEOXE+nfIpJnH+9OrVy7x7yVzdNA7Y1tnmJz3K27xFH7s6L7YoYT7QyHLOyvZ6KZM4p23hfH+3
|
||||
b9/+LSXyV3YS+RMk8ri4ODWR0/cFiTzRmsi10ypqIqfPK8QDgk+rAHvTKkjj4HsrSOR68+M8jd8gkMi1
|
||||
3bg4P85nx8XdnEjjYiLn0ypI5EjjQLwJSEzj2mkVftKhrWkVpHG9s1XQjyONi7s59aZVxJMO+bQKdnPy
|
||||
NC7u5kztbBWexsVpFaRx7bSK3tnjYhq3NTvO+3G9aRVxdtzWtIo2jYv9eGpnq4j9OE/jaenHxWkVvX5c
|
||||
nBsXE7m2H9d245yPNkQ49O7Z5l7/vu2/Gzyw893hQ7p9M3pkzy8njO1za/LE/jco5V2dOX3oJUp6F+fP
|
||||
GXVu0fwxZyjxnVyycNwJSuLHKYUjjR+mlHWQ+KgTuWfuHDdPr1tqM5G/XDTYFN8ywvRlff1Ejl2dJ2rk
|
||||
SdxeKTBxEyVyvXNWQAXvTMZcubLv1CbytJ61IhO5RPLp4YDzxPkphvzslL/++it5x6bedMqnlMT5ExMT
|
||||
Y/7t7GHdNA7eLh5sju9W1vxtu/cTOfpx7Oo826x48smH79J4ykReOTTw7xEjRrzZuHFjciI/cuTIC3rX
|
||||
9Pzq1avP6B3T059++ukJvVtCIn9IiTyJErmJErmRvj9qIidSzI/TX/M0Duzu5qS/L/bjPI1/RyCR2+rH
|
||||
1TROYGJFrx+3d7aKvWkVdOPitApP5DyN602raM9W4dMqPJFr+3HxbJXUplXE3Zw8jYtnq6Ab19vNKU6r
|
||||
6O3mRBrniVzvbBXejfNpFZ7GxX7c1rSK9qRDcTenOK2CNG5rN6f2bBV70yroxnk/jjSu7cftTavopXGx
|
||||
H0ci56lcrxvn/bg2kfNu/ONN5EMGdflu5PDud8aO7vX1hHF9v/x80oCb06YMvj5r+rCrc2eNuERJ/AIl
|
||||
8fOU9M5QEj9NSfwkpXCk8WOUro4QH30iHzq4y4A8/r5Jz7++aDuRj21h+lfTAqZb9a1pXEjk6MexqzP5
|
||||
nJXyAYl6aRzkyexi9Pf3XkqJHKcfqueR89MPxfPI5emHEomE44CbfXDjPc4TVxQl+RRDnJ1ia04cfEoP
|
||||
3rU0rlVdN4lz3o5vaf6jc2nzN21TpnGeyLGrE+es8F2deol8U52ov/P7+fy9cOHC15s2bXq1bdu2l7t3
|
||||
735Bifz52bNnn1+7du3ZnTt3ntD36zG9a3pE36ukhw8fJtH3SU3kvCMn4ok4IpZI0Y8TSORqGqdfp+jH
|
||||
6a/fm1YhktM48Q0h7uZEN65OqxDXCEys8H6cnz+OfhxpHIj3coq7Oe1Nq/DdnJgd19vNyXdyas9W0Zsd
|
||||
Rz9ub1pF248jjad2too4rYJuXOzH9U465P040jjQnnYozo7rnT0unq1ia1qFp3FxWkWbxsWzx3k/XsQK
|
||||
Erm9aRWkcXFaRZwd54lcnFYB2jRuqx/naVzsx23t5NTrx8VpFTGN6wrwY8Fh3JjedyaN7/fV1MmDbs+Y
|
||||
OuTm7BnDr1MSv7pg7ujLi+aPvUBJ/Dwl8XOUxM9QCj9FnKBUdZz4ZBJ5hXLFl3Vr3vD9NM4T+e0zppc9
|
||||
y6knH16vp5/IMUO+u7JlV+d6G4lcvUHfyenX8AL5JlIiH1MoMnQ4JXLdOztxQ5C8s1MikQAHcUYcN97j
|
||||
PHHxFEMxiX+qz+TJk82LJ4zSTeKAXTxgftO/irqr82udRI6JlSstS5gPCTPkev34xPLhf5cuXZqtXbv2
|
||||
FSXylzt27Hi5b98+NZGfO3fu2fXr15/evXv3yc8//6wm8oSEBCRyEzpyeueERM7TONBN48QfxO8ET+T2
|
||||
plWQxsFdAon8a0JvWgVpHPB+HGlc3M2Z2tnjSONAnFbRzo7zNA7Em4CQxMVpFd6P85MOeSJP7SYgsR+3
|
||||
Na2CNK7tx8XZcX72OE/jYj+uN61i6+xxcVrFVj+ud7YKErn2Xk57Z6vwnZzibk7ejyONa/txvdlxPq0i
|
||||
7uZEGueJHN04n1ZBGuez43r9ONK4dlpF242nJY2jH//oJ1VEHKZNGfz1rOnDbs+ZOeLm/Dmjri+cN+Yq
|
||||
JfHLlMQvUQq/QJyjFH6WktRp4hTxySVyP1+vi3sWzbKZyF9tn588Q65N5EjjmFg5RYkcEyvqDHk5/UTe
|
||||
OSSnMXMmj0sR4fkmRBYMGY1b9IsWCR9QonihnmVLR3eqUimmVd3aFdVE3qlD44q9e7YpPXRwl2ITx/eL
|
||||
mjltaIRM5BLJp4mDOJki3uzzsZ0n/p8+eB38/HzN908e0E3j4O26yeaH3cvpzpDziZXzzYonz5Djrk5t
|
||||
GgftCuf7u127dm/XrVv3avPmzUjkL/bv3//i+PHjz8+fP//s5s2bT7/77rvHv/zyy6MHDx48RCKn752J
|
||||
vneJ9A4qgb5vvBsH2jQuJnI1jVux14+rs+NEcj9O8DSeYlqFuEqgH+dpXJxW4Ts6tdMq4uy4th/ns+O8
|
||||
H+fz42Ia5/24uJvT1tkqvB9HGtebVkE/rk3j2puAeDeunVbR281p72wVcTen3tkqSONiPy6mcd6PI43r
|
||||
9eN8N6et2XGxH+fTKuLZKnq7OfVmx4FeP25rN6c2kSONi/24XhrX9uPa2XExkYuTKp/MtArHYe7skV9S
|
||||
Er+5aP6YG4sXjLu2ZOG4K5TCLxMXKYmfpwR1jvhkE3nXzk3HFCsYrp/GASZWJrcz/dU8POUMuZDIceoh
|
||||
7urcxidWyuon8pK5PYxenjm3UiIfj0ReOCpsWHTRiP4lS0T1KF+ueMdqVcu0rF+vcv2WzWvXQCLv27td
|
||||
zPCh3aI/nzSgEBI5ff/C6GuWiVwi+cRwsNWHA/lQLNy509y3QxvdJM7BxMqfncuY77ZLmcZ5Iseph+9P
|
||||
rKRM4yA6j9/fkydPfr1+/fpXW7ZseUm/94sDBw48P3HixLOLFy8+/fLLL598//33j3/99ddHiqIkGY1G
|
||||
NZHTOykjEjm9e7A7rULwfjw5jVvhiVzbj/NpleR+nBD7caRxgDR+hUAi52mcT6uI56uIuzntTasgjac2
|
||||
rcL7ce20irYf1+7mRDeud7aKdjenmMbFaRWkcSCmcfFeTltnj+uddMj7cX62ir1pFXv9uJjG+W5OsR/n
|
||||
0ypI4vZ2c/JpFSCm8dRmx/XSuNiPI5HzNK43rcITud60ChDTuF4i52mcJ/JPZlqF47Bo/thblORuUAK/
|
||||
TlylFH6ZuETJ6SLxySfy8AL59uqescK5ccL0slsp9WagG2I/TvB+/FzNvIm7xIkVnUQ+p7iP0c3J0Rga
|
||||
GjwduzoLRYaOKhxVYAjOIo8pVfizCuVLtK9ZvVwz68mH1bp1aVa+f98OpUYN715UJnKJ5NPGQfbh9p9m
|
||||
zZqZL25bq5vEATu+0fy6dwXzfZ2JFaRxfsYKTj3ck+KMlZRpfEL58L/LlCnD1qxZ8wrnrFAif4EZ8kOH
|
||||
Dj0/derUsytXrjz96quvnty7d+/xv/71r0exsbFJJnoeP36c+PLlywR6RxVP30cxjQNtGhf78V8JnsYx
|
||||
sSLu5uRpXNuPI5Hz3Zy8G1enVYjLBCZWxLNVeCIX58fFaRXxbBWkcb6bUzxbhffjts5WAWIaT8vZKnxa
|
||||
xdbZKnx2XHv2uL1pFXtpnE+r8ESunVbh/bitaRV7Z6ugHxfTuDitwidVxESe2rQKT+Opna3CEznSuF4i
|
||||
F9M4+nHt7DgQZ8fT0o+L0yo8jWvPVuGJ/JOZWAEOlMJvIY1TCr9GaekqcZmQiZwSef++7YeH5Ql6GH/5
|
||||
hH4aJ14uHmJKaBlh+qaBZmLFmsixo/NYdeGMFUys6CRy66mHZyPC803Grs5ChUJHFilcYHCJ4oX6lI4p
|
||||
2q1ypVJt69Su2KRJo+p12rVpoJ58OGhAp1JjR/UqOm3K4Mg5M0fIRC6RfKI4UIqSSdzGs2/fPnOPti10
|
||||
kzjn7YzPzLFdy9icWLnRqqT5VLN3N+fb6scbReb5u3v37m/4DPn27dtf7tmz5/mRI0eenT179um1a9ee
|
||||
3rlz5/H9+/cf/fHHHw/j4uKS6El8+vQpEnk8vbPi0ypI5OjGxX6cd+O8H0caBzyNa89XQRrniVxM418S
|
||||
t4kUuzkJpHHAd3Nqp1XsnT3OZ8fF3Zz2plXE3Zx8fhxpPLXdnDyNizcBIY0De2er6KVxvX4caZzPj+tN
|
||||
q9i6l1N7E5DetIp2N6d2dlxvWkVM5HxaBWmcJ3LejfNErp1WQRrniZynce38uDg7ztM438kppnGeyLVp
|
||||
XEzkttK43vw4n1QRE7l2WgWC+3QSOSWkm8R1QiZyTSIPL5Bv/5wRAx/qJXHOy97lTT83CUt5xgrSOMH7
|
||||
cX5PZ3I/rpPIQ7K64oyVlZTGJ0YWDBmDGfLoogUHUiLvVbZMdOcqlWNa16tTqVGzpjVrderQuHKfXm3L
|
||||
DBnUpeSk8f0KI5EvmDsa56zg5EOZyCWSTwz8P/Kx8dStW9d8c88W3SQO1Hs6+1RSb87XnrHC58cvWfvx
|
||||
dzs630/juDk/wMf77+XLl79at27dS0rkL3bs2PF8//79z48fP/7s3LlzTzFD/u2332KG/CFmyI1Go+nh
|
||||
w4eJz549w8QKT+S8G9dOq/A0zvtx3o3zaRU+sSLOj/NpFSRynsZvWeHz48nTKkjjxAWCJ3LtbUBiP440
|
||||
LvbjtnZz6p09rk3j2rNVtDcB6fXj2tlxe2eriPPj9mbHeRrXnq2CNM4Tud7suHZaRezHxTSuPelQ7Me1
|
||||
Z6vwNM4TOZ9WwaSKrWkVsR/nZ6ugG+fTKmIaFxO53uy49mwVW9MqqZ2topfGxdlxbT8uduOfUGAwO/x/
|
||||
KUFB8MMcFkIAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
174
WT-DMS/LoginForm1.vb
Normal file
174
WT-DMS/LoginForm1.vb
Normal file
@@ -0,0 +1,174 @@
|
||||
Public Class LoginForm1
|
||||
Dim pMainForm As Form1
|
||||
Dim m_Log As New CLogManage
|
||||
|
||||
' TODO: 插入代码，以使用提供的用户名和密码执行自定义的身份验证
|
||||
' (请参见 http://go.microsoft.com/fwlink/?LinkId=35339)。
|
||||
' 随后自定义主体可附加到当前线程的主体，如下所示:
|
||||
' My.User.CurrentPrincipal = CustomPrincipal
|
||||
' 其中 CustomPrincipal 是用于执行身份验证的 IPrincipal 实现。
|
||||
' 随后，My.User 将返回 CustomPrincipal 对象中封装的标识信息
|
||||
' 如用户名、显示名等
|
||||
|
||||
Public LoginResult As Boolean = False
|
||||
Dim m_LastError As String = ""
|
||||
Dim m_InitOver As Boolean = False
|
||||
Dim r_Right(COL_RIGHTS.max - 1) As String
|
||||
|
||||
'将字符串权限转换为对应的RIGHTS值
|
||||
Private Sub ConvertRights(ByRef strSrc() As String, ByRef rRight() As RIGHTS)
|
||||
For i As Integer = 0 To COL_RIGHTS.max - 1
|
||||
Select Case strSrc(i)
|
||||
Case "只读"
|
||||
rRight(i) = RIGHTS.READ
|
||||
Case "读写"
|
||||
rRight(i) = RIGHTS.READ_WRITE
|
||||
Case "管理"
|
||||
rRight(i) = RIGHTS.MANAGE Or RIGHTS.READ_WRITE
|
||||
Case Else
|
||||
rRight(i) = RIGHTS.NONE
|
||||
End Select
|
||||
Next
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 登录检测
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function LoginCheck() As Boolean
|
||||
|
||||
Dim m_AccountManage As New CAccountManage
|
||||
|
||||
Dim m_UserName As String = UsernameTextBox.Text
|
||||
Dim m_UserPassword As String = PasswordTextBox.Text
|
||||
Dim r_Password As String = ""
|
||||
Dim r_EmployeeID As Integer = 0
|
||||
|
||||
'清除密码
|
||||
PasswordTextBox.Text = ""
|
||||
|
||||
If m_UserName.Length = 0 Then
|
||||
m_LastError = "用户名不能为空"
|
||||
Return False
|
||||
End If
|
||||
|
||||
Dim ipaddr As String = GetIPFromNetUrl("uts-svr2.qicp.net") '
|
||||
SQL_ConnectionSetting(ipaddr, "uts_DMS", "uts_DMS_Manager", "A98ya9hu(*HU8hu(*HU(hu")
|
||||
|
||||
'SQL_ConnectionSetting("10.46.213.199", "w&t database", "root", "3ZAn8dTtqxBTubWz")
|
||||
Current_Rights(COL_RIGHTS.用户管理) = RIGHTS.READ
|
||||
CAccountManage.AccessRight = RIGHTS.READ
|
||||
If m_AccountManage.QueryItem(m_UserName, r_Password, r_EmployeeID, r_Right) = ERROR_CODE.SUCCESS Then
|
||||
If Strings.StrComp(m_UserPassword, r_Password, Microsoft.VisualBasic.CompareMethod.Text) = 0 Then
|
||||
If r_Right(COL_RIGHTS.登录) = "开启" Then
|
||||
Return True
|
||||
Else
|
||||
m_LastError = "无登录权限"
|
||||
End If
|
||||
Else
|
||||
m_LastError = "用户密码不正确"
|
||||
End If
|
||||
Else
|
||||
m_LastError = "数据库连接失败，或者用户名不正确"
|
||||
End If
|
||||
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
|
||||
If My.Settings.CHK_SAVEUSERNAME = True Then
|
||||
My.Settings.TXT_USERNAME = UsernameTextBox.Text
|
||||
|
||||
If My.Settings.CHK_AUTOLOGIN = True Then
|
||||
My.Settings.TXT_PASSWORD = PasswordTextBox.Text
|
||||
End If
|
||||
|
||||
My.Settings.Save()
|
||||
End If
|
||||
|
||||
LoginResult = LoginCheck()
|
||||
If LoginResult = True Then
|
||||
If m_Log.AddItem("系统", "登入", UsernameTextBox.Text) = ERROR_CODE.SUCCESS Then
|
||||
Me.Hide()
|
||||
pMainForm = New Form1
|
||||
Current_UserName = UsernameTextBox.Text
|
||||
ConvertRights(r_Right, Current_Rights)
|
||||
pMainForm.ShowDialog()
|
||||
|
||||
m_Log.AddItem("系统", "退出", UsernameTextBox.Text)
|
||||
If pMainForm.QuitReson = QUIT_RESON.close Then
|
||||
Me.Close()
|
||||
Else
|
||||
Me.Show()
|
||||
End If
|
||||
Else
|
||||
MsgBox("保存登录信息失败!")
|
||||
End If
|
||||
Else
|
||||
MsgBox(m_LastError)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
|
||||
LoginResult = False
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
If My.Settings.CHK_SAVEUSERNAME = True Then
|
||||
UsernameTextBox.Text = My.Settings.TXT_USERNAME
|
||||
End If
|
||||
|
||||
m_InitOver = True
|
||||
End Sub
|
||||
|
||||
Private Sub chk_SaveUserName_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_SaveUserName.CheckedChanged
|
||||
If m_InitOver = False Then Return
|
||||
|
||||
My.Settings.CHK_SAVEUSERNAME = chk_SaveUserName.Checked
|
||||
|
||||
If My.Settings.CHK_SAVEUSERNAME = True Then
|
||||
My.Settings.TXT_USERNAME = UsernameTextBox.Text
|
||||
My.Settings.Save()
|
||||
Else
|
||||
If My.Settings.CHK_AUTOLOGIN = True Then
|
||||
chk_SaveUserName.Checked = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub LoginForm1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
|
||||
If UsernameTextBox.Text.Length > 0 Then
|
||||
PasswordTextBox.Focus()
|
||||
End If
|
||||
|
||||
If My.Settings.CHK_AUTOLOGIN = True Then
|
||||
PasswordTextBox.Text = My.Settings.TXT_PASSWORD
|
||||
PasswordTextBox.Refresh()
|
||||
|
||||
Timer1.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub chk_AutoLogin_CheckedChanged(sender As Object, e As EventArgs) Handles chk_AutoLogin.CheckedChanged
|
||||
If m_InitOver = False Then Return
|
||||
|
||||
My.Settings.CHK_AUTOLOGIN = chk_AutoLogin.Checked
|
||||
If My.Settings.CHK_AUTOLOGIN = True Then
|
||||
If chk_SaveUserName.Checked = False Then
|
||||
chk_SaveUserName.Checked = True
|
||||
End If
|
||||
|
||||
My.Settings.TXT_PASSWORD = PasswordTextBox.Text
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
||||
Timer1.Stop()
|
||||
If chk_AutoLogin.Checked Then
|
||||
OK.PerformClick()
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
124
WT-DMS/LoginForm1_bak1.vb
Normal file
124
WT-DMS/LoginForm1_bak1.vb
Normal file
@@ -0,0 +1,124 @@
|
||||
Public Class LoginForm1
|
||||
Dim pMainForm As Form1
|
||||
|
||||
' TODO: 插入代码，以使用提供的用户名和密码执行自定义的身份验证
|
||||
' (请参见 http://go.microsoft.com/fwlink/?LinkId=35339)。
|
||||
' 随后自定义主体可附加到当前线程的主体，如下所示:
|
||||
' My.User.CurrentPrincipal = CustomPrincipal
|
||||
' 其中 CustomPrincipal 是用于执行身份验证的 IPrincipal 实现。
|
||||
' 随后，My.User 将返回 CustomPrincipal 对象中封装的标识信息
|
||||
' 如用户名、显示名等
|
||||
|
||||
Public LoginResult As Boolean = False
|
||||
Dim m_LastError As String = ""
|
||||
Dim m_InitOver As Boolean = False
|
||||
Dim r_Right(CAccountManage.COL_RIGHTS.max - 1) As String
|
||||
|
||||
'将字符串权限转换为对应的RIGHTS值
|
||||
Private Sub ConvertRights(ByRef strSrc() As String, ByRef rRight() As RIGHTS)
|
||||
For i As Integer = 0 To CAccountManage.COL_RIGHTS.max - 1
|
||||
Select Case strSrc(i)
|
||||
Case "只读"
|
||||
rRight(i) = RIGHTS.READ
|
||||
Case "读写"
|
||||
rRight(i) = RIGHTS.READ_WRITE
|
||||
Case Else
|
||||
rRight(i) = RIGHTS.NONE
|
||||
End Select
|
||||
Next
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 登录检测
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function LoginCheck() As Boolean
|
||||
|
||||
Dim m_AccountManage As New CAccountManage
|
||||
|
||||
Dim m_UserName As String = UsernameTextBox.Text
|
||||
Dim m_UserPassword As String = PasswordTextBox.Text
|
||||
Dim r_Password As String = ""
|
||||
Dim r_EmployeeID As Integer = 0
|
||||
|
||||
'清除密码
|
||||
PasswordTextBox.Text = ""
|
||||
|
||||
If m_UserName.Length = 0 Then
|
||||
m_LastError = "用户名不能为空"
|
||||
Return False
|
||||
End If
|
||||
|
||||
Dim ipaddr As String = GetIPFromNetUrl("inhaos-server.synology.me")
|
||||
If ipaddr.Length = 0 Then Return False
|
||||
SQL_ConnectionSetting(ipaddr, "w&t database", "Tony", "123")
|
||||
'SQL_ConnectionSetting("10.46.213.199", "w&t database", "Tony", "123")
|
||||
|
||||
'SQL_ConnectionSetting("127.0.0.1", "W&T Database", "Tony", "123")
|
||||
|
||||
m_AccountManage.AccessRight = RIGHTS.READ
|
||||
If m_AccountManage.QueryItem(m_UserName, r_Password, r_EmployeeID, r_Right) = ERROR_CODE.SUCCESS Then
|
||||
If Strings.StrComp(m_UserPassword, r_Password, Microsoft.VisualBasic.CompareMethod.Text) = 0 Then
|
||||
If r_Right(CAccountManage.COL_RIGHTS.登录) = "开启" Then
|
||||
Return True
|
||||
Else
|
||||
m_LastError = "无登录权限"
|
||||
End If
|
||||
Else
|
||||
m_LastError = "用户密码不正确"
|
||||
End If
|
||||
Else
|
||||
m_LastError = "数据库连接失败，或者用户名不正确"
|
||||
End If
|
||||
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
|
||||
If My.Settings.CHK_SAVEUSERNAME = True Then
|
||||
My.Settings.TXT_USERNAME = UsernameTextBox.Text
|
||||
My.Settings.Save()
|
||||
End If
|
||||
|
||||
LoginResult = LoginCheck()
|
||||
If LoginResult = True Then
|
||||
Me.Hide()
|
||||
pMainForm = New Form1
|
||||
pMainForm.Current_UserName = My.Settings.TXT_USERNAME
|
||||
ConvertRights(r_Right, pMainForm.Current_Rights)
|
||||
pMainForm.ShowDialog()
|
||||
If pMainForm.QuitReson = QUIT_RESON.close Then
|
||||
Me.Close()
|
||||
Else
|
||||
Me.Show()
|
||||
End If
|
||||
Else
|
||||
MsgBox(m_LastError)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
|
||||
LoginResult = False
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
If My.Settings.CHK_SAVEUSERNAME = True Then
|
||||
UsernameTextBox.Text = My.Settings.TXT_USERNAME
|
||||
End If
|
||||
|
||||
PasswordTextBox.Focus()
|
||||
|
||||
m_InitOver = True
|
||||
End Sub
|
||||
|
||||
Private Sub chk_SaveUserName_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_SaveUserName.CheckedChanged
|
||||
My.Settings.CHK_SAVEUSERNAME = chk_SaveUserName.Checked
|
||||
If m_InitOver = False Then Return
|
||||
If My.Settings.CHK_SAVEUSERNAME = True Then
|
||||
My.Settings.TXT_USERNAME = UsernameTextBox.Text
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
38
WT-DMS/My Project/Application.Designer.vb
generated
Normal file
38
WT-DMS/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,38 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' 此代码由工具生成。
|
||||
' 运行时版本:4.0.30319.42000
|
||||
'
|
||||
' 对此文件的更改可能会导致不正确的行为，并且如果
|
||||
' 重新生成代码，这些更改将会丢失。
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
'注意:此文件是自动生成的；请勿直接进行修改。若要更改，
|
||||
' 或者如果您在此文件中遇到生成错误，请转至项目设计器
|
||||
' (转至“项目属性”或在解决方案资源管理器中双击“我的项目”节点)，
|
||||
' 然后在“应用程序”选项卡中进行更改。
|
||||
'
|
||||
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.WT_DMS.LoginForm1
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
10
WT-DMS/My Project/Application.myapp
Normal file
10
WT-DMS/My Project/Application.myapp
Normal 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>LoginForm1</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
35
WT-DMS/My Project/AssemblyInfo.vb
Normal file
35
WT-DMS/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' 有关程序集的常规信息通过下列特性集
|
||||
' 控制。更改这些特性值可修改
|
||||
' 与程序集关联的信息。
|
||||
|
||||
' 查看程序集特性的值
|
||||
|
||||
<Assembly: AssemblyTitle("INHAOS-DMS")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("INHAOS Technology Co.,Ltd")>
|
||||
<Assembly: AssemblyProduct("INHAOS-DMS")>
|
||||
<Assembly: AssemblyCopyright("Copyright © W&&T DESIGN 2013")>
|
||||
<Assembly: AssemblyTrademark("INHAOS(R)")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID
|
||||
<Assembly: Guid("77491530-8893-4c75-ba88-414e977d10b0")>
|
||||
|
||||
' 程序集的版本信息由下面四个值组成:
|
||||
'
|
||||
' 主版本
|
||||
' 次版本
|
||||
' 内部版本号
|
||||
' 修订号
|
||||
'
|
||||
' 可以指定所有这些值，也可以使用“内部版本号”和“修订号”的默认值，
|
||||
' 方法是按如下所示使用“*”:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("3.8.0.0")>
|
||||
<Assembly: AssemblyFileVersion("3.6.0.0")>
|
||||
@@ -0,0 +1,35 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' 有关程序集的常规信息通过下列特性集
|
||||
' 控制。更改这些特性值可修改
|
||||
' 与程序集关联的信息。
|
||||
|
||||
' 查看程序集特性的值
|
||||
|
||||
<Assembly: AssemblyTitle("INHAOS-DMS")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("INHAOS Technology Co.,Ltd")>
|
||||
<Assembly: AssemblyProduct("INHAOS-DMS")>
|
||||
<Assembly: AssemblyCopyright("Copyright © W&&T DESIGN 2013")>
|
||||
<Assembly: AssemblyTrademark("INHAOS(R)")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID
|
||||
<Assembly: Guid("77491530-8893-4c75-ba88-414e977d10b0")>
|
||||
|
||||
' 程序集的版本信息由下面四个值组成:
|
||||
'
|
||||
' 主版本
|
||||
' 次版本
|
||||
' 内部版本号
|
||||
' 修订号
|
||||
'
|
||||
' 可以指定所有这些值，也可以使用“内部版本号”和“修订号”的默认值，
|
||||
' 方法是按如下所示使用“*”:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("3.8.0.0")>
|
||||
<Assembly: AssemblyFileVersion("3.8.0.0")>
|
||||
63
WT-DMS/My Project/Resources.Designer.vb
generated
Normal file
63
WT-DMS/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' 此代码由工具生成。
|
||||
' 运行时版本:4.0.30319.42000
|
||||
'
|
||||
' 对此文件的更改可能会导致不正确的行为，并且如果
|
||||
' 重新生成代码，这些更改将会丢失。
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'此类是由 StronglyTypedResourceBuilder
|
||||
'类通过类似于 ResGen 或 Visual Studio 的工具自动生成的。
|
||||
'若要添加或移除成员，请编辑 .ResX 文件，然后重新运行 ResGen
|
||||
'(以 /str 作为命令选项)，或重新生成 VS 项目。
|
||||
'''<summary>
|
||||
''' 一个强类型的资源类，用于查找本地化的字符串等。
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.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>
|
||||
''' 返回此类使用的缓存的 ResourceManager 实例。
|
||||
'''</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("WT_DMS.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' 重写当前线程的 CurrentUICulture 属性，对
|
||||
''' 使用此强类型资源类的所有资源查找执行重写。
|
||||
'''</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
|
||||
117
WT-DMS/My Project/Resources.resx
Normal file
117
WT-DMS/My Project/Resources.resx
Normal 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>
|
||||
913
WT-DMS/My Project/Settings.Designer.vb
generated
Normal file
913
WT-DMS/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,913 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' 此代码由工具生成。
|
||||
' 运行时版本:4.0.30319.42000
|
||||
'
|
||||
' 对此文件的更改可能会导致不正确的行为，并且如果
|
||||
' 重新生成代码，这些更改将会丢失。
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.2.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||
|
||||
#Region "My.Settings 自动保存功能"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
||||
Public Property TXT_USERNAME() As String
|
||||
Get
|
||||
Return CType(Me("TXT_USERNAME"),String)
|
||||
End Get
|
||||
Set
|
||||
Me("TXT_USERNAME") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
|
||||
Public Property CHK_SAVEUSERNAME() As Boolean
|
||||
Get
|
||||
Return CType(Me("CHK_SAVEUSERNAME"),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me("CHK_SAVEUSERNAME") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
|
||||
Public Property CHK_PREVIEW() As Boolean
|
||||
Get
|
||||
Return CType(Me("CHK_PREVIEW"),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me("CHK_PREVIEW") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("358")> _
|
||||
Public Property FORM_QUERYSIM_WIDHT() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_QUERYSIM_WIDHT"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_QUERYSIM_WIDHT") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("499")> _
|
||||
Public Property FORM_QUERYSIM_HEIGHT() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_QUERYSIM_HEIGHT"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_QUERYSIM_HEIGHT") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("444")> _
|
||||
Public Property FORM_QUERYSTORAGE_WIDTH() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_QUERYSTORAGE_WIDTH"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_QUERYSTORAGE_WIDTH") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("444")> _
|
||||
Public Property FORM_QUERYSTORAGE_HEIGHT() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_QUERYSTORAGE_HEIGHT"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_QUERYSTORAGE_HEIGHT") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
|
||||
Public Property FORM_QUERYSIM_WINSTATE() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_QUERYSIM_WINSTATE"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_QUERYSIM_WINSTATE") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
|
||||
Public Property FORM_QUERYSTORAGE_WINSTATE() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_QUERYSTORAGE_WINSTATE"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_QUERYSTORAGE_WINSTATE") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
|
||||
Public Property FORM_QUERYSIM_X() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_QUERYSIM_X"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_QUERYSIM_X") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
|
||||
Public Property FORM_QUERYSIM_Y() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_QUERYSIM_Y"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_QUERYSIM_Y") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
|
||||
Public Property FORM_QUERYSTORAGE_X() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_QUERYSTORAGE_X"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_QUERYSTORAGE_X") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
|
||||
Public Property FORM_QUERYSTORAGE_Y() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_QUERYSTORAGE_Y"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_QUERYSTORAGE_Y") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
|
||||
Public Property FORM_PARTNUMBER_X() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_PARTNUMBER_X"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_PARTNUMBER_X") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
|
||||
Public Property FORM_PARTNUMBER_Y() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_PARTNUMBER_Y"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_PARTNUMBER_Y") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
|
||||
Public Property FORM_MATERIAL_X() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_MATERIAL_X"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_MATERIAL_X") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
|
||||
Public Property FORM_MATERIAL_Y() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_MATERIAL_Y"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_MATERIAL_Y") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("730")> _
|
||||
Public Property FORM_SYSLOG_WIDTH() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_SYSLOG_WIDTH"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_SYSLOG_WIDTH") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("530")> _
|
||||
Public Property FORM_SYSLOG_HEIGHT() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_SYSLOG_HEIGHT"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_SYSLOG_HEIGHT") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
|
||||
Public Property FORM_SYSLOG_X() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_SYSLOG_X"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_SYSLOG_X") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
|
||||
Public Property FORM_SYSLOG_Y() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_SYSLOG_Y"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_SYSLOG_Y") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
|
||||
Public Property CHK_SHOWIMAGE() As Boolean
|
||||
Get
|
||||
Return CType(Me("CHK_SHOWIMAGE"),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me("CHK_SHOWIMAGE") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("30")> _
|
||||
Public Property FORM_BOM_COL_WIDTH_序号() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_BOM_COL_WIDTH_序号"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_BOM_COL_WIDTH_序号") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_BOM_COL_WIDTH_料号PN() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_BOM_COL_WIDTH_料号PN"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_BOM_COL_WIDTH_料号PN") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("200")> _
|
||||
Public Property FORM_BOM_COL_WIDTH_物料名称() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_BOM_COL_WIDTH_物料名称"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_BOM_COL_WIDTH_物料名称") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("400")> _
|
||||
Public Property FORM_BOM_COL_WIDTH_规格描述() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_BOM_COL_WIDTH_规格描述"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_BOM_COL_WIDTH_规格描述") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_BOM_COL_WIDTH_单位() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_BOM_COL_WIDTH_单位"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_BOM_COL_WIDTH_单位") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_BOM_COL_WIDTH_用量() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_BOM_COL_WIDTH_用量"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_BOM_COL_WIDTH_用量") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_BOM_COL_WIDTH_使用位置() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_BOM_COL_WIDTH_使用位置"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_BOM_COL_WIDTH_使用位置") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_BOM_COL_WIDTH_父料号() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_BOM_COL_WIDTH_父料号"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_BOM_COL_WIDTH_父料号") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_BOM_COL_WIDTH_图片() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_BOM_COL_WIDTH_图片"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_BOM_COL_WIDTH_图片") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("400")> _
|
||||
Public Property FORM_BOM_COL_WIDTH_备注() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_BOM_COL_WIDTH_备注"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_BOM_COL_WIDTH_备注") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("800")> _
|
||||
Public Property FORM_BOM_WIDTH() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_BOM_WIDTH"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_BOM_WIDTH") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("400")> _
|
||||
Public Property FORM_BOM_HEIGHT() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_BOM_HEIGHT"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_BOM_HEIGHT") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
|
||||
Public Property CHK_SHOWPNINFO() As Boolean
|
||||
Get
|
||||
Return CType(Me("CHK_SHOWPNINFO"),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me("CHK_SHOWPNINFO") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
|
||||
Public Property CHK_SHOWPNIMAGE() As Boolean
|
||||
Get
|
||||
Return CType(Me("CHK_SHOWPNIMAGE"),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me("CHK_SHOWPNIMAGE") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("400")> _
|
||||
Public Property DLG_IMAGE_WIDTH() As Integer
|
||||
Get
|
||||
Return CType(Me("DLG_IMAGE_WIDTH"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("DLG_IMAGE_WIDTH") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("400")> _
|
||||
Public Property DLG_IMAGE_HEIGHT() As Integer
|
||||
Get
|
||||
Return CType(Me("DLG_IMAGE_HEIGHT"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("DLG_IMAGE_HEIGHT") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
|
||||
Public Property DLG_IMAGE_LEFT() As Integer
|
||||
Get
|
||||
Return CType(Me("DLG_IMAGE_LEFT"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("DLG_IMAGE_LEFT") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
|
||||
Public Property DLG_IMAGE_TOP() As Integer
|
||||
Get
|
||||
Return CType(Me("DLG_IMAGE_TOP"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("DLG_IMAGE_TOP") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_BOM_COL_WIDTH_工艺流程() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_BOM_COL_WIDTH_工艺流程"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_BOM_COL_WIDTH_工艺流程") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
|
||||
Public Property CHK_AUTOLOGIN() As Boolean
|
||||
Get
|
||||
Return CType(Me("CHK_AUTOLOGIN"),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me("CHK_AUTOLOGIN") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
||||
Public Property TXT_PASSWORD() As String
|
||||
Get
|
||||
Return CType(Me("TXT_PASSWORD"),String)
|
||||
End Get
|
||||
Set
|
||||
Me("TXT_PASSWORD") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_序号() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_序号"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_序号") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_日期() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_日期"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_日期") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_时间() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_时间"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_时间") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_收入() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_收入"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_收入") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_支出() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_支出"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_支出") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_收支类别() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_收支类别"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_收支类别") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("150")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_收支子类别() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_收支子类别"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_收支子类别") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_机种() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_机种"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_机种") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_交易方() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_交易方"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_交易方") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("150")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_业务类型() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_业务类型"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_业务类型") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("200")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_事由() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_事由"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_事由") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_经手人() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_经手人"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_经手人") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_单据类型() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_单据类型"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_单据类型") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_单据编号() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_单据编号"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_单据编号") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_备注1() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_备注1"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_备注1") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_备注2() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_备注2"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_备注2") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_备注3() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_备注3"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_备注3") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("800")> _
|
||||
Public Property FORM_FINAN_RECORD_WIDTH() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_WIDTH"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_WIDTH") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("400")> _
|
||||
Public Property FORM_FINAN_RECORD_HEIGHT() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_HEIGHT"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_HEIGHT") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_FINAN_RECORD_COL_WIDTH_余额() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_FINAN_RECORD_COL_WIDTH_余额"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_FINAN_RECORD_COL_WIDTH_余额") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("50")> _
|
||||
Public Property FORM_合并用料查询_COL_WIDTH_序号() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_合并用料查询_COL_WIDTH_序号"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_合并用料查询_COL_WIDTH_序号") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_合并用料查询_COL_WIDTH_料号PN() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_合并用料查询_COL_WIDTH_料号PN"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_合并用料查询_COL_WIDTH_料号PN") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_合并用料查询_COL_WIDTH_物料名称() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_合并用料查询_COL_WIDTH_物料名称"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_合并用料查询_COL_WIDTH_物料名称") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("100")> _
|
||||
Public Property FORM_合并用料查询_COL_WIDTH_规格描述() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_合并用料查询_COL_WIDTH_规格描述"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_合并用料查询_COL_WIDTH_规格描述") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("50")> _
|
||||
Public Property FORM_合并用料查询_COL_WIDTH_单位() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_合并用料查询_COL_WIDTH_单位"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_合并用料查询_COL_WIDTH_单位") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("800")> _
|
||||
Public Property FORM_合并用料查询_WIDTH() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_合并用料查询_WIDTH"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_合并用料查询_WIDTH") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("400")> _
|
||||
Public Property FORM_合并用料查询_HEIGHT() As Integer
|
||||
Get
|
||||
Return CType(Me("FORM_合并用料查询_HEIGHT"),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me("FORM_合并用料查询_HEIGHT") = value
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.WT_DMS.My.MySettings
|
||||
Get
|
||||
Return Global.WT_DMS.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
216
WT-DMS/My Project/Settings.settings
Normal file
216
WT-DMS/My Project/Settings.settings
Normal file
@@ -0,0 +1,216 @@
|
||||
<?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="TXT_USERNAME" Type="System.String" Scope="User">
|
||||
<Value Profile="(Default)" />
|
||||
</Setting>
|
||||
<Setting Name="CHK_SAVEUSERNAME" Type="System.Boolean" Scope="User">
|
||||
<Value Profile="(Default)">False</Value>
|
||||
</Setting>
|
||||
<Setting Name="CHK_PREVIEW" Type="System.Boolean" Scope="User">
|
||||
<Value Profile="(Default)">False</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_QUERYSIM_WIDHT" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">358</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_QUERYSIM_HEIGHT" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">499</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_QUERYSTORAGE_WIDTH" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">444</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_QUERYSTORAGE_HEIGHT" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">444</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_QUERYSIM_WINSTATE" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">0</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_QUERYSTORAGE_WINSTATE" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">0</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_QUERYSIM_X" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">0</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_QUERYSIM_Y" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">0</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_QUERYSTORAGE_X" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">0</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_QUERYSTORAGE_Y" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">0</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_PARTNUMBER_X" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">0</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_PARTNUMBER_Y" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">0</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_MATERIAL_X" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">0</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_MATERIAL_Y" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">0</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_SYSLOG_WIDTH" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">730</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_SYSLOG_HEIGHT" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">530</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_SYSLOG_X" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">0</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_SYSLOG_Y" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">0</Value>
|
||||
</Setting>
|
||||
<Setting Name="CHK_SHOWIMAGE" Type="System.Boolean" Scope="User">
|
||||
<Value Profile="(Default)">False</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_BOM_COL_WIDTH_序号" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">30</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_BOM_COL_WIDTH_料号PN" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_BOM_COL_WIDTH_物料名称" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">200</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_BOM_COL_WIDTH_规格描述" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">400</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_BOM_COL_WIDTH_单位" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_BOM_COL_WIDTH_用量" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_BOM_COL_WIDTH_使用位置" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_BOM_COL_WIDTH_父料号" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_BOM_COL_WIDTH_图片" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_BOM_COL_WIDTH_备注" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">400</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_BOM_WIDTH" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">800</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_BOM_HEIGHT" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">400</Value>
|
||||
</Setting>
|
||||
<Setting Name="CHK_SHOWPNINFO" Type="System.Boolean" Scope="User">
|
||||
<Value Profile="(Default)">False</Value>
|
||||
</Setting>
|
||||
<Setting Name="CHK_SHOWPNIMAGE" Type="System.Boolean" Scope="User">
|
||||
<Value Profile="(Default)">False</Value>
|
||||
</Setting>
|
||||
<Setting Name="DLG_IMAGE_WIDTH" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">400</Value>
|
||||
</Setting>
|
||||
<Setting Name="DLG_IMAGE_HEIGHT" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">400</Value>
|
||||
</Setting>
|
||||
<Setting Name="DLG_IMAGE_LEFT" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">0</Value>
|
||||
</Setting>
|
||||
<Setting Name="DLG_IMAGE_TOP" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">0</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_BOM_COL_WIDTH_工艺流程" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="CHK_AUTOLOGIN" Type="System.Boolean" Scope="User">
|
||||
<Value Profile="(Default)">False</Value>
|
||||
</Setting>
|
||||
<Setting Name="TXT_PASSWORD" Type="System.String" Scope="User">
|
||||
<Value Profile="(Default)" />
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_序号" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_日期" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_时间" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_收入" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_支出" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_收支类别" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_收支子类别" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">150</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_机种" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_交易方" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_业务类型" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">150</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_事由" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">200</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_经手人" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_单据类型" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_单据编号" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_备注1" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_备注2" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_备注3" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_WIDTH" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">800</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_HEIGHT" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">400</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_FINAN_RECORD_COL_WIDTH_余额" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_合并用料查询_COL_WIDTH_序号" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">50</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_合并用料查询_COL_WIDTH_料号PN" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_合并用料查询_COL_WIDTH_物料名称" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_合并用料查询_COL_WIDTH_规格描述" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">100</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_合并用料查询_COL_WIDTH_单位" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">50</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_合并用料查询_WIDTH" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">800</Value>
|
||||
</Setting>
|
||||
<Setting Name="FORM_合并用料查询_HEIGHT" Type="System.Int32" Scope="User">
|
||||
<Value Profile="(Default)">400</Value>
|
||||
</Setting>
|
||||
</Settings>
|
||||
</SettingsFile>
|
||||
47
WT-DMS/My Project/app.manifest
Normal file
47
WT-DMS/My Project/app.manifest
Normal file
@@ -0,0 +1,47 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" 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">
|
||||
<assemblyIdentity version="1.0.0.0" name="MyApplication.app" />
|
||||
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
|
||||
<security>
|
||||
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||
<!-- UAC 清单选项
|
||||
如果要更改 Windows 用户帐户控制级别，请用以下节点之一替换
|
||||
requestedExecutionLevel 节点。
|
||||
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
|
||||
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
|
||||
|
||||
指定 requestedExecutionLevel 节点将会禁用文件和注册表虚拟化。
|
||||
如果要利用文件和注册表虚拟化实现向后
|
||||
兼容性，则删除 requestedExecutionLevel 节点。
|
||||
-->
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
</requestedPrivileges>
|
||||
<applicationRequestMinimum>
|
||||
<PermissionSet Unrestricted="true" ID="Custom" SameSite="site" />
|
||||
<defaultAssemblyRequest permissionSetReference="Custom" />
|
||||
</applicationRequestMinimum>
|
||||
</security>
|
||||
</trustInfo>
|
||||
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
|
||||
<application>
|
||||
<!-- 此应用程序设计使用的所有 Windows 版本的列表。Windows 将会自动选择最兼容的环境。-->
|
||||
<!-- 如果应用程序设计使用 Windows 7，请取消注释以下 supportedOS 节点-->
|
||||
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>-->
|
||||
</application>
|
||||
</compatibility>
|
||||
<!-- 启用 Windows 公共控件和对话框的主题(Windows XP 和更高版本) -->
|
||||
<!-- <dependency>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity
|
||||
type="win32"
|
||||
name="Microsoft.Windows.Common-Controls"
|
||||
version="6.0.0.0"
|
||||
processorArchitecture="*"
|
||||
publicKeyToken="6595b64144ccf1df"
|
||||
language="*"
|
||||
/>
|
||||
</dependentAssembly>
|
||||
</dependency>-->
|
||||
</asmv1:assembly>
|
||||
456
WT-DMS/WT-DMS.vbproj
Normal file
456
WT-DMS/WT-DMS.vbproj
Normal file
@@ -0,0 +1,456 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
||||
<ProductVersion>
|
||||
</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{5F2F6487-6E84-4827-ADBB-5EEFB94661CB}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>WT_DMS.My.MyApplication</StartupObject>
|
||||
<RootNamespace>WT_DMS</RootNamespace>
|
||||
<AssemblyName>INHAOS_DMS</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile>
|
||||
</TargetFrameworkProfile>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<PublishUrl>publish\</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>0</ApplicationRevision>
|
||||
<ApplicationVersion>3.8.0.%2a</ApplicationVersion>
|
||||
<UseApplicationTrust>false</UseApplicationTrust>
|
||||
<PublishWizardCompleted>true</PublishWizardCompleted>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>INHAOS_DMS.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>INHAOS_DMS.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ManifestCertificateThumbprint>63DFE2C29A43988A1161842CA8A79E91BD8FD2B7</ManifestCertificateThumbprint>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ManifestKeyFile>WT-DMS_TemporaryKey.pfx</ManifestKeyFile>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<GenerateManifests>true</GenerateManifests>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<SignManifests>false</SignManifests>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<TargetZone>LocalIntranet</TargetZone>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="CamSnapShot">
|
||||
<HintPath>..\..\CamSnapShot\CamSnapShot\bin\Debug\CamSnapShot.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DirectShowLib-2005, Version=2.1.0.0, Culture=neutral, PublicKeyToken=67e7b740cdfc2d3f, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\CamSnapShot\CamSnapShot\bin\Debug\DirectShowLib-2005.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="FlexCell, Version=4.4.4.0, Culture=neutral, PublicKeyToken=6f86587eb70ee309, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>C:\Program Files (x86)\FlexCell Technologies\FlexCell.NET4\bin\FlexCell.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="MySql.Data, Version=6.7.4.0, Culture=neutral, PublicKeyToken=c5687fc88969c44d, processorArchitecture=MSIL" />
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
<Reference Include="System.Core" />
|
||||
<Reference Include="System.Xml.Linq" />
|
||||
<Reference Include="System.Data.DataSetExtensions" />
|
||||
</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" />
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="AboutBox1.Designer.vb">
|
||||
<DependentUpon>AboutBox1.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="AboutBox1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="ApplicationEvents.vb" />
|
||||
<Compile Include="CAccountManage.vb" />
|
||||
<Compile Include="CBackupManage.vb" />
|
||||
<Compile Include="CBOM.vb" />
|
||||
<Compile Include="CCompanyManage.vb" />
|
||||
<Compile Include="CDepartmentManage.vb" />
|
||||
<Compile Include="CEmployeeManage.vb" />
|
||||
<Compile Include="CGirdInfo.vb" />
|
||||
<Compile Include="CLogManage.vb" />
|
||||
<Compile Include="CMaterialInOut.vb" />
|
||||
<Compile Include="CMSQL_Interface.vb" />
|
||||
<Compile Include="CPartNumber.vb" />
|
||||
<Compile Include="CProductsManage.vb" />
|
||||
<Compile Include="CSQLInterface.vb" />
|
||||
<Compile Include="CStore.vb" />
|
||||
<Compile Include="CStoreLocation.vb" />
|
||||
<Compile Include="CSupplier.vb" />
|
||||
<Compile Include="dlgImage.Designer.vb">
|
||||
<DependentUpon>dlgImage.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="dlgImage.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="dlg_AddSupplier.Designer.vb">
|
||||
<DependentUpon>dlg_AddSupplier.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="dlg_AddSupplier.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="dlg_Input.Designer.vb">
|
||||
<DependentUpon>dlg_Input.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="dlg_Input.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="dlg_StoreSelect.Designer.vb">
|
||||
<DependentUpon>dlg_StoreSelect.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="dlg_StoreSelect.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="form_BomManage.Designer.vb">
|
||||
<DependentUpon>form_BomManage.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="form_BomManage.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form_FinancialQuery_Development.Designer.vb">
|
||||
<DependentUpon>Form_FinancialQuery_Development.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Form_FinancialQuery_Development.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form_FinancialQuery_Sales.Designer.vb">
|
||||
<DependentUpon>Form_FinancialQuery_Sales.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Form_FinancialQuery_Sales.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form_FinancialRecords_Development.Designer.vb">
|
||||
<DependentUpon>Form_FinancialRecords_Development.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Form_FinancialRecords_Development.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form_FinancialRecords_Sales.Designer.vb">
|
||||
<DependentUpon>Form_FinancialRecords_Sales.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Form_FinancialRecords_Sales.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="form_Material.Designer.vb">
|
||||
<DependentUpon>form_Material.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="form_Material.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="form_PartNumber.Designer.vb">
|
||||
<DependentUpon>form_PartNumber.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="form_PartNumber.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="form_Product.Designer.vb">
|
||||
<DependentUpon>form_Product.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="form_Product.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="form_QuerySim.Designer.vb">
|
||||
<DependentUpon>form_QuerySim.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="form_QuerySim.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form_QueryStorageRecord.Designer.vb">
|
||||
<DependentUpon>Form_QueryStorageRecord.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Form_QueryStorageRecord.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form_QueryStorage.Designer.vb">
|
||||
<DependentUpon>Form_QueryStorage.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Form_QueryStorage.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="form_StoreLocManage.Designer.vb">
|
||||
<DependentUpon>form_StoreLocManage.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="form_StoreLocManage.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="form_SupplierManage.Designer.vb">
|
||||
<DependentUpon>form_SupplierManage.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="form_SupplierManage.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form_SysLog.Designer.vb">
|
||||
<DependentUpon>Form_SysLog.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Form_SysLog.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="form_UserManage.Designer.vb">
|
||||
<DependentUpon>form_UserManage.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="form_UserManage.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form_合并备料查询.Designer.vb">
|
||||
<DependentUpon>Form_合并备料查询.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Form_合并备料查询.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form_备份管理.Designer.vb">
|
||||
<DependentUpon>Form_备份管理.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Form_备份管理.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="LoginForm1.Designer.vb">
|
||||
<DependentUpon>LoginForm1.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="LoginForm1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="mdl_SQLConst.vb" />
|
||||
<Compile Include="mdl_Common.vb" />
|
||||
<Compile Include="mdl_Defs.vb" />
|
||||
<Compile Include="mdl_SQLAccessManage.vb" />
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
<DesignTime>True</DesignTime>
|
||||
</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="AboutBox1.resx">
|
||||
<DependentUpon>AboutBox1.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="dlgImage.resx">
|
||||
<DependentUpon>dlgImage.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="dlg_AddSupplier.resx">
|
||||
<DependentUpon>dlg_AddSupplier.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="dlg_Input.resx">
|
||||
<DependentUpon>dlg_Input.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="dlg_StoreSelect.resx">
|
||||
<DependentUpon>dlg_StoreSelect.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Form1.resx">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="form_BomManage.resx">
|
||||
<DependentUpon>form_BomManage.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Form_FinancialQuery_Development.resx">
|
||||
<DependentUpon>Form_FinancialQuery_Development.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Form_FinancialQuery_Sales.resx">
|
||||
<DependentUpon>Form_FinancialQuery_Sales.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Form_FinancialRecords_Development.resx">
|
||||
<DependentUpon>Form_FinancialRecords_Development.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Form_FinancialRecords_Sales.resx">
|
||||
<DependentUpon>Form_FinancialRecords_Sales.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="form_Material.resx">
|
||||
<DependentUpon>form_Material.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="form_PartNumber.resx">
|
||||
<DependentUpon>form_PartNumber.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="form_Product.resx">
|
||||
<DependentUpon>form_Product.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="form_QuerySim.resx">
|
||||
<DependentUpon>form_QuerySim.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Form_QueryStorageRecord.resx">
|
||||
<DependentUpon>Form_QueryStorageRecord.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Form_QueryStorage.resx">
|
||||
<DependentUpon>Form_QueryStorage.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="form_StoreLocManage.resx">
|
||||
<DependentUpon>form_StoreLocManage.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="form_SupplierManage.resx">
|
||||
<DependentUpon>form_SupplierManage.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Form_SysLog.resx">
|
||||
<DependentUpon>Form_SysLog.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="form_UserManage.resx">
|
||||
<DependentUpon>form_UserManage.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Form_合并备料查询.resx">
|
||||
<DependentUpon>Form_合并备料查询.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Form_备份管理.resx">
|
||||
<DependentUpon>Form_备份管理.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="LoginForm1.resx">
|
||||
<DependentUpon>LoginForm1.vb</DependentUpon>
|
||||
</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="My Project\app.manifest" />
|
||||
<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>
|
||||
<None Include="WT-DMS_TemporaryKey.pfx" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="版本说明.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<PublishFile Include="FlexCell">
|
||||
<Visible>False</Visible>
|
||||
<Group>
|
||||
</Group>
|
||||
<TargetPath>
|
||||
</TargetPath>
|
||||
<PublishState>Include</PublishState>
|
||||
<IncludeHash>True</IncludeHash>
|
||||
<FileType>Assembly</FileType>
|
||||
</PublishFile>
|
||||
<PublishFile Include="版本说明.txt">
|
||||
<Visible>False</Visible>
|
||||
<Group>
|
||||
</Group>
|
||||
<TargetPath>
|
||||
</TargetPath>
|
||||
<PublishState>Exclude</PublishState>
|
||||
<IncludeHash>True</IncludeHash>
|
||||
<FileType>File</FileType>
|
||||
</PublishFile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include=".NETFramework,Version=v4.0,Profile=Client">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>Microsoft .NET Framework 4 Client Profile %28x86 和 x64%29</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>Windows Installer 3.1</ProductName>
|
||||
<Install>true</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>
|
||||
19
WT-DMS/WT-DMS.vbproj.user
Normal file
19
WT-DMS/WT-DMS.vbproj.user
Normal file
@@ -0,0 +1,19 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
|
||||
<EnableSQLServerDebugging>true</EnableSQLServerDebugging>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<PublishUrlHistory>publish\</PublishUrlHistory>
|
||||
<InstallUrlHistory />
|
||||
<SupportUrlHistory />
|
||||
<UpdateUrlHistory />
|
||||
<BootstrapperUrlHistory />
|
||||
<ErrorReportUrlHistory />
|
||||
<FallbackCulture>zh-CN</FallbackCulture>
|
||||
<VerifyUploadedFiles>false</VerifyUploadedFiles>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<EnableSecurityDebugging>false</EnableSecurityDebugging>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
BIN
WT-DMS/WT-DMS_TemporaryKey.pfx
Normal file
BIN
WT-DMS/WT-DMS_TemporaryKey.pfx
Normal file
Binary file not shown.
242
WT-DMS/app.config
Normal file
242
WT-DMS/app.config
Normal file
@@ -0,0 +1,242 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<configSections>
|
||||
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<section name="WT_DMS.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
|
||||
</sectionGroup>
|
||||
</configSections>
|
||||
<system.diagnostics>
|
||||
<sources>
|
||||
<!-- 本节定义 My.Application.Log 的登录配置-->
|
||||
<source name="DefaultSource" switchName="DefaultSwitch">
|
||||
<listeners>
|
||||
<add name="FileLog"/>
|
||||
<!-- 取消注释以下一节可写入应用程序事件日志-->
|
||||
<!--<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"/>
|
||||
<!-- 取消注释以下一节并用应用程序名替换 APPLICATION_NAME 可写入应用程序事件日志-->
|
||||
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
|
||||
</sharedListeners>
|
||||
</system.diagnostics>
|
||||
<userSettings>
|
||||
<WT_DMS.My.MySettings>
|
||||
<setting name="TXT_USERNAME" serializeAs="String">
|
||||
<value/>
|
||||
</setting>
|
||||
<setting name="CHK_SAVEUSERNAME" serializeAs="String">
|
||||
<value>False</value>
|
||||
</setting>
|
||||
<setting name="CHK_PREVIEW" serializeAs="String">
|
||||
<value>False</value>
|
||||
</setting>
|
||||
<setting name="FORM_QUERYSIM_WIDHT" serializeAs="String">
|
||||
<value>358</value>
|
||||
</setting>
|
||||
<setting name="FORM_QUERYSIM_HEIGHT" serializeAs="String">
|
||||
<value>499</value>
|
||||
</setting>
|
||||
<setting name="FORM_QUERYSTORAGE_WIDTH" serializeAs="String">
|
||||
<value>444</value>
|
||||
</setting>
|
||||
<setting name="FORM_QUERYSTORAGE_HEIGHT" serializeAs="String">
|
||||
<value>444</value>
|
||||
</setting>
|
||||
<setting name="FORM_QUERYSIM_WINSTATE" serializeAs="String">
|
||||
<value>0</value>
|
||||
</setting>
|
||||
<setting name="FORM_QUERYSTORAGE_WINSTATE" serializeAs="String">
|
||||
<value>0</value>
|
||||
</setting>
|
||||
<setting name="FORM_QUERYSIM_X" serializeAs="String">
|
||||
<value>0</value>
|
||||
</setting>
|
||||
<setting name="FORM_QUERYSIM_Y" serializeAs="String">
|
||||
<value>0</value>
|
||||
</setting>
|
||||
<setting name="FORM_QUERYSTORAGE_X" serializeAs="String">
|
||||
<value>0</value>
|
||||
</setting>
|
||||
<setting name="FORM_QUERYSTORAGE_Y" serializeAs="String">
|
||||
<value>0</value>
|
||||
</setting>
|
||||
<setting name="FORM_PARTNUMBER_X" serializeAs="String">
|
||||
<value>0</value>
|
||||
</setting>
|
||||
<setting name="FORM_PARTNUMBER_Y" serializeAs="String">
|
||||
<value>0</value>
|
||||
</setting>
|
||||
<setting name="FORM_MATERIAL_X" serializeAs="String">
|
||||
<value>0</value>
|
||||
</setting>
|
||||
<setting name="FORM_MATERIAL_Y" serializeAs="String">
|
||||
<value>0</value>
|
||||
</setting>
|
||||
<setting name="FORM_SYSLOG_WIDTH" serializeAs="String">
|
||||
<value>730</value>
|
||||
</setting>
|
||||
<setting name="FORM_SYSLOG_HEIGHT" serializeAs="String">
|
||||
<value>530</value>
|
||||
</setting>
|
||||
<setting name="FORM_SYSLOG_X" serializeAs="String">
|
||||
<value>0</value>
|
||||
</setting>
|
||||
<setting name="FORM_SYSLOG_Y" serializeAs="String">
|
||||
<value>0</value>
|
||||
</setting>
|
||||
<setting name="CHK_SHOWIMAGE" serializeAs="String">
|
||||
<value>False</value>
|
||||
</setting>
|
||||
<setting name="FORM_BOM_COL_WIDTH_序号" serializeAs="String">
|
||||
<value>30</value>
|
||||
</setting>
|
||||
<setting name="FORM_BOM_COL_WIDTH_料号PN" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_BOM_COL_WIDTH_物料名称" serializeAs="String">
|
||||
<value>200</value>
|
||||
</setting>
|
||||
<setting name="FORM_BOM_COL_WIDTH_规格描述" serializeAs="String">
|
||||
<value>400</value>
|
||||
</setting>
|
||||
<setting name="FORM_BOM_COL_WIDTH_单位" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_BOM_COL_WIDTH_用量" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_BOM_COL_WIDTH_使用位置" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_BOM_COL_WIDTH_父料号" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_BOM_COL_WIDTH_图片" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_BOM_COL_WIDTH_备注" serializeAs="String">
|
||||
<value>400</value>
|
||||
</setting>
|
||||
<setting name="FORM_BOM_WIDTH" serializeAs="String">
|
||||
<value>800</value>
|
||||
</setting>
|
||||
<setting name="FORM_BOM_HEIGHT" serializeAs="String">
|
||||
<value>400</value>
|
||||
</setting>
|
||||
<setting name="CHK_SHOWPNINFO" serializeAs="String">
|
||||
<value>False</value>
|
||||
</setting>
|
||||
<setting name="CHK_SHOWPNIMAGE" serializeAs="String">
|
||||
<value>False</value>
|
||||
</setting>
|
||||
<setting name="DLG_IMAGE_WIDTH" serializeAs="String">
|
||||
<value>400</value>
|
||||
</setting>
|
||||
<setting name="DLG_IMAGE_HEIGHT" serializeAs="String">
|
||||
<value>400</value>
|
||||
</setting>
|
||||
<setting name="DLG_IMAGE_LEFT" serializeAs="String">
|
||||
<value>0</value>
|
||||
</setting>
|
||||
<setting name="DLG_IMAGE_TOP" serializeAs="String">
|
||||
<value>0</value>
|
||||
</setting>
|
||||
<setting name="FORM_BOM_COL_WIDTH_工艺流程" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="CHK_AUTOLOGIN" serializeAs="String">
|
||||
<value>False</value>
|
||||
</setting>
|
||||
<setting name="TXT_PASSWORD" serializeAs="String">
|
||||
<value/>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_序号" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_日期" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_时间" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_收入" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_支出" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_收支类别" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_收支子类别" serializeAs="String">
|
||||
<value>150</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_机种" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_交易方" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_业务类型" serializeAs="String">
|
||||
<value>150</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_事由" serializeAs="String">
|
||||
<value>200</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_经手人" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_单据类型" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_单据编号" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_备注1" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_备注2" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_备注3" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_WIDTH" serializeAs="String">
|
||||
<value>800</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_HEIGHT" serializeAs="String">
|
||||
<value>400</value>
|
||||
</setting>
|
||||
<setting name="FORM_FINAN_RECORD_COL_WIDTH_余额" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_合并用料查询_COL_WIDTH_序号" serializeAs="String">
|
||||
<value>50</value>
|
||||
</setting>
|
||||
<setting name="FORM_合并用料查询_COL_WIDTH_料号PN" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_合并用料查询_COL_WIDTH_物料名称" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_合并用料查询_COL_WIDTH_规格描述" serializeAs="String">
|
||||
<value>100</value>
|
||||
</setting>
|
||||
<setting name="FORM_合并用料查询_COL_WIDTH_单位" serializeAs="String">
|
||||
<value>50</value>
|
||||
</setting>
|
||||
<setting name="FORM_合并用料查询_WIDTH" serializeAs="String">
|
||||
<value>800</value>
|
||||
</setting>
|
||||
<setting name="FORM_合并用料查询_HEIGHT" serializeAs="String">
|
||||
<value>400</value>
|
||||
</setting>
|
||||
</WT_DMS.My.MySettings>
|
||||
</userSettings>
|
||||
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/></startup></configuration>
|
||||
BIN
WT-DMS/bin/Debug.zip
Normal file
BIN
WT-DMS/bin/Debug.zip
Normal file
Binary file not shown.
BIN
WT-DMS/bin/Debug/CamSnapShot.dll
Normal file
BIN
WT-DMS/bin/Debug/CamSnapShot.dll
Normal file
Binary file not shown.
File diff suppressed because it is too large
Load Diff
BIN
WT-DMS/bin/Debug/DirectShowLib-2005.dll
Normal file
BIN
WT-DMS/bin/Debug/DirectShowLib-2005.dll
Normal file
Binary file not shown.
BIN
WT-DMS/bin/Debug/FlexCell.dll
Normal file
BIN
WT-DMS/bin/Debug/FlexCell.dll
Normal file
Binary file not shown.
2
WT-DMS/bin/Debug/GRID/Recent_OL.ini
Normal file
2
WT-DMS/bin/Debug/GRID/Recent_OL.ini
Normal file
@@ -0,0 +1,2 @@
|
||||
1
|
||||
1
|
||||
2
WT-DMS/bin/Debug/GRID/Recent_PN.ini
Normal file
2
WT-DMS/bin/Debug/GRID/Recent_PN.ini
Normal file
@@ -0,0 +1,2 @@
|
||||
1
|
||||
1
|
||||
19
WT-DMS/bin/Debug/GRID/Recent_PN_Desc.ini
Normal file
19
WT-DMS/bin/Debug/GRID/Recent_PN_Desc.ini
Normal file
@@ -0,0 +1,19 @@
|
||||
С<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƭ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>˿<EFBFBD><EFBFBD> 2P2PIN/λ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>XFCN(̨<><CCA8><EFBFBD>˷<EFBFBD>) XF-506P
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˿(С<><D0A1>) 10A/58V/6.80M<EFBFBD><EFBFBD>/<2F><>ɫ
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˿(С<><D0A1>) 10A/58V/6.80M<EFBFBD><EFBFBD>/<2F><>ɫ
|
||||
<EFBFBD><EFBFBD><EFBFBD>ȹ<EFBFBD>֬ CPU<50>Կ<EFBFBD>ɢ<EFBFBD>ȸ<EFBFBD> LED<45><44><EFBFBD>ȸ<EFBFBD> <20><><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>0.8 1KG
|
||||
<EFBFBD><EFBFBD>·ģ<EFBFBD>飬BLV-A9-LD-CH8-V02<30><32>8·<38><C2B7>ѹģ<D1B9><C4A3>
|
||||
<EFBFBD><EFBFBD>·ģ<EFBFBD>飬BLV-A9-LD-CH3-V02<30><32>3·<33><C2B7>ѹģ<D1B9><C4A3>
|
||||
<EFBFBD><EFBFBD>·ģ<EFBFBD>飬BLV-A9-PB-V02<30><32>A9-PBģ<42><C4A3>
|
||||
PCB <20>壬BLV-A9-PB-V02
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD><EFBFBD>֣<EFBFBD>FR4, <20><><EFBFBD><EFBFBD>1.6mm<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
86x86MM ,˿ӡ<CBBF><D3A1>BLV-A9-PB-V02
|
||||
PCB <20>壬BLV-A9-PB-V02
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD><EFBFBD>֣<EFBFBD>FR4, <20><><EFBFBD><EFBFBD>1.6mm<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
86x86MM ,˿ӡ<CBBF><D3A1>BLV-A9-PB-V02
|
||||
PCB <20>壬BLV-A9-PB-V02
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD><EFBFBD>֣<EFBFBD>FR4, <20><><EFBFBD><EFBFBD>1.6mm<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
86x86MM ,˿ӡ<CBBF><D3A1>BLV-A9-PB-V02
|
||||
<EFBFBD><EFBFBD>·ģ<EFBFBD>飬BLV-A9-PB-V02<30><32>A9-PBģ<42><C4A3>
|
||||
1
|
||||
1234
|
||||
10
WT-DMS/bin/Debug/GRID/Recent_PN_Name.ini
Normal file
10
WT-DMS/bin/Debug/GRID/Recent_PN_Name.ini
Normal file
@@ -0,0 +1,10 @@
|
||||
<EFBFBD><EFBFBD><EFBFBD>ȹ<EFBFBD>֬
|
||||
<EFBFBD><EFBFBD>·ģ<EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD>·ģ<EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD>·ģ<EFBFBD><EFBFBD>
|
||||
PCB
|
||||
PCB
|
||||
PCB
|
||||
<EFBFBD><EFBFBD>·ģ<EFBFBD><EFBFBD>
|
||||
1
|
||||
1234
|
||||
10
WT-DMS/bin/Debug/GRID/Recent_PN_PN.ini
Normal file
10
WT-DMS/bin/Debug/GRID/Recent_PN_PN.ini
Normal file
@@ -0,0 +1,10 @@
|
||||
A03-BLV-A9-LD-CH8A-V02
|
||||
A03-BLV-A9-PB-V02
|
||||
A03-BLV-A9-PB-V02
|
||||
PCB-BLV-A9-LD-CH3-V02
|
||||
PCB-BLV-A9-LD-CH3-V02
|
||||
PCB-BLV-A9-PB-V02
|
||||
A03-BLV-A9-PB-V02
|
||||
1
|
||||
1
|
||||
1234
|
||||
0
WT-DMS/bin/Debug/GRID/Recent_UI.ini
Normal file
0
WT-DMS/bin/Debug/GRID/Recent_UI.ini
Normal file
8
WT-DMS/bin/Debug/GRID/料号查询.ini
Normal file
8
WT-DMS/bin/Debug/GRID/料号查询.ini
Normal file
@@ -0,0 +1,8 @@
|
||||
C0=40
|
||||
C1=147
|
||||
C2=81
|
||||
C3=302
|
||||
C4=55
|
||||
C5=65
|
||||
C6=71
|
||||
C7=80
|
||||
9
WT-DMS/bin/Debug/GRID/物料库存查询.ini
Normal file
9
WT-DMS/bin/Debug/GRID/物料库存查询.ini
Normal file
@@ -0,0 +1,9 @@
|
||||
C0=40
|
||||
C1=87
|
||||
C2=67
|
||||
C3=125
|
||||
C4=47
|
||||
C5=42
|
||||
C6=37
|
||||
C7=37
|
||||
C8=80
|
||||
9
WT-DMS/bin/Debug/GRID/系统记录.ini
Normal file
9
WT-DMS/bin/Debug/GRID/系统记录.ini
Normal file
@@ -0,0 +1,9 @@
|
||||
C0=40
|
||||
C1=80
|
||||
C2=80
|
||||
C3=80
|
||||
C4=67
|
||||
C5=283
|
||||
C6=80
|
||||
C7=80
|
||||
C8=80
|
||||
1
WT-DMS/bin/Debug/GRID/财务_业务类型.ini
Normal file
1
WT-DMS/bin/Debug/GRID/财务_业务类型.ini
Normal file
@@ -0,0 +1 @@
|
||||
<EFBFBD><EFBFBD>ó
|
||||
1
WT-DMS/bin/Debug/GRID/财务_业务类型_销售.ini
Normal file
1
WT-DMS/bin/Debug/GRID/财务_业务类型_销售.ini
Normal file
@@ -0,0 +1 @@
|
||||
<EFBFBD><EFBFBD>ó
|
||||
1
WT-DMS/bin/Debug/GRID/财务_交易方.ini
Normal file
1
WT-DMS/bin/Debug/GRID/财务_交易方.ini
Normal file
@@ -0,0 +1 @@
|
||||
CH
|
||||
1
WT-DMS/bin/Debug/GRID/财务_交易方_销售.ini
Normal file
1
WT-DMS/bin/Debug/GRID/财务_交易方_销售.ini
Normal file
@@ -0,0 +1 @@
|
||||
HHH
|
||||
1
WT-DMS/bin/Debug/GRID/财务_单据类型.ini
Normal file
1
WT-DMS/bin/Debug/GRID/财务_单据类型.ini
Normal file
@@ -0,0 +1 @@
|
||||
<EFBFBD><EFBFBD>Ʊ
|
||||
1
WT-DMS/bin/Debug/GRID/财务_单据类型_销售.ini
Normal file
1
WT-DMS/bin/Debug/GRID/财务_单据类型_销售.ini
Normal file
@@ -0,0 +1 @@
|
||||
<EFBFBD><EFBFBD>Ʊ
|
||||
1
WT-DMS/bin/Debug/GRID/财务_客户.ini
Normal file
1
WT-DMS/bin/Debug/GRID/财务_客户.ini
Normal file
@@ -0,0 +1 @@
|
||||
CH
|
||||
3
WT-DMS/bin/Debug/GRID/财务_收支类别.ini
Normal file
3
WT-DMS/bin/Debug/GRID/财务_收支类别.ini
Normal file
@@ -0,0 +1,3 @@
|
||||
<EFBFBD><EFBFBD>Ŀ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD>ǹ̶<EFBFBD>֧<EFBFBD><EFBFBD>
|
||||
<EFBFBD>̶<EFBFBD>֧<EFBFBD><EFBFBD>
|
||||
4
WT-DMS/bin/Debug/GRID/财务_收支类别_固定支出.ini
Normal file
4
WT-DMS/bin/Debug/GRID/财务_收支类别_固定支出.ini
Normal file
@@ -0,0 +1,4 @@
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
н<EFBFBD><EFBFBD>
|
||||
ˮ<EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
2
WT-DMS/bin/Debug/GRID/财务_收支类别_销售.ini
Normal file
2
WT-DMS/bin/Debug/GRID/财务_收支类别_销售.ini
Normal file
@@ -0,0 +1,2 @@
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
1
WT-DMS/bin/Debug/GRID/财务_收支类别_销售_店铺销售.ini
Normal file
1
WT-DMS/bin/Debug/GRID/财务_收支类别_销售_店铺销售.ini
Normal file
@@ -0,0 +1 @@
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ
|
||||
1
WT-DMS/bin/Debug/GRID/财务_收支类别_销售_网上销售.ini
Normal file
1
WT-DMS/bin/Debug/GRID/财务_收支类别_销售_网上销售.ini
Normal file
@@ -0,0 +1 @@
|
||||
EBAY<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user