MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/Module1/Module1.vb

Module Module1
    '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    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 版本 As String = "2020052601"
    '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String

    Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = "" : Public PA6 As String = ""
    Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = "" : Public PA10 As String = "" : Public PA11 As String = "" : Public PA12 As String = "" : Public PA13 As String = ""
    Public PA14 As String = "" : Public PA15 As String = "" : Public PA16 As String = "" : Public PA17 As String = "" : Public PA18 As String = "" : Public PA19 As String = ""

    Public 布林1 As Boolean : Public 布林2 As Boolean : Public 布林3 As Boolean : Public 布林4 As Boolean

    Public NU1 As Double : Public NU2 As Double : Public NU3 As Double : Public NU4 As Double : Public NU5 As Double

    Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
    Public KKKJJ As String : Public KKKJJ2 As String : Public KKKJJ3 As String
    Public Class MyModule1
        Friend Shared Sub 進度條()
            平均數 = 10000 / 資料數
            最終數 += 平均數
            If 最終數 > 10000 Then : 最終數 = 10000 : End If
            MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 最終數
        End Sub
    End Class
End Module