Bez popisu
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.

HSKIN-MIS-SYS.vb 12KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173
  1. Imports System.IO
  2. Public Class GRAMS_SYS
  3. ReadOnly ds1, ds2, ds3 As New DataSet
  4. Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewWindowToolStripMenuItem.Click
  5. ' 建立子表單的新執行個體。
  6. ' 將它變成這個 MDI 表單的子表單,然後才顯示。
  7. Dim ChildForm As New Form With {
  8. .MdiParent = Me
  9. }
  10. m_ChildFormNumber += 1
  11. ChildForm.Text = "視窗 " & m_ChildFormNumber
  12. ChildForm.Show()
  13. End Sub
  14. Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click
  15. Me.Close()
  16. End Sub
  17. Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click
  18. Me.LayoutMdi(MdiLayout.Cascade)
  19. End Sub
  20. Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click
  21. Me.LayoutMdi(MdiLayout.TileVertical)
  22. End Sub
  23. Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click
  24. Me.LayoutMdi(MdiLayout.TileHorizontal)
  25. End Sub
  26. Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click
  27. Me.LayoutMdi(MdiLayout.ArrangeIcons)
  28. End Sub
  29. Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click
  30. ' 關閉父表單的所有子表單。
  31. For Each ChildForm As Form In Me.MdiChildren
  32. ChildForm.Close()
  33. Next
  34. End Sub
  35. Private m_ChildFormNumber As Integer
  36. Private Sub Set_清單1()
  37. FTP清單_dgv.DataSource = Nothing : ds2.Clear()
  38. FTP清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  39. FTP清單_dgv.ColumnHeadersHeight = 25 : FTP清單_dgv.AllowUserToAddRows = False
  40. SQL_FTP資料夾路徑分配()
  41. da.Fill(ds2) : FTP清單_dgv.DataSource = ds2.Tables(0) : conn.Close()
  42. End Sub
  43. Private Sub Set_加班明細()
  44. 加班單_dgv.DataSource = Nothing : ds1.Clear()
  45. 加班單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  46. 加班單_dgv.ColumnHeadersHeight = 40
  47. 加班單_dgv.AllowUserToAddRows = False
  48. SQL_加班申請明細()
  49. da.Fill(ds1) : 加班單_dgv.DataSource = ds1.Tables(0) : conn.Close()
  50. End Sub
  51. Private Sub Set_請假明細()
  52. 休假單_dgv.DataSource = Nothing : ds3.Clear()
  53. 休假單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  54. 休假單_dgv.ColumnHeadersHeight = 40
  55. 休假單_dgv.AllowUserToAddRows = False
  56. SQL_休假申請明細()
  57. da.Fill(ds3) : 休假單_dgv.DataSource = ds3.Tables(0) : conn.Close()
  58. End Sub
  59. Private Sub GRAMS_SYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  60. '-----------------------刪除自動更新項目-----------------------------------------------------------------------------------------------------------------------------------------------
  61. Dim Str As String = Application.StartupPath
  62. If File.Exists(Str + "\SYS-UPDATE.exe") Then : File.Delete(Str + "\SYS-UPDATE.exe") : End If
  63. If File.Exists(Str + "\LIVE.txt") Then : File.Delete(Str + "\LIVE.txt") : End If
  64. Me.Text = "HSKIN醫美集團 -- 黃柏翰皮膚專科/美容醫學診所 -- 管理系統 -- 系統版本 : " & 版本 & " -- 登入人員 : " & gUserName
  65. '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  66. 系統設定_tsm.Enabled = CC(1) : 系統使用者權限設定_tsm.Enabled = CC(2) : 系統通用變數設定_tsm.Enabled = CC(3) : ID卡配置設定_tsm.Enabled = CC(4) : 人員資料表_tsm.Enabled = CC(5)
  67. '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  68. 排班管理系統_tsm.Enabled = CC(6) : 排班資料_tsm.Enabled = CC(6) : 醫生班表修改_tsm.Enabled = CC(17)
  69. '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  70. 加班申請_審核_tsm.Enabled = CC(7) : 加班申請_tsm.Enabled = CC(8) : 加班核准_tsm.Enabled = CC(9) : 醫師下診時間紀錄_tsm.Enabled = CC(10) : 加班申請資料_tsm.Enabled = CC(24)
  71. '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  72. 補休申請審核_tsm.Enabled = CC(11) : 補休申請_tsm.Enabled = CC(12) : 補休核准_tsm.Enabled = CC(13) : 國定假日設定_tsm.Enabled = CC(15) : 歷史休假紀錄_tsm.Enabled = CC(25)
  73. '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  74. 考勤管理_tsm.Enabled = CC(14) : 考勤明細表_tsm.Enabled = CC(26) : 到離職管理_tsm.Enabled = CC(27) ': 到離職核准_tsm.Enabled = CC(13)
  75. '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  76. 業務管理系統_tsm.Enabled = CC(19) : 業績獎金計算表_tsm.Enabled = CC(20) : 產品銷售分析表_tsm.Enabled = CC(21) : 來客資料分析表_tsm.Enabled = CC(22) : 人員貢獻分析表_tsm.Enabled = CC(23)
  77. '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  78. Set_加班明細() : Set_請假明細()
  79. Dim 提醒(3) As String
  80. If CC(9) = True Then : 提醒(0) = "系統中還有 " & " " & 加班單_dgv.Rows.Count & " " & "筆 加班申請尚未審核" : End If
  81. If CC(13) = True Then : 提醒(1) = "系統中還有 " & " " & 休假單_dgv.Rows.Count & " " & "筆 請假申請尚未審核" : End If
  82. If CC(9) = True Or CC(13) = True Then
  83. MsgBox(提醒(0) & vbCrLf & vbCrLf &
  84. 提醒(1))
  85. End If
  86. 'SYS-UPDATE.exe
  87. End Sub
  88. Private Sub GRAMS_SYS_SIZE(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
  89. Me.BackgroundImage = My.Resources.LOGO0101 : Me.BackgroundImageLayout = 3
  90. End Sub
  91. Private Sub GRAMS_SYS_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
  92. LoginForm1.Close()
  93. End Sub
  94. Private Sub 系統通用變數設定_tsm_Click(sender As Object, e As EventArgs) Handles 系統通用變數設定_tsm.Click
  95. PA = "" : 系統設定.Show() : 系統設定.BringToFront()
  96. End Sub
  97. Private Sub 人員資料表_tsm_Click_1(sender As Object, e As EventArgs) Handles 人員資料表_tsm.Click
  98. PA = "" : 人員資料表.Show() : 人員資料表.BringToFront()
  99. End Sub
  100. Private Sub 系統使用者權限設定_tsm_Click(sender As Object, e As EventArgs) Handles 系統使用者權限設定_tsm.Click
  101. PA = "" : 系統使用者管理.ShowDialog() : 系統使用者管理.BringToFront()
  102. End Sub
  103. Private Sub 排班資料_tsm_Click_1(sender As Object, e As EventArgs) Handles 排班資料_tsm.Click
  104. PA = "" : 排班資料.Show() : 排班資料.BringToFront()
  105. End Sub
  106. Private Sub 醫生班表修改_tsm_Click(sender As Object, e As EventArgs) Handles 醫生班表修改_tsm.Click
  107. PA = "" : 醫生班表設定.ShowDialog() : 醫生班表設定.BringToFront()
  108. End Sub
  109. Private Sub 補休申請_tsm_Click(sender As Object, e As EventArgs) Handles 補休申請_tsm.Click
  110. PA = "" : 休假申請.ShowDialog()
  111. End Sub
  112. Private Sub 補休核准_tsm_Click(sender As Object, e As EventArgs) Handles 補休核准_tsm.Click
  113. PA = "" : 休假核准.ShowDialog()
  114. End Sub
  115. Private Sub 醫師下診時間紀錄_tsm_Click(sender As Object, e As EventArgs) Handles 醫師下診時間紀錄_tsm.Click
  116. PA = "" : 醫師下診紀錄.ShowDialog()
  117. End Sub
  118. Private Sub 加班申請_tsm_Click(sender As Object, e As EventArgs) Handles 加班申請_tsm.Click
  119. PA = "" : 加班申請.ShowDialog()
  120. End Sub
  121. Private Sub 業務系統資料管理_tsm_Click(sender As Object, e As EventArgs) Handles 業務系統資料管理_tsm.Click
  122. PA = "" : 業務系統資料管理.Show() : 業務系統資料管理.BringToFront()
  123. End Sub
  124. Private Sub 來客資料分析表_tsm_Click(sender As Object, e As EventArgs) Handles 來客資料分析表_tsm.Click
  125. PA = "" : 來客資料分析表.Show() : 來客資料分析表.BringToFront()
  126. End Sub
  127. Private Sub 產品銷售分析表_tsm_Click(sender As Object, e As EventArgs) Handles 產品銷售分析表_tsm.Click
  128. PA = "" : 產品銷售分析表.Show() : 產品銷售分析表.BringToFront()
  129. End Sub
  130. Private Sub 人員貢獻分析表_tsm_Click(sender As Object, e As EventArgs) Handles 人員貢獻分析表_tsm.Click
  131. PA = "" : 人員貢獻分析表.Show() : 人員貢獻分析表.BringToFront()
  132. End Sub
  133. Private Sub 國定假日設定_tsm_Click_1(sender As Object, e As EventArgs) Handles 國定假日設定_tsm.Click
  134. PA = "" : 國定假日設定.ShowDialog() : 國定假日設定.BringToFront()
  135. End Sub
  136. Private Sub 歷史休假紀錄_tsm_Click(sender As Object, e As EventArgs) Handles 歷史休假紀錄_tsm.Click
  137. PA = "" : 歷史休假紀錄.ShowDialog() : 歷史休假紀錄.BringToFront()
  138. End Sub
  139. Private Sub 加班申請資料_tsm_Click(sender As Object, e As EventArgs) Handles 加班申請資料_tsm.Click
  140. PA = "" : 加班申請資料.ShowDialog() : 加班申請資料.BringToFront()
  141. End Sub
  142. Private Sub 考勤明細表_tsm_Click(sender As Object, e As EventArgs) Handles 考勤明細表_tsm.Click
  143. PA = "" : 考勤明細表.Show() : 考勤明細表.BringToFront()
  144. End Sub
  145. Private Sub 到離職管理_tsm_Click(sender As Object, e As EventArgs) Handles 到離職管理_tsm.Click
  146. PA = "" : 到離職管理.Show() : 到離職管理.BringToFront()
  147. End Sub
  148. Private Sub 到離職核准_tsm_Click(sender As Object, e As EventArgs)
  149. End Sub
  150. Private Sub 交易明細表導入_tsm_Click(sender As Object, e As EventArgs) Handles 交易明細表導入_tsm.Click
  151. PA = "" : 交易明細表導入.Show() : 交易明細表導入.BringToFront()
  152. End Sub
  153. Private Sub 人員排班條件設定_tsm_Click(sender As Object, e As EventArgs) Handles 人員排班條件設定_tsm.Click
  154. PA = "" : 人員排班條件設定.Show() : 人員排班條件設定.BringToFront()
  155. End Sub
  156. Private Sub 加班核准_tsm_Click(sender As Object, e As EventArgs) Handles 加班核准_tsm.Click
  157. PA = "" : 加班審核.ShowDialog()
  158. End Sub
  159. Private Sub 薪資資料設定ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 薪資資料設定_tsm.Click
  160. PA = "" : 薪資資料設定.ShowDialog()
  161. End Sub
  162. Private Sub 業績獎金計算表_tsm_Click(sender As Object, e As EventArgs) Handles 業績獎金計算表_tsm.Click
  163. PA = "" : 業績獎金計算表.Show() : 業績獎金計算表.BringToFront()
  164. End Sub
  165. Private Sub 個人班表_tsm_Click(sender As Object, e As EventArgs) Handles 個人班表_tsm.Click
  166. PA = Year(Today) : PA1 = Month(Today) : If CInt(PA1) < 10 Then : PA1 = "0" & PA1 : End If : PA2 = gUserName
  167. 個人班表.Show() : 個人班表.BringToFront()
  168. End Sub
  169. End Class