Items.Strings = (
'чоловіча'
'жіноча')
TabOrder = 0
OnClick = minage_CSpinEditChange
end
object speedfind_GroupBox: TGroupBox
Left = 0
Top = 224
Width = 257
Height = 169
Caption = ' Швидкийпошукзапрізвищем'
TabOrder = 5
object Image1: TImage
Left = 8
Top = 16
Width = 105
Height = 145
Picture.Data = { }
Stretch = True
end
object speedfind_Label: TLabel
Left = 154
Top = 42
Width = 56
Height = 16
Caption = 'Прізвище'
end
object speedfind_Image: TImage
Left = 32
Top = 48
Width = 57
Height = 73
Picture.Data = { }
Stretch = True
end
end
object age_GroupBox: TGroupBox
Left = 8
Top = 32
Width = 257
Height = 81
Caption = ' віком'
Enabled = False
TabOrder = 4
object minage_Label: TLabel
Left = 65
Top = 15
Width = 28
Height = 16
Caption = 'від ...'
end
object maxage_Label: TLabel
Left = 192
Top = 15
Width = 25
Height = 16
Caption = 'до ...'
end
object minage_Image: TImage
Left = 8
Top = 24
Width = 41
Height = 49
Picture.Data = { }
Stretch = True
Transparent = True
end
object maxage_Image: TImage
Left = 136
Top = 24
Width = 41
Height = 49
Picture.Data = { }
Stretch = True
Transparent = True
end
end
object speedfind_Edit: TEdit
Left = 120
Top = 296
Width = 129
Height = 22
Hint = 'Вводфамилии'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnChange = speedfind_EditChange
end
object minage_CSpinEdit: TCSpinEdit
Left = 62
Top = 66
Width = 65
Height = 26
TabStop = True
MaxValue = 80
MinValue = 16
ParentColor = False
TabOrder = 2
Value = 16
OnChange = minage_CSpinEditChange
end
object maxage_CSpinEdit: TCSpinEdit
Left = 190
Top = 66
Width = 65
Height = 26
TabStop = True
MaxValue = 80
MinValue = 16
ParentColor = False
TabOrder = 3
Value = 30
OnChange = minage_CSpinEditChange
end
object select_BitBtn: TBitBtn
Left = 8
Top = 184
Width = 257
Height = 25
Cursor = crHandPoint
Caption = 'Поновитивідбір'
TabOrder = 6
OnClick = select_BitBtnClick
Kind = bkOK
end
end
object TabEdit: TTabSheet
Caption = 'Корегування'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
object ch_GroupBox: TGroupBox
Left = 2
Top = 5
Width = 269
Height = 388
Caption = ' Загальнівідомості'
TabOrder = 9
object chdp_Label: TLabel
Left = 12
Top = 38
Width = 50
Height = 16
Caption = 'Відділок'
FocusControl = chdp_ComboBox
end
object chname_Label: TLabel
Left = 12
Top = 138
Width = 25
Height = 16
Caption = 'Ім'#39'я'
FocusControl = chname_Edit
end
object chgrand_Label: TLabel
Left = 12
Top = 188
Width = 73
Height = 16
Caption = 'Побатькові'
FocusControl = chgrand_Edit
end
object chyear_Label: TLabel
Left = 12
Top = 232
Width = 95
Height = 16
Caption = 'Рікнародження'
end
object chfam_Label: TLabel
Left = 12
Top = 87
Width = 56
Height = 16
Caption = 'Прізвище'
FocusControl = chfam_Edit
end
object oper_Bevel: TBevel
Left = 18
Top = 282
Width = 251
Height = 96
end
object oper_Shape: TShape
Left = 19
Top = 283
Width = 248
Height = 94
Brush.Color = clBlack
end
object Animate1: TAnimate
Left = 24
Top = 291
Width = 60
Height = 80
Active = True
FileName = 'Frage.avi'
StopFrame = 31
Transparent = False
end
end
object sex2_RadioGroup: TRadioGroup
Left = 185
Top = 218
Width = 77
Height = 41
Caption = 'Стать'
Columns = 2
ItemIndex = 0
Items.Strings = (
'ч'
'ж')
TabOrder = 4
end
object chdp_ComboBox: TComboBox
Left = 101
Top = 40
Width = 162
Height = 22
Style = csDropDownList
Font.Charset = RUSSIAN_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ItemHeight = 0
ParentFont = False
TabOrder = 0
end
object chfam_Edit: TEdit
Left = 101
Top = 90
Width = 162
Height = 22
Font.Charset = RUSSIAN_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 1
Text = 'chfam_Edit'
end
object chname_Edit: TEdit
Left = 101
Top = 140
Width = 162
Height = 22
Font.Charset = RUSSIAN_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 2
Text = 'chname_Edit'
end
object chgrand_Edit: TEdit
Left = 101
Top = 190
Width = 162
Height = 22
Font.Charset = RUSSIAN_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 3
Text = 'chgrand_Edit'
end
object chadd_Button: TButton
Left = 88
Top = 294
Width = 169
Height = 25
Hint = 'Новаязапись'
Caption = '&Додати'
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = chadd_ButtonClick
end
object chdelete_Button: TButton
Left = 88
Top = 322
Width = 169
Height = 25
Hint = 'Удалениезаписи'
Caption = '&Видалити'
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = chdelete_ButtonClick
end
object chpost_Button: TButton
Left = 88
Top = 351
Width = 169
Height = 25
Hint = 'Фиксацияизменений'
Caption = '&Поновити'
ParentShowHint = False
ShowHint = True
TabOrder = 7
OnClick = chpost_ButtonClick
end
object chyear_CSpinEdit: TCSpinEdit
Left = 119
Top = 233
Width = 50
Height = 23
TabStop = True
Font.Charset = RUSSIAN_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
MaxValue = 2000
MinValue = 1900
ParentColor = False
ParentFont = False
TabOrder = 8
Value = 1950
end
end
end
object left_Panel: TPanel
Left = 0
Top = 0
Width = 421
Height = 428
Align = alLeft
BevelInner = bvLowered
Caption = 'left_Panel'
TabOrder = 1
object find_TPanel: TPanel
Left = 6
Top = 5
Width = 406
Height = 420
Caption = 'find_TPanel'
TabOrder = 1
object find_Label: TLabel
Left = 110
Top = 20
Width = 265
Height = 24
Alignment = taCenter
Caption = 'ПОШУКСПІВРОБІТНИКІВ'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = 'Arial Cyr'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object dp_GroupBox: TGroupBox
Left = 8
Top = 56
Width = 393
Height = 57
Caption = ' Відділок'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 0
object dp_ComboBox: TComboBox
Left = 8
Top = 24
Width = 177
Height = 24
ItemHeight = 16
Items.Strings = (
'Бухгалтерия')
TabOrder = 0
OnChange = dp_ComboBoxChange
end
end
object dp2_GroupBox: TGroupBox
Left = 200
Top = 66
Width = 193
Height = 41
Caption = ' підрозділ'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = [fsItalic]
ParentFont = False
TabOrder = 1
object dp2_DBEdit: TDBEdit
Left = 5
Top = 15
Width = 182
Height = 23
Color = clSilver
DataField = 'PROISV'
DataSource = dp_DataSource
Enabled = False
TabOrder = 0
end
end
object pr_GroupBox: TGroupBox
Left = 8
Top = 115
Width = 393
Height = 226
Caption = ' Співробітники'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 2
object Bevel1: TBevel
Left = 10
Top = 197
Width = 41
Height = 24
end
object pr_Label: TLabel
Left = 16
Top = 201
Width = 29
Height = 16
Alignment = taCenter
AutoSize = False
end
end
object find_Animate: TAnimate
Left = 32
Top = 8
Width = 48
Height = 45
Active = True
CommonAVI = aviFindComputer
StopFrame = 8
end
object GroupBox1: TGroupBox
Left = 8
Top = 340
Width = 393
Height = 77
Caption = 'Поточнийоператор SQL'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 4
object sql_Label: TLabel
Left = 11
Top = 16
Width = 372
Height = 57
AutoSize = False
Color = clBtnFace
Font.Charset = RUSSIAN_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentColor = False
ParentFont = False
WordWrap = True
end
end
end
object pr_DBGrid: TDBGrid
Left = 22
Top = 144
Width = 379
Height = 169
DataSource = pr_DataSource
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Times New Roman'
Font.Style = [fsItalic]
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 0
TitleFont.Charset = RUSSIAN_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Times New Roman'
TitleFont.Style = [fsItalic]
OnCellClick = pr_DBGridCellClick
Columns = <
item
Expanded = False
FieldName = 'FAM'
Title.Caption = 'Прізвище'
Width = 59
Visible = True
end
item
Expanded = False
FieldName = 'NAM'
Title.Caption = 'ім'#39'я'
Width = 57
Visible = True
end
item
Expanded = False
FieldName = 'PAR'
Title.Caption = 'побатькові'
Width = 67
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'YEAR_B'
Title.Caption = 'рікнародження'
Width = 85
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SEX'
Title.Caption = 'стать'
Visible = True
end
item
Expanded = False
FieldName = 'AGE'
Title.Caption = 'вік'
Width = 38
Visible = True
end
item
Expanded = False
FieldName = 'CHARACT'
Title.Caption = 'характеристика'
Visible = True
end
item
Expanded = False
FieldName = 'PHOTO'
Title.Caption = 'фото'
Visible = True
end>
end
object pr_Button: TButton
Left = 326
Top = 319
Width = 75
Height = 20
Hint = 'Характеристика, фотография'
Caption = '&Більше ...'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = pr_ButtonClick
end
object pr_DBNavigator: TDBNavigator
Left = 73
Top = 319
Width = 244
Height = 20
DataSource = pr_DataSource
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
TabOrder = 3
end
end
object dp_DataSource: TDataSource
DataSet = dp_Query
Left = 140
Top = 55
end
object pr_DataSource: TDataSource
DataSet = pr_Query
Left = 298
Top = 268
end
object dp_Query: TQuery
DatabaseName = 'dbP'
RequestLive = True
SQL.Strings = (
'Select * from Dep where DEP = :PDEP')
Left = 169
Top = 55
ParamData = <
item
DataType = ftString
Name = 'PDEP'
ParamType = ptUnknown
end>
object dp_QueryDEP: TStringField
FieldName = 'DEP'
Origin = 'DEP.DEP'
Size = 15
end
object dp_QueryPROISV: TStringField
FieldName = 'PROISV'
Origin = 'DEP.PROISV'
Size = 15
end
end
object update_Query: TQuery
DatabaseName = 'dbP'
DataSource = pr_DataSource
RequestLive = True
Left = 356
Top = 268
end
object pr_Query: TQuery
BeforePost = pr_QueryBeforePost
AfterScroll = pr_QueryAfterScroll
OnCalcFields = pr_QueryCalcFields
DatabaseName = 'dbP'
RequestLive = True
SQL.Strings = (
'Select * from Pers where DEP = :DEP order by FAM,NAM,PAR')
Left = 327
Top = 268
ParamData = <
item
DataType = ftString
Name = 'DEP'
ParamType = ptUnknown
end>
object pr_QueryNUM: TSmallintField
FieldName = 'NUM'
Origin = 'PERS.NUM'
end
object pr_QueryDEP: TStringField
FieldName = 'DEP'
Origin = 'PERS.DEP'
Size = 15
end
object pr_QueryFAM: TStringField
FieldName = 'FAM'
Origin = 'PERS.FAM'
end
object pr_QueryNAM: TStringField
FieldName = 'NAM'
Origin = 'PERS.NAM'
end
object pr_QueryPAR: TStringField
FieldName = 'PAR'
Origin = 'PERS.PAR'
end
object pr_QueryYEAR_B: TSmallintField
FieldName = 'YEAR_B'
Origin = 'PERS.YEAR_B'
end
object pr_QuerySEX: TStringField