xpin2013
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 276
ClientWidth = 637
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 48
Top = 48
Width = 529
Height = 120
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ID_VARIABLE'
Visible = True
end
item
Expanded = False
FieldName = 'ID_COMPLECT'
Visible = True
end
item
Expanded = False
FieldName = 'NAME_VARIABLE'
Width = 112
Visible = True
end
item
Expanded = False
FieldName = 'VALUE_VARIABLE'
Width = 232
Visible = True
end>
end
object Button1: TButton
Left = 56
Top = 208
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 1
OnClick = Button1Click
end
object DataSource1: TDataSource
DataSet = FDTable1
Left = 184
Top = 208
end
object FDConnection1: TFDConnection
Params.Strings = (
'Database=E:\Data\db_1.FDB'
'User_Name=SYSDBA'
'Password=masterkey'
'DriverID=FB')
Connected = True
LoginPrompt = False
Transaction = FDTransaction1
UpdateTransaction = FDTransaction1
Left = 504
Top = 208
end
object FDTransaction1: TFDTransaction
Connection = FDConnection1
Left = 432
Top = 208
end
object FDTable1: TFDTable
IndexFieldNames = 'ID_VARIABLE'
Connection = FDConnection1
UpdateOptions.UpdateTableName = 'CALC_VARIABLE'
TableName = 'CALC_VARIABLE'
Left = 360
Top = 208
object FDTable1ID_VARIABLE: TIntegerField
FieldName = 'ID_VARIABLE'
Origin = 'ID_VARIABLE'
ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
Required = True
end
object FDTable1ID_COMPLECT: TIntegerField
FieldName = 'ID_COMPLECT'
Origin = 'ID_COMPLECT'
Required = True
end
object FDTable1NAME_VARIABLE: TStringField
FieldName = 'NAME_VARIABLE'
Origin = 'NAME_VARIABLE'
Required = True
Size = 30
end
object FDTable1VALUE_VARIABLE: TStringField
FieldName = 'VALUE_VARIABLE'
Origin = 'VALUE_VARIABLE'
Required = True
Size = 2000
end
end
object FDGUIxWaitCursor1: TFDGUIxWaitCursor
Provider = 'Forms'
Left = 288
Top = 208
end
end |
|
Всего записей: 291 | Зарегистр. 16-01-2014 | Отправлено: 11:54 11-01-2015 | Исправлено: xpin2013, 13:11 11-01-2015 |
|
