3. UFormBd.Dfm

object fMain: TfMain

Left = 380

Top = 244

Width = 643

Height = 641

Caption = #1041#1044' '#1087#1086' '#1082#1091#1088#1089#1086#1074#1099#1084' '#1088#1072#1073#1086#1090#1072#1084' '#1058#1052'. '#1050#1091#1088#1082#1080#1085' '#1045#1074#1075'. '#1075#1088' 135'

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

Menu = mMenu1

OldCreateOrder = False

OnDestroy = FormDestroy

PixelsPerInch = 96

TextHeight = 13

object dbgMain: TDBGrid

Left = 8

Top = 104

Width = 209

Height = 425

DataSource = dsMain

TabOrder = 0

TitleFont.Charset = DEFAULT_CHARSET

TitleFont.Color = clWindowText

TitleFont.Height = -11

TitleFont.Name = 'MS Sans Serif'

TitleFont.Style = []

end

object bActive: TButton

Left = 8

Top = 16

Width = 97

Height = 25

Caption = #1055#1086#1076#1082#1083#1102#1095#1080#1090#1100#1089#1103

TabOrder = 1

OnClick = bActiveClick

end

object bPassive: TButton

Left = 120

Top = 16

Width = 97

Height = 25

Caption = #1054#1090#1082#1083#1102#1095#1080#1090#1100#1089#1103

TabOrder = 2

OnClick = bPassiveClick

end

object pcTablitzi: TPageControl

Tag = 23

Left = 232

Top = 8

Width = 385

Height = 561

ActivePage = tsTitle

MultiLine = True

TabOrder = 3

object tsTitle: TTabSheet

Caption = #1054#1073#1097#1080#1077' '#1076#1072#1085#1085#1099#1077

object leMinist: TLabeledEdit

Left = 8

Top = 40

Width = 105

Height = 21

EditLabel.Width = 73

EditLabel.Height = 13

EditLabel.Caption = #1052#1080#1085#1080#1089#1090#1077#1088#1089#1090#1074#1086

TabOrder = 0

end

object leUniver: TLabeledEdit

Left = 128

Top = 40

Width = 105

Height = 21

EditLabel.Width = 66

EditLabel.Height = 13

EditLabel.Caption = #1059#1085#1080#1074#1077#1088#1089#1080#1090#1077#1090

TabOrder = 1

end

object leDepartment: TLabeledEdit

Left = 248

Top = 40

Width = 105

Height = 21

EditLabel.Width = 45

EditLabel.Height = 13

EditLabel.Caption = #1050#1072#1092#1077#1076#1088#1072

TabOrder = 2

end

object leStudent_Family: TLabeledEdit

Left = 8

Top = 88

Width = 105

Height = 21

EditLabel.Width = 97

EditLabel.Height = 13

EditLabel.Caption = #1060#1072#1084#1080#1083#1080#1103' '#1089#1090#1091#1076#1077#1085#1090#1072

TabOrder = 3

end

object leStudent_Name: TLabeledEdit

Left = 128

Top = 88

Width = 105

Height = 21

EditLabel.Width = 70

EditLabel.Height = 13

EditLabel.Caption = #1048#1084#1103' '#1089#1090#1091#1076#1077#1085#1090#1072

TabOrder = 4

end

object leYear: TLabeledEdit

Left = 248

Top = 88

Width = 105

Height = 21

EditLabel.Width = 18

EditLabel.Height = 13

EditLabel.Caption = #1043#1086#1076

TabOrder = 5

end

object leRukovod: TLabeledEdit

Left = 8

Top = 136

Width = 105

Height = 21

EditLabel.Width = 71

EditLabel.Height = 13

EditLabel.Caption = #1056#1091#1082#1086#1074#1086#1076#1080#1090#1077#1083#1100

TabOrder = 6

end

object leExaminator: TLabeledEdit

Left = 128

Top = 136

Width = 105

Height = 21

EditLabel.Width = 68

EditLabel.Height = 13

EditLabel.Caption = #1069#1082#1079#1072#1084#1077#1085#1072#1090#1086#1088

TabOrder = 7

end

object leMark: TLabeledEdit

Left = 248

Top = 136

Width = 105

Height = 21

EditLabel.Width = 38

EditLabel.Height = 13

EditLabel.Caption = #1054#1094#1077#1085#1082#1072

TabOrder = 8

end

object leDate_Begining: TLabeledEdit

Left = 8

Top = 184

Width = 105

Height = 21

EditLabel.Width = 104

EditLabel.Height = 13

EditLabel.Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072' '#1088#1072#1073#1086#1090#1099

TabOrder = 9

end

object leDate_Defence: TLabeledEdit

Left = 128

Top = 184

Width = 105

Height = 21

EditLabel.Width = 69

EditLabel.Height = 13

EditLabel.Caption = #1044#1072#1090#1072' '#1079#1072#1097#1080#1090#1099

TabOrder = 10

end

object leVariant_N: TLabeledEdit

Left = 248

Top = 184

Width = 105

Height = 21

EditLabel.Width = 84

EditLabel.Height = 13

EditLabel.Caption = #1053#1086#1084#1077#1088' '#1074#1072#1088#1080#1072#1085#1090#1072

TabOrder = 11

end

object leFirst_Part_Name: TLabeledEdit

Left = 8

Top = 232

Width = 105

Height = 21

EditLabel.Width = 102

EditLabel.Height = 13

EditLabel.Caption = #1053#1072#1079#1074#1072#1085#1080#1077' 1'#1086#1081' '#1095#1072#1089#1090#1080

TabOrder = 12

end

object leSecond_Part_Name: TLabeledEdit

Left = 128

Top = 232

Width = 105

Height = 21

EditLabel.Width = 102

EditLabel.Height = 13

EditLabel.Caption = #1053#1072#1079#1074#1072#1085#1080#1077' 2'#1086#1081' '#1095#1072#1089#1090#1080

TabOrder = 13

end

object leThird_Part_Name: TLabeledEdit

Left = 248

Top = 232

Width = 105

Height = 21

EditLabel.Width = 102

EditLabel.Height = 13

EditLabel.Caption = #1053#1072#1079#1074#1072#1085#1080#1077' 3'#1077#1081' '#1095#1072#1089#1090#1080

TabOrder = 14

end

object leFirst_Part_Date: TLabeledEdit

Left = 8

Top = 280

Width = 105

Height = 21

EditLabel.Width = 107

EditLabel.Height = 13

EditLabel.Caption = #1044#1072#1090#1072' '#1079#1072#1074#1077#1088#1096' 1 '#1095#1072#1089#1090#1080

TabOrder = 15

end

object leSecond_Part_Date: TLabeledEdit

Left = 128

Top = 280

Width = 105

Height = 21

EditLabel.Width = 107

EditLabel.Height = 13

EditLabel.Caption = #1044#1072#1090#1072' '#1079#1072#1074#1077#1088#1096' 2 '#1095#1072#1089#1090#1080

TabOrder = 16

end

object leThird_Part_Date: TLabeledEdit

Left = 248

Top = 280

Width = 105

Height = 21

EditLabel.Width = 107

EditLabel.Height = 13

EditLabel.Caption = #1044#1072#1090#1072' '#1079#1072#1074#1077#1088#1096' 3 '#1095#1072#1089#1090#1080

TabOrder = 17

end

object leNumb_Pages: TLabeledEdit

Left = 8

Top = 328

Width = 105

Height = 21

EditLabel.Width = 103

EditLabel.Height = 13

EditLabel.Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1089#1090#1088#1072#1085#1080#1094

TabOrder = 18

end

object leNumb_Pict: TLabeledEdit

Left = 128

Top = 328

Width = 105

Height = 21

EditLabel.Width = 109

EditLabel.Height = 13

EditLabel.Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1088#1080#1089#1091#1085#1082#1086#1074

TabOrder = 19

end

object leNumb_Ist: TLabeledEdit

Left = 248

Top = 328

Width = 105

Height = 21

EditLabel.Width = 99

EditLabel.Height = 13

EditLabel.Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1080#1089#1090#1086#1095#1085'.'

TabOrder = 20

end

object leNumber: TLabeledEdit

Left = 8

Top = 368

Width = 105

Height = 21

EditLabel.Width = 102

EditLabel.Height = 13

EditLabel.Caption = #1053#1086#1084#1077#1088' '#1088#1072#1073#1086#1090#1099' '#1074' '#1041#1044

TabOrder = 21

end

object bShow: TButton

Left = 128

Top = 368

Width = 105

Height = 25

Caption = #1055#1086#1082#1072#1079#1072#1090#1100

TabOrder = 22

OnClick = bShow1Click

end

object bTitleModify: TButton

Left = 248

Top = 368

Width = 105

Height = 25

Caption = #1048#1079#1084#1077#1085#1080#1090#1100

TabOrder = 23

OnClick = bTitleModifyClick

end

end

object tsZadanie: TTabSheet

Caption = #1047#1072#1076#1072#1085#1080#1077

ImageIndex = 6

object lMassa_Tochki: TLabel

Left = 32

Top = 16

Width = 64

Height = 13

Caption = #1052#1072#1089#1089#1072' '#1090#1086#1095#1082#1080

end

object lMassa_Ramki: TLabel

Left = 216

Top = 16

Width = 68

Height = 13

Caption = #1052#1072#1089#1089#1072' '#1088#1072#1084#1082#1080

end

object lRadius_Koltza: TLabel

Left = 32

Top = 64

Width = 75

Height = 13

Caption = #1056#1072#1076#1080#1091#1089' '#1082#1086#1083#1100#1094#1072

end

object lOtklonenie_D: TLabel

Left = 216

Top = 64

Width = 72

Height = 13

Caption = #1054#1090#1082#1083#1086#1085#1077#1085#1080#1077' D'

end

object lNumb_Freedoms: TLabel

Left = 32

Top = 112

Width = 129

Height = 13

Caption = #1063#1080#1089#1083#1086' '#1089#1090#1077#1087#1077#1085#1077#1081' '#1089#1074#1086#1073#1086#1076#1099

end

object lLenglth0: TLabel

Left = 216

Top = 112

Width = 136

Height = 13

Caption = #1044#1083#1080#1085#1072' '#1085#1077#1076#1077#1092#1086#1088#1084' '#1087#1088#1091#1078#1080#1085#1099

end

object lZhestkost: TLabel

Left = 32

Top = 160

Width = 107

Height = 13

Caption = #1051#1080#1085#1077#1081#1085#1072#1103' '#1078#1077#1089#1090#1082#1086#1089#1090#1100

end

object lUgl_Zhestkost: TLabel

Left = 216

Top = 160

Width = 100

Height = 13

Caption = #1059#1075#1083#1086#1074#1072#1103' '#1078#1077#1089#1090#1082#1086#1089#1090#1100

end

object lType_Sharnir_A: TLabel

Left = 32

Top = 208

Width = 76

Height = 13

Caption = #1058#1080#1087' '#1096#1072#1088#1085#1080#1088#1072' A'

end

object lType_Sharnir_B: TLabel

Left = 216

Top = 208

Width = 76

Height = 13

Caption = #1058#1080#1087' '#1096#1072#1088#1085#1080#1088#1072' B'

end

object lT0: TLabel

Left = 32

Top = 256

Width = 90

Height = 13

Caption = #1053#1072#1095#1072#1083#1100#1085#1086#1077' '#1074#1088#1077#1084#1103

end

object lTK: TLabel

Left = 216

Top = 256

Width = 83

Height = 13

Caption = #1050#1086#1085#1077#1095#1085#1086#1077' '#1074#1088#1077#1084#1103

end

object lInt_Points_Number: TLabel

Left = 32

Top = 304

Width = 117

Height = 13

Caption = #1050#1086#1083'-'#1074#1086' '#1090#1086#1095#1077#1082' '#1080#1085#1090#1077#1075#1088#1080#1088'.'

end

object dbeMassa_Tochki: TDBEdit

Left = 32

Top = 32

Width = 121

Height = 21

DataField = 'MASSA_TOCHKI'

DataSource = dsZadanie

TabOrder = 0

end

object dbeMassa_Ramki: TDBEdit

Left = 216

Top = 32

Width = 121

Height = 21

DataField = 'MASSA_RAMKI'

DataSource = dsZadanie

TabOrder = 1

end

object dbeRadius_Koltza: TDBEdit

Left = 32

Top = 80

Width = 121

Height = 21

DataField = 'RADIUS_KOLTZA'

DataSource = dsZadanie

TabOrder = 2

end

object dbeOtklonenie_D: TDBEdit

Left = 216

Top = 80

Width = 121

Height = 21

DataField = 'OTKLONENIE_D'

DataSource = dsZadanie

TabOrder = 3

end

object dbeNumb_Freedoms: TDBEdit

Left = 32

Top = 128

Width = 121

Height = 21

DataField = 'NUMB_FREEDOMS'

DataSource = dsZadanie

TabOrder = 4

end

object dbeLenglth0: TDBEdit

Left = 216

Top = 128

Width = 121

Height = 21

DataField = 'LENGTH0'

DataSource = dsZadanie

TabOrder = 5

end

object dbeZhestkost: TDBEdit

Left = 32

Top = 176

Width = 121

Height = 21

DataField = 'ZHESTKOST'

DataSource = dsZadanie

TabOrder = 6

end

object dbeUgl_Zhestkost: TDBEdit

Left = 216

Top = 176

Width = 121

Height = 21

DataField = 'UGL_ZHESTKOST'

DataSource = dsZadanie

TabOrder = 7

end

object dbeType_Sharnir_A: TDBEdit

Left = 32

Top = 224

Width = 121

Height = 21

DataField = 'TYPE_SHARNIR_A'

DataSource = dsZadanie

TabOrder = 8

end

object dbeType_Sharnir_B: TDBEdit

Left = 216

Top = 224

Width = 121

Height = 21

DataField = 'TYPE_SHARNIR_B'

DataSource = dsZadanie

TabOrder = 9

end

object dbeT0: TDBEdit

Left = 32

Top = 272

Width = 121

Height = 21

DataField = 'T0'

DataSource = dsZadanie

TabOrder = 10

end

object dbeTK: TDBEdit

Left = 216

Top = 272

Width = 121

Height = 21

DataField = 'TK'

DataSource = dsZadanie

TabOrder = 11

end

object dbeInt_Points_Number: TDBEdit

Left = 32

Top = 320

Width = 121

Height = 21

DataField = 'INT_POINTS_NUMBER'

DataSource = dsZadanie

TabOrder = 12

end

object bZadModify: TButton

Left = 216

Top = 320

Width = 121

Height = 25

Caption = #1048#1079#1084#1077#1085#1080#1090#1100

TabOrder = 13

OnClick = bZadModifyClick

end

end

object tsPart1: TTabSheet

Caption = #1063#1072#1089#1090#1100' 1'

ImageIndex = 1

object lPsi0: TLabel

Left = 16

Top = 8

Width = 20

Height = 13

Caption = 'Psi0'

end

object lPsi_Dot0: TLabel

Left = 200

Top = 8

Width = 29

Height = 13

Caption = 'Psi ` 0'

end

object lPhi0: TLabel

Left = 16

Top = 64

Width = 21

Height = 13

Caption = 'Phi0'

end

object lOmega0: TLabel

Left = 200

Top = 72

Width = 40

Height = 13

Caption = 'Omega0'

end

object lPogr10_1: TLabel

Left = 16

Top = 144

Width = 45

Height = 13

Caption = #1076#1086' 10^-1 '

end

object lPogr10_2: TLabel

Left = 200

Top = 144

Width = 42

Height = 13

Caption = #1076#1086' 10^-2'

end

object lPogr: TLabel

Left = 16

Top = 200

Width = 143

Height = 13

Caption = #1055#1086#1075#1088' '#1089#1080#1074#1084#1074#1086#1083#1100#1085' '#1076#1086#1087#1091#1097#1077#1085#1080#1081

end

object lPogrOkr: TLabel

Left = 32

Top = 120

Width = 301

Height = 13

Caption = #1055#1086#1075#1088#1077#1096#1085#1086#1089#1090#1100' '#1087#1088#1080' '#1086#1082#1088#1091#1075#1083#1077#1085#1080#1080' '#1079#1085#1072#1095#1077#1085#1080#1103' '#1095#1072#1089#1090#1086#1090#1099' '#1082#1086#1083#1077#1073#1072#1085#1080#1081

end

object dbePsi0: TDBEdit

Left = 16

Top = 32

Width = 145

Height = 21

DataField = 'PSI0'

DataSource = dsPart1

TabOrder = 0

end

object dbePsi_Dot0: TDBEdit

Left = 200

Top = 32

Width = 145

Height = 21

DataField = 'PSI_DOT0'

DataSource = dsPart1

TabOrder = 1

end

object dbePhi0: TDBEdit

Left = 16

Top = 88

Width = 145

Height = 21

DataField = 'PHI0'

DataSource = dsPart1

TabOrder = 2

end

object dbeOmega0: TDBEdit

Left = 200

Top = 88

Width = 145

Height = 21

DataField = 'OMEGA0'

DataSource = dsPart1

TabOrder = 3

end

object dbePogr10_1: TDBEdit

Left = 16

Top = 168

Width = 145

Height = 21

DataField = 'POGR10_1'

DataSource = dsPart1

TabOrder = 4

end

object dbePogr: TDBEdit

Left = 16

Top = 224

Width = 145

Height = 21

DataField = 'POGR'

DataSource = dsPart1

TabOrder = 5

end

object dbePogr10_2: TDBEdit

Left = 200

Top = 168

Width = 145

Height = 21

DataField = 'POGR10_2'

DataSource = dsPart1

TabOrder = 6

end

object bPart1Modify: TButton

Left = 200

Top = 224

Width = 145

Height = 25

Caption = #1048#1079#1084#1077#1085#1080#1090#1100

TabOrder = 7

OnClick = bPart1ModifyClick

end

end

object tsPart1_TimeKin: TTabSheet

Caption = #1050#1080#1085#1077#1084#1072#1090#1080#1082#1072' 1'#1086#1081' '#1095#1072#1089#1090#1080

ImageIndex = 2

object dbgPart1_TimeKin: TDBGrid

Left = 8

Top = 48

Width = 353

Height = 425

DataSource = dsPart1_TimeKin

TabOrder = 0

TitleFont.Charset = DEFAULT_CHARSET

TitleFont.Color = clWindowText

TitleFont.Height = -11

TitleFont.Name = 'MS Sans Serif'

TitleFont.Style = []

end

object dbnPart1_TimeKin: TDBNavigator

Left = 96

Top = 16

Width = 96

Height = 25

DataSource = dsPart1_TimeKin

VisibleButtons = [nbInsert, nbPost]

TabOrder = 1

end

object bKinInsert: TButton

Left = 200

Top = 16

Width = 75

Height = 25

Caption = #1044#1086#1073#1072#1074#1080#1090#1100

TabOrder = 2

OnClick = bKinInsertClick

end

object bKinModify: TButton

Left = 8

Top = 16

Width = 75

Height = 25

Caption = #1048#1079#1084#1077#1085#1080#1090#1100

TabOrder = 3

OnClick = bKinModifyClick

end

object bKinDelete: TButton

Left = 288

Top = 16

Width = 75

Height = 25

Caption = #1059#1076#1072#1083#1080#1090#1100

TabOrder = 4

OnClick = bKinDeleteClick

end

end

object tsPart1_TimeDin1: TTabSheet

Caption = #1056#1077#1072#1082#1094#1080#1080' 1'#1086#1081' '#1095#1072#1089#1090#1080

ImageIndex = 3

object dbgPart1_TimeDin1: TDBGrid

Left = 8

Top = 8

Width = 361

Height = 441

DataSource = dsPart1_TimeDin1

TabOrder = 0

TitleFont.Charset = DEFAULT_CHARSET

TitleFont.Color = clWindowText

TitleFont.Height = -11

TitleFont.Name = 'MS Sans Serif'

TitleFont.Style = []

end

object bDin1Modify: TButton

Left = 296

Top = 456

Width = 75

Height = 25

Caption = #1048#1079#1084#1077#1085#1080#1090#1100

TabOrder = 1

OnClick = bDin1ModifyClick

end

object DBNavigator1: TDBNavigator

Left = 232

Top = 456

Width = 54

Height = 25

DataSource = dsPart1_TimeDin1

VisibleButtons = [nbPost]

TabOrder = 2

end

end

object tsPart1_TimeDin2: TTabSheet

Caption = #1057#1080#1083#1099' '#1076#1077#1081#1089#1090#1074' '#1085#1072' '#1090#1086#1095#1082#1091

ImageIndex = 4

object dbgPart1_TimeDin2: TDBGrid

Left = 8

Top = 8

Width = 361

Height = 449

DataSource = dsPart1_TimeDin2

TabOrder = 0

TitleFont.Charset = DEFAULT_CHARSET

TitleFont.Color = clWindowText

TitleFont.Height = -11

TitleFont.Name = 'MS Sans Serif'

TitleFont.Style = []

end

object bDin2Modify: TButton

Left = 296

Top = 464

Width = 75

Height = 25

Caption = #1048#1079#1084#1077#1085#1080#1090#1100

TabOrder = 1

OnClick = bDin2ModifyClick

end

object dbnDin2: TDBNavigator

Left = 224

Top = 464

Width = 62

Height = 25

DataSource = dsPart1_TimeDin2

VisibleButtons = [nbPost]

TabOrder = 2

end

end

object tsGraph: TTabSheet

Caption = #1043#1088#1072#1092#1080#1082#1080

ImageIndex = 5

object dbcKoordinati: TDBChart

Left = 8

Top = 16

Width = 353

Height = 209

BackWall.Brush.Color = clWhite

BackWall.Brush.Style = bsClear

Title.Text.Strings = (

#1050#1086#1086#1088#1076#1080#1085#1072#1090#1099' phi, psi (t)')

TabOrder = 0

object Series1: TLineSeries

Marks.ArrowLength = 8

Marks.Visible = False

DataSource = qPart1_TimeKin

SeriesColor = clRed

Title = 'Phi'

Pointer.InflateMargins = True

Pointer.Style = psRectangle

Pointer.Visible = False

XValues.DateTime = False

XValues.Name = 'X'

XValues.Multiplier = 1.000000000000000000

XValues.Order = loAscending

XValues.ValueSource = 'T'

YValues.DateTime = False

YValues.Name = 'Y'

YValues.Multiplier = 1.000000000000000000

YValues.Order = loNone

YValues.ValueSource = 'PHI'

end

object Series2: TLineSeries

Marks.ArrowLength = 8

Marks.Visible = False

DataSource = qPart1_TimeKin

SeriesColor = clGreen

Title = 'Psi'

Pointer.InflateMargins = True

Pointer.Style = psRectangle

Pointer.Visible = False

XValues.DateTime = False

XValues.Name = 'X'

XValues.Multiplier = 1.000000000000000000

XValues.Order = loAscending

XValues.ValueSource = 'T'

YValues.DateTime = False

YValues.Name = 'Y'

YValues.Multiplier = 1.000000000000000000

YValues.Order = loNone

YValues.ValueSource = 'PSI'

end

end

object dbcSkorosti: TDBChart

Left = 8

Top = 248

Width = 353

Height = 217

BackWall.Brush.Color = clWhite

BackWall.Brush.Style = bsClear

Title.Text.Strings = (

#1057#1082#1088#1086#1089#1090#1080' phi_dot, psi_dot (t)')

TabOrder = 1

object Series3: TLineSeries

Marks.ArrowLength = 8

Marks.Visible = False

DataSource = qPart1_TimeKin

SeriesColor = clRed

Title = 'Phi `'

Pointer.InflateMargins = True

Pointer.Style = psRectangle

Pointer.Visible = False

XValues.DateTime = False

XValues.Name = 'X'

XValues.Multiplier = 1.000000000000000000

XValues.Order = loAscending

XValues.ValueSource = 'T'

YValues.DateTime = False

YValues.Name = 'Y'

YValues.Multiplier = 1.000000000000000000

YValues.Order = loNone

YValues.ValueSource = 'PHI_DOT'

end

object Series4: TLineSeries

Marks.ArrowLength = 8

Marks.Visible = False

DataSource = qPart1_TimeKin

SeriesColor = clGreen

Title = 'Psi `'

Pointer.InflateMargins = True

Pointer.Style = psRectangle

Pointer.Visible = False

XValues.DateTime = False

XValues.Name = 'X'

XValues.Multiplier = 1.000000000000000000

XValues.Order = loAscending

XValues.ValueSource = 'T'

YValues.DateTime = False

YValues.Name = 'Y'

YValues.Multiplier = 1.000000000000000000

YValues.Order = loNone

YValues.ValueSource = 'PSI_DOT'

end

end

end

object tsPart2: TTabSheet

Caption = #1063#1072#1089#1090#1100' 2'

ImageIndex = 7

object dbgPart2: TDBGrid

Left = 16

Top = 48

Width = 345

Height = 417

DataSource = dsPart2

TabOrder = 0

TitleFont.Charset = DEFAULT_CHARSET

TitleFont.Color = clWindowText

TitleFont.Height = -11

TitleFont.Name = 'MS Sans Serif'

TitleFont.Style = []

end

object dbnPart2: TDBNavigator

Left = 104

Top = 16

Width = 104

Height = 25

DataSource = dsPart2

VisibleButtons = [nbInsert, nbPost]

TabOrder = 1

end

object bPart2Modify: TButton

Left = 16

Top = 16

Width = 81

Height = 25

Caption = #1048#1079#1084#1077#1085#1080#1090#1100

TabOrder = 2

OnClick = bPart2ModifyClick

end

object bPart2Insert: TButton

Left = 216

Top = 16

Width = 65

Height = 25

Caption = #1044#1086#1073#1072#1074#1080#1090#1100

TabOrder = 3

OnClick = bPart2InsertClick

end

object bPart2Delete: TButton

Left = 288

Top = 16

Width = 75

Height = 25

Caption = #1059#1076#1072#1083#1080#1090#1100

TabOrder = 4

OnClick = bPart2DeleteClick

end

end

object tsPart3: TTabSheet

Caption = #1063#1072#1089#1090#1100' 3'

ImageIndex = 8

object lA11: TLabel

Left = 24

Top = 16

Width = 21

Height = 13

Caption = #1072' 11'

end

object lA22: TLabel

Left = 200

Top = 16

Width = 21

Height = 13

Caption = #1072' 22'

end

object lC11: TLabel

Left = 24

Top = 64

Width = 21

Height = 13

Caption = #1089' 11'

end

object lC22: TLabel

Left = 200

Top = 64

Width = 21

Height = 13

Caption = #1089' 22'

end

object lPhi1: TLabel

Left = 24

Top = 112

Width = 24

Height = 13

Caption = 'Phi 1'

end

object lPsi1: TLabel

Left = 200

Top = 112

Width = 23

Height = 13

Caption = 'Psi 1'

end

object lPhi2: TLabel

Left = 24

Top = 160

Width = 24

Height = 13

Caption = 'Phi 2'

end

object lPsi2: TLabel

Left = 200

Top = 160

Width = 23

Height = 13

Caption = 'Psi 2'

end

object lOmega_Phi: TLabel

Left = 24

Top = 256

Width = 60

Height = 13

Caption = #1063#1072#1089#1090#1086#1090#1072' Phi'

end

object lOmega_Psi: TLabel

Left = 200

Top = 256

Width = 59

Height = 13

Caption = #1063#1072#1089#1090#1086#1090#1072' Psi'

end

object lFaza_Phi: TLabel

Left = 24

Top = 304

Width = 47

Height = 13

Caption = #1060#1072#1079#1072' Phi'

end

object lFaza_Psi: TLabel

Left = 200

Top = 304

Width = 46

Height = 13

Caption = #1060#1072#1079#1072' Psi'

end

object lA_Phi: TLabel

Left = 24

Top = 352

Width = 73

Height = 13

Caption = #1040#1084#1087#1083#1080#1090#1091#1076#1072' Phi'

end

object lA_Psi: TLabel

Left = 200

Top = 352

Width = 72

Height = 13

Caption = #1040#1084#1087#1083#1080#1090#1091#1076#1072' Psi'

end

object lE_T: TLabel

Left = 24

Top = 392

Width = 63

Height = 13

Caption = #1050#1080#1085' '#1101#1085#1077#1088#1075#1080#1103

end

object lE_P: TLabel

Left = 200

Top = 392

Width = 81

Height = 13

Caption = #1055#1086#1090#1077#1085#1094' '#1101#1085#1077#1088#1075#1080#1103

end

object lE_Full: TLabel

Left = 24

Top = 432

Width = 82

Height = 13

Caption = #1055#1086#1083#1085#1072#1103' '#1101#1085#1077#1088#1075#1080#1103

end

object lStabiliti1: TLabel

Left = 24

Top = 208

Width = 126

Height = 13

Caption = #1059#1089#1090#1086#1081#1095#1080#1074#1086#1089#1090#1100' 1'#1086#1075#1086' '#1087#1086#1083#1078

end

object lStabiliti2: TLabel

Left = 200

Top = 208

Width = 126

Height = 13

Caption = #1059#1089#1090#1086#1081#1095#1080#1074#1086#1089#1090#1100' 2'#1086#1075#1086' '#1087#1086#1083#1078

end

object dbeA11: TDBEdit

Left = 24

Top = 32

Width = 121

Height = 21

DataField = 'A11'

DataSource = dsPart3

TabOrder = 0

end

object dbeA22: TDBEdit

Left = 200

Top = 32

Width = 121

Height = 21

DataField = 'A22'

DataSource = dsPart3

TabOrder = 1

end

object dbeC11: TDBEdit

Left = 24

Top = 80

Width = 121

Height = 21

DataField = 'C11'

DataSource = dsPart3

TabOrder = 2

end

object dbeC22: TDBEdit

Left = 200

Top = 80

Width = 121

Height = 21

DataField = 'C22'

DataSource = dsPart3

TabOrder = 3

end

object dbePhi1: TDBEdit

Left = 24

Top = 128

Width = 121

Height = 21

DataField = 'PHI1'

DataSource = dsPart3

TabOrder = 4

end

object dbePsi1: TDBEdit

Left = 200

Top = 128

Width = 121

Height = 21

DataField = 'PSI1'

DataSource = dsPart3

TabOrder = 5

end

object dbePhi2: TDBEdit

Left = 24

Top = 176

Width = 121

Height = 21

DataField = 'PHI2'

DataSource = dsPart3

TabOrder = 6

end

object dbePsi2: TDBEdit

Left = 200

Top = 176

Width = 121

Height = 21

DataField = 'PSI2'

DataSource = dsPart3

TabOrder = 7

end

object dbeOmega_Phi: TDBEdit

Left = 24

Top = 272

Width = 121

Height = 21

DataField = 'OMEGA_PHI'

DataSource = dsPart3

TabOrder = 8

end

object dbeOmega_Psi: TDBEdit

Left = 200

Top = 272

Width = 121

Height = 21

DataField = 'OMEGA_PSI'

DataSource = dsPart3

TabOrder = 9

end

object dbeFaza_Phi: TDBEdit

Left = 24

Top = 320

Width = 121

Height = 21

DataField = 'FAZA_PHI'

DataSource = dsPart3

TabOrder = 10

end

object dbeFaza_Psi: TDBEdit

Left = 200

Top = 320

Width = 121

Height = 21

DataField = 'FAZA_PSI'

DataSource = dsPart3

TabOrder = 11

end

object dbeA_Phi: TDBEdit

Left = 24

Top = 368

Width = 121

Height = 21

DataField = 'A_PHI'

DataSource = dsPart3

TabOrder = 12

end

object dbeA_Psi: TDBEdit

Left = 200

Top = 368

Width = 121

Height = 21

DataField = 'A_PSI'

DataSource = dsPart3

TabOrder = 13

end

object dbeE_T: TDBEdit

Left = 24

Top = 408

Width = 121

Height = 21

DataField = 'E_T'

DataSource = dsPart3

TabOrder = 14

end

object dbeE_P: TDBEdit

Left = 200

Top = 408

Width = 121

Height = 21

DataField = 'E_P'

DataSource = dsPart3

TabOrder = 15

end

object dbeE_Full: TDBEdit

Left = 24

Top = 448

Width = 121

Height = 21

DataField = 'E_FULL'

DataSource = dsPart3

TabOrder = 16

end

object dbeStabiliti1: TDBEdit

Left = 24

Top = 224

Width = 121

Height = 21

DataField = 'STABILITI1'

DataSource = dsPart3

TabOrder = 17

end

object dbeStabiliti2: TDBEdit

Left = 200

Top = 224

Width = 121

Height = 21

DataField = 'STABILITI2'

DataSource = dsPart3

TabOrder = 18

end

object bPart3Modify: TButton

Left = 200

Top = 440

Width = 121

Height = 25

Caption = #1048#1079#1084#1077#1085#1080#1090#1100

TabOrder = 19

OnClick = bPart3ModifyClick

end

end

end

object bInsWork: TButton

Left = 8

Top = 64

Width = 97

Height = 25

Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1079#1072#1087#1080#1089#1100

TabOrder = 4

OnClick = bInsWorkClick

end

object bDelite: TButton

Left = 120

Top = 64

Width = 97

Height = 25

Caption = #1059#1076#1072#1083#1080#1090#1100' '#1079#1072#1087#1080#1089#1100

TabOrder = 5

OnClick = bDeliteClick

end

object bRaveKin: TButton

Left = 8

Top = 544

Width = 97

Height = 25

Caption = #1057#1074#1086#1076#1085#1099#1081' '#1086#1090#1095#1077#1090

TabOrder = 6

OnClick = bRaveKinClick

end

object bRaveKurs: TButton

Left = 112

Top = 544

Width = 105

Height = 25

Caption = #1054#1090#1095#1077#1090' '#1087#1086' '#1089#1090#1091#1076#1077#1085#1090#1091

TabOrder = 7

OnClick = bRaveKursClick

end

object dsMain: TDataSource

DataSet = qMain

Left = 64

Top = 168

end

object qMain: TQuery

DatabaseName = 'PokerOdbc'

SQL.Strings = (

'Select * from Title')

Left = 24

Top = 168

object qMainNUMBER: TIntegerField

DisplayLabel = #8470

DisplayWidth = 3

FieldName = 'NUMBER'

end

object qMainDATE_DEFENCE: TStringField

DisplayLabel = #1044#1072#1090#1072

DisplayWidth = 4

FieldName = 'DATE_DEFENCE'

FixedChar = True

Size = 18

end

object qMainSTUDENT_FAMILY: TStringField

DisplayLabel = #1057#1090#1091#1076#1077#1085#1090

DisplayWidth = 10

FieldName = 'STUDENT_FAMILY'

end

object qMainMARK: TIntegerField

DisplayLabel = #1054#1094#1077#1085#1082#1072

DisplayWidth = 6

FieldName = 'MARK'

end

end

object updSqlVkladka: TUpdateSQL

ModifySQL.Strings = (

'update title'

'set'

' NUMBER = :NUMBER,'

' MINIST = :MINIST,'

' UNIVER = :UNIVER,'

' DEPARTMENT = :DEPARTMENT,'

' EXAMINATOR = :EXAMINATOR,'

' DATE_DEFENCE = :DATE_DEFENCE,'

' DATE_BEGINING = :DATE_BEGINING,'

' VARIANT_N = :VARIANT_N,'

' RUKOVOD = :RUKOVOD,'

' STUDENT_NAME = :STUDENT_NAME,'

' STUDENT_FAMILY = :STUDENT_FAMILY,'

' NUMB_CHAPTERS = :NUMB_CHAPTERS,'

' NUMB_IST = :NUMB_IST,'

' NUMB_PICT = :NUMB_PICT,'

' NUMB_PAGES = :NUMB_PAGES,'

' MARK = :MARK,'

' THIRD_PART_DATE = :THIRD_PART_DATE,'

' SECOND_PART_DATE = :SECOND_PART_DATE,'

' FIRST_PART_DATE = :FIRST_PART_DATE,'

' FIRD_PART_NAME = :FIRD_PART_NAME,'

' SECOND_PART_NAME = :SECOND_PART_NAME,'

' FIRST_PART_NAME = :FIRST_PART_NAME'

'where'

' NUMBER = :OLD_NUMBER and'

' MINIST = :OLD_MINIST and'

' UNIVER = :OLD_UNIVER and'

' DEPARTMENT = :OLD_DEPARTMENT and'

' EXAMINATOR = :OLD_EXAMINATOR and'

' DATE_DEFENCE = :OLD_DATE_DEFENCE and'

' DATE_BEGINING = :OLD_DATE_BEGINING and'

' VARIANT_N = :OLD_VARIANT_N and'

' RUKOVOD = :OLD_RUKOVOD and'

' STUDENT_NAME = :OLD_STUDENT_NAME and'

' STUDENT_FAMILY = :OLD_STUDENT_FAMILY and'

' NUMB_CHAPTERS = :OLD_NUMB_CHAPTERS and'

' NUMB_IST = :OLD_NUMB_IST and'

' NUMB_PICT = :OLD_NUMB_PICT and'

' NUMB_PAGES = :OLD_NUMB_PAGES and'

' MARK = :OLD_MARK and'

' THIRD_PART_DATE = :OLD_THIRD_PART_DATE and'

' SECOND_PART_DATE = :OLD_SECOND_PART_DATE and'

' FIRST_PART_DATE = :OLD_FIRST_PART_DATE and'

' FIRD_PART_NAME = :OLD_FIRD_PART_NAME and'

' SECOND_PART_NAME = :OLD_SECOND_PART_NAME and'

' FIRST_PART_NAME = :OLD_FIRST_PART_NAME')

InsertSQL.Strings = (

'insert into title'

' (NUMBER, MINIST, UNIVER, DEPARTMENT, EXAMINATOR, DATE_DEFENCE,' +

' DATE_BEGINING, '

' VARIANT_N, RUKOVOD, STUDENT_NAME, STUDENT_FAMILY, NUMB_CHAPTE' +

'RS, NUMB_IST, '

' NUMB_PICT, NUMB_PAGES, MARK, THIRD_PART_DATE, SECOND_PART_DAT' +

'E, FIRST_PART_DATE, '

' FIRD_PART_NAME, SECOND_PART_NAME, FIRST_PART_NAME)'

'values'

' (:NUMBER, :MINIST, :UNIVER, :DEPARTMENT, :EXAMINATOR, :DATE_DE' +

'FENCE, '

' :DATE_BEGINING, :VARIANT_N, :RUKOVOD, :STUDENT_NAME, :STUDENT' +

'_FAMILY, '

' :NUMB_CHAPTERS, :NUMB_IST, :NUMB_PICT, :NUMB_PAGES, :MARK, :T' +

'HIRD_PART_DATE, '

' :SECOND_PART_DATE, :FIRST_PART_DATE, :FIRD_PART_NAME, :SECOND' +

'_PART_NAME, '

' :FIRST_PART_NAME)')

DeleteSQL.Strings = (

'delete from title'

'where'

' NUMBER = :OLD_NUMBER and'

' MINIST = :OLD_MINIST and'

' UNIVER = :OLD_UNIVER and'

' DEPARTMENT = :OLD_DEPARTMENT and'

' EXAMINATOR = :OLD_EXAMINATOR and'

' DATE_DEFENCE = :OLD_DATE_DEFENCE and'

' DATE_BEGINING = :OLD_DATE_BEGINING and'

' VARIANT_N = :OLD_VARIANT_N and'

' RUKOVOD = :OLD_RUKOVOD and'

' STUDENT_NAME = :OLD_STUDENT_NAME and'

' STUDENT_FAMILY = :OLD_STUDENT_FAMILY and'

' NUMB_CHAPTERS = :OLD_NUMB_CHAPTERS and'

' NUMB_IST = :OLD_NUMB_IST and'

' NUMB_PICT = :OLD_NUMB_PICT and'

' NUMB_PAGES = :OLD_NUMB_PAGES and'

' MARK = :OLD_MARK and'

' THIRD_PART_DATE = :OLD_THIRD_PART_DATE and'

' SECOND_PART_DATE = :OLD_SECOND_PART_DATE and'

' FIRST_PART_DATE = :OLD_FIRST_PART_DATE and'

' FIRD_PART_NAME = :OLD_FIRD_PART_NAME and'

' SECOND_PART_NAME = :OLD_SECOND_PART_NAME and'

' FIRST_PART_NAME = :OLD_FIRST_PART_NAME')

Left = 64

Top = 424

end

object qUpdate: TQuery

CachedUpdates = True

DatabaseName = 'PokerOdbc'

DataSource = dsMain

SQL.Strings = (

'select * from title where (NUMBER= :NUMBER)')

UpdateObject = updSqlVkladka

Left = 24

Top = 424

ParamData = <

item

DataType = ftInteger

Name = 'NUMBER'

ParamType = ptUnknown

Size = 4

end>

object qUpdateNUMBER: TIntegerField

FieldName = 'NUMBER'

end

object qUpdateMINIST: TStringField

FieldName = 'MINIST'

end

object qUpdateUNIVER: TStringField

FieldName = 'UNIVER'

end

object qUpdateDEPARTMENT: TStringField

FieldName = 'DEPARTMENT'

end

object qUpdateSTUDENT_FAMILY: TStringField

FieldName = 'STUDENT_FAMILY'

end

object qUpdateSTUDENT_NAME: TStringField

FieldName = 'STUDENT_NAME'

end

object qUpdateYEAR: TIntegerField

FieldName = 'YEAR'

end

object qUpdateRUKOVOD: TStringField

FieldName = 'RUKOVOD'

end

object qUpdateEXAMINATOR: TStringField

FieldName = 'EXAMINATOR'

end

object qUpdateMARK: TIntegerField

FieldName = 'MARK'

end

object qUpdateDATE_BEGINING: TIntegerField

FieldName = 'DATE_BEGINING'

end

object qUpdateDATE_DEFENCE: TStringField

FieldName = 'DATE_DEFENCE'

FixedChar = True

Size = 18

end

object qUpdateVARIANT_N: TIntegerField

FieldName = 'VARIANT_N'

end

object qUpdateFIRST_PART_NAME: TStringField

FieldName = 'FIRST_PART_NAME'

end

object qUpdateSECOND_PART_NAME: TStringField

FieldName = 'SECOND_PART_NAME'

end

object qUpdateTHIRD_PART_NAME: TStringField

FieldName = 'THIRD_PART_NAME'

end

object qUpdateFIRST_PART_DATE: TIntegerField

FieldName = 'FIRST_PART_DATE'

end

object qUpdateSECOND_PART_DATE: TStringField

FieldName = 'SECOND_PART_DATE'

FixedChar = True

Size = 18

end

object qUpdateTHIRD_PART_DATE: TStringField

FieldName = 'THIRD_PART_DATE'

FixedChar = True

Size = 18

end

object qUpdateNUMB_PAGES: TStringField

FieldName = 'NUMB_PAGES'

FixedChar = True

Size = 18

end

object qUpdateNUMB_PICT: TStringField

FieldName = 'NUMB_PICT'

FixedChar = True

Size = 18

end

object qUpdateNUMB_IST: TStringField

FieldName = 'NUMB_IST'

FixedChar = True

Size = 18

end

end

object dsUpdate: TDataSource

DataSet = qUpdate

Left = 104

Top = 424

end

object qTitle: TQuery

DatabaseName = 'PokerOdbc'

DataSource = dsMain

SQL.Strings = (

'Select * from Title where Number=:Number')

Left = 104

Top = 168

ParamData = <

item

DataType = ftInteger

Name = 'NUMBER'

ParamType = ptUnknown

Size = 4

end>

object qTitleNUMBER: TIntegerField

FieldName = 'NUMBER'

end

object qTitleMINIST: TStringField

FieldName = 'MINIST'

end

object qTitleUNIVER: TStringField

FieldName = 'UNIVER'

end

object qTitleDEPARTMENT: TStringField

FieldName = 'DEPARTMENT'

end

object qTitleSTUDENT_FAMILY: TStringField

FieldName = 'STUDENT_FAMILY'

end

object qTitleSTUDENT_NAME: TStringField

FieldName = 'STUDENT_NAME'

end

object qTitleYEAR: TIntegerField

FieldName = 'YEAR'

end

object qTitleRUKOVOD: TStringField

FieldName = 'RUKOVOD'

end

object qTitleEXAMINATOR: TStringField

FieldName = 'EXAMINATOR'

end

object qTitleMARK: TIntegerField

FieldName = 'MARK'

end

object qTitleDATE_BEGINING: TIntegerField

FieldName = 'DATE_BEGINING'

end

object qTitleDATE_DEFENCE: TStringField

FieldName = 'DATE_DEFENCE'

FixedChar = True

Size = 18

end

object qTitleVARIANT_N: TIntegerField

FieldName = 'VARIANT_N'

end

object qTitleFIRST_PART_NAME: TStringField

FieldName = 'FIRST_PART_NAME'

end

object qTitleSECOND_PART_NAME: TStringField

FieldName = 'SECOND_PART_NAME'

end

object qTitleTHIRD_PART_NAME: TStringField

FieldName = 'THIRD_PART_NAME'

end

object qTitleFIRST_PART_DATE: TIntegerField

FieldName = 'FIRST_PART_DATE'

end

object qTitleSECOND_PART_DATE: TStringField

FieldName = 'SECOND_PART_DATE'

FixedChar = True

Size = 18

end

object qTitleTHIRD_PART_DATE: TStringField

FieldName = 'THIRD_PART_DATE'

FixedChar = True

Size = 18

end

object qTitleNUMB_PAGES: TStringField

FieldName = 'NUMB_PAGES'

FixedChar = True

Size = 18

end

object qTitleNUMB_PICT: TStringField

FieldName = 'NUMB_PICT'

FixedChar = True

Size = 18

end

object qTitleNUMB_IST: TStringField

FieldName = 'NUMB_IST'

FixedChar = True

Size = 18

end

end

object qPart1: TQuery

CachedUpdates = True

DatabaseName = 'PokerOdbc'

DataSource = dsMain

SQL.Strings = (

'Select * from Part1 where Number=:Number')

UpdateObject = updPart1

Left = 24

Top = 232

ParamData = <

item

DataType = ftInteger

Name = 'NUMBER'

ParamType = ptUnknown

Size = 4

end>

object qPart1NUMBER: TIntegerField

FieldName = 'NUMBER'

end

object qPart1PSI0: TStringField

FieldName = 'PSI0'

FixedChar = True

Size = 18

end

object qPart1PSI_DOT0: TStringField

FieldName = 'PSI_DOT0'

FixedChar = True

Size = 18

end

object qPart1PHI0: TStringField

FieldName = 'PHI0'

FixedChar = True

Size = 18

end

object qPart1OMEGA0: TIntegerField

FieldName = 'OMEGA0'

end

object qPart1POGR10_1: TIntegerField

FieldName = 'POGR10_1'

end

object qPart1POGR10_2: TIntegerField

FieldName = 'POGR10_2'

end

object qPart1POGR: TIntegerField

FieldName = 'POGR'

end

end

object qPart1_TimeKin: TQuery

CachedUpdates = True

DatabaseName = 'PokerOdbc'

DataSource = dsMain

SQL.Strings = (

'Select * from Part1_Time where Number=:Number')

UpdateObject = updPart1_TimeKin

Left = 24

Top = 264

ParamData = <

item

DataType = ftInteger

Name = 'NUMBER'

ParamType = ptUnknown

Size = 4

end>

object qPart1_TimeKinNUMBER: TIntegerField

DisplayLabel = 'N'

DisplayWidth = 2

FieldName = 'NUMBER'

end

object qPart1_TimeKinT: TIntegerField

DisplayLabel = 't'

DisplayWidth = 4

FieldName = 'T'

end

object qPart1_TimeKinPHI: TIntegerField

DisplayLabel = 'Phi'

DisplayWidth = 4

FieldName = 'PHI'

end

object qPart1_TimeKinPSI: TIntegerField

DisplayLabel = 'Psi'

DisplayWidth = 4

FieldName = 'PSI'

end

object qPart1_TimeKinPHI_DOT: TIntegerField

DisplayLabel = 'Phi '#39

DisplayWidth = 5

FieldName = 'PHI_DOT'

end

object qPart1_TimeKinPSI_DOT: TIntegerField

DisplayLabel = 'Psi '#39

DisplayWidth = 5

FieldName = 'PSI_DOT'

end

object qPart1_TimeKinPHI_DOT2: TIntegerField

DisplayLabel = 'Phi '#39#39

DisplayWidth = 5

FieldName = 'PHI_DOT2'

end

object qPart1_TimeKinPSI_DOT2: TIntegerField

DisplayLabel = 'Psi '#39#39

DisplayWidth = 5

FieldName = 'PSI_DOT2'

end

object qPart1_TimeKinV_R: TIntegerField

DisplayLabel = 'Vr'

DisplayWidth = 5

FieldName = 'V_R'

end

object qPart1_TimeKinPSI_RAV: TIntegerField

DisplayLabel = 'Psi_rav'

DisplayWidth = 5

FieldName = 'PSI_RAV'

end

end

object updPart1_TimeKin: TUpdateSQL

ModifySQL.Strings = (

'update Part1_Time'

'set'

' NUMBER = :NUMBER,'

' T = :T,'

' PHI = :PHI,'

' PSI = :PSI,'

' PHI_DOT = :PHI_DOT,'

' PSI_DOT = :PSI_DOT,'

' PHI_DOT2 = :PHI_DOT2,'

' PSI_DOT2 = :PSI_DOT2,'

' V_R = :V_R,'

' PSI_RAV = :PSI_RAV'

'where'

' NUMBER = :OLD_NUMBER and'

' T = :OLD_T')

InsertSQL.Strings = (

'insert into Part1_Time'

' (NUMBER, T, PHI, PSI, PHI_DOT, PSI_DOT, PHI_DOT2, PSI_DOT2, V_' +

'R, PSI_RAV)'

'values'

' (:NUMBER, :T, :PHI, :PSI, :PHI_DOT, :PSI_DOT, :PHI_DOT2, :PSI_' +

'DOT2, :V_R, '

' :PSI_RAV)')

DeleteSQL.Strings = (

'delete from Part1_Time'

'where'

' NUMBER = :OLD_NUMBER and'

' T = :OLD_T')

Left = 64

Top = 264

end

object dsPart1_TimeKin: TDataSource

DataSet = qPart1_TimeKin

Left = 104

Top = 264

end

object qPart1_TimeDin1: TQuery

CachedUpdates = True

DatabaseName = 'PokerOdbc'

DataSource = dsMain

SQL.Strings = (

'Select * from Part1_Time where Number=:Number')

UpdateObject = updPart1_TimeDin1

Left = 24

Top = 296

ParamData = <

item

DataType = ftInteger

Name = 'NUMBER'

ParamType = ptUnknown

Size = 4

end>

object IntegerField1: TIntegerField

FieldName = 'NUMBER'

Visible = False

end

object IntegerField2: TIntegerField

DisplayLabel = 't'

DisplayWidth = 7

FieldName = 'T'

end

object qPart1_TimeDin1M: TIntegerField

DisplayWidth = 7

FieldName = 'M'

end

object qPart1_TimeDin1XA: TIntegerField

DisplayLabel = 'Xa'

DisplayWidth = 7

FieldName = 'XA'

end

object qPart1_TimeDin1YA: TIntegerField

DisplayLabel = 'Ya'

DisplayWidth = 7

FieldName = 'YA'

end

object qPart1_TimeDin1XB: TIntegerField

DisplayLabel = 'Xb'

DisplayWidth = 7

FieldName = 'XB'

end

object qPart1_TimeDin1YB: TIntegerField

DisplayLabel = 'Yb'

DisplayWidth = 7

FieldName = 'YB'

end

object qPart1_TimeDin1ZB: TIntegerField

DisplayLabel = 'Zb'

DisplayWidth = 7

FieldName = 'ZB'

end

end

object updPart1_TimeDin1: TUpdateSQL

ModifySQL.Strings = (

'update Part1_Time'

'set'

' M = :M,'

' XA = :XA,'

' YA = :YA,'

' XB = :XB,'

' YB = :YB,'

' ZB = :ZB'

'where'

' NUMBER = :OLD_NUMBER and'

' T = :OLD_T')

InsertSQL.Strings = (

'insert into Part1_Time'

' (M, XA, YA, XB, YB, ZB)'

'values'

' (:M, :XA, :YA, :XB, :YB, :ZB)')

DeleteSQL.Strings = (

'delete from Part1_Time'

'where'

' NUMBER = :OLD_NUMBER and'

' T = :OLD_T')

Left = 64

Top = 296

end

object dsPart1_TimeDin1: TDataSource

DataSet = qPart1_TimeDin1

Left = 104

Top = 296

end

object qPart1_TimeDin2: TQuery

CachedUpdates = True

DatabaseName = 'PokerOdbc'

DataSource = dsMain

SQL.Strings = (

'Select * from Part1_Time where Number=:Number')

UpdateObject = updPart1_TimeDin2

Left = 24

Top = 328

ParamData = <

item

DataType = ftInteger

Name = 'NUMBER'

ParamType = ptUnknown

Size = 4

end>

object IntegerField3: TIntegerField

FieldName = 'NUMBER'

Visible = False

end

object IntegerField4: TIntegerField

DisplayLabel = 't'

DisplayWidth = 5

FieldName = 'T'

end

object IntegerField11: TIntegerField

DisplayLabel = 'F_upr'

DisplayWidth = 5

FieldName = 'F_UPR'

end

object IntegerField12: TIntegerField

DisplayWidth = 5

FieldName = 'N'

end

object IntegerField13: TIntegerField

DisplayLabel = 'N_b'

DisplayWidth = 5

FieldName = 'N_B'

end

object IntegerField14: TIntegerField

DisplayLabel = 'N_n'

DisplayWidth = 5

FieldName = 'N_N'

end

object IntegerField15: TIntegerField

DisplayLabel = 'FIn1t'

DisplayWidth = 5

FieldName = 'FIN1_TZ'

end

object IntegerField16: TIntegerField

DisplayLabel = 'FIn2eN'

DisplayWidth = 5

FieldName = 'FIN2E_TZ'

end

object IntegerField17: TIntegerField

DisplayLabel = 'FIb2r_n'

DisplayWidth = 5

FieldName = 'FIN2R_N'

end

object IntegerField18: TIntegerField

DisplayLabel = 'FIn2r_t'

DisplayWidth = 5

FieldName = 'FIN2R_TAU'

end

end

object updPart1_TimeDin2: TUpdateSQL

ModifySQL.Strings = (

'update Part1_Time'

'set'

' F_UPR = :F_UPR,'

' N = :N,'

' N_B = :N_B,'

' N_N = :N_N,'

' FIN1_TZ = :FIN1_TZ,'

' FIN2E_TZ = :FIN2E_TZ,'

' FIN2R_N = :FIN2R_N,'

' FIN2R_TAU = :FIN2R_TAU'

'where'

' NUMBER = :OLD_NUMBER and'

' T = :OLD_T')

InsertSQL.Strings = (

'insert into Part1_Time'

' (F_UPR, N, N_B, N_N, FIN1_TZ, FIN2E_TZ, FIN2R_N, FIN2R_TAU)'

'values'

' (:F_UPR, :N, :N_B, :N_N, :FIN1_TZ, :FIN2E_TZ, :FIN2R_N, :FIN2R' +

'_TAU)')

DeleteSQL.Strings = (

'delete from Part1_Time'

'where'

' NUMBER = :OLD_NUMBER and'

' T = :OLD_T')

Left = 64

Top = 328

end

object dsPart1_TimeDin2: TDataSource

DataSet = qPart1_TimeDin2

Left = 104

Top = 328

end

object qZadanie: TQuery

CachedUpdates = True

DatabaseName = 'PokerOdbc'

DataSource = dsMain

SQL.Strings = (

'select * from zadanie where number=:number')

UpdateObject = updZadanie

Left = 24

Top = 200

ParamData = <

item

DataType = ftInteger

Name = 'NUMBER'

ParamType = ptUnknown

Size = 4

end>

object qZadanieNUMBER: TIntegerField

FieldName = 'NUMBER'

end

object qZadanieMASSA_TOCHKI: TIntegerField

FieldName = 'MASSA_TOCHKI'

end

object qZadanieMASSA_RAMKI: TIntegerField

FieldName = 'MASSA_RAMKI'

end

object qZadanieRADIUS_KOLTZA: TIntegerField

FieldName = 'RADIUS_KOLTZA'

end

object qZadanieOTKLONENIE_D: TIntegerField

FieldName = 'OTKLONENIE_D'

end

object qZadanieNUMB_FREEDOMS: TIntegerField

FieldName = 'NUMB_FREEDOMS'

end

object qZadanieLENGTH0: TIntegerField

FieldName = 'LENGTH0'

end

object qZadanieZHESTKOST: TIntegerField

FieldName = 'ZHESTKOST'

end

object qZadanieUGL_ZHESTKOST: TIntegerField

FieldName = 'UGL_ZHESTKOST'

end

object qZadanieTYPE_SHARNIR_A: TStringField

FieldName = 'TYPE_SHARNIR_A'

end

object qZadanieTYPE_SHARNIR_B: TStringField

FieldName = 'TYPE_SHARNIR_B'

end

object qZadanieT0: TIntegerField

FieldName = 'T0'

end

object qZadanieTK: TIntegerField

FieldName = 'TK'

end

object qZadanieINT_POINTS_NUMBER: TIntegerField

FieldName = 'INT_POINTS_NUMBER'

end

end

object dsZadanie: TDataSource

DataSet = qZadanie

Left = 104

Top = 200

end

object dsPart1: TDataSource

DataSet = qPart1

Left = 104

Top = 232

end

object qPart2: TQuery

CachedUpdates = True

DatabaseName = 'PokerOdbc'

DataSource = dsMain

SQL.Strings = (

'select * from Part2 where Number=:Number')

UpdateObject = updPart2

Left = 24

Top = 360

ParamData = <

item

DataType = ftInteger

Name = 'NUMBER'

ParamType = ptUnknown

Size = 4

end>

object qPart2NUMBER: TIntegerField

DisplayLabel = 'N'

DisplayWidth = 2

FieldName = 'NUMBER'

end

object qPart2T: TIntegerField

DisplayLabel = 't'

DisplayWidth = 4

FieldName = 'T'

end

object qPart2PSI: TIntegerField

DisplayLabel = 'Psi'

DisplayWidth = 4

FieldName = 'PSI'

end

object qPart2PHI: TIntegerField

DisplayLabel = 'Phi'

DisplayWidth = 4

FieldName = 'PHI'

end

object qPart2PSI_DOT: TIntegerField

DisplayLabel = 'Psi `'

DisplayWidth = 4

FieldName = 'PSI_DOT'

end

object qPart2PHI_DOT: TIntegerField

DisplayLabel = 'Phi `'

DisplayWidth = 4

FieldName = 'PHI_DOT'

end

object qPart2E_T: TIntegerField

DisplayLabel = 'E_kin'

DisplayWidth = 4

FieldName = 'E_T'

end

object qPart2E_P: TIntegerField

DisplayLabel = 'E_p'

DisplayWidth = 4

FieldName = 'E_P'

end

object qPart2Q_PSI: TIntegerField

DisplayLabel = 'Qpsi'

DisplayWidth = 4

FieldName = 'Q_PSI'

end

object qPart2Q_PHI: TIntegerField

DisplayLabel = 'Qphi'

DisplayWidth = 4

FieldName = 'Q_PHI'

end

object qPart2E_FULL: TIntegerField

DisplayLabel = 'Efull'

DisplayWidth = 4

FieldName = 'E_FULL'

end

end

object qPart3: TQuery

CachedUpdates = True

DatabaseName = 'PokerOdbc'

DataSource = dsMain

SQL.Strings = (

'select * from Part3 where Number=:Number')

UpdateObject = updPart3

Left = 24

Top = 392

ParamData = <

item

DataType = ftInteger

Name = 'NUMBER'

ParamType = ptUnknown

Size = 4

end>

object qPart3NUMBER: TIntegerField

FieldName = 'NUMBER'

end

object qPart3A11: TIntegerField

FieldName = 'A11'

end

object qPart3A22: TIntegerField

FieldName = 'A22'

end

object qPart3C11: TIntegerField

FieldName = 'C11'

end

object qPart3C22: TIntegerField

FieldName = 'C22'

end

object qPart3PHI1: TIntegerField

FieldName = 'PHI1'

end

object qPart3PSI1: TIntegerField

FieldName = 'PSI1'

end

object qPart3PHI2: TIntegerField

FieldName = 'PHI2'

end

object qPart3PSI2: TIntegerField

FieldName = 'PSI2'

end

object qPart3STABILITI1: TIntegerField

FieldName = 'STABILITI1'

end

object qPart3STABILITI2: TIntegerField

FieldName = 'STABILITI2'

end

object qPart3OMEGA_PHI: TIntegerField

FieldName = 'OMEGA_PHI'

end

object qPart3OMEGA_PSI: TIntegerField

FieldName = 'OMEGA_PSI'

end

object qPart3FAZA_PHI: TIntegerField

FieldName = 'FAZA_PHI'

end

object qPart3FAZA_PSI: TIntegerField

FieldName = 'FAZA_PSI'

end

object qPart3A_PHI: TIntegerField

FieldName = 'A_PHI'

end

object qPart3A_PSI: TIntegerField

FieldName = 'A_PSI'

end

object qPart3E_T: TIntegerField

FieldName = 'E_T'

end

object qPart3E_P: TIntegerField

FieldName = 'E_P'

end

object qPart3E_FULL: TIntegerField

FieldName = 'E_FULL'

end

end

object dsPart2: TDataSource

DataSet = qPart2

Left = 104

Top = 360

end

object dsPart3: TDataSource

DataSet = qPart3

Left = 104

Top = 392

end

object updPart2: TUpdateSQL

ModifySQL.Strings = (

'update Part2'

'set'

' NUMBER = :NUMBER,'

' T = :T,'

' PSI = :PSI,'

' PHI = :PHI,'

' PSI_DOT = :PSI_DOT,'

' PHI_DOT = :PHI_DOT,'

' E_T = :E_T,'

' E_P = :E_P,'

' Q_PSI = :Q_PSI,'

' Q_PHI = :Q_PHI,'

' E_FULL = :E_FULL'

'where'

' NUMBER = :OLD_NUMBER and'

' T = :OLD_T and'

' PSI = :OLD_PSI and'

' PHI = :OLD_PHI and'

' PSI_DOT = :OLD_PSI_DOT and'

' PHI_DOT = :OLD_PHI_DOT and'

' E_T = :OLD_E_T and'

' E_P = :OLD_E_P and'

' Q_PSI = :OLD_Q_PSI and'

' Q_PHI = :OLD_Q_PHI and'

' E_FULL = :OLD_E_FULL')

InsertSQL.Strings = (

'insert into Part2'

' (NUMBER, T, PSI, PHI, PSI_DOT, PHI_DOT, E_T, E_P, Q_PSI, Q_PHI' +

', E_FULL)'

'values'

' (:NUMBER, :T, :PSI, :PHI, :PSI_DOT, :PHI_DOT, :E_T, :E_P, :Q_P' +

'SI, :Q_PHI, '

' :E_FULL)')

DeleteSQL.Strings = (

'delete from Part2'

'where'

' NUMBER = :OLD_NUMBER and'

' T = :OLD_T and'

' PSI = :OLD_PSI and'

' PHI = :OLD_PHI and'

' PSI_DOT = :OLD_PSI_DOT and'

' PHI_DOT = :OLD_PHI_DOT and'

' E_T = :OLD_E_T and'

' E_P = :OLD_E_P and'

' Q_PSI = :OLD_Q_PSI and'

' Q_PHI = :OLD_Q_PHI and'

' E_FULL = :OLD_E_FULL')

Left = 64

Top = 360

end

object updZadanie: TUpdateSQL

ModifySQL.Strings = (

'update zadanie'

'set'

' MASSA_TOCHKI = :MASSA_TOCHKI,'

' MASSA_RAMKI = :MASSA_RAMKI,'

' RADIUS_KOLTZA = :RADIUS_KOLTZA,'

' OTKLONENIE_D = :OTKLONENIE_D,'

' NUMB_FREEDOMS = :NUMB_FREEDOMS,'

' LENGTH0 = :LENGTH0,'

' ZHESTKOST = :ZHESTKOST,'

' UGL_ZHESTKOST = :UGL_ZHESTKOST,'

' TYPE_SHARNIR_A = :TYPE_SHARNIR_A,'

' TYPE_SHARNIR_B = :TYPE_SHARNIR_B,'

' T0 = :T0,'

' TK = :TK,'

' INT_POINTS_NUMBER = :INT_POINTS_NUMBER'

'where'

' NUMBER = :OLD_NUMBER')

InsertSQL.Strings = (

'insert into zadanie'

' (MASSA_TOCHKI, MASSA_RAMKI, RADIUS_KOLTZA, OTKLONENIE_D, NUMB_' +

'FREEDOMS, '

' LENGTH0, ZHESTKOST, UGL_ZHESTKOST, TYPE_SHARNIR_A, TYPE_SHARN' +

'IR_B, T0, '

' TK, INT_POINTS_NUMBER)'

'values'

' (:MASSA_TOCHKI, :MASSA_RAMKI, :RADIUS_KOLTZA, :OTKLONENIE_D, :' +

'NUMB_FREEDOMS, '

' :LENGTH0, :ZHESTKOST, :UGL_ZHESTKOST, :TYPE_SHARNIR_A, :TYPE_' +

'SHARNIR_B, '

' :T0, :TK, :INT_POINTS_NUMBER)')

DeleteSQL.Strings = (

'delete from zadanie'

'where'

' NUMBER = :OLD_NUMBER')

Left = 64

Top = 200

end

object updPart3: TUpdateSQL

ModifySQL.Strings = (

'update Part3'

'set'

' A11 = :A11,'

' A22 = :A22,'

' C11 = :C11,'

' C22 = :C22,'

' PHI1 = :PHI1,'

' PSI1 = :PSI1,'

' PHI2 = :PHI2,'

' PSI2 = :PSI2,'

' STABILITI1 = :STABILITI1,'

' STABILITI2 = :STABILITI2,'

' OMEGA_PHI = :OMEGA_PHI,'

' OMEGA_PSI = :OMEGA_PSI,'

' FAZA_PHI = :FAZA_PHI,'

' FAZA_PSI = :FAZA_PSI,'

' A_PHI = :A_PHI,'

' A_PSI = :A_PSI,'

' E_T = :E_T,'

' E_P = :E_P,'

' E_FULL = :E_FULL'

'where'

' NUMBER = :OLD_NUMBER')

InsertSQL.Strings = (

'insert into Part3'

' (A11, A22, C11, C22, PHI1, PSI1, PHI2, PSI2, STABILITI1, STABI' +

'LITI2, '

' OMEGA_PHI, OMEGA_PSI, FAZA_PHI, FAZA_PSI, A_PHI, A_PSI, E_T, ' +

'E_P, E_FULL)'

'values'

' (:A11, :A22, :C11, :C22, :PHI1, :PSI1, :PHI2, :PSI2, :STABILIT' +

'I1, :STABILITI2, '

' :OMEGA_PHI, :OMEGA_PSI, :FAZA_PHI, :FAZA_PSI, :A_PHI, :A_PSI,' +

' :E_T, '

' :E_P, :E_FULL)')

DeleteSQL.Strings = (

'delete from Part3'

'where'

' NUMBER = :OLD_NUMBER')

Left = 64

Top = 392

end

object updPart1: TUpdateSQL

ModifySQL.Strings = (

'update Part1'

'set'

' PSI0 = :PSI0,'

' PSI_DOT0 = :PSI_DOT0,'

' PHI0 = :PHI0,'

' OMEGA0 = :OMEGA0,'

' POGR10_1 = :POGR10_1,'

' POGR10_2 = :POGR10_2,'

' POGR = :POGR'

'where'

' NUMBER = :OLD_NUMBER')

InsertSQL.Strings = (

'insert into Part1'

' (PSI0, PSI_DOT0, PHI0, OMEGA0, POGR10_1, POGR10_2, POGR)'

'values'

' (:PSI0, :PSI_DOT0, :PHI0, :OMEGA0, :POGR10_1, :POGR10_2, :POGR' +

')')

DeleteSQL.Strings = (

'delete from Part1'

'where'

' NUMBER = :OLD_NUMBER')

Left = 64

Top = 232

end

object mMenu1: TMainMenu

Left = 64

Top = 136

object mFile: TMenuItem

Caption = #1060#1072#1081#1083

object mActive: TMenuItem

Caption = 'Active'

OnClick = mActiveClick

end

object mPassive: TMenuItem

Caption = 'Passive'

OnClick = mPassiveClick

end

object mExit: TMenuItem

Caption = #1042#1099#1093#1086#1076

OnClick = mExitClick

end

end

end

object XPManifest1: TXPManifest

Left = 24

Top = 136

end

object RvSystemMain: TRvSystem

TitleSetup = 'Output Options'

TitleStatus = 'Report Status'

TitlePreview = 'Report Preview'

SystemFiler.StatusFormat = 'Generating page %p'

SystemPreview.ZoomFactor = 100.000000000000000000

SystemPrinter.ScaleX = 100.000000000000000000

SystemPrinter.ScaleY = 100.000000000000000000

SystemPrinter.StatusFormat = 'Printing page %p'

SystemPrinter.Title = 'ReportPrinter Report'

SystemPrinter.UnitsFactor = 1.000000000000000000

Left = 104

Top = 136

end

object RvDsMain: TRvDataSetConnection

RuntimeVisibility = rtDeveloper

DataSet = qMainRave

Left = 64

Top = 456

end

object qMainRave: TQuery

DatabaseName = 'PokerOdbc'

SQL.Strings = (

'Select * from Title')

Left = 24

Top = 456

object IntegerField5: TIntegerField

DisplayLabel = 'N'

DisplayWidth = 3

FieldName = 'NUMBER'

end

object StringField1: TStringField

DisplayLabel = 'Date'

DisplayWidth = 4

FieldName = 'DATE_DEFENCE'

FixedChar = True

Size = 18

end

object StringField2: TStringField

DisplayLabel = 'Student'

DisplayWidth = 10

FieldName = 'STUDENT_FAMILY'

end

object IntegerField6: TIntegerField

DisplayLabel = 'Mark'

DisplayWidth = 6

FieldName = 'MARK'

end

end

object RvMain: TRvProject

Engine = RvSystemMain

ProjectFile = 'D:\Sgau\5'#1099#1081' '#1089#1077#1084#1077#1089#1090#1088'\'#1041#1076'\'#1044#1077#1083#1092#1080'\'#1056#1072#1073#1086#1095#1072#1103' '#1074#1077#1088#1089#1080#1103' New\MainEng.rav'

Left = 104

Top = 456

end

object RvKursach: TRvProject

Engine = RvSystemMain

ProjectFile = 'D:\Sgau\5'#1099#1081' '#1089#1077#1084#1077#1089#1090#1088'\'#1041#1076'\'#1044#1077#1083#1092#1080'\'#1056#1072#1073#1086#1095#1072#1103' '#1074#1077#1088#1089#1080#1103' New\Kurs.rav'

Left = 104

Top = 488

end

object qPart1_Time: TQuery

DatabaseName = 'PokerOdbc'

DataSource = dsMain

SQL.Strings = (

'select * from Part1_Time where number=:number')

Left = 24

Top = 488

ParamData = <

item

DataType = ftInteger

Name = 'NUMBER'

ParamType = ptUnknown

Size = 4

end>

object qPart1_TimeNUMBER: TIntegerField

FieldName = 'NUMBER'

end

object qPart1_TimeT: TIntegerField

FieldName = 'T'

end

object qPart1_TimePHI: TIntegerField

FieldName = 'PHI'

end

object qPart1_TimePSI: TIntegerField

FieldName = 'PSI'

end

object qPart1_TimePHI_DOT: TIntegerField

FieldName = 'PHI_DOT'

end

object qPart1_TimePSI_DOT: TIntegerField

FieldName = 'PSI_DOT'

end

object qPart1_TimePHI_DOT2: TIntegerField

FieldName = 'PHI_DOT2'

end

object qPart1_TimePSI_DOT2: TIntegerField

FieldName = 'PSI_DOT2'

end

object qPart1_TimeV_R: TIntegerField

FieldName = 'V_R'

end

object qPart1_TimeM: TIntegerField

FieldName = 'M'

end

object qPart1_TimeXA: TIntegerField

FieldName = 'XA'

end

object qPart1_TimeYA: TIntegerField

FieldName = 'YA'

end

object qPart1_TimeXB: TIntegerField

FieldName = 'XB'

end

object qPart1_TimeYB: TIntegerField

FieldName = 'YB'

end

object qPart1_TimeZB: TIntegerField

FieldName = 'ZB'

end

object qPart1_TimeF_UPR: TIntegerField

FieldName = 'F_UPR'

end

object qPart1_TimeN: TIntegerField

FieldName = 'N'

end

object qPart1_TimeN_B: TIntegerField

FieldName = 'N_B'

end

object qPart1_TimeN_N: TIntegerField

FieldName = 'N_N'

end

object qPart1_TimeFIN1_TZ: TIntegerField

FieldName = 'FIN1_TZ'

end

object qPart1_TimeFIN2E_TZ: TIntegerField

FieldName = 'FIN2E_TZ'

end

object qPart1_TimeFIN2R_N: TIntegerField

FieldName = 'FIN2R_N'

end

object qPart1_TimeFIN2R_TAU: TIntegerField

FieldName = 'FIN2R_TAU'

end

object qPart1_TimePSI_RAV: TIntegerField

FieldName = 'PSI_RAV'

end

end

object RvDsPart1: TRvDataSetConnection

RuntimeVisibility = rtDeveloper

DataSet = qPart1

Left = 144

Top = 232

end

object RvDsPart1_Time: TRvDataSetConnection

RuntimeVisibility = rtDeveloper

DataSet = qPart1_Time

Left = 64

Top = 488

end

object RvDsTitle: TRvDataSetConnection

RuntimeVisibility = rtDeveloper

DataSet = qTitle

Left = 144

Top = 168

end

object RvDsZadanie: TRvDataSetConnection

RuntimeVisibility = rtDeveloper

DataSet = qZadanie

Left = 144

Top = 200

end

object RvDsPart2: TRvDataSetConnection

RuntimeVisibility = rtDeveloper

DataSet = qPart2

Left = 144

Top = 360

end

object RvDsPart3: TRvDataSetConnection

RuntimeVisibility = rtDeveloper

DataSet = qPart3

Left = 144

Top = 392

end

end

80