143
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
object DBGridUsers: TDBGrid
Left = 2
Top = 15
Width = 410
Height = 332
Align = alClient
DataSource = DSUsers
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
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 = #1051#1086#1075#1080#1085
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'FIO'
Title.Caption = #1060#1048#1054
Width = 192
Visible = True
end
item
144
Expanded = False
FieldName = 'GR'
Title.Caption = #1043#1088#1091#1087#1087#1072
Width = 71
Visible = True
end
item
Expanded = False
FieldName = 'Passw'
Title.Caption = #1055#1072#1088#1086#1083#1100
Width = 58
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'
'#1087#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1103
OnExecute = ActionAddExecute
end
object ActionEdit: TAction
Category = 'Edit'
Caption = #1048#1079#1084#1077#1085#1080#1090#1100
Hint = #1048#1079#1084#1077#1085#1080#1090#1100'
'#1087#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1103
OnExecute = ActionEditExecute
end
object ActionDel: TAction
Category = 'Edit'
Caption = #1059#1076#1072#1083#1080#1090#1100
Hint = #1059#1076#1072#1083#1080#1090#1100'
'#1087#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1103
OnExecute = ActionDelExecute
end
object ActionClose: TAction
Category = 'Edit'
Caption = #1047#1072#1082#1088#1099#1090#1100
Hint = #1047#1072#1082#1088#1099#1090#1100
OnExecute = ActionCloseExecute
145
end
end
object QUsers: TQuery
AfterScroll = QUsersAfterScroll
DatabaseName = 'Test'
SQL.Strings = (
'select * from Users order by Name')
Left = 104
Top = 184
object QUsersID: TIntegerField
FieldName = 'ID'
Origin = 'TEST."users.DB".ID'
end
object QUsersName: TStringField
FieldName = 'Name'
Origin = 'TEST."users.DB".Name'
Size = 30
end
object QUsersFIO: TStringField
FieldName = 'FIO'
Origin = 'TEST."users.DB".FIO'
Size = 60
end
object QUsersGR: TStringField
FieldName = 'GR'
Origin = 'TEST."users.DB".GR'
Size = 10
end
object QUsersAdmin: TSmallintField
FieldName = 'Admin'
Origin = 'TEST."users.DB".Admin'
end
object QUsersPassw: TStringField
FieldName = 'Passw'
Origin = 'TEST."users.DB".Passw'
Size = 10
end
end
object DSUsers: TDataSource
DataSet = QUsers
Left = 136
Top = 184
end
end
146
Unit Test
object FTests: TFTests
Left = 283
Top = 276
Hint = #1058#1077#1089#1090#1099
BorderStyle = bsDialog
Caption = #1058#1077#1089#1090#1099
ClientHeight = 323
ClientWidth = 632
Color = clBtnFace
Constraints.MinHeight = 350
Constraints.MinWidth = 640
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poScreenCenter
ShowHint = True
Visible = True
OnActivate = FormActivate
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 317
Top = 0
Width = 3
Height = 304
Cursor = crHSplit
Align = alRight
end
object StatusBar1: TStatusBar
Left = 0
Top = 304
Width = 632
Height = 19
Panels = <>
SimplePanel = False
end
147
object Panel2: TPanel
Left = 320
Top = 0
Width = 312
Height = 304
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object Panel4: TPanel
Left = 0
Top = 257
Width = 312
Height = 47
Align = alClient
BevelInner = bvLowered
TabOrder = 0
DesignSize = (
312
47)
object BitBtn4: TBitBtn
Left = 203
Top = 11
Width = 99
Height = 25
Action = ActionClose
Anchors = [akRight, akBottom]
Cancel = True
Caption = #1047#1072#1082#1088#1099#1090#1100
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ModalResult = 1
ParentFont = False
TabOrder = 0
Glyph.Data = {
66010000424D6601000000000000760000002800000018000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
148
8888888888888888000088888000088888888888888888000EEE0FFFF8888888
888000EEEEEE0000F88888800080EEEEEEEE0000F88888888880EEEEEEEE0000
F88888888880EEEEEEEE0000F88888888880EEEEE60E0000F88888888880EEEE
6B6E0000F88888888880EEEEEEEE0000F88888888880E66666EE0000F8888888
8880E6BBB6EE0000F88888888880E6BBB6EE0000F88888888880E6BBB6EE0000
F88888888880E66BB6EE0000F88888888880EEE666EE0000F8888880008000EE
EEEE0000F8888888888888000EEE0000F8888888800008888000088888888888
88888888888888888888}
end
end
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 312
Height = 257
Align = alTop
Caption = #1042#1074#1077#1076#1080#1090#1077'
'#1087#1072#1088#1072#1084#1077#1090#1088#1099'
'#1090#1077#1089#1090#1072
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 34
Width = 59
Height = 13
Caption = #1053#1072#1079#1074#1072#1085#1080#1077
end
object Label2: TLabel
Left = 8
Top = 62
Width = 66
149
Height = 13
Caption = #1057#1083#1086#1078#1085#1086#1089#1090#1100
end
object Label3: TLabel
Left = 8
Top = 89
Width = 160
Height = 13
Caption = #1042#1088#1077#1084#1103'
'#1080#1089#1087#1086#1083#1085#1077#1085#1080#1103'
('#1084#1080#1085#1091#1090')'
end
object EditTests: TEdit
Left = 80
Top = 32
Width = 225
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object BitBtn1: TBitBtn
Left = 3
Top = 225
Width = 99
Height = 25
Action = ActionAdd
Caption = #1044#1086#1073#1072#1074#1080#1090#1100
TabOrder = 3
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
777777777777777777777700000000000777770FFFFFFFFF0777770FFFFFFFFF
150
0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFFF
0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFF0000777770FFFFFF0F0
7777770FFFFFF007777777000000007777777777777777777777}
end
object BitBtn2: TBitBtn
Left = 105
Top = 225
Width = 99
Height = 25
Action = ActionEdit
Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
TabOrder = 4
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777770000000000000770330000007703077033000000770307703300000077
0307703300000000030770333333333333077033000000003307703077777777
0307703077777777030770307777777703077030777777770307703077777777
0007703077777777070770000000000000077777777777777777}
end
object BitBtn3: TBitBtn
Left = 208
Top = 225
Width = 99
Height = 25
Action = ActionDel
Caption = #1059#1076#1072#1083#1080#1090#1100
TabOrder = 5
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
151
8888888888888888888888800000000008888880FFFFFFFF08888880FFFFFFFF
088881F0F777777F088811F0F75BFB7F0888811F11BFBF7F088888151877777F
088888511FFFFFFF08885111F1FFF00008881580FF1FF0F088888880FFFFF008
8888888000000088888888888888888888888888888888888888}
end
object ComboBoxHard: TComboBox
Left = 80
Top = 59
Width = 225
Height = 21
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 1
end
object MEditTime: TMaskEdit
Left = 183
Top = 86
Width = 118
Height = 21
EditMask = '99;0;'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 2
ParentFont = False
TabOrder = 2
end
object CBNavigation: TCheckBox
Left = 8
Top = 111
Width = 97
Height = 17
Hint =
152
#1056#1072#1079#1088#1077#1096#1077#1085#1072'
'#1085#1072#1074#1080#1075#1072#1094#1080#1103' |
'#1055#1086#1090#1083#1100#1079#1086#1074#1072#1090#1077#1083#1100'
'#1084#1086#1078#1077#1090' '#1074#1099#1073#1080#1088#1072#1090#1100'
'#1074#1086#1087#1088#1086#1089#1099' '#1074' '#1090#1077#1089 +
#1090#1077'. '#1048#1085#1072#1095#1077'
'#1074#1086#1087#1088#1086#1089#1099'
'#1079#1072#1076#1072#1102#1090#1089#1103'
'#1087#1086#1089#1083#1077#1076#1086#1074#1072#1090#1077#1083#1100#10
85#1086', '#1074#1077#1088#1085#1091#1090#1100#1089#1103'
'#1085#1077#1083#1100#1079#1103
Caption = #1053#1072#1074#1080#1075#1072#1094#1080#1103
TabOrder = 6
end
object CBAllRight: TCheckBox
Left = 8
Top = 135
Width = 121
Height = 17
Hint = #1042#1089#1077' '#1086#1090#1074#1077#1090#1099'
'#1080#1084#1077#1102#1090' '#1089#1084#1099#1089#1083'|'#1053#1077#1090'
'#1087#1086#1085#1103#1090#1080#1103'
"'#1085#1077#1087#1088#1072#1074#1080#1083#1100#1085#1099#1093'"
'#1086#1090#1074#1077#1090#1086#1074
Caption = #1042#1089#1077'
'#1087#1088#1072#1074#1080#1083#1100#1085#1099#1077
TabOrder = 7
end
object CBRandom: TCheckBox
Left = 8
Top = 159
Width = 97
Height = 17
Hint =
#1074#1086#1087#1088#1086#1089#1099'
'#1086#1090#1086#1073#1088#1072#1078#1072#1102#1090#1089#1103'
'#1089#1083#1091#1095#1072#1081#1085#1086' | '#1055#1088#1080'
'#1090#1077#1089#1090#1080#1088#1086#1074#1072#1085#1080#1080'
'#1074#1086#1087#1088#1086#1089#1099'
'#1074#1099#1073#1080#1088#1072#1102 +
#1090#1089#1103' '#1080#1079' '#1090#1077#1089#1090#1072'
'#1089#1083#1091#1095#1072#1081#1085#1086' '
Caption = #1057#1083#1091#1095#1072#1081#1085#1086
TabOrder = 8