Программа управления базой данных курсовых работ по теоретической механике
Разработка программы, выполняющей управление базой данных. Реализация механизма sql запросов. Характеристика методов работы с БД в среде Делфи 7 и отображения данных на форме. Анализ работы с компонентами Delphi, генерирующими sql запросы автоматически.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 17.11.2017 |
| Размер файла | 1,0 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
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
...
Подобные документы
СУБД - многопользовательские системы управления базой данных, специализирующиеся на управлении массивом информации. Запросы на выборку и изменение данных, формирование отчетов по запросам выборки. Схема базы данных. Программа по управлению базой данных.
реферат [1,9 M], добавлен 27.12.2013Программа для работы с однотабличной ненормализованной базой данных. Цель программы: обеспечение инструментарием для работы с базой данных различных школьных соревнований. Работа с базой данных на физическом и логическом уровнях. Элементы языка.
курсовая работа [114,3 K], добавлен 02.03.2009Разработка информационной системы административного управления. Выбор языка и среды программирования. Структура взаимодействия информации. Требования к программно-аппаратному окружению. Создание программы в Delphi и связывание ее с базой данных.
курсовая работа [1010,9 K], добавлен 08.10.2015Классификация баз данных. Выбор системы управления базами данных для создания базы данных в сети. Быстрый доступ и получение конкретной информации по функциям. Распределение функций при работе с базой данных. Основные особенности иерархической модели.
отчет по практике [1,2 M], добавлен 08.10.2014Разработка программных продуктов на языке программирования Borland Delphi. Применяемые таблицы и связи между ними. Пользовательский интерфейс работы с базой данных. Алгоритм работы программы "Футбольные команды и игроки". Защита от ввода неверных данных.
курсовая работа [788,1 K], добавлен 22.06.2011Появление системы управления базами данных. Этапы проектирования базы данных "Строительная фирма". Инфологическая и даталогическая модель данных. Требования к информационной и программной совместимости для работы с базой данных "Строительная фирма".
курсовая работа [93,0 K], добавлен 31.03.2010Обоснование необходимости систем управления базами данных на предприятиях. Особенности разработки программного обеспечения по управлению базой данных, обеспечивающего просмотр, редактирование, вставку записей базы данных, формирование запросов и отчетов.
курсовая работа [1,5 M], добавлен 23.01.2010Даталогическая и инфологическая модели системы управления базой данных футбольного клуба. Обоснование выбора даталогической модели данных. Разработка структуры и системы управления базой данных. Выбор системы программирования, создание форм ввода.
курсовая работа [406,0 K], добавлен 24.12.2014Функциональные зависимости и нормализация отношений. Ограничения целостности данных. Описание таблиц на языке SQL. Интерфейс пользователя и надёжность программ обработки данных. Обработка данных с помощью запросов. Работа с данными из внешних источников.
дипломная работа [1,6 M], добавлен 25.04.2015Определение (задание структуры) данных. Обработка данных. Управление данными. Microsoft Access - нечто большее, чем СУБД. Проектирование, создание и управление базой данных на примере переплетной мастерской в пакете MS Access.
курсовая работа [470,8 K], добавлен 30.10.2002Создание и использование динамически загружаемых библиотек в Delphi. Преимущества использования, создание простейшей DLL. Статическая и динамическая загрузка DLL, обмен данными с ней. Создание программы, работающей с базой данных клиентов кардиоцентра.
курсовая работа [425,2 K], добавлен 07.07.2012Реализация программы, разработанной в среде Turbo C++. Обработка динамической структуры данных, содержащей сведения об авторах книг. Моделирование работы со структурой как с базой данных. Метод сортировки и описание работы пользовательских подпрограмм.
курсовая работа [124,3 K], добавлен 23.12.2010Разработка базы данных для учета размещения и услуг гостиницы-отеля "Баташев". Анализ предметной области, проектирование базы данных. Реализация SQL-запросов для создания объектов и получения отчетов. Реализация приложения для работы с базой данных.
курсовая работа [336,0 K], добавлен 05.01.2014Анализ предметной области. Предположительный набор необходимых функций. Даталогическое и инфологическое проектирование. Реляционная модель данных. Создание запросов и атрибутов. Физическая модель данных. Разработка приложения для работы с базой данных.
курсовая работа [720,8 K], добавлен 26.04.2015Особенности кадрового дела. Разработка схемы базы данных для отдела кадров. Реализация разработанной схемы в конкретной СУБД (MS Access). Создание экранных форм для ввода данных, отчетов, запросов. Автоматизация работы с созданной базой данных.
курсовая работа [2,8 M], добавлен 10.05.2011Разработка программы "Игроки КХЛ 2012-2013" на языке С++ с использованием классов списков структур для обработки данных. Описание глобальных переменных, разработанных функций. Главное меню программы. Чтение данных из файла, их просмотр и сохранение.
курсовая работа [2,2 M], добавлен 17.03.2016Управление базами данных. Система управления базой данных MS Access. Виды логической связи. Макросы и модули. Обеспечение целостности данных. Создание запросов и форм. Свойства полей базы данных Access. Взаимосвязь между сущностями в предметной области.
курсовая работа [943,4 K], добавлен 13.03.2014Разработка системы управления базой данных "Структура ВУЗа". Требования к программе: функциональным характеристикам, надежности, эксплуатации, составу и параметрам технических средств. Требования к программной документации. Порядок контроля и приемки.
курсовая работа [982,7 K], добавлен 08.06.2015Программа перенесения данных из таблицы Word в таблицу базы данных. Алгоритм решения задачи в виде текстового описания. Описание базы данных (структура таблиц, схема). Копии с экрана форм для работы с базой данных при разработке их в конструкторе.
контрольная работа [914,3 K], добавлен 26.03.2011Понятие баз данных и принципы проектирования информационных систем. Разработка программы для отслеживания финансовой стороны работы компании в среде Delphi 7. Создание таблиц и схемы данных. Разработка клиентского приложения и процедуры добавления данных.
курсовая работа [1,4 M], добавлен 25.04.2012
