20210101備份

MaoOrange-Hongji/LoginForm1.Designer.vb

         Me.伺服器區域_ch.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.伺服器區域_ch.ForeColor = System.Drawing.Color.Blue
         Me.伺服器區域_ch.FormattingEnabled = True
-        Me.伺服器區域_ch.Items.AddRange(New Object() {"懋桔", "設計"})
+        Me.伺服器區域_ch.Items.AddRange(New Object() {"懋桔內網", "懋桔外網", "設計線路"})
         Me.伺服器區域_ch.Location = New System.Drawing.Point(334, 36)
         Me.伺服器區域_ch.Name = "伺服器區域_ch"
         Me.伺服器區域_ch.Size = New System.Drawing.Size(75, 20)

MaoOrange-Hongji/LoginForm1.vb

-Imports System.Net
+Imports System.Drawing
+Imports System.Net
+Imports System.Windows.Forms
 Public Class LoginForm1
     ' TODO: 插入程式碼，利用提供的使用者名稱和密碼執行自訂驗證
     ' (請參閱 https://go.microsoft.com/fwlink/?LinkId=35339)。
     ' 接著，My.User 便會傳回封裝在 CustomPrincipal 物件中的識別資訊，
     ' 例如使用者名稱、顯示名稱等。
     ReadOnly ds2 As New DataSet
+    Dim MACKK As String 'MAC碼
+    Dim diskId As String '數字ID
+    Dim diskSerialNumber As String '硬碟序列
+    Dim diskModel As String '磁盘型態
     Public Property Credentials As ICredentials
     ReadOnly screenWidth = Screen.PrimaryScreen.Bounds.Width
     ReadOnly screenHeight = Screen.PrimaryScreen.Bounds.Height
         刷卡登入_ch.Checked = True : 刷卡登入_ch.Enabled = False : 登入綁定_ch.Checked = False : 登入綁定_ch.Enabled = False : 帳號_tb.Visible = False
         執行檔版本號_lb.Text = "執行檔版本號 : " & 版本
         網段.ShowDialog()
-        If 登入判斷 = True Then
-            伺服器區域_ch.Text = "懋桔" : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
-        ElseIf 登入判斷 = False Then
-            伺服器區域_ch.Text = "設計" : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
+        If 登入判斷 = True And 內外網 = False Then
+            伺服器區域_ch.Text = "懋桔內網" : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
+        ElseIf 登入判斷 = True And 內外網 = True Then
+            伺服器區域_ch.Text = "懋桔外網" : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
+        ElseIf 登入判斷 = False And 內外網 = False Then
+            伺服器區域_ch.Text = "設計線路" : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
         End If
         '-----------------------調整視窗大小-----------------------------------------------------------------------------------------------------------------------------------------------
         Me.Size = New Size(466, 279)
             MsgBox("非系統功能因素造成目前系統已鎖定，無法開啟，請聯繫系統開發商。")
             Me.Close()
         End If
+        '-----MAC碼與硬碟資料-------------------------------------------------------------------------------------------------------------------------------------------------------------
+        Dim Wmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
+        For Each WmiObj As Management.ManagementObject In Wmi.Get
+            If CBool(WmiObj("IPEnabled")) Then
+                MACKK = WmiObj("MACAddress")
+            End If
+        Next
+        Dim cmicWmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
+        For Each cmicWmiObj As Management.ManagementObject In cmicWmi.Get
+            diskId = cmicWmiObj("size")             'diskId = cmicWmiObj("signature")
+            diskSerialNumber = cmicWmiObj("serialnumber")
+            diskModel = cmicWmiObj("Model")
+            Exit For
+        Next
+        '-----電腦綁定判斷-------------------------------------------------------------------------------------------------------------------------------------------------------------
+        PA1 = MACKK : PA2 = diskId : PA3 = diskSerialNumber : PA4 = diskModel
+        SQL_電腦綁定()
+        If dr.Read() Then
+            conn.Close()
+        Else
+            conn.Close() : MsgBox("該電腦沒有註冊，無法使用系統。") : Me.Close()
+        End If
     End Sub
     Private Sub 伺服器區域_ch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 伺服器區域_ch.SelectedIndexChanged
         '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
-        If 伺服器區域_ch.Text = "懋桔" Then
-            登入人IP = "192.168.0.199" : 登入() : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
-        ElseIf 伺服器區域_ch.Text = "設計" Then
+        If 登入判斷 = True And 內外網 = False Then
+            登入人IP = "192.168.0.199,2433" : 登入() : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
+        ElseIf 登入判斷 = True And 內外網 = True Then
+            登入人IP = "59.127.190.74,2433" : 登入() : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
+        ElseIf 登入判斷 = False And 內外網 = False Then
             登入人IP = "106.1.50.79" : 登入() : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
         End If
     End Sub
     Private Sub 登入()
         '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
-        If 伺服器區域_ch.Text = "設計" Then
-            SQL_連線字串_測試()
-        Else
-            SQL_連線字串_正式()
-        End If
+        SQL_連線字串_正式()
         驗證_tb.Text = "1" : g_conn_type = 伺服器區域_ch.Text & "伺服器"
         '-----------------------系統版本號驗證-----------------------------------------------------------------------------------------------------------------------------------------------
         SQL_系統版本號驗證()

MaoOrange-Hongji/MAOJI-ERP-SYS.vbproj

     <Reference Include="System.Data" />
     <Reference Include="System.Deployment" />
     <Reference Include="System.Drawing" />
+    <Reference Include="System.Management" />
     <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Xml" />
     <Reference Include="System.Core" />

MaoOrange-Hongji/Module/SQL_Module.vb

         ConString = "Data Source=" & 登入人IP & ";Initial Catalog=MAO-ORANGE-ERP-SYS;Persist Security Info=True;User ID=B70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
     End Sub
     Friend Sub SQL_連線字串_正式()
-        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=MAO-ORANGE-ERP-SYS;Persist Security Info=True;User ID=B70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
+        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=MAO-ORANGE-ERP-SYS;Persist Security Info=True;User ID=B70340;Password=lee0911274990;Max pool size = 200;Connection Timeout=0"
     End Sub
     Friend Sub ConnOpen()
         conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

MaoOrange-Hongji/Module/SQL_登入與主程式.vb

     Friend Sub SQL_帳號讀取()
         ConnOpen() : SQL1 = "SELECT 帳號 FROM 使用者權限管理表" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_電腦綁定()
+        ConnOpen()
+        SQL1 = "SELECT MAC碼 FROM 系統綁定電腦資訊 WHERE 硬碟ID LIKE N'" & PA2 & "' AND 硬碟序列 LIKE N'" & PA3 & "' AND 磁盘型態 LIKE N'" & PA4 & "'"
+        CmdSet_For_dr()
+    End Sub
     '---------------------MAOJI_ERP_SYS-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_公司選擇清單()
         ConnOpen() : SQL1 = "SELECT 公司編號, 公司名, 統編, 電話, 地址 FROM MJ公司基本資料 ORDER BY 公司編號" : CmdSet_For_dr()

MaoOrange-Hongji/Module/全域變數.vb

     '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public g_conn_type As String = "" : Public gUserName As String : Public 登入人部門 As String : Public 登入人課別 As String : Public 登入人組別 As String : Public 登入人IP As String
     Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
-    Public AA(99) As String : Public BB(99) As Boolean : Public CC(99) As Boolean : Public 登入判斷 As Boolean
+    Public AA(99) As String : Public BB(99) As Boolean : Public CC(99) As Boolean : Public 登入判斷 As Boolean : Public 內外網 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2020090101"
+    Public 版本 As String = "2021010101"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
     Public 關鍵字編號 As String

MaoOrange-Hongji/obj/Debug/MAOJI-ERP-SYS.vbproj.CoreCompileInputs.cache

-26bccacf0a88333bd780125231fce0fbe94bc71c
+5343654623d4061609655693541c6b818bff463b

MaoOrange-Hongji/採購系統管理/採購控制表.vb

             End If
         Next
     End Sub
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
+    Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
         If 會計月_ch.Checked = True Then
             中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
             開始日期_dtp.Value = 中間日期_dtp.Value
         End If
         日期格式()
     End Sub
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click
+    Private Sub 下個月_bt_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click
         If 會計月_ch.Checked = True Then
             中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
             開始日期_dtp.Value = 中間日期_dtp.Value

MaoOrange-Hongji/資料庫系統管理/網段.Designer.vb

     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(網段))
-        Me.Yes_bt = New System.Windows.Forms.Button()
-        Me.No_bt = New System.Windows.Forms.Button()
+        Me.內網_bt = New System.Windows.Forms.Button()
+        Me.測試_bt = New System.Windows.Forms.Button()
         Me.Version = New System.Windows.Forms.Label()
         Me.Copyright = New System.Windows.Forms.Label()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
+        Me.外網_bt = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
-        'Yes_bt
+        '內網_bt
         '
-        Me.Yes_bt.Location = New System.Drawing.Point(275, 247)
-        Me.Yes_bt.Name = "Yes_bt"
-        Me.Yes_bt.Size = New System.Drawing.Size(75, 34)
-        Me.Yes_bt.TabIndex = 652
-        Me.Yes_bt.Text = "Yes"
-        Me.Yes_bt.UseVisualStyleBackColor = True
+        Me.內網_bt.Location = New System.Drawing.Point(341, 247)
+        Me.內網_bt.Name = "內網_bt"
+        Me.內網_bt.Size = New System.Drawing.Size(75, 34)
+        Me.內網_bt.TabIndex = 652
+        Me.內網_bt.Text = "內網"
+        Me.內網_bt.UseVisualStyleBackColor = True
         '
-        'No_bt
+        '測試_bt
         '
-        Me.No_bt.Location = New System.Drawing.Point(417, 247)
-        Me.No_bt.Name = "No_bt"
-        Me.No_bt.Size = New System.Drawing.Size(75, 34)
-        Me.No_bt.TabIndex = 653
-        Me.No_bt.Text = "No"
-        Me.No_bt.UseVisualStyleBackColor = True
+        Me.測試_bt.Location = New System.Drawing.Point(417, 247)
+        Me.測試_bt.Name = "測試_bt"
+        Me.測試_bt.Size = New System.Drawing.Size(75, 34)
+        Me.測試_bt.TabIndex = 653
+        Me.測試_bt.Text = "測試"
+        Me.測試_bt.UseVisualStyleBackColor = True
         '
         'Version
         '
         Me.Label1.TabIndex = 660
         Me.Label1.Text = "MAO-ORANGE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "        ERP-SYS"
         '
+        '外網_bt
+        '
+        Me.外網_bt.Location = New System.Drawing.Point(265, 247)
+        Me.外網_bt.Name = "外網_bt"
+        Me.外網_bt.Size = New System.Drawing.Size(75, 34)
+        Me.外網_bt.TabIndex = 661
+        Me.外網_bt.Text = "外網"
+        Me.外網_bt.UseVisualStyleBackColor = True
+        '
         '網段
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackgroundImage = Global.MaoOrange_Hongji.My.Resources.Resources.timg01
         Me.ClientSize = New System.Drawing.Size(504, 293)
+        Me.Controls.Add(Me.外網_bt)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.Label8)
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.Label5)
         Me.Controls.Add(Me.Version)
         Me.Controls.Add(Me.Copyright)
-        Me.Controls.Add(Me.No_bt)
-        Me.Controls.Add(Me.Yes_bt)
+        Me.Controls.Add(Me.測試_bt)
+        Me.Controls.Add(Me.內網_bt)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.ResumeLayout(False)
 
     End Sub
-    Friend WithEvents Yes_bt As Button
-    Friend WithEvents No_bt As Button
+    Friend WithEvents 內網_bt As Button
+    Friend WithEvents 測試_bt As Button
     Friend WithEvents Version As Label
     Friend WithEvents Copyright As Label
     Friend WithEvents Label5 As Label
     Friend WithEvents Label6 As Label
     Friend WithEvents Label8 As Label
     Friend WithEvents Label1 As Label
+    Friend WithEvents 外網_bt As Button
 End Class

MaoOrange-Hongji/資料庫系統管理/網段.vb

         MYIP = IPAdress.ToString
         Label6.Text = MYIP
     End Sub
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Yes_bt.Click
-        登入判斷 = True : Me.Close()
+    Private Sub 內網_bt_Click(sender As Object, e As EventArgs) Handles 內網_bt.Click
+        登入判斷 = True : 內外網 = False : Me.Close()
     End Sub
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles No_bt.Click
-        登入判斷 = False : Me.Close()
+    Private Sub 測試_bt_Click(sender As Object, e As EventArgs) Handles 測試_bt.Click
+        登入判斷 = False : 內外網 = False : Me.Close()
+    End Sub
+    Private Sub 外網_bt_Click_1(sender As Object, e As EventArgs) Handles 外網_bt.Click
+        登入判斷 = True : 內外網 = True : Me.Close()
     End Sub
 End Class