12345678910111213141516171819202122232425262728293031 |
- Module 全域變數
- '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
- 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 Boolean : Public FTP關閉 As Boolean
- '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
- Public 版本 As String = "2024092301"
- '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
- Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址 As String
- Public 關鍵字編號, PPAA, PPBB(3000) As String
-
- Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA49 As String
-
- Public 布林1, 布林2, 布林3, 布林4 As Boolean
-
- Public NU1, NU2, NU3, NU4, NU5 As Double
-
- Public 平均數, NN1 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
- Public KKKJJ, KKKJJ2, KKKJJ3 As String
-
- Public 收付應沖金額 As Double : Public 財務單申請狀態 As String : Public 收付對應財務單號 As String : Public 收付對應客戶供應商編號 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
|