UFormBd.dfm 2 страница

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

Дата добавления: 2015-05-09