home *** CD-ROM | disk | FTP | other *** search
- object Stencil1: TStencil1
- Tag = 1
- Left = 365
- Top = 45
- HelpContext = 800
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = '������� �����'
- ClientHeight = 331
- ClientWidth = 577
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- KeyPreview = True
- Menu = MM1
- Position = poScreenCenter
- OnActivate = FormActivate
- OnClick = rdblchange
- OnClose = FormClose
- OnKeyDown = FormKeyDown
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object SpeedButton1: TSpeedButton
- Left = 274
- Top = 515
- Width = 55
- Height = 20
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333333333FF3333333333333744333333333333F773333333333337
- 44473333333333F777F3333333333744444333333333F7733733333333374444
- 4433333333F77333733333333744444447333333F7733337F333333744444444
- 433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
- 9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
- C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
- CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
- CCC333333333333777FF33333333333333CC3333333333333773}
- NumGlyphs = 2
- end
- object SpeedButton2: TSpeedButton
- Left = 329
- Top = 515
- Width = 57
- Height = 20
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333FF3333333333333447333333333333377FFF33333333333744473333333
- 333337773FF3333333333444447333333333373F773FF3333333334444447333
- 33333373F3773FF3333333744444447333333337F333773FF333333444444444
- 733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
- 999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
- 33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
- 333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
- 33333777333333333333CC333333333333337733333333333333}
- NumGlyphs = 2
- end
- object RL1: TRxLabel
- Left = 5
- Top = 19
- Width = 8
- Height = 13
- Alignment = taCenter
- Caption = '1'
- OnClick = RLClick
- end
- object RL2: TRxLabel
- Left = 199
- Top = 19
- Width = 8
- Height = 13
- Alignment = taCenter
- Caption = '2'
- OnClick = RLClick
- end
- object RL3: TRxLabel
- Left = 391
- Top = 19
- Width = 8
- Height = 13
- Alignment = taCenter
- Caption = '3'
- Color = clBtnFace
- ParentColor = False
- ParentShowHint = False
- ShowHint = True
- OnClick = RLClick
- end
- object RL4: TRxLabel
- Left = 5
- Top = 55
- Width = 8
- Height = 13
- Alignment = taCenter
- Caption = '4'
- OnClick = RLClick
- end
- object RL5: TRxLabel
- Left = 199
- Top = 55
- Width = 8
- Height = 13
- Alignment = taCenter
- Caption = '5'
- OnClick = RLClick
- end
- object RL6: TRxLabel
- Left = 391
- Top = 55
- Width = 8
- Height = 13
- Alignment = taCenter
- Caption = '6'
- ParentShowHint = False
- ShowHint = True
- OnClick = RLClick
- end
- object RL7: TRxLabel
- Left = 5
- Top = 91
- Width = 8
- Height = 13
- Alignment = taCenter
- Caption = '7'
- OnClick = RLClick
- end
- object RL8: TRxLabel
- Left = 199
- Top = 91
- Width = 8
- Height = 13
- Alignment = taCenter
- Caption = '8'
- OnClick = RLClick
- end
- object RL9: TRxLabel
- Left = 391
- Top = 91
- Width = 8
- Height = 13
- Alignment = taCenter
- Caption = '9'
- ParentShowHint = False
- ShowHint = True
- OnClick = RLClick
- end
- object RL10: TRxLabel
- Left = 5
- Top = 127
- Width = 14
- Height = 13
- Alignment = taCenter
- Caption = '10'
- OnClick = RLClick
- end
- object RL11: TRxLabel
- Left = 199
- Top = 127
- Width = 14
- Height = 13
- Alignment = taCenter
- Caption = '11'
- OnClick = RLClick
- end
- object RL12: TRxLabel
- Left = 389
- Top = 127
- Width = 14
- Height = 13
- Alignment = taCenter
- Caption = '12'
- ParentShowHint = False
- ShowHint = True
- OnClick = RLClick
- end
- object RL13: TRxLabel
- Left = 14
- Top = 536
- Width = 14
- Height = 13
- Alignment = taCenter
- Caption = '13'
- OnClick = RLClick
- end
- object RL14: TRxLabel
- Left = 186
- Top = 538
- Width = 14
- Height = 13
- Alignment = taCenter
- Caption = '14'
- OnClick = RLClick
- end
- object RL15: TRxLabel
- Left = 385
- Top = 472
- Width = 14
- Height = 13
- Alignment = taCenter
- Caption = '15'
- ParentShowHint = False
- ShowHint = True
- OnClick = RLClick
- end
- object RL16: TRxLabel
- Left = 14
- Top = 571
- Width = 14
- Height = 13
- Alignment = taCenter
- Caption = '16'
- OnClick = RLClick
- end
- object RxL1: TRxLabel
- Left = 23
- Top = 0
- Width = 160
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Caption = 'RxL1'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object RxL2: TRxLabel
- Left = 216
- Top = 0
- Width = 160
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Caption = 'RxL2'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object RxL3: TRxLabel
- Left = 409
- Top = 0
- Width = 160
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Caption = 'RxL3'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object RxL4: TRxLabel
- Left = 23
- Top = 37
- Width = 160
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Caption = 'RxL4'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object RxL5: TRxLabel
- Left = 216
- Top = 37
- Width = 160
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Caption = 'RxL5'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object RxL6: TRxLabel
- Left = 409
- Top = 37
- Width = 160
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Caption = 'RxL6'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object RxL7: TRxLabel
- Left = 23
- Top = 73
- Width = 160
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Caption = 'RxL7'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object RxL8: TRxLabel
- Left = 216
- Top = 73
- Width = 160
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Caption = 'RxL8'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object RxL9: TRxLabel
- Left = 409
- Top = 73
- Width = 160
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Caption = 'RxL9'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object RxL10: TRxLabel
- Left = 23
- Top = 109
- Width = 160
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Caption = 'RxL10'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object RxL11: TRxLabel
- Left = 216
- Top = 109
- Width = 160
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Caption = 'RxL11'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object RxL12: TRxLabel
- Left = 409
- Top = 109
- Width = 160
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Caption = 'RxL12'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object RxL13: TRxLabel
- Left = 32
- Top = 506
- Width = 160
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Caption = 'RxL13'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object RxL14: TRxLabel
- Left = 87
- Top = 578
- Width = 160
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Caption = 'RxL14'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object RxL15: TRxLabel
- Left = 466
- Top = 528
- Width = 160
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Caption = 'RxL15'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object RxL16: TRxLabel
- Left = 32
- Top = 502
- Width = 160
- Height = 14
- Alignment = taCenter
- AutoSize = False
- Caption = 'RxL16'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object SpeedButton3: TSpeedButton
- Left = 274
- Top = 488
- Width = 55
- Height = 20
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333333333FF3333333333333744333333333333F773333333333337
- 44473333333333F777F3333333333744444333333333F7733733333333374444
- 4433333333F77333733333333744444447333333F7733337F333333744444444
- 433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
- 9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
- C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
- CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
- CCC333333333333777FF33333333333333CC3333333333333773}
- NumGlyphs = 2
- OnClick = SpeedButton3Click
- end
- object SpeedButton4: TSpeedButton
- Left = 331
- Top = 486
- Width = 55
- Height = 20
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333FF3333333333333447333333333333377FFF33333333333744473333333
- 333337773FF3333333333444447333333333373F773FF3333333334444447333
- 33333373F3773FF3333333744444447333333337F333773FF333333444444444
- 733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
- 999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
- 33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
- 333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
- 33333777333333333333CC333333333333337733333333333333}
- NumGlyphs = 2
- OnClick = SpeedButton4Click
- end
- object RSB1: TRxSpinButton
- Left = 355
- Top = 149
- Width = 21
- Height = 19
- DownGlyph.Data = {
- 56000000424D56000000000000003E0000002800000006000000060000000100
- 010000000000180000000000000000000000020000000200000000000000FFFF
- FF00CC65AE818496AD8102007A01CE001E00CE00F003CCB9AE81}
- UpGlyph.Data = {
- 56000000424D56000000000000003E0000002800000006000000060000000100
- 010000000000180000000000000000000000020000000200000000000000FFFF
- FF00CC79AD81CC96AD81CE02C202030380048600FFFFCC65AE81}
- OnBottomClick = RSB1BottomClick
- OnTopClick = RSB1TopClick
- end
- object RxLabel1: TRxLabel
- Left = 221
- Top = 151
- Width = 81
- Height = 13
- Caption = '����� �������'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object BitBtn1: TBitBtn
- Left = 112
- Top = 540
- Width = 110
- Height = 21
- Caption = '�������� ������'
- TabOrder = 0
- end
- object BitBtn3: TBitBtn
- Left = 245
- Top = 541
- Width = 113
- Height = 21
- Caption = '�������� ���������'
- TabOrder = 1
- end
- object BitBtn6: TBitBtn
- Left = 378
- Top = 566
- Width = 111
- Height = 21
- Caption = '������� ������'
- TabOrder = 2
- OnClick = BitBtn6Click
- end
- object E1: TEdit
- Left = 25
- Top = 15
- Width = 159
- Height = 21
- HelpContext = 800
- ImeMode = imAlpha
- TabOrder = 3
- OnEnter = stepit
- OnKeyDown = seek
- OnKeyUp = seek
- end
- object E2: TEdit
- Left = 216
- Top = 15
- Width = 160
- Height = 21
- HelpContext = 800
- TabOrder = 4
- OnEnter = stepit
- OnKeyDown = seek
- OnKeyUp = seek
- end
- object E3: TEdit
- Left = 409
- Top = 15
- Width = 160
- Height = 21
- HelpContext = 800
- TabOrder = 5
- OnEnter = stepit
- OnKeyDown = seek
- OnKeyUp = seek
- end
- object E4: TEdit
- Left = 23
- Top = 51
- Width = 159
- Height = 21
- HelpContext = 800
- TabOrder = 6
- OnEnter = stepit
- OnKeyDown = seek
- OnKeyUp = seek
- end
- object E5: TEdit
- Left = 217
- Top = 53
- Width = 160
- Height = 21
- HelpContext = 800
- TabOrder = 7
- OnEnter = stepit
- OnKeyDown = seek
- OnKeyUp = seek
- end
- object E6: TEdit
- Left = 409
- Top = 51
- Width = 160
- Height = 21
- HelpContext = 800
- TabOrder = 8
- OnEnter = stepit
- OnKeyDown = seek
- OnKeyUp = seek
- end
- object E7: TEdit
- Left = 23
- Top = 87
- Width = 159
- Height = 21
- HelpContext = 800
- TabOrder = 9
- OnEnter = stepit
- OnKeyDown = seek
- OnKeyUp = seek
- end
- object E8: TEdit
- Left = 216
- Top = 87
- Width = 160
- Height = 21
- HelpContext = 800
- TabOrder = 10
- OnEnter = stepit
- OnKeyDown = seek
- OnKeyUp = seek
- end
- object E9: TEdit
- Left = 409
- Top = 87
- Width = 160
- Height = 21
- HelpContext = 800
- TabOrder = 11
- OnEnter = stepit
- OnKeyDown = seek
- OnKeyUp = seek
- end
- object E10: TEdit
- Left = 23
- Top = 123
- Width = 159
- Height = 21
- HelpContext = 800
- TabOrder = 12
- OnEnter = stepit
- OnKeyDown = seek
- OnKeyUp = seek
- end
- object E11: TEdit
- Left = 216
- Top = 123
- Width = 160
- Height = 21
- HelpContext = 800
- TabOrder = 13
- OnEnter = stepit
- OnKeyDown = seek
- OnKeyUp = seek
- end
- object RDB1: TRxDBGrid
- Left = 0
- Top = 204
- Width = 575
- Height = 106
- HelpContext = 800
- DataSource = DBrowse
- Options = [dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
- ParentShowHint = False
- ShowHint = True
- TabOrder = 14
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- OnCellClick = RDB1CellClick
- OnDblClick = RDB1DblClick
- OnEnter = RDB1Enter
- OnKeyUp = RDB1KeyUp
- end
- object RG1: TRadioGroup
- Left = 195
- Top = 171
- Width = 380
- Height = 32
- HelpContext = 800
- Caption = '������������'
- Columns = 3
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsItalic]
- ItemIndex = 0
- Items.Strings = (
- '������'
- '������ �����'
- '��������� �����')
- ParentFont = False
- TabOrder = 15
- end
- object BitBtn9: TBitBtn
- Left = 397
- Top = 147
- Width = 59
- Height = 21
- Caption = '������'
- TabOrder = 16
- OnClick = BitBtn9Click
- end
- object BB2: TBitBtn
- Left = 3
- Top = 147
- Width = 110
- Height = 21
- HelpContext = 800
- Caption = '�����'
- TabOrder = 17
- OnClick = BB2Click
- end
- object RG2: TRadioGroup
- Left = 3
- Top = 171
- Width = 187
- Height = 32
- HelpContext = 800
- Caption = '������ ��'
- Columns = 2
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsItalic]
- ItemIndex = 0
- Items.Strings = (
- '�'
- '���')
- ParentFont = False
- TabOrder = 18
- end
- object E12: TEdit
- Left = 409
- Top = 123
- Width = 160
- Height = 21
- HelpContext = 800
- TabOrder = 19
- OnEnter = stepit
- OnKeyDown = seek
- OnKeyUp = seek
- end
- object SB1: TStatusBar
- Left = 0
- Top = 312
- Width = 577
- Height = 19
- HelpContext = 800
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Panels = <
- item
- Width = 220
- end
- item
- Width = 50
- end>
- ParentFont = False
- SimplePanel = False
- end
- object EE4: TEdit
- Left = 306
- Top = 149
- Width = 46
- Height = 17
- HelpContext = 800
- AutoSize = False
- ReadOnly = True
- TabOrder = 21
- OnChange = EE4Change
- end
- object Browse: TTable
- DatabaseName = 'book'
- IndexName = 'sc'
- ReadOnly = True
- TableType = ttParadox
- Left = 182
- Top = 238
- end
- object DBrowse: TDataSource
- DataSet = Browse
- Left = 336
- Top = 243
- end
- object MM1: TMainMenu
- Left = 75
- Top = 256
- object N1: TMenuItem
- Caption = '�������������'
- HelpContext = 800
- object N2: TMenuItem
- Caption = '�������� � ������������ �����'
- HelpContext = 850
- OnClick = N2Click
- end
- object N3: TMenuItem
- Caption = '�������� ������� ������'
- HelpContext = 800
- OnClick = N3Click
- end
- end
- object N4: TMenuItem
- Caption = '������������ �����'
- HelpContext = 850
- object N5: TMenuItem
- Caption = '������������ �����'
- HelpContext = 850
- OnClick = N5Click
- end
- end
- end
- end
-