API tools faq
paste
Advertisement
Guest User

edit

a guest
Nov 18th, 2018
101
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 16.15 KB | None | 0 0
raw download clone embed print report
  1. #include <ButtonConstants.au3>
  2. #include <EditConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <WindowsConstants.au3>
  5. #include <Misc.au3>
  6.  
  7. If _Singleton("Bao Cao Doanh Thu Internet Ngọc Tú", 1) = 0 Then
  8.     TrayTip("", "Tool Nạp Tiền Nhanh V10 Đang Hoạt Động", 5)
  9.     Sleep(2000)
  10.     Exit
  11. EndIf
  12.  
  13.  
  14. If Not FileExists(@ScriptDir & "\Bao Cao Doanh Thu.ini") Then
  15.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tong Nuoc 10K", "")
  16.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tong Nuoc 12K", "")
  17.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tong Banh", "")
  18.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tong Mi Goi", "")
  19.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "So Luong Nuoc Con 10K", "")
  20.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "So Luong Nuoc Con 12K", "")
  21.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "So Luong Banh Con 5K", "")
  22.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "So Luong Mi Goi Con", "")
  23.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tien Thuc Thu", "")
  24.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tien Xem Bao Cao", "")
  25.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tien Khuyen Mai", "")
  26.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tong Bao Cao", "")
  27.    
  28. EndIf
  29.  
  30. $TongNuoc10K =IniRead(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tong Nuoc 10K", "")
  31. $TongNuoc12K =IniRead(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tong Nuoc 12K", "")
  32. $TongBanh =IniRead(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tong Banh", "")
  33. $TongMiGoi =IniRead(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tong Mi Goi", "")
  34. $SoLuongNuocCon10K =IniRead(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "So Luong Nuoc Con 10K", "")
  35. $SoLuongNuocCon12K =IniRead(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "So Luong Nuoc Con 12K", "")
  36. $SoLuongBanhCon5K  =IniRead(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "So Luong Banh Con 5K", "")
  37. $SoLuongMiGoiCon =IniRead(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "So Luong Mi Goi Con", "")
  38. $TienThucThu =IniRead(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tien Thuc Thu", "")
  39. $TienXemBaoCao =IniRead(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tien Xem Bao Cao", "")
  40. $TienKhuyenMai =IniRead(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tien Khuyen Mai", "")
  41. $XemTongBaoCao =IniRead(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tong Bao Cao", "")
  42.  
  43. #Region ### START Koda GUI section ### Form=c:\users\administrator\desktop\form1.kxf
  44. $Form1_1 = GUICreate("Báo Cáo Doanh Thu", 784, 502, 192, 115)
  45.  
  46. $Group1 = GUICtrlCreateGroup("Tổng Nước 10K", 8, 16, 145, 33)
  47. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  48. GUICtrlSetColor(-1, 0x000080)
  49. GUICtrlCreateGroup("", -99, -99, 1, 1)
  50. $TongNuoc10K_input=GUICtrlCreateInput($TongNuoc10K, 160, 24, 49, 24, $ES_NUMBER)
  51. GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
  52. GUICtrlSetColor(-1, 0xFF0000)
  53.  
  54.  
  55. $Group2 = GUICtrlCreateGroup("Tổng Nước 12K", 8, 64, 145, 33)
  56. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  57. GUICtrlSetColor(-1, 0x000080)
  58. GUICtrlCreateGroup("", -99, -99, 1, 1)
  59. $TongNuoc12K_input=GUICtrlCreateInput($TongNuoc12K, 160, 72, 49, 24, $ES_NUMBER)
  60. GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
  61. GUICtrlSetColor(-1, 0xFF0000)
  62.  
  63. $Group3 = GUICtrlCreateGroup("Tổng Bánh 5K", 8, 112, 145, 33)
  64. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  65. GUICtrlSetColor(-1, 0x000080)
  66. GUICtrlCreateGroup("", -99, -99, 1, 1)
  67. $TongBanh_input=GUICtrlCreateInput($TongBanh, 160, 120, 49, 24, $ES_NUMBER)
  68. GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
  69. GUICtrlSetColor(-1, 0xFF0000)
  70.  
  71. $Group4 = GUICtrlCreateGroup("Tổng Mì Gói", 5, 164, 145, 33)
  72. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  73. GUICtrlSetColor(-1, 0x000080)
  74. GUICtrlCreateGroup("", -99, -99, 1, 1)
  75. $TongMiGoi_input=GUICtrlCreateInput($TongMiGoi, 160, 173, 49, 24, $ES_NUMBER)
  76. GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
  77. GUICtrlSetColor(-1, 0xFF0000)
  78.  
  79. $Group5 = GUICtrlCreateGroup("Số lượng Nước Còn 10K", 226, 16, 193, 33)
  80. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  81. GUICtrlSetColor(-1, 0xFF0000)
  82. GUICtrlCreateGroup("", -99, -99, 1, 1)
  83. $SoLuongNuocCon10K_input=GUICtrlCreateInput($SoLuongNuocCon10K, 433, 25, 49, 24, $ES_NUMBER)
  84. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  85. GUICtrlSetColor(-1, 0xFF0000)
  86.  
  87.  
  88. $Group6 = GUICtrlCreateGroup("Số lượng Nước Còn 12K", 227, 64, 193, 33)
  89. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  90. GUICtrlSetColor(-1, 0xFF0000)
  91. GUICtrlCreateGroup("", -99, -99, 1, 1)
  92. $SoLuongNuocCon12K_input=GUICtrlCreateInput($SoLuongNuocCon12K, 433, 73, 49, 24, $ES_NUMBER)
  93. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  94. GUICtrlSetColor(-1, 0xFF0000)
  95.  
  96. $Group7 = GUICtrlCreateGroup("Số lượng Bánh Còn 5K", 226, 112, 193, 33)
  97. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  98. GUICtrlSetColor(-1, 0x000080)
  99. GUICtrlCreateGroup("", -99, -99, 1, 1)
  100. $SoLuongBanhCon_input=GUICtrlCreateInput($SoLuongBanhCon5K, 433, 121, 49, 24, $ES_NUMBER)
  101. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  102. GUICtrlSetColor(-1, 0x800000)
  103.  
  104. $Group8 = GUICtrlCreateGroup("Số Lượng Mì Gói Còn", 226, 164, 193, 33)
  105. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  106. GUICtrlSetColor(-1, 0x000080)
  107. GUICtrlCreateGroup("", -99, -99, 1, 1)
  108. $SoLuongMiGoiCon_input=GUICtrlCreateInput($SoLuongMiGoiCon, 433, 173, 49, 24, $ES_NUMBER)
  109. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  110. GUICtrlSetColor(-1, 0x800000)
  111.  
  112. $Group9 = GUICtrlCreateGroup("Tiền Thực Thu", 12, 266, 145, 33)
  113. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  114. GUICtrlSetColor(-1, 0x000080)
  115. GUICtrlCreateGroup("", -99, -99, 1, 1)
  116. $TienThucThu_input=GUICtrlCreateInput($TienThucThu, 177, 275, 97, 24, $ES_NUMBER)
  117. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  118. GUICtrlSetColor(-1, 0x800000)
  119.  
  120. $Group10 = GUICtrlCreateGroup("Tiền Xem Báo Cáo", 12, 310, 145, 33)
  121. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  122. GUICtrlSetColor(-1, 0x000080)
  123. GUICtrlCreateGroup("", -99, -99, 1, 1)
  124. $TienXemBaoCao_input=GUICtrlCreateInput($TienXemBaoCao, 177, 319, 97, 24, $ES_NUMBER)
  125. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  126. GUICtrlSetColor(-1, 0x800000)
  127.  
  128. $Group11 = GUICtrlCreateGroup("Tiền Khuyến Mãi", 13, 354, 145, 33)
  129. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  130. GUICtrlSetColor(-1, 0x000080)
  131. GUICtrlCreateGroup("", -99, -99, 1, 1)
  132. $TienKhuyenMai_input=GUICtrlCreateInput($TienKhuyenMai, 177, 362, 97, 24, $ES_NUMBER)
  133. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  134. GUICtrlSetColor(-1, 0x800000)
  135.  
  136. $Group12 = GUICtrlCreateGroup(" Nước 10K - Kết Nước", 568, 16, 169, 33)
  137. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  138. GUICtrlSetColor(-1, 0x800080)
  139. GUICtrlCreateGroup("", -99, -99, 1, 1)
  140.  
  141. $Group13 = GUICtrlCreateGroup("Nước 10K", 550, 56, 81, 25)
  142. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  143. GUICtrlCreateGroup("", -99, -99, 1, 1)
  144.  
  145. $Group14 = GUICtrlCreateGroup("Kết Nước 10K", 660, 56, 81, 25)
  146. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  147. GUICtrlCreateGroup("", -99, -99, 1, 1)
  148.  
  149. $DemNuoc10K = GUICtrlCreateInput("", 570, 85, 41, 24, $ES_NUMBER)
  150. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  151. GUICtrlSetColor(-1, 0x800000)
  152. $DemKetNuoc10K = GUICtrlCreateInput("", 690, 85, 41, 24, $ES_NUMBER)
  153. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  154. GUICtrlSetColor(-1, 0x800000)
  155.  
  156. $CongNuoc10K = GUICtrlCreateInput("", 570, 185, 41, 24, $ES_NUMBER)
  157. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  158. GUICtrlSetColor(-1, 0x800000)
  159. $CongNuoc12K = GUICtrlCreateInput("", 690, 418, 41, 24, $ES_NUMBER)
  160. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  161. GUICtrlSetColor(-1, 0x800000)
  162.  
  163. $DemlocNuoc12K= GUICtrlCreateInput("", 570, 310, 41, 24, $ES_NUMBER)
  164. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  165. GUICtrlSetColor(-1, 0x800000)
  166. $DemNuocTuLanh = GUICtrlCreateInput("", 690, 310, 41, 24, $ES_NUMBER)
  167. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  168. GUICtrlSetColor(-1, 0x800000)
  169.  
  170. $x = GUICtrlCreateLabel("x", 585, 115, 17, 24)
  171. GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
  172. GUICtrlSetColor(-1, 0x00FF00)
  173. $x = GUICtrlCreateLabel("x", 708, 115, 17, 24)
  174. GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
  175. GUICtrlSetColor(-1, 0x00FF00)
  176. $x = GUICtrlCreateLabel("x", 705, 340, 17, 24)
  177. GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
  178. GUICtrlSetColor(-1, 0x00FF00)
  179. $x = GUICtrlCreateLabel("x", 585, 340, 17, 24)
  180. GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
  181. GUICtrlSetColor(-1, 0x00FF00)
  182.  
  183. $cong = GUICtrlCreateLabel("+", 585, 155, 17, 28)
  184. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  185. GUICtrlSetColor(-1, 0x00FF00)
  186. $cong = GUICtrlCreateLabel("+", 704, 387, 17, 28)
  187. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  188. GUICtrlSetColor(-1, 0x00FF00)
  189.  
  190. $x3 = GUICtrlCreateLabel("3", 585, 135, 41, 24)
  191. GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
  192. GUICtrlSetColor(-1, 0x800000)
  193. $x24 = GUICtrlCreateLabel("24", 705, 135, 41, 24)
  194. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  195. GUICtrlSetColor(-1, 0x800000)
  196.  
  197. $x6 = GUICtrlCreateLabel("6", 585, 365, 41, 24)
  198. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  199. GUICtrlSetColor(-1, 0x800000)
  200. $x3 = GUICtrlCreateLabel("3", 705, 365, 41, 24)
  201. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  202. GUICtrlSetColor(-1, 0x800000)
  203.  
  204. $Group15 = GUICtrlCreateGroup("Nước 12K- Tủ Lạnh", 568, 241, 169, 33)
  205. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  206. GUICtrlSetColor(-1, 0x800080)
  207. GUICtrlCreateGroup("", -99, -99, 1, 1)
  208. $Group16 = GUICtrlCreateGroup("Lốc Nước 12K", 550, 280, 105, 25)
  209. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  210. GUICtrlCreateGroup("", -99, -99, 1, 1)
  211. $Group17 = GUICtrlCreateGroup("Tủ Lạnh", 680, 280, 89, 25)
  212. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  213. GUICtrlCreateGroup("", -99, -99, 1, 1)
  214.  
  215. $Save = GUICtrlCreateButton("Save", 40, 430, 160, 50)
  216. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  217. GUICtrlSetBkColor(-1, 0x0078D7)
  218.  
  219. $TinhTong = GUICtrlCreateButton("Tính Tổng", 240, 430, 160, 50)
  220. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  221. GUICtrlSetBkColor(-1, 0x0078D7)
  222.  
  223.  
  224. GUICtrlCreateGroup("", 512, 0, 17, 497)
  225. GUICtrlCreateGroup("", -99, -99, 1, 1)
  226.  
  227.  
  228. $Group18 = GUICtrlCreateGroup("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", 0, 224, 513, 25)
  229. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  230. GUICtrlSetColor(-1, 0xFF0000)
  231. GUICtrlCreateGroup("", -99, -99, 1, 1)
  232. $XoaCauHinh = GUICtrlCreateCheckbox("Xóa Cau Hình", 440, 472, 89, 25)
  233. GUICtrlSetFont(-1, 8, 800, 0, "Palatino Linotype")
  234. GUICtrlSetColor(-1, 0xFF0000)
  235.  
  236. $TongBaoCao = GUICtrlCreateLabel($XemTongBaoCao, 344, 296, 119, 50)
  237. GUICtrlSetFont(-1, 30, 800, 0, "MS Sans Serif")
  238. GUICtrlSetColor(-1, 0xFF0000)
  239.  
  240.  
  241.  
  242.  
  243. GUISetState(@SW_SHOW)
  244. #EndRegion ### END Koda GUI section ###
  245.  
  246. While 1
  247.     $nMsg = GUIGetMsg()
  248.     if $nMsg = $TinhTong Then tu()
  249.     If $nMsg = $Save Then SAVE()
  250.     If $nMsg = $XoaCauHinh Then XoaCauHinh()
  251.     Switch $nMsg
  252.         Case $GUI_EVENT_CLOSE
  253.             Exit
  254.  
  255.     EndSwitch
  256. WEnd
  257.  
  258. Func tu()
  259.     $Get_DemNuoc10K_input=GUICtrlRead($DemNuoc10K)
  260.     $Get_CongNuoc10K_input=GUICtrlRead($CongNuoc10K)
  261.     $Get_DemKetNuoc10K_input=GUICtrlRead($DemKetNuoc10K)
  262.     $Dem_TongSoNuoc10k= ($Get_DemNuoc10k_input * 3 + $Get_CongNuoc10K_input) + ($Get_DemKetNuoc10K_input*24)
  263.     $SoLuongNuocCon10K_input=GUICtrlCreateInput($Dem_TongSoNuoc10k, 433, 25, 49, 24, $ES_NUMBER)
  264.     GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  265.     GUICtrlSetColor(-1, 0x800000)
  266.    
  267.    
  268.     $Get_DemlocNuoc12K_input=GUICtrlRead($DemlocNuoc12K)
  269.     $Get_CongNuoc12K_input=GUICtrlRead($CongNuoc12K)
  270.     $Get_DemNuocTuLanh_input=GUICtrlRead($DemNuocTuLanh)
  271.     $Dem_TongSoNuoc12k= ($Get_DemlocNuoc12K_input*6)+($Get_DemNuocTuLanh_input*3+$Get_CongNuoc12K_input)
  272.     $SoLuongNuocCon12K_input=GUICtrlCreateInput($Dem_TongSoNuoc12k, 433, 73, 49, 24, $ES_NUMBER)
  273.     GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  274.     GUICtrlSetColor(-1, 0x800000)
  275.    
  276.     $Get_TongNuoc10K_input=GUICtrlRead($TongNuoc10K_input)
  277.     $Get_TongNuoc12K_input=GUICtrlRead($TongNuoc12K_input)
  278.     $Get_TongBanh_input=GUICtrlRead($TongBanh_input)
  279.     $Get_TongMiGoi_input=GUICtrlRead($TongMiGoi_input)
  280.     $Get_SoLuongNuocCon10K_input=GUICtrlRead($SoLuongNuocCon10K_input)
  281.     $Get_SoLuongNuocCon12K_input=GUICtrlRead($SoLuongNuocCon12K_input)
  282.     $Get_SoLuongBanhCon_input=GUICtrlRead($SoLuongBanhCon_input)
  283.     $Get_SoLuongMiGoiCon_input=GUICtrlRead($SoLuongMiGoiCon_input)
  284.     $Get_TienThucThu_input=GUICtrlRead($TienThucThu_input)
  285.     $Get_TienXemBaoCao_input=GUICtrlRead($TienXemBaoCao_input)
  286.     $Get_TienKhuyenMai_input=GUICtrlRead($TienKhuyenMai_input)
  287.    
  288.     ; tinh so tien nuoc da  ban
  289.     $tinh_nuoc_10k= ($Get_TongNuoc10K_input - $Get_SoLuongNuocCon10K_input)*10
  290.     $tinh_nuoc_12k= ($Get_TongNuoc12K_input - $Get_SoLuongNuocCon12K_input)*12
  291.     $tinh_banh_5k= ($Get_TongBanh_input - $Get_SoLuongBanhCon_input)*5
  292.     $tinh_mi_goi_12= ($Get_TongMiGoi_input - $Get_SoLuongMiGoiCon_input)*12
  293.     $tong_tinh_Thieu_Du = $Get_TienThucThu_input - $Get_TienXemBaoCao_input - $tinh_nuoc_10k - $tinh_nuoc_12k -  $tinh_banh_5k - $tinh_mi_goi_12 + $Get_TienKhuyenMai_input
  294.  
  295.     $TongBaoCao = GUICtrlCreateLabel($tong_tinh_Thieu_Du, 344, 296, 119, 50)
  296.     GUICtrlSetFont(-1, 30, 800, 0, "MS Sans Serif")
  297.     GUICtrlSetColor(-1, 0xFF0000)
  298. EndFunc
  299.  
  300. Func SAVE()
  301.     $Get_TongNuoc10K_input=GUICtrlRead($TongNuoc10K_input)
  302.     $Get_TongNuoc12K_input=GUICtrlRead($TongNuoc12K_input)
  303.     $Get_TongBanh_input=GUICtrlRead($TongBanh_input)
  304.     $Get_TongMiGoi_input=GUICtrlRead($TongMiGoi_input)
  305.     $Get_SoLuongNuocCon10K_input=GUICtrlRead($SoLuongNuocCon10K_input)
  306.     $Get_SoLuongNuocCon12K_input=GUICtrlRead($SoLuongNuocCon12K_input)
  307.     $Get_SoLuongBanhCon_input=GUICtrlRead($SoLuongBanhCon_input)
  308.     $Get_SoLuongMiGoiCon_input=GUICtrlRead($SoLuongMiGoiCon_input)
  309.     $Get_TienThucThu_input=GUICtrlRead($TienThucThu_input)
  310.     $Get_TienXemBaoCao_input=GUICtrlRead($TienXemBaoCao_input)
  311.     $Get_TienKhuyenMai_input=GUICtrlRead($TienKhuyenMai_input)
  312.     $Get_TongBaoCao_input=GUICtrlRead($TongBaoCao)
  313.    
  314.    
  315.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tong Nuoc 10K", $Get_TongNuoc10K_input)
  316.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tong Nuoc 12K", $Get_TongNuoc12K_input)
  317.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tong Banh", $Get_TongBanh_input)
  318.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tong Mi Goi", $Get_TongMiGoi_input)
  319.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "So Luong Nuoc Con 10K", $Get_SoLuongNuocCon10K_input)
  320.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "So Luong Nuoc Con 12K", $Get_SoLuongNuocCon12K_input)
  321.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "So Luong Banh Con 5K", $Get_SoLuongBanhCon_input)
  322.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "So Luong Mi Goi Con", $Get_SoLuongMiGoiCon_input)
  323.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tien Thuc Thu", $Get_TienThucThu_input)
  324.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tien Xem Bao Cao", $Get_TienXemBaoCao_input)
  325.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tien Khuyen Mai", $Get_TienKhuyenMai_input)
  326.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tong Bao Cao", $Get_TongBaoCao_input)
  327.    
  328.     MsgBox(0,"Save Dữ Liệu","Đã Save Dữ Liệu Thành Công")
  329.    
  330. EndFunc
  331.  
  332. Func XoaCauHinh()
  333.    
  334.     GUICtrlSetData($SoLuongNuocCon10K_input,'')
  335.     GUICtrlSetData($SoLuongNuocCon12K_input,'')
  336.     GUICtrlSetData($SoLuongBanhCon_input,'')
  337.     GUICtrlSetData($SoLuongMiGoiCon_input,'')
  338.     GUICtrlSetData($TienThucThu_input,'')
  339.     GUICtrlSetData($TienXemBaoCao_input,'')
  340.     GUICtrlSetData($TienKhuyenMai_input,'')
  341.     GUICtrlSetData($TongBaoCao,'')
  342.  
  343.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "So Luong Nuoc Con 10K", "")
  344.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "So Luong Nuoc Con 12K", "")
  345.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "So Luong Banh Con 5K", "")
  346.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "So Luong Mi Goi Con", "")
  347.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tien Thuc Thu", "")
  348.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tien Xem Bao Cao", "")
  349.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tien Khuyen Mai", "")
  350.     IniWrite(@ScriptDir & "\Bao Cao Doanh Thu.ini","Luu Nuoc", "Tong Bao Cao", "")
  351. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!