暂无描述
您最多选择25个主题 主题必须以字母或数字开头,可以包含连字符 (-),并且长度不得超过35个字符

全域變數.vb 2.3KB

12345678910111213141516171819202122232425262728293031
  1. Module 全域變數
  2. '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  3. Public g_conn_type As String = "" : Public gUserName As String : Public 登入人部門 As String : Public 登入人課別 As String : Public 登入人組別 As String : Public 登入人IP As String
  4. 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
  5. 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
  6. '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  7. Public 版本 As String = "2024092301"
  8. '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  9. Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址 As String
  10. Public 關鍵字編號, PPAA, PPBB(3000) As String
  11. Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA49 As String
  12. Public 布林1, 布林2, 布林3, 布林4 As Boolean
  13. Public NU1, NU2, NU3, NU4, NU5 As Double
  14. Public 平均數, NN1 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
  15. Public KKKJJ, KKKJJ2, KKKJJ3 As String
  16. Public 收付應沖金額 As Double : Public 財務單申請狀態 As String : Public 收付對應財務單號 As String : Public 收付對應客戶供應商編號 As String
  17. Public Class MyModule1
  18. Friend Shared Sub 進度條()
  19. 平均數 = 10000 / 資料數
  20. 最終數 += 平均數
  21. If 最終數 > 10000 Then : 最終數 = 10000 : End If
  22. MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 最終數
  23. End Sub
  24. End Class
  25. End Module