/Gedemin/Tax/tax_frmPeriod_unit.dfm

http://gedemin.googlecode.com/ · Unknown · 373 lines · 373 code · 0 blank · 0 comment · 0 complexity · 44cd36f27caf42098f491442cbce7e9c MD5 · raw file 

    

  1. object frmPeriod: TfrmPeriod

    2. 

  2.   Left = 304

    3. 

  3.   Top = 223

    4. 

  4.   Width = 513

    5. 

  5.   Height = 403

    6. 

  6.   HelpContext = 18

    7. 

  7.   BorderWidth = 5

    8. 

  8.   Caption = '????????? ???????'

    9. 

  9.   Color = clBtnFace

    10. 

  10.   Constraints.MinHeight = 150

    11. 

  11.   Constraints.MinWidth = 290

    12. 

  12.   Font.Charset = DEFAULT_CHARSET

    13. 

  13.   Font.Color = clWindowText

    14. 

  14.   Font.Height = -11

    15. 

  15.   Font.Name = 'MS Sans Serif'

    16. 

  16.   Font.Style = []

    17. 

  17.   OldCreateOrder = False

    18. 

  18.   Position = poScreenCenter

    19. 

  19.   OnCloseQuery = FormCloseQuery

    20. 

  20.   OnDestroy = FormDestroy

    21. 

  21.   PixelsPerInch = 96

    22. 

  22.   TextHeight = 13

    23. 

  23.   object pnlMain: TPanel

    24. 

  24.     Left = 0

    25. 

  25.     Top = 0

    26. 

  26.     Width = 495

    27. 

  27.     Height = 336

    28. 

  28.     Align = alClient

    29. 

  29.     BevelOuter = bvNone

    30. 

  30.     TabOrder = 0

    31. 

  31.     object pcSelDate: TPageControl

    32. 

  32.       Left = 0

    33. 

  33.       Top = 0

    34. 

  34.       Width = 495

    35. 

  35.       Height = 336

    36. 

  36.       ActivePage = tsMonth

    37. 

  37.       Align = alClient

    38. 

  38.       TabOrder = 0

    39. 

  39.       OnChange = pcSelDateChange

    40. 

  40.       object tsMonth: TTabSheet

    41. 

  41.         BorderWidth = 3

    42. 

  42.         Caption = '?? ?????'

    43. 

  43.         object Panel1: TPanel

    44. 

  44.           Left = 0

    45. 

  45.           Top = 26

    46. 

  46.           Width = 481

    47. 

  47.           Height = 276

    48. 

  48.           Align = alClient

    49. 

  49.           BevelOuter = bvLowered

    50. 

  50.           FullRepaint = False

    51. 

  51.           TabOrder = 0

    52. 

  52.           object GridMonth: TgsIBGrid

    53. 

  53.             Left = 1

    54. 

  54.             Top = 1

    55. 

  55.             Width = 479

    56. 

  56.             Height = 274

    57. 

  57.             Align = alClient

    58. 

  58.             BorderStyle = bsNone

    59. 

  59.             DataSource = dsTaxName

    60. 

  60.             Options = [dgTitles, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]

    61. 

  61.             PopupMenu = pmPeriod

    62. 

  62.             ReadOnly = True

    63. 

  63.             TabOrder = 0

    64. 

  64.             InternalMenuKind = imkWithSeparator

    65. 

  65.             Expands = <>

    66. 

  66.             ExpandsActive = False

    67. 

  67.             ExpandsSeparate = False

    68. 

  68.             TitlesExpanding = False

    69. 

  69.             Conditions = <>

    70. 

  70.             ConditionsActive = False

    71. 

  71.             CheckBox.FieldName = 'Id'

    72. 

  72.             CheckBox.Visible = True

    73. 

  73.             CheckBox.FirstColumn = True

    74. 

  74.             MinColWidth = 40

    75. 

  75.             ColumnEditors = <>

    76. 

  76.             Aliases = <>

    77. 

  77.             ShowTotals = False

    78. 

  78.           end

    79. 

  79.         end

    80. 

  80.         object Panel4: TPanel

    81. 

  81.           Left = 0

    82. 

  82.           Top = 0

    83. 

  83.           Width = 481

    84. 

  84.           Height = 26

    85. 

  85.           Align = alTop

    86. 

  86.           BevelOuter = bvNone

    87. 

  87.           TabOrder = 1

    88. 

  88.           object lblM1: TLabel

    89. 

  89.             Left = 2

    90. 

  90.             Top = 5

    91. 

  91.             Width = 36

    92. 

  92.             Height = 13

    93. 

  93.             Caption = '?????:'

    94. 

  94.           end

    95. 

  95.           object lblY1: TLabel

    96. 

  96.             Left = 164

    97. 

  97.             Top = 5

    98. 

  98.             Width = 21

    99. 

  99.             Height = 13

    100. 

  100.             Caption = '???:'

    101. 

  101.           end

    102. 

  102.           object cbMonth: TComboBox

    103. 

  103.             Left = 55

    104. 

  104.             Top = 1

    105. 

  105.             Width = 101

    106. 

  106.             Height = 21

    107. 

  107.             DropDownCount = 12

    108. 

  108.             ItemHeight = 13

    109. 

  109.             TabOrder = 0

    110. 

  110.           end

    111. 

  111.           object spMYear: TSpinEdit

    112. 

  112.             Left = 191

    113. 

  113.             Top = 0

    114. 

  114.             Width = 65

    115. 

  115.             Height = 22

    116. 

  116.             MaxValue = 2030

    117. 

  117.             MinValue = 1990

    118. 

  118.             TabOrder = 1

    119. 

  119.             Value = 2003

    120. 

  120.           end

    121. 

  121.         end

    122. 

  122.       end

    123. 

  123.       object tsQuarter: TTabSheet

    124. 

  124.         BorderWidth = 3

    125. 

  125.         Caption = '?? ???????'

    126. 

  126.         ImageIndex = 1

    127. 

  127.         object Panel2: TPanel

    128. 

  128.           Left = 0

    129. 

  129.           Top = 26

    130. 

  130.           Width = 481

    131. 

  131.           Height = 276

    132. 

  132.           Align = alClient

    133. 

  133.           BevelOuter = bvLowered

    134. 

  134.           FullRepaint = False

    135. 

  135.           TabOrder = 0

    136. 

  136.           object GridQuarter: TgsIBGrid

    137. 

  137.             Left = 1

    138. 

  138.             Top = 1

    139. 

  139.             Width = 479

    140. 

  140.             Height = 274

    141. 

  141.             Align = alClient

    142. 

  142.             BorderStyle = bsNone

    143. 

  143.             DataSource = dsTaxName

    144. 

  144.             Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]

    145. 

  145.             ReadOnly = True

    146. 

  146.             TabOrder = 0

    147. 

  147.             InternalMenuKind = imkWithSeparator

    148. 

  148.             Expands = <>

    149. 

  149.             ExpandsActive = False

    150. 

  150.             ExpandsSeparate = False

    151. 

  151.             TitlesExpanding = False

    152. 

  152.             Conditions = <>

    153. 

  153.             ConditionsActive = False

    154. 

  154.             CheckBox.FieldName = 'Id'

    155. 

  155.             CheckBox.Visible = True

    156. 

  156.             CheckBox.FirstColumn = True

    157. 

  157.             MinColWidth = 40

    158. 

  158.             ColumnEditors = <>

    159. 

  159.             Aliases = <>

    160. 

  160.             ShowTotals = False

    161. 

  161.           end

    162. 

  162.         end

    163. 

  163.         object Panel5: TPanel

    164. 

  164.           Left = 0

    165. 

  165.           Top = 0

    166. 

  166.           Width = 481

    167. 

  167.           Height = 26

    168. 

  168.           Align = alTop

    169. 

  169.           BevelOuter = bvNone

    170. 

  170.           TabOrder = 1

    171. 

  171.           object lblQuart: TLabel

    172. 

  172.             Left = 2

    173. 

  173.             Top = 5

    174. 

  174.             Width = 45

    175. 

  175.             Height = 13

    176. 

  176.             Caption = '???????:'

    177. 

  177.           end

    178. 

  178.           object lnlY2: TLabel

    179. 

  179.             Left = 164

    180. 

  180.             Top = 5

    181. 

  181.             Width = 21

    182. 

  182.             Height = 13

    183. 

  183.             Caption = '???:'

    184. 

  184.           end

    185. 

  185.           object cbQuarter: TComboBox

    186. 

  186.             Left = 55

    187. 

  187.             Top = 1

    188. 

  188.             Width = 101

    189. 

  189.             Height = 21

    190. 

  190.             ItemHeight = 13

    191. 

  191.             TabOrder = 0

    192. 

  192.             Items.Strings = (

    193. 

  193.               'I.   ??????      '

    194. 

  194.               'II.  ??????       '

    195. 

  195.               'III. ??????       '

    196. 

  196.               'IV. ?????????')

    197. 

  197.           end

    198. 

  198.           object spQYear: TSpinEdit

    199. 

  199.             Left = 191

    200. 

  200.             Top = 0

    201. 

  201.             Width = 65

    202. 

  202.             Height = 22

    203. 

  203.             MaxValue = 2030

    204. 

  204.             MinValue = 1990

    205. 

  205.             TabOrder = 1

    206. 

  206.             Value = 2003

    207. 

  207.           end

    208. 

  208.         end

    209. 

  209.       end

    210. 

  210.       object tsArbitrary: TTabSheet

    211. 

  211.         BorderWidth = 3

    212. 

  212.         Caption = '?? ??????'

    213. 

  213.         ImageIndex = 2

    214. 

  214.         object Panel3: TPanel

    215. 

  215.           Left = 0

    216. 

  216.           Top = 26

    217. 

  217.           Width = 481

    218. 

  218.           Height = 276

    219. 

  219.           Align = alClient

    220. 

  220.           BevelOuter = bvLowered

    221. 

  221.           FullRepaint = False

    222. 

  222.           TabOrder = 0

    223. 

  223.           object GridPeriod: TgsIBGrid

    224. 

  224.             Left = 1

    225. 

  225.             Top = 1

    226. 

  226.             Width = 479

    227. 

  227.             Height = 274

    228. 

  228.             Align = alClient

    229. 

  229.             BorderStyle = bsNone

    230. 

  230.             DataSource = dsTaxName

    231. 

  231.             Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]

    232. 

  232.             ReadOnly = True

    233. 

  233.             TabOrder = 0

    234. 

  234.             InternalMenuKind = imkWithSeparator

    235. 

  235.             Expands = <>

    236. 

  236.             ExpandsActive = False

    237. 

  237.             ExpandsSeparate = False

    238. 

  238.             TitlesExpanding = False

    239. 

  239.             Conditions = <>

    240. 

  240.             ConditionsActive = False

    241. 

  241.             CheckBox.FieldName = 'Id'

    242. 

  242.             CheckBox.Visible = True

    243. 

  243.             CheckBox.FirstColumn = True

    244. 

  244.             MinColWidth = 40

    245. 

  245.             ColumnEditors = <>

    246. 

  246.             Aliases = <>

    247. 

  247.             ShowTotals = False

    248. 

  248.           end

    249. 

  249.         end

    250. 

  250.         object Panel6: TPanel

    251. 

  251.           Left = 0

    252. 

  252.           Top = 0

    253. 

  253.           Width = 481

    254. 

  254.           Height = 26

    255. 

  255.           Align = alTop

    256. 

  256.           BevelOuter = bvNone

    257. 

  257.           TabOrder = 1

    258. 

  258.           object lblEndPeriod: TLabel

    259. 

  259.             Left = 124

    260. 

  260.             Top = 5

    261. 

  261.             Width = 58

    262. 

  262.             Height = 13

    263. 

  263.             Caption = '?????????:'

    264. 

  264.           end

    265. 

  265.           object lblBeginPeriod: TLabel

    266. 

  266.             Left = 2

    267. 

  267.             Top = 5

    268. 

  268.             Width = 40

    269. 

  269.             Height = 13

    270. 

  270.             Caption = '??????:'

    271. 

  271.           end

    272. 

  272.           object xdeEPeriod: TxDateEdit

    273. 

  273.             Left = 191

    274. 

  274.             Top = 1

    275. 

  275.             Width = 65

    276. 

  276.             Height = 21

    277. 

  277.             Kind = kDate

    278. 

  278.             EditMask = '!99\.99\.9999;1;_'

    279. 

  279.             MaxLength = 10

    280. 

  280.             TabOrder = 0

    281. 

  281.             Text = '  .  .    '

    282. 

  282.           end

    283. 

  283.           object xdeBPeriod: TxDateEdit

    284. 

  284.             Left = 49

    285. 

  285.             Top = 1

    286. 

  286.             Width = 65

    287. 

  287.             Height = 21

    288. 

  288.             Kind = kDate

    289. 

  289.             EditMask = '!99\.99\.9999;1;_'

    290. 

  290.             MaxLength = 10

    291. 

  291.             TabOrder = 1

    292. 

  292.             Text = '  .  .    '

    293. 

  293.           end

    294. 

  294.         end

    295. 

  295.       end

    296. 

  296.     end

    297. 

  297.   end

    298. 

  298.   object pnlButton: TPanel

    299. 

  299.     Left = 0

    300. 

  300.     Top = 336

    301. 

  301.     Width = 495

    302. 

  302.     Height = 30

    303. 

  303.     Align = alBottom

    304. 

  304.     BevelOuter = bvNone

    305. 

  305.     TabOrder = 1

    306. 

  306.     object btnOk: TButton

    307. 

  307.       Left = 340

    308. 

  308.       Top = 9

    309. 

  309.       Width = 75

    310. 

  310.       Height = 21

    311. 

  311.       Anchors = [akRight, akBottom]

    312. 

  312.       Caption = 'Ok'

    313. 

  313.       Default = True

    314. 

  314.       ModalResult = 1

    315. 

  315.       TabOrder = 0

    316. 

  316.     end

    317. 

  317.     object btnCancel: TButton

    318. 

  318.       Left = 420

    319. 

  319.       Top = 9

    320. 

  320.       Width = 75

    321. 

  321.       Height = 21

    322. 

  322.       Anchors = [akRight, akBottom]

    323. 

  323.       Cancel = True

    324. 

  324.       Caption = '??????'

    325. 

  325.       ModalResult = 2

    326. 

  326.       TabOrder = 1

    327. 

  327.     end

    328. 

  328.     object Button1: TButton

    329. 

  329.       Left = 1

    330. 

  330.       Top = 9

    331. 

  331.       Width = 75

    332. 

  332.       Height = 21

    333. 

  333.       Action = actHelp

    334. 

  334.       TabOrder = 2

    335. 

  335.     end

    336. 

  336.   end

    337. 

  337.   object dsTaxName: TDataSource

    338. 

  338.     DataSet = gdcTaxName

    339. 

  339.     Left = 104

    340. 

  340.     Top = 64

    341. 

  341.   end

    342. 

  342.   object gdcTaxName: TgdcTaxName

    343. 

  343.     OnGetOrderClause = gdcTaxNameGetOrderClause

    344. 

  344.     Left = 136

    345. 

  345.     Top = 64

    346. 

  346.   end

    347. 

  347.   object pmPeriod: TPopupMenu

    348. 

  348.     Left = 72

    349. 

  349.     Top = 64

    350. 

  350.     object N1: TMenuItem

    351. 

  351.       Action = actSelectAll

    352. 

  352.     end

    353. 

  353.     object N2: TMenuItem

    354. 

  354.       Action = actDiscardSelect

    355. 

  355.     end

    356. 

  356.   end

    357. 

  357.   object alPeriod: TActionList

    358. 

  358.     Left = 32

    359. 

  359.     Top = 64

    360. 

  360.     object actSelectAll: TAction

    361. 

  361.       Caption = '???????? ???'

    362. 

  362.       OnExecute = actSelectAllExecute

    363. 

  363.     end

    364. 

  364.     object actDiscardSelect: TAction

    365. 

  365.       Caption = '???????? ?????????'

    366. 

  366.       OnExecute = actDiscardSelectExecute

    367. 

  367.     end

    368. 

  368.     object actHelp: TAction

    369. 

  369.       Caption = '???????'

    370. 

  370.       OnExecute = actHelpExecute

    371. 

  371.     end

    372. 

  372.   end

    373. 

  373. end
    374.