/HRManager/__history/WORKCALENDARUnit.dfm.~4~

https://github.com/oista/NPO · Unknown · 304 lines · 303 code · 1 blank · 0 comment · 0 complexity · 698cb0a40ccbf3f50a427fc380b43a32 MD5 · raw file

  1. inherited WORKCALENDAR: TWORKCALENDAR
  2. Caption = #1050#1072#1083#1077#1085#1076#1072#1088#1100
  3. ClientHeight = 558
  4. ClientWidth = 660
  5. ExplicitWidth = 666
  6. ExplicitHeight = 582
  7. PixelsPerInch = 96
  8. TextHeight = 13
  9. inherited Panel1: TPanel
  10. Left = 569
  11. Height = 558
  12. end
  13. inherited PageControl1: TPageControl
  14. Width = 563
  15. Height = 552
  16. ExplicitWidth = 563
  17. ExplicitHeight = 552
  18. inherited TabSheet1: TTabSheet
  19. Caption = #1050#1072#1083#1077#1085#1076#1072#1088#1100
  20. ExplicitLeft = 4
  21. ExplicitTop = 24
  22. ExplicitWidth = 356
  23. ExplicitHeight = 385
  24. object Panel2: TPanel
  25. Left = 0
  26. Top = 76
  27. Width = 555
  28. Height = 41
  29. Align = alTop
  30. TabOrder = 0
  31. ExplicitWidth = 544
  32. object Label2: TLabel
  33. Left = 28
  34. Top = 8
  35. Width = 30
  36. Height = 24
  37. Caption = #1055#1053
  38. Font.Charset = DEFAULT_CHARSET
  39. Font.Color = clWindowText
  40. Font.Height = -20
  41. Font.Name = 'Tahoma'
  42. Font.Style = [fsBold]
  43. ParentFont = False
  44. end
  45. object Label3: TLabel
  46. Left = 108
  47. Top = 8
  48. Width = 26
  49. Height = 24
  50. Caption = #1042#1058
  51. Font.Charset = DEFAULT_CHARSET
  52. Font.Color = clWindowText
  53. Font.Height = -20
  54. Font.Name = 'Tahoma'
  55. Font.Style = [fsBold]
  56. ParentFont = False
  57. end
  58. object Label4: TLabel
  59. Left = 178
  60. Top = 8
  61. Width = 26
  62. Height = 24
  63. Caption = #1057#1056
  64. Font.Charset = DEFAULT_CHARSET
  65. Font.Color = clWindowText
  66. Font.Height = -20
  67. Font.Name = 'Tahoma'
  68. Font.Style = [fsBold]
  69. ParentFont = False
  70. end
  71. object Label5: TLabel
  72. Left = 258
  73. Top = 8
  74. Width = 26
  75. Height = 24
  76. Caption = #1063#1058
  77. Font.Charset = DEFAULT_CHARSET
  78. Font.Color = clWindowText
  79. Font.Height = -20
  80. Font.Name = 'Tahoma'
  81. Font.Style = [fsBold]
  82. ParentFont = False
  83. end
  84. object Label6: TLabel
  85. Left = 338
  86. Top = 8
  87. Width = 27
  88. Height = 24
  89. Caption = #1055#1058
  90. Font.Charset = DEFAULT_CHARSET
  91. Font.Color = clWindowText
  92. Font.Height = -20
  93. Font.Name = 'Tahoma'
  94. Font.Style = [fsBold]
  95. ParentFont = False
  96. end
  97. object Label7: TLabel
  98. Left = 410
  99. Top = 8
  100. Width = 27
  101. Height = 24
  102. Caption = #1057#1041
  103. Font.Charset = DEFAULT_CHARSET
  104. Font.Color = clRed
  105. Font.Height = -20
  106. Font.Name = 'Tahoma'
  107. Font.Style = [fsBold]
  108. ParentFont = False
  109. end
  110. object Label8: TLabel
  111. Left = 490
  112. Top = 8
  113. Width = 27
  114. Height = 24
  115. Caption = #1042#1057
  116. Font.Charset = DEFAULT_CHARSET
  117. Font.Color = clRed
  118. Font.Height = -20
  119. Font.Name = 'Tahoma'
  120. Font.Style = [fsBold]
  121. ParentFont = False
  122. end
  123. end
  124. object Panel3: TPanel
  125. Left = 0
  126. Top = 0
  127. Width = 555
  128. Height = 76
  129. Align = alTop
  130. TabOrder = 1
  131. ExplicitWidth = 544
  132. object Label1: TLabel
  133. Left = 8
  134. Top = 52
  135. Width = 35
  136. Height = 13
  137. Caption = #1052#1077#1089#1103#1094':'
  138. end
  139. object Label9: TLabel
  140. Left = 20
  141. Top = 25
  142. Width = 23
  143. Height = 13
  144. Caption = #1043#1086#1076':'
  145. end
  146. object Edit1: TEdit
  147. Left = 49
  148. Top = 22
  149. Width = 46
  150. Height = 21
  151. TabOrder = 0
  152. end
  153. object ComboBox1: TComboBox
  154. Left = 49
  155. Top = 49
  156. Width = 96
  157. Height = 21
  158. ItemHeight = 13
  159. TabOrder = 1
  160. Items.Strings = (
  161. #1103#1085#1074#1072#1088#1100
  162. #1092#1077#1074#1088#1072#1083#1100
  163. #1084#1072#1088#1090
  164. #1072#1087#1088#1077#1083#1100
  165. #1084#1072#1081
  166. #1080#1102#1085#1100
  167. #1080#1102#1083#1100
  168. #1072#1074#1075#1091#1089#1090
  169. #1089#1077#1085#1090#1103#1073#1088#1100
  170. #1086#1082#1090#1103#1073#1088#1100
  171. #1085#1086#1103#1073#1088#1100
  172. #1076#1077#1082#1072#1073#1088#1100)
  173. end
  174. object Button3: TButton
  175. Left = 459
  176. Top = 13
  177. Width = 87
  178. Height = 57
  179. Hint = #1057#1086#1079#1076#1072#1090#1100' '#1075#1088#1072#1092#1080#1082' '#1088#1072#1073#1086#1090#1099' '#1085#1072' '#1089#1083#1077#1076#1091#1102#1097#1080#1081' '#1082#1072#1083#1077#1085#1076#1072#1088#1085#1099#1081' '#1075#1086#1076'.'
  180. Caption = #1047#1072#1076#1072#1090#1100' '#1088#1077#1078#1080#1084' '#1086#1075#1088#1072#1085#1080#1095#1077#1085#1085#1086#1081' '#1088#1072#1073#1086#1090#1099
  181. ParentShowHint = False
  182. ShowHint = True
  183. TabOrder = 2
  184. Visible = False
  185. WordWrap = True
  186. end
  187. end
  188. object Panel4: TPanel
  189. Left = 0
  190. Top = 117
  191. Width = 555
  192. Height = 366
  193. Align = alClient
  194. Color = clActiveBorder
  195. Font.Charset = DEFAULT_CHARSET
  196. Font.Color = clWindowText
  197. Font.Height = -11
  198. Font.Name = 'Tahoma'
  199. Font.Style = []
  200. ParentBackground = False
  201. ParentFont = False
  202. TabOrder = 2
  203. ExplicitWidth = 581
  204. end
  205. object Panel5: TPanel
  206. Left = 0
  207. Top = 483
  208. Width = 555
  209. Height = 41
  210. Align = alBottom
  211. TabOrder = 3
  212. ExplicitTop = 545
  213. ExplicitWidth = 544
  214. object Button4: TButton
  215. Left = 215
  216. Top = 3
  217. Width = 101
  218. Height = 35
  219. Hint = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1103'.'
  220. Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
  221. ParentShowHint = False
  222. ShowHint = True
  223. TabOrder = 0
  224. end
  225. end
  226. end
  227. end
  228. inherited PKDBTable1: TPKDBTable
  229. Left = 608
  230. Top = 112
  231. end
  232. object ADQuery2: TADQuery
  233. Connection = DataModule1.ADConnection1
  234. SQL.Strings = (
  235. 'select CALENDAR_YEAR from OTIZ$TWORKINGCALENDAR where'
  236. 'CALENDAR_YEAR=:year'
  237. 'group by CALENDAR_YEAR')
  238. Left = 576
  239. Top = 80
  240. ParamData = <
  241. item
  242. Name = 'YEAR'
  243. DataType = ftInteger
  244. ParamType = ptInput
  245. end>
  246. object ADQuery2CALENDAR_YEAR: TFloatField
  247. FieldName = 'CALENDAR_YEAR'
  248. end
  249. end
  250. object ADQuery1: TADQuery
  251. Connection = DataModule1.ADConnection1
  252. SQL.Strings = (
  253. 'select * from'
  254. 'HR_V_WORKCALENDAR ww'
  255. 'where to_char(ww.daydate,'#39'mm.yyyy'#39') = :monyear'
  256. ''
  257. ''
  258. ''
  259. '--select substr(DAY_DATE,1,2) dayno,'
  260. '--RN,ISHOLIDAY,DAY_LENGTH_H,DAY_LENGTH_SHORT_H,DAY_LENGTH_M,DAY_' +
  261. 'LENGTH_SHORT_M , DAY_DATE,'
  262. '--trim(to_char(day_date,'#39'day'#39') ) day_name'
  263. '--from OTIZ$TWORKINGCALENDAR where '
  264. '--CALENDAR_YEAR=:year AND'
  265. '--trim(to_char(day_date,'#39'month'#39'))=:mon'
  266. '--ORDER by DAY_DATE')
  267. Left = 608
  268. Top = 80
  269. ParamData = <
  270. item
  271. Name = 'MONYEAR'
  272. DataType = ftString
  273. ParamType = ptInput
  274. Value = Null
  275. end>
  276. object ADQuery1ID: TFMTBCDField
  277. FieldName = 'ID'
  278. Required = True
  279. Precision = 38
  280. Size = 38
  281. end
  282. object ADQuery1DAYDATE: TDateTimeField
  283. FieldName = 'DAYDATE'
  284. end
  285. object ADQuery1DAYWORKTYPEID: TFMTBCDField
  286. FieldName = 'DAYWORKTYPEID'
  287. Precision = 38
  288. Size = 38
  289. end
  290. object ADQuery1DESCR: TStringField
  291. FieldName = 'DESCR'
  292. Size = 50
  293. end
  294. object ADQuery1DAYTYPE: TStringField
  295. FieldName = 'DAYTYPE'
  296. Size = 2
  297. end
  298. object ADQuery1WORKTYPE: TStringField
  299. FieldName = 'WORKTYPE'
  300. Size = 500
  301. end
  302. end
  303. end