babaev-an/lasarus_compotents
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Стартовый пул

Browse Source
This commit is contained in:
Александр Бабаев
2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

287
RXLib/.svn/pristine/cd/cd55655ac3e495b606b2a9362a2ff1927ab04edc.svn-base Normal file
View File

@@ -0,0 +1,287 @@
object Form1: TForm1
Left = 552
Height = 475
Top = 244
Width = 695
Caption = 'Form1'
ClientHeight = 475
ClientWidth = 695
OnCreate = FormCreate
LCLVersion = '1.9.0.0'
object Button1: TButton
Left = 337
Height = 25
Top = 63
Width = 75
Caption = 'Button1'
TabOrder = 0
end
object PageControl1: TPageControl
Left = 0
Height = 475
Top = 0
Width = 695
ActivePage = TabSheet2
Align = alClient
TabIndex = 1
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'TIBQuery'
ClientHeight = 441
ClientWidth = 685
object RxDBGrid1: TRxDBGrid
Left = 0
Height = 441
Top = 0
Width = 685
ColumnDefValues.BlobText = '(данные)'
TitleButtons = True
AutoSort = True
KeyStrokes = <
item
Command = rxgcShowFindDlg
ShortCut = 16454
Enabled = True
end
item
Command = rxgcShowColumnsDlg
ShortCut = 16471
Enabled = True
end
item
Command = rxgcShowFilterDlg
ShortCut = 16468
Enabled = True
end
item
Command = rxgcShowSortDlg
ShortCut = 16467
Enabled = True
end
item
Command = rxgcShowQuickFilter
ShortCut = 16465
Enabled = True
end
item
Command = rxgcHideQuickFilter
ShortCut = 16456
Enabled = True
end
item
Command = rxgcSelectAll
ShortCut = 16449
Enabled = True
end
item
Command = rxgcDeSelectAll
ShortCut = 16429
Enabled = True
end
item
Command = rxgcInvertSelection
ShortCut = 16426
Enabled = True
end
item
Command = rxgcOptimizeColumnsWidth
ShortCut = 16427
Enabled = True
end
item
Command = rxgcCopyCellValue
ShortCut = 16451
Enabled = True
end>
FooterOptions.DrawFullLine = False
SearchOptions.QuickSearchOptions = [loCaseInsensitive, loPartialKey]
SearchOptions.FromStart = False
OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgAllowQuickFilter]
Align = alClient
Color = clWindow
DrawFullLine = False
FocusColor = clRed
SelectedColor = clHighlight
GridLineStyle = psSolid
DataSource = DataSource1
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgHeaderPushedLook]
TabOrder = 0
end
end
object TabSheet2: TTabSheet
Caption = 'TIBDataSet'
ClientHeight = 441
ClientWidth = 685
object RxDBGrid2: TRxDBGrid
Left = 0
Height = 441
Top = 0
Width = 685
ColumnDefValues.BlobText = '(данные)'
TitleButtons = True
AutoSort = True
KeyStrokes = <
item
Command = rxgcShowFindDlg
ShortCut = 16454
Enabled = True
end
item
Command = rxgcShowColumnsDlg
ShortCut = 16471
Enabled = True
end
item
Command = rxgcShowFilterDlg
ShortCut = 16468
Enabled = True
end
item
Command = rxgcShowSortDlg
ShortCut = 16467
Enabled = True
end
item
Command = rxgcShowQuickFilter
ShortCut = 16465
Enabled = True
end
item
Command = rxgcHideQuickFilter
ShortCut = 16456
Enabled = True
end
item
Command = rxgcSelectAll
ShortCut = 16449
Enabled = True
end
item
Command = rxgcDeSelectAll
ShortCut = 16429
Enabled = True
end
item
Command = rxgcInvertSelection
ShortCut = 16426
Enabled = True
end
item
Command = rxgcOptimizeColumnsWidth
ShortCut = 16427
Enabled = True
end
item
Command = rxgcCopyCellValue
ShortCut = 16451
Enabled = True
end>
FooterOptions.DrawFullLine = False
SearchOptions.QuickSearchOptions = [loCaseInsensitive, loPartialKey]
SearchOptions.FromStart = False
OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgAllowQuickFilter]
Align = alClient
Color = clWindow
DrawFullLine = False
FocusColor = clRed
SelectedColor = clHighlight
GridLineStyle = psSolid
DataSource = DataSource2
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgHeaderPushedLook]
TabOrder = 0
end
end
end
object IBQuery1: TIBQuery
Database = IBDatabase1
Transaction = IBTransaction1
AutoStartTransaction = True
AutoCommit = True
AutoTrim = True
BufferChunks = 1000
CachedUpdates = False
GeneratorField.ApplyOnEvent = gaeOnNewRecord
SQL.Strings = (
'select'
' *'
'from'
' employee'
)
Params = <>
Left = 80
Top = 88
end
object IBDatabase1: TIBDatabase
Connected = True
LoginPrompt = False
AllowStreamedConnected = False
DatabaseName = '127.0.0.1:employee'
Params.Strings = (
'lc_ctype=UTF8'
'user_name=sysdba'
'password=masterkey'
)
LibraryName = '/usr/lib64/libfbclient.so.3.0.2'
DefaultTransaction = IBTransaction1
IdleTimer = 0
TraceFlags = []
Left = 32
Top = 20
end
object IBTransaction1: TIBTransaction
Active = False
DefaultDatabase = IBDatabase1
Left = 80
Top = 20
end
object DataSource1: TDataSource
DataSet = IBQuery1
Left = 120
Top = 88
end
object IBDataSet1: TIBDataSet
Database = IBDatabase1
Transaction = IBTransaction1
AutoStartTransaction = True
AutoCommit = True
AutoTrim = True
AutoParamToField = True
UpdateTransaction = IBTransaction1
RetFields = True
BufferChunks = 1000
CachedUpdates = False
DeleteSQL.Strings = (
'Delete From COUNTRY A'
'Where A.COUNTRY = :COUNTRY'
)
InsertSQL.Strings = (
'Insert Into COUNTRY(CURRENCY)'
'Values(:CURRENCY) Returning COUNTRY'
)
RefreshSQL.Strings = (
'Select A.COUNTRY, A.CURRENCY From COUNTRY A'
'Where A.COUNTRY = :COUNTRY'
)
SelectSQL.Strings = (
'Select A.COUNTRY, A.CURRENCY From COUNTRY A'
)
ModifySQL.Strings = (
'Update COUNTRY A Set '#13#10' A.COUNTRY = :COUNTRY,'#13#10' A.CURRENCY = :CURRENCY'
'Where A.COUNTRY = :OLD_COUNTRY'
)
GeneratorField.ApplyOnEvent = gaeOnNewRecord
DefValueFromServer = False
DetailConditoins = []
Left = 80
Top = 216
end
object RxSortIBX1: TRxSortIBX
Left = 424
Top = 48
end
object DataSource2: TDataSource
DataSet = IBDataSet1
Left = 120
Top = 216
end
end

79
RXLib/.svn/pristine/cd/cdaaf29abb0190c04fd2b88e86c550e4258eda28.svn-base Normal file
View File

@@ -0,0 +1,79 @@
<?xml version="1.0" encoding="UTF-8"?>
<fpdoc-descriptions>
<package name="rxnew">
<module name="rxmemds">
<element name="TRxMemoryData"><short>TRxMemoryData - таблица в памяти. Является наследником от TDataSet</short><descr>TRxMemoryData - таблица в памяти. Является наследником от TDataSet</descr>
</element>
<element name="TRxMemoryData.Create"/>
<element name="TRxMemoryData.Destroy"/>
<element name="TRxMemoryData.BookmarkValid"/>
<element name="TRxMemoryData.CompareBookmarks"/>
<element name="TRxMemoryData.CreateBlobStream"/>
<element name="TRxMemoryData.GetFieldData"/>
<element name="TRxMemoryData.GetCurrentRecord"/>
<element name="TRxMemoryData.IsSequenced"/>
<element name="TRxMemoryData.Locate"/>
<element name="TRxMemoryData.SortOnFields"><short>Производит сортировку данных в таблице по полю</short>
</element>
<element name="TRxMemoryData.EmptyTable"><short>Очищает содержимое набора данных</short>
</element>
<element name="TRxMemoryData.CloseOpen"><short>Закрывает и открывает набор данных</short>
</element>
<element name="TRxMemoryData.CopyStructure"><short>Копирует структуру таблицы из другого источника данных</short><descr>Копирует структуру таблицы из другого источника данных</descr>
</element>
<element name="TRxMemoryData.LoadFromDataSet"><short>Копирует содержимое таблицы из другого источника данных</short><descr>Копирует содержимое таблицы из другого источника данных</descr>
</element>
<element name="TRxMemoryData.SaveToDataSet"><short>Копирует содержимое таблицы в другой источник данных</short>
</element>
<element name="TRxMemoryData.AppendRecord"><short>AppendRecord добавляет запись в таблицу и заполняет значения полей из массива Values</short>
</element>
<element name="TRxMemoryData.Capacity"/>
<element name="TRxMemoryData.Active"/>
<element name="TRxMemoryData.AutoCalcFields"/>
<element name="TRxMemoryData.Filtered"/>
<element name="TRxMemoryData.FieldDefs"/>
<element name="TRxMemoryData.BeforeOpen"/>
<element name="TRxMemoryData.AfterOpen"/>
<element name="TRxMemoryData.BeforeClose"/>
<element name="TRxMemoryData.AfterClose"/>
<element name="TRxMemoryData.BeforeInsert"/>
<element name="TRxMemoryData.AfterInsert"/>
<element name="TRxMemoryData.BeforeEdit"/>
<element name="TRxMemoryData.AfterEdit"/>
<element name="TRxMemoryData.BeforePost"/>
<element name="TRxMemoryData.AfterPost"/>
<element name="TRxMemoryData.BeforeCancel"/>
<element name="TRxMemoryData.AfterCancel"/>
<element name="TRxMemoryData.BeforeDelete"/>
<element name="TRxMemoryData.AfterDelete"/>
<element name="TRxMemoryData.BeforeScroll"/>
<element name="TRxMemoryData.AfterScroll"/>
<element name="TRxMemoryData.OnCalcFields"/>
<element name="TRxMemoryData.OnDeleteError"/>
<element name="TRxMemoryData.OnEditError"/>
<element name="TRxMemoryData.OnFilterRecord"/>
<element name="TRxMemoryData.OnFilterRecordEx"/>
<element name="TRxMemoryData.OnNewRecord"/>
<element name="TRxMemoryData.OnPostError"/>
<element name="TMemBlobStream"/>
<element name="TMemBlobStream.Create"/>
<element name="TMemBlobStream.Destroy"/>
<element name="TMemBlobStream.Read"/>
<element name="TMemBlobStream.Write"/>
<element name="TMemBlobStream.Seek"/>
<element name="TMemBlobStream.Truncate"/>
<element name="TMemoryRecord"/>
<element name="TMemoryRecord.Create"/>
<element name="TMemoryRecord.CreateEx"/>
<element name="TMemoryRecord.Destroy"/>
<element name="TMemoryRecord.MemoryData"/>
<element name="TMemoryRecord.ID"/>
<element name="TMemoryRecord.Index"/>
<element name="TMemoryRecord.Data"/>
<short>Модуль rxmemds содержит компонент TRxMemoryData</short><descr>Модуль rxmemds содержит компонент TRxMemoryData и вспомогательные методы для работы с данным компонентом</descr><element name="TRxMemoryData.SortOnFieldsEx"><short>Производит сортировку данных в таблице по нескольким полям</short>
</element>
</module>
</package>
</fpdoc-descriptions>