Açıklama Yok
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

MAOJI-ERP-SYS.vb 20KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246
  1. Option Strict Off
  2. Public Class MAOJI_ERP_SYS
  3. Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewWindowToolStripMenuItem.Click
  4. ' 建立子表單的新執行個體。
  5. ' 將它變成這個 MDI 表單的子表單,然後才顯示。
  6. Dim ChildForm As New Form With {
  7. .MdiParent = Me
  8. }
  9. m_ChildFormNumber += 1 : ChildForm.Text = "視窗 " & m_ChildFormNumber : ChildForm.Show()
  10. End Sub
  11. Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click
  12. Me.Close()
  13. End Sub
  14. Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click
  15. Me.LayoutMdi(MdiLayout.Cascade)
  16. End Sub
  17. Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click
  18. Me.LayoutMdi(MdiLayout.TileVertical)
  19. End Sub
  20. Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click
  21. Me.LayoutMdi(MdiLayout.TileHorizontal)
  22. End Sub
  23. Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click
  24. Me.LayoutMdi(MdiLayout.ArrangeIcons)
  25. End Sub
  26. Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click
  27. ' 關閉父表單的所有子表單。
  28. For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
  29. End Sub
  30. Private Sub ComboBox1下拉表單資料載入()
  31. SQL_公司選擇清單()
  32. 公司名稱_cb.Items.Clear() : While (dr.Read()) : 公司名稱_cb.Items.Add(dr("公司名")) : End While : conn.Close()
  33. End Sub
  34. Private m_ChildFormNumber As Integer
  35. Private Sub MaoOrange_Hongji_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  36. '----------系統登入時抬頭資訊顯示---------------------------------------------------------------------------------------------------------------
  37. Me.Text = Me.Text & " -- " & g_conn_type & " -- " & gUserName & " -- 系統版本 :" & 版本
  38. ComboBox1下拉表單資料載入() : 公司名稱_cb.SelectedIndex = 1
  39. NewWindowToolStripMenuItem.Visible = False
  40. '----------系統登入權限執行---------------------------------------------------------------------------------------------------------------------
  41. 資料庫系統管理ToolStripMenuItem.Enabled = CC(0) : 系統使用者管理ToolStripMenuItem.Enabled = CC(1) : 系統通用變數管理ToolStripMenuItem.Enabled = CC(2)
  42. 系統編碼規則1ToolStripMenuItem.Enabled = CC(3) : 系統執行檔版本管理ToolStripMenuItem.Enabled = CC(4) : FTP資料夾管理ToolStripMenuItem.Enabled = CC(5)
  43. 簽名檔管理ToolStripMenuItem.Enabled = CC(33)
  44. '----------人事管理權限執行---------------------------------------------------------------------------------------------------------------------
  45. 人事系統管理ToolStripMenuItem.Enabled = CC(6) : 員工資料表ToolStripMenuItem.Enabled = CC(7) : 人員ID卡系統配置設定ToolStripMenuItem.Enabled = CC(8)
  46. '----------人事管理權限執行---------------------------------------------------------------------------------------------------------------------
  47. 總務系統管理ToolStripMenuItem.Enabled = CC(36) : 車輛保養紀錄表ToolStripMenuItem.Enabled = CC(37)
  48. '----------業務管理權限執行---------------------------------------------------------------------------------------------------------------------
  49. 業務系統管理ToolStripMenuItem.Enabled = CC(9) : 客戶資料管理ToolStripMenuItem.Enabled = CC(10) : 銷售控制表ToolStripMenuItem.Enabled = CC(17)
  50. 出貨單申請ToolStripMenuItem.Enabled = CC(17) : 出貨確認ToolStripMenuItem.Enabled = CC(17) : 訂單管理控制表ToolStripMenuItem.Enabled = CC(38)
  51. 訂單採購需求申請ToolStripMenuItem.Enabled = CC(39) : 訂單出貨控制表ToolStripMenuItem.Enabled = CC(40) : 零售客戶記錄表ToolStripMenuItem.Enabled = CC(42)
  52. 維修單申請ToolStripMenuItem.Enabled = CC(48) : 維修單出庫確認ToolStripMenuItem.Enabled = CC(49) : 銷售退貨申請ToolStripMenuItem.Enabled = CC(53)
  53. 銷售退貨清單ToolStripMenuItem.Enabled = CC(54) : 銷售退貨確認ToolStripMenuItem.Enabled = CC(55)
  54. '----------生產管理權限執行---------------------------------------------------------------------------------------------------------------------
  55. 生產系統管理ToolStripMenuItem.Enabled = CC(15) : 生產控制表ToolStripMenuItem.Enabled = CC(20) : 生產確認ToolStripMenuItem.Enabled = CC(21)
  56. 生產入庫ToolStripMenuItem.Enabled = CC(22)
  57. '----------採購管理權限執行---------------------------------------------------------------------------------------------------------------------
  58. 採購系統管理ToolStripMenuItem.Enabled = CC(11) : 供應商資料管理ToolStripMenuItem.Enabled = CC(12) : 採購控制表ToolStripMenuItem.Enabled = CC(23)
  59. 採購單申請ToolStripMenuItem.Enabled = CC(24) : 訂單採購需求申請ToolStripMenuItem1.Enabled = CC(39) : 採購退貨申請ToolStripMenuItem.Enabled = CC(50)
  60. 採購退貨清單ToolStripMenuItem.Enabled = CC(51) : 採購退貨確認ToolStripMenuItem.Enabled = CC(52)
  61. '----------倉儲管理權限執行---------------------------------------------------------------------------------------------------------------------
  62. 倉儲系統管理ToolStripMenuItem.Enabled = CC(13) : 倉儲控制表ToolStripMenuItem.Enabled = CC(25) : 倉儲入庫驗收ToolStripMenuItem.Enabled = CC(26)
  63. 物料資料庫ToolStripMenuItem.Enabled = CC(14) : 倉儲分區控制表ToolStripMenuItem.Enabled = CC(34) : 倉儲庫存清單ToolStripMenuItem.Enabled = CC(41)
  64. 盤盈盤損控制表ToolStripMenuItem.Enabled = CC(43) : 盤盈坢損確認倉儲調整ToolStripMenuItem.Enabled = CC(44)
  65. '----------財務管理權限執行---------------------------------------------------------------------------------------------------------------------
  66. 財務系統管理ToolStripMenuItem.Enabled = CC(16) : 現金收支單申請ToolStripMenuItem.Enabled = CC(27) : 財務收支單審核ToolStripMenuItem.Enabled = CC(29)
  67. 財務收支單一覽表ToolStripMenuItem.Enabled = CC(30) : 財務收支單_對帳表ToolStripMenuItem.Enabled = CC(31) : 營運成本收支決算表ToolStripMenuItem.Enabled = CC(32)
  68. 營運狀態彙總檢視表ToolStripMenuItem.Enabled = CC(45) : 業務佣金計算ToolStripMenuItem.Enabled = CC(46) : 司機佣金計算ToolStripMenuItem.Enabled = CC(47)
  69. 應收帳款控制表ToolStripMenuItem.Enabled = CC(56) : 應付賬款控制表ToolStripMenuItem.Enabled = CC(57) : 支票收支單申請ToolStripMenuItem.Enabled = CC(58)
  70. 票務控制表ToolStripMenuItem.Enabled = CC(59)
  71. End Sub
  72. Private Sub MDIParentbreak_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
  73. LoginForm1.Close()
  74. End Sub
  75. Private Sub MDIParentbreak_SIZE(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
  76. Me.BackgroundImage = My.Resources._1980X1010 : Me.BackgroundImageLayout = 3
  77. End Sub
  78. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 計算機_bt.Click
  79. 計算機.Show() : 計算機.BringToFront()
  80. End Sub
  81. Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 公司名稱_cb.SelectedIndexChanged
  82. PA = 公司名稱_cb.Text : SQL_公司基本資料宣告()
  83. If dr.Read() Then : 公司編號 = dr("公司編號") : 公司電話 = dr("電話") : 公司統編 = dr("統編") : 公司地址 = dr("地址") : End If : conn.Close() : PA = ""
  84. End Sub
  85. Private Sub 系統使用者管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統使用者管理ToolStripMenuItem.Click
  86. PA = "" : 系統使用者管理.Show() : 系統使用者管理.BringToFront()
  87. End Sub
  88. Private Sub 系統通用變數管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理ToolStripMenuItem.Click
  89. PA = "" : 系統通用變數管理.Show() : 系統通用變數管理.BringToFront()
  90. End Sub
  91. Private Sub 系統編碼規則1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統編碼規則1ToolStripMenuItem.Click
  92. PA = "" : 系統編碼規則_1.Show() : 系統編碼規則_1.BringToFront()
  93. End Sub
  94. Private Sub 系統執行檔版本管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理ToolStripMenuItem.Click
  95. PA = "" : 系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront()
  96. End Sub
  97. Private Sub FTP資料夾管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理ToolStripMenuItem.Click
  98. PA = "" : FTP資料夾管理.Show() : FTP資料夾管理.BringToFront()
  99. End Sub
  100. Private Sub 人員ID卡系統配置設定ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定ToolStripMenuItem.Click
  101. PA = "" : 員工ID卡系統配置設定.ShowDialog()
  102. End Sub
  103. Private Sub 員工資料表ToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles 員工資料表ToolStripMenuItem.Click
  104. PA = "" : 員工資料表.Show() : 員工資料表.BringToFront()
  105. End Sub
  106. Private Sub 客戶資料管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 客戶資料管理ToolStripMenuItem.Click
  107. PA = "" : 客戶資料管理.Show() : 客戶資料管理.BringToFront()
  108. End Sub
  109. Private Sub 供應商資料管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 供應商資料管理ToolStripMenuItem.Click
  110. PA = "" : 供應商資料管理.Show() : 供應商資料管理.BringToFront()
  111. End Sub
  112. Private Sub 物料資料庫ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 物料資料庫ToolStripMenuItem.Click
  113. PA = "" : 物料資料庫.Show() : 物料資料庫.BringToFront()
  114. End Sub
  115. Private Sub 營運成本支付申請ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 現金收支單申請ToolStripMenuItem.Click
  116. PA = "" : 現金收支單申請.Show() : 現金收支單申請.BringToFront()
  117. End Sub
  118. Private Sub 營運費用支付審核ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 財務收支單審核ToolStripMenuItem.Click
  119. PA = "" : 財務收支單審核.Show() : 財務收支單審核.BringToFront()
  120. End Sub
  121. Private Sub 營運費用支付單一覽表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 財務收支單一覽表ToolStripMenuItem.Click
  122. PA = "" : 財務收支單一覽表.Show() : 財務收支單一覽表.BringToFront()
  123. End Sub
  124. Private Sub 營運成本收支單對帳表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 財務收支單_對帳表ToolStripMenuItem.Click
  125. PA = "" : 財務收支單_對帳表.Show() : 財務收支單_對帳表.BringToFront()
  126. End Sub
  127. Private Sub 採購單申請ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 採購單申請ToolStripMenuItem.Click
  128. PA = "" : 採購單申請.Show() : 採購單申請.BringToFront()
  129. End Sub
  130. Private Sub 倉儲入庫驗收ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 倉儲入庫驗收ToolStripMenuItem.Click
  131. PA = "" : 倉儲入庫驗收.Show() : 倉儲入庫驗收.BringToFront()
  132. End Sub
  133. Private Sub 倉儲控制表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 倉儲控制表ToolStripMenuItem.Click
  134. PA = "" : 倉儲控制表.Show() : 倉儲控制表.BringToFront()
  135. End Sub
  136. Private Sub 出貨單申請ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 出貨單申請ToolStripMenuItem.Click
  137. PA = "" : 出貨單申請.Show() : 出貨單申請.BringToFront()
  138. End Sub
  139. Private Sub 出貨確認ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 出貨確認ToolStripMenuItem.Click
  140. PA = "" : 出貨確認.Show() : 出貨確認.BringToFront()
  141. End Sub
  142. Private Sub 銷售控制表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 銷售控制表ToolStripMenuItem.Click
  143. PA = "" : 銷售控制表.Show() : 銷售控制表.BringToFront()
  144. End Sub
  145. Private Sub 生產確認ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 生產確認ToolStripMenuItem.Click
  146. PA = "" : 生產確認.Show() : 生產確認.BringToFront()
  147. End Sub
  148. Private Sub 生產控制表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 生產控制表ToolStripMenuItem.Click
  149. PA = "" : 生產控制表.Show() : 生產控制表.BringToFront()
  150. End Sub
  151. Private Sub 採購控制表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 採購控制表ToolStripMenuItem.Click
  152. PA = "" : 採購控制表.Show() : 採購控制表.BringToFront()
  153. End Sub
  154. Private Sub 生產入庫ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 生產入庫ToolStripMenuItem.Click
  155. PA = "" : 生產入庫.Show() : 生產入庫.BringToFront()
  156. End Sub
  157. Private Sub 營運報表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運成本收支決算表ToolStripMenuItem.Click
  158. PA = "" : 營運成本收支_決算表.Show() : 營運成本收支_決算表.BringToFront()
  159. End Sub
  160. Private Sub 簽名檔管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 簽名檔管理ToolStripMenuItem.Click
  161. PA = "" : 簽名檔管理.Show() : 簽名檔管理.BringToFront()
  162. End Sub
  163. Private Sub 倉儲分區控制表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 倉儲分區控制表ToolStripMenuItem.Click
  164. PA = "" : 倉儲分區控制表.ShowDialog()
  165. End Sub
  166. Private Sub 車輛保養紀錄表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 車輛保養紀錄表ToolStripMenuItem.Click
  167. PA = "" : 車輛保養紀錄表.Show() : 車輛保養紀錄表.BringToFront()
  168. End Sub
  169. Private Sub 訂單資料輸入ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 訂單管理控制表ToolStripMenuItem.Click
  170. PA = "" : 訂單管理控制表.Show() : 訂單管理控制表.BringToFront()
  171. End Sub
  172. Private Sub 訂單採購需求申請ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 訂單採購需求申請ToolStripMenuItem.Click
  173. PA = "" : 訂單採購需求申請.Show() : 訂單採購需求申請.BringToFront()
  174. End Sub
  175. Private Sub 訂單採購需求申請ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 訂單採購需求申請ToolStripMenuItem1.Click
  176. PA = "" : 訂單採購需求申請.Show() : 訂單採購需求申請.BringToFront()
  177. End Sub
  178. Private Sub 訂單控制表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 訂單出貨控制表ToolStripMenuItem.Click
  179. PA = "" : 訂單出貨控制表.Show() : 訂單出貨控制表.BringToFront()
  180. End Sub
  181. Private Sub 倉儲庫存清單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 倉儲庫存清單ToolStripMenuItem.Click
  182. PA = "" : 倉儲庫存清單.Show() : 倉儲庫存清單.BringToFront()
  183. End Sub
  184. Private Sub 零售客戶記錄表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 零售客戶記錄表ToolStripMenuItem.Click
  185. PA = "" : 零售客戶記錄表.Show() : 零售客戶記錄表.BringToFront()
  186. End Sub
  187. Private Sub 盤盈盤損控制表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 盤盈盤損控制表ToolStripMenuItem.Click
  188. PA = "" : 盤盈盤損控制表.Show() : 盤盈盤損控制表.BringToFront()
  189. End Sub
  190. Private Sub 盤盈坢損確認倉儲調整ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 盤盈坢損確認倉儲調整ToolStripMenuItem.Click
  191. PA = "" : 盤盈盤損確認.Show() : 盤盈盤損確認.BringToFront()
  192. End Sub
  193. Private Sub 營運狀態彙總檢視表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運狀態彙總檢視表ToolStripMenuItem.Click
  194. PA = "" : 營運狀態彙總_檢視表.Show() : 營運狀態彙總_檢視表.BringToFront()
  195. End Sub
  196. Private Sub 業務佣金計算ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 業務佣金計算ToolStripMenuItem.Click
  197. PA = "" : 業務佣金計算.Show() : 業務佣金計算.BringToFront()
  198. End Sub
  199. Private Sub 司機佣金計算ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 司機佣金計算ToolStripMenuItem.Click
  200. PA = "" : 司機佣金計算.Show() : 司機佣金計算.BringToFront()
  201. End Sub
  202. Private Sub 維修單申請ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 維修單申請ToolStripMenuItem.Click
  203. PA = "" : 維修單申請.Show() : 維修單申請.BringToFront()
  204. End Sub
  205. Private Sub 維修單出庫確認ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 維修單出庫確認ToolStripMenuItem.Click
  206. PA = "" : 維修單出庫確認.Show() : 維修單出庫確認.BringToFront()
  207. End Sub
  208. Private Sub 採購退貨申請ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 採購退貨申請ToolStripMenuItem.Click
  209. PA = "" : 採購退貨申請.Show() : 採購退貨申請.BringToFront()
  210. End Sub
  211. Private Sub 採購退貨清單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 採購退貨清單ToolStripMenuItem.Click
  212. PA = "" : 採購退貨清單.Show() : 採購退貨清單.BringToFront()
  213. End Sub
  214. Private Sub 採購退貨確認ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 採購退貨確認ToolStripMenuItem.Click
  215. PA = "" : 採購退貨確認.Show() : 採購退貨確認.BringToFront()
  216. End Sub
  217. Private Sub 銷售退貨申請ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 銷售退貨申請ToolStripMenuItem.Click
  218. PA = "" : 銷售退貨申請.Show() : 銷售退貨申請.BringToFront()
  219. End Sub
  220. Private Sub 銷售退貨清單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 銷售退貨清單ToolStripMenuItem.Click
  221. PA = "" : 銷售退貨清單.Show() : 銷售退貨清單.BringToFront()
  222. End Sub
  223. Private Sub 銷售退貨確認ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 銷售退貨確認ToolStripMenuItem.Click
  224. PA = "" : 銷售退貨確認.Show() : 銷售退貨確認.BringToFront()
  225. End Sub
  226. Private Sub 應付賬款ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 應付賬款控制表ToolStripMenuItem.Click
  227. PA = "" : 應付賬款控制表.Show() : 應付賬款控制表.BringToFront()
  228. End Sub
  229. Private Sub 應收帳款ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 應收帳款控制表ToolStripMenuItem.Click
  230. PA = "" : 應收帳款控制表.Show() : 應收帳款控制表.BringToFront()
  231. End Sub
  232. Private Sub 支票收支單申請ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 支票收支單申請ToolStripMenuItem.Click
  233. PA = "" : 支票收支單申請.Show() : 支票收支單申請.BringToFront()
  234. End Sub
  235. Private Sub 票務控制表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 票務控制表ToolStripMenuItem.Click
  236. PA = "" : 票務控制表.Show() : 票務控制表.BringToFront()
  237. End Sub
  238. End Class