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

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

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