153
end
object CBShowResult: TCheckBox
Left = 144
Top = 159
Width = 161
Height = 17
Hint =
#1056#1072#1079#1088#1077#1096#1080#1090#1100'
'#1089#1084#1086#1090#1088#1077#1090#1100'
'#1088#1077#1079#1091#1083#1100#1090#1072#1090' | '#1055#1086'
'#1086#1082#1085#1086#1085#1095#1072#1085#1080#1080'
'#1090#1077#1089#1090#1072' '#1084#1086#1078#1085#1086'
'#1087#1088#1086#1089#1090#1084#1086 +
#1090#1088#1077#1090#1100'
'#1088#1077#1079#1091#1083#1100#1090#1072#1090
Caption = #1055#1086#1082#1072#1079#1099#1074#1072#1090#1100'
'#1088#1077#1079#1091#1083#1100#1090#1072#1090
TabOrder = 9
end
object CBOpros: TCheckBox
Left = 144
Top = 135
Width = 97
Height = 17
Hint = #1054#1087#1088#1086#1089' | '#1058#1077#1089#1090'
'#1103#1074#1083#1103#1077#1090#1089#1103'
'#1086#1087#1088#1086#1089#1086#1084
Caption = #1058#1077#1089#1090'-'#1086#1087#1088#1086#1089
TabOrder = 10
end
object CBOnlyAnsw: TCheckBox
Left = 144
Top = 111
Width = 145
Height = 17
Hint =
#1053#1077' '#1091#1095#1080#1099#1090#1074#1072#1090#1100'
'#1074#1086#1087#1088#1086#1089#1099' '#1073#1077#1079'
'#1086#1090#1074#1077#1090#1086#1074' |'#1055#1088#1080'
'#1087#1086#1076#1089#1095#1077#1090#1077'
'#1088#1077#1079#1091#1083#1100#1090#1072#1090#1072'
'#1090#1077#1089#1090#1072' ' +
#1091#1095#1080#1090#1099#1074#1072#1090#1100'
'#1090#1086#1083#1100#1082#1086' '#1090#1077'
154
'#1074#1086#1087#1088#1086#1089#1099', '#1085#1072'
'#1082#1086#1090#1086#1088#1099#1077' '#1076#1072#1085#1099'
'#1086#1090#1074#1077#1090#1099
Caption = #1058#1086#1083#1100#1082#1086'
'#1086#1090#1074#1077#1095#1077#1085#1085#1099#1077
TabOrder = 11
end
object CBAlweysJ: TCheckBox
Left = 8
Top = 183
Width = 265
Height = 17
Hint =
#1046#1091#1088#1085#1072#1083'
'#1086#1073#1103#1079#1072#1090#1077#1083#1100#1085#1086' |
'#1054#1073#1103#1079#1072#1090#1077#1083#1100#1085#1086'
'#1079#1072#1087#1080#1089#1099#1074#1072#1090#1100'
'#1088#1077#1079#1091#1083#1100#1090#1072#1090'
'#1090#1077#1089#1090#1072' '#1074' '#1078#1091 +
#1088#1085#1072#1083
Caption = #1042#1089#1077#1075#1076#1072'
'#1079#1072#1087#1080#1089#1099#1074#1072#1090#1100'
'#1088#1077#1079#1091#1083#1100#1090#1072#1090' '#1074'
'#1078#1091#1088#1085#1072#1083
TabOrder = 12
end
object CBPrintInter: TCheckBox
Left = 8
Top = 205
Width = 265
Height = 17
Hint =
#1055#1086#1082#1072#1079#1099#1074#1072#1090#1100'
'#1086#1090#1074#1077#1090#1099' | '#1055#1088#1080'
'#1086#1090#1086#1073#1088#1072#1078#1077#1085#1080#1080'
'#1090#1077#1089#1090#1086#1074' '#1080' '#1080#1093'
'#1087#1077#1095#1072#1090#1080'
'#1087#1086#1082#1072#1079#1099#1074#1072#1090 +
#1100' '#1086#1090#1074#1077#1090#1099
Caption = #1056#1077#1078#1080#1084'
'#1086#1073#1091#1095#1077#1085#1080#1103'
('#1087#1086#1082#1072#1079#1099#1074#1072#1090#1100'
'#1086#1090#1074#1077#1090#1099')'
TabOrder = 13
155
end
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 317
Height = 304
Align = alClient
Caption = #1058#1077#1089#1090#1099
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
object DBGridTests: TDBGrid
Left = 2
Top = 15
Width = 313
Height = 287
Align = alClient
DataSource = DM.DSTests
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines,
dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
PopupMenu = PopupMenu1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = [fsBold]
Columns = <
item
Expanded = False
FieldName = 'Name'
Title.Caption = #1058#1077#1089#1090
156
Width = 191
Visible = True
end
item
Expanded = False
FieldName = 'Name_1'
Title.Caption = #1057#1083#1086#1078#1085#1086#1089#1090#1100
Width = 72
Visible = True
end
item
Expanded = False
FieldName = 'TimeTest'
Title.Caption = #1052#1080#1085#1091#1090
Width = 40
Visible = True
end>
end
end
object ActionList1: TActionList
Left = 152
Top = 104
object ActionAdd: TAction
Category = 'Edit'
Caption = #1044#1086#1073#1072#1074#1080#1090#1100
Hint = #1044#1086#1073#1072#1074#1080#1090#1100
OnExecute = ActionAddExecute
end
object ActionEdit: TAction
Category = 'Edit'
Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
Hint = #1057#1086#1093#1088#1072#1085#1080#1090#1100
OnExecute = ActionEditExecute
end
object ActionDel: TAction
Category = 'Edit'
Caption = #1059#1076#1072#1083#1080#1090#1100
Hint = #1059#1076#1072#1083#1080#1090#1100
OnExecute = ActionDelExecute
end
object ActionClose: TAction
Category = 'Edit'
Caption = #1047#1072#1082#1088#1099#1090#1100
Hint = #1047#1072#1082#1088#1099#1090#1100
157
OnExecute = ActionCloseExecute
end
end
object QTests1: TQuery
DatabaseName = 'Test'
SQL.Strings = (
'select * from Tests T, Hard H'
'where (id_tema = 2) and (T.ID_Hard = H.ID)'
'order by Name')
Left = 104
Top = 184
object QTests1ID: TIntegerField
FieldName = 'ID'
Origin = 'TESTS."tests.DB".ID'
end
object QTests1Id_tema: TIntegerField
FieldName = 'Id_tema'
Origin = 'TESTS."tests.DB".Id_tema'
end
object QTests1Id_Hard: TIntegerField
FieldName = 'Id_Hard'
Origin = 'TESTS."tests.DB".Id_Hard'
end
object QTests1Name: TStringField
FieldName = 'Name'
Origin = 'TESTS."tests.DB".Name'
Size = 30
end
object QTests1ID_1: TIntegerField
FieldName = 'ID_1'
Origin = 'TESTS."tests.DB".TimeTest'
end
object QTests1Name_1: TStringField
FieldName = 'Name_1'
LookupDataSet = QHard
LookupKeyFields = 'ID'
LookupResultField = 'Name'
KeyFields = 'ID'
Origin = 'TESTS."tests.DB".TimeTest'
Size = 10
end
object QTests1TimeTest: TIntegerField
FieldName = 'TimeTest'
Origin = 'TEST."tests.DB".TimeTest'
158
end
object QTests1K: TFloatField
FieldName = 'K'
Origin = 'TEST."tests.DB".TimeTest'
end
end
object DSTests1: TDataSource
DataSet = QTests1
Left = 136
Top = 184
end
object QTmp: TQuery
DatabaseName = 'Test'
Left = 72
Top = 256
end
object QHard: TQuery
DatabaseName = 'Test'
SQL.Strings = (
'select * from hard')
Left = 104
Top = 256
end
object PopupMenu1: TPopupMenu
Left = 248
Top = 136
object N1: TMenuItem
Action = ActionAdd
end
object N2: TMenuItem
Action = ActionEdit
end
object N3: TMenuItem
Action = ActionDel
end
end
end
UnitReg
object FReg: TFReg
Left = 333
Top = 258
159
Hint = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103
BorderStyle = bsDialog
Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103
ClientHeight = 107
ClientWidth = 229
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
ShowHint = True
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 229
Height = 107
Align = alClient
BevelInner = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 16
Width = 37
Height = 13
Caption = #1051#1086#1075#1080#1085
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 16
Top = 45
Width = 45
Height = 13
Caption = #1055#1072#1088#1086#1083#1100
160
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object EditName: TEdit
Left = 64
Top = 13
Width = 153
Height = 21
TabOrder = 0
Text = 'EditName'
OnChange = EditNameChange
end
object EditPassword: TEdit
Left = 64
Top = 42
Width = 153
Height = 21
PasswordChar = '*'
TabOrder = 1
OnChange = EditNameChange
end
object BReg: TBitBtn
Left = 16
Top = 72
Width = 75
Height = 25
Caption = 'OK'
Default = True
TabOrder = 2
OnClick = BRegClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
161
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 136
Top = 72
Width = 81
Height = 25
Hint = #1042#1099#1093#1086#1076
Cancel = True
Caption = #1042#1099#1093#1086#1076
ModalResult = 2
TabOrder = 3
Glyph.Data = {
66010000424D6601000000000000760000002800000018000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888000088888000088888888888888888000EEE0FFFF8888888
888000EEEEEE0000F88888800080EEEEEEEE0000F88888888880EEEEEEEE0000
F88888888880EEEEEEEE0000F88888888880EEEEE60E0000F88888888880EEEE
6B6E0000F88888888880EEEEEEEE0000F88888888880E66666EE0000F8888888
8880E6BBB6EE0000F88888888880E6BBB6EE0000F88888888880E6BBB6EE0000
F88888888880E66BB6EE0000F88888888880EEE666EE0000F8888880008000EE
EEEE0000F8888888888888000EEE0000F8888888800008888000088888888888
88888888888888888888}
end
162
end
object QUsers: TQuery
DatabaseName = 'Test'
Left = 184
Top = 8
end
end
UnitQuest
object FQuest: TFQuest
Left = 208
Top = 230
Hint = #1042#1086#1087#1088#1086#1089#1099
BorderStyle = bsDialog
Caption = #1042#1086#1087#1088#1086#1089#1099
ClientHeight = 330
ClientWidth = 696
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
ShowHint = True
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object StatusBar1: TStatusBar
Left = 0
Top = 311
Width = 696
Height = 19
Panels = <>
SimplePanel = False
end
object Panel2: TPanel
Left = 241
Top = 0
Width = 455