Дипломная работа: Автоматизация процесса контроля знаний учащихся ГБОУ города Москвы школы №656 А.С. Макаренко

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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
Источник: https://baza.diplomsite.ru/previewfile/2090