You've already forked lazarus-ccr
RxFPC: work on RxDBVerticalGrid
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6007 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
@ -3,7 +3,7 @@
|
||||
<ProjectSession>
|
||||
<Version Value="10"/>
|
||||
<BuildModes Active="Default"/>
|
||||
<Units Count="54">
|
||||
<Units Count="59">
|
||||
<Unit0>
|
||||
<Filename Value="project1.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
@ -11,7 +11,7 @@
|
||||
<WindowIndex Value="-1"/>
|
||||
<TopLine Value="-1"/>
|
||||
<CursorPos X="-1" Y="-1"/>
|
||||
<UsageCount Value="26"/>
|
||||
<UsageCount Value="31"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="unit1.pas"/>
|
||||
@ -21,9 +21,9 @@
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit1"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<TopLine Value="49"/>
|
||||
<CursorPos X="12" Y="70"/>
|
||||
<UsageCount Value="26"/>
|
||||
<TopLine Value="61"/>
|
||||
<CursorPos X="20" Y="79"/>
|
||||
<UsageCount Value="31"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit1>
|
||||
@ -36,38 +36,34 @@
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="../../rxdb/rxdbgrid.pas"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<TopLine Value="6568"/>
|
||||
<CursorPos Y="6593"/>
|
||||
<UsageCount Value="13"/>
|
||||
<Loaded Value="True"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="948"/>
|
||||
<CursorPos Y="979"/>
|
||||
<UsageCount Value="15"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="../../../../lcl/grids.pas"/>
|
||||
<UnitName Value="Grids"/>
|
||||
<EditorIndex Value="6"/>
|
||||
<TopLine Value="3746"/>
|
||||
<CursorPos X="12" Y="3762"/>
|
||||
<UsageCount Value="12"/>
|
||||
<Loaded Value="True"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="4489"/>
|
||||
<CursorPos Y="4493"/>
|
||||
<UsageCount Value="14"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="../../../../lcl/dbgrids.pas"/>
|
||||
<UnitName Value="DBGrids"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<TopLine Value="3867"/>
|
||||
<CursorPos Y="3886"/>
|
||||
<UsageCount Value="13"/>
|
||||
<Loaded Value="True"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="3172"/>
|
||||
<CursorPos X="3" Y="3172"/>
|
||||
<UsageCount Value="15"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="../../../../lcl/controls.pp"/>
|
||||
<UnitName Value="Controls"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="1668"/>
|
||||
<CursorPos X="14" Y="1686"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
<UsageCount Value="12"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="../../../../lcl/graphics.pp"/>
|
||||
@ -178,14 +174,13 @@
|
||||
</Unit21>
|
||||
<Unit22>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<TopLine Value="1065"/>
|
||||
<CursorPos X="3" Y="1088"/>
|
||||
<UsageCount Value="13"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="1180"/>
|
||||
<CursorPos X="39" Y="1213"/>
|
||||
<UsageCount Value="15"/>
|
||||
<Bookmarks Count="1">
|
||||
<Item0 X="38" Y="810" ID="1"/>
|
||||
<Item0 X="38" Y="894" ID="1"/>
|
||||
</Bookmarks>
|
||||
<Loaded Value="True"/>
|
||||
</Unit22>
|
||||
<Unit23>
|
||||
<Filename Value="../../rx.inc"/>
|
||||
@ -287,9 +282,9 @@
|
||||
<Unit37>
|
||||
<Filename Value="../../rxdb/rxdbutils.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="147"/>
|
||||
<CursorPos X="45" Y="166"/>
|
||||
<UsageCount Value="10"/>
|
||||
<TopLine Value="27"/>
|
||||
<CursorPos X="50" Y="39"/>
|
||||
<UsageCount Value="12"/>
|
||||
</Unit37>
|
||||
<Unit38>
|
||||
<Filename Value="../../rxdb/rxpopupunit.pas"/>
|
||||
@ -380,9 +375,9 @@
|
||||
<Unit50>
|
||||
<Filename Value="/home/install/source/fpcsrc/packages/fcl-db/src/base/db.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="1774"/>
|
||||
<CursorPos X="15" Y="1794"/>
|
||||
<UsageCount Value="11"/>
|
||||
<TopLine Value="76"/>
|
||||
<CursorPos X="5" Y="107"/>
|
||||
<UsageCount Value="13"/>
|
||||
</Unit50>
|
||||
<Unit51>
|
||||
<Filename Value="/home/install/source/fpcsrc/packages/fcl-db/src/base/datasource.inc"/>
|
||||
@ -400,134 +395,53 @@
|
||||
</Unit52>
|
||||
<Unit53>
|
||||
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/sysutils/dati.inc"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="504"/>
|
||||
<CursorPos X="18" Y="516"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit53>
|
||||
<Unit54>
|
||||
<Filename Value="../../../../lcl/stdctrls.pp"/>
|
||||
<UnitName Value="StdCtrls"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<CursorPos X="14" Y="18"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit54>
|
||||
<Unit55>
|
||||
<Filename Value="../../../../lcl/themes.pas"/>
|
||||
<UnitName Value="Themes"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="16"/>
|
||||
<CursorPos X="12" Y="42"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit55>
|
||||
<Unit56>
|
||||
<Filename Value="../../../../lcl/lcltype.pp"/>
|
||||
<UnitName Value="LCLType"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<CursorPos X="13" Y="31"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit56>
|
||||
<Unit57>
|
||||
<Filename Value="../../../../lcl/forms.pp"/>
|
||||
<UnitName Value="Forms"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="1801"/>
|
||||
<CursorPos X="3" Y="1820"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit57>
|
||||
<Unit58>
|
||||
<Filename Value="../../rxtools/rxdconst.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<CursorPos X="14" Y="32"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit58>
|
||||
</Units>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<JumpHistory Count="1">
|
||||
<Position1>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="355" TopLine="333"/>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="79" Column="4" TopLine="60"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="333" TopLine="314"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="334" TopLine="314"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="825" TopLine="806"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="826" TopLine="806"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="832" TopLine="806"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="221" Column="15" TopLine="202"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="60" Column="28" TopLine="39"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="380" Column="3" TopLine="378"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="264" Column="15" TopLine="246"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="1141" Column="14" TopLine="1135"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="387" TopLine="368"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="384" Column="20" TopLine="368"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="260" Column="15" TopLine="245"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="1054" Column="3" TopLine="1050"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="259" Column="15" TopLine="241"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="1042" Column="18" TopLine="1018"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="261" Column="15" TopLine="240"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="1070" Column="3" TopLine="1065"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="../../../../lcl/grids.pas"/>
|
||||
<Caret Line="1098" Column="15" TopLine="1079"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="../../../../lcl/grids.pas"/>
|
||||
<Caret Line="3809" TopLine="3784"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="../../../../lcl/grids.pas"/>
|
||||
<Caret Line="3782" Column="19" TopLine="3764"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="../../../../lcl/grids.pas"/>
|
||||
<Caret Line="3810" Column="21" TopLine="3777"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="../../../../lcl/grids.pas"/>
|
||||
<Caret Line="3816" Column="21" TopLine="3781"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="1078" Column="7" TopLine="1065"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
|
||||
<Caret Line="1081" Column="80" TopLine="1065"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="../../../../lcl/grids.pas"/>
|
||||
<Caret Line="3821" TopLine="3781"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="70" Column="12" TopLine="49"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="69" Column="12" TopLine="48"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="70" Column="12" TopLine="49"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
</ProjectSession>
|
||||
<Debugging>
|
||||
|
||||
@ -10,8 +10,8 @@ object Form1: TForm1
|
||||
LCLVersion = '1.9.0.0'
|
||||
object RxDBVerticalGrid1: TRxDBVerticalGrid
|
||||
Left = 440
|
||||
Height = 304
|
||||
Top = 360
|
||||
Height = 336
|
||||
Top = 328
|
||||
Width = 728
|
||||
Color = clWindow
|
||||
DataCoumn.Title.Alignment = taCenter
|
||||
@ -26,6 +26,14 @@ object Form1: TForm1
|
||||
LabelCoumn.Width = 120
|
||||
Options = [rxvgColumnTitle]
|
||||
Rows = <
|
||||
item
|
||||
Alignment = taCenter
|
||||
FieldName = 'VIP'
|
||||
RowTitle.Caption = 'VIP-клиент'
|
||||
WordWrap = False
|
||||
RowHeight = 27
|
||||
ReadOnly = False
|
||||
end
|
||||
item
|
||||
FieldName = 'tb_client_inn'
|
||||
RowTitle.Caption = 'ИНН'
|
||||
@ -50,17 +58,9 @@ object Form1: TForm1
|
||||
ReadOnly = False
|
||||
PopupMenu = PopupMenu2
|
||||
end
|
||||
item
|
||||
FieldName = 'create_user_date'
|
||||
RowTitle.Caption = 'Дата создания'
|
||||
Color = clWhite
|
||||
WordWrap = False
|
||||
RowHeight = 27
|
||||
ReadOnly = False
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
FieldName = 'tb_client_ogrn'
|
||||
FieldName = 'TB_CLIENT_EMAIL'
|
||||
RowTitle.Caption = 'ОГРН'
|
||||
WordWrap = False
|
||||
RowHeight = 27
|
||||
@ -68,10 +68,10 @@ object Form1: TForm1
|
||||
PopupMenu = PopupMenu3
|
||||
end
|
||||
item
|
||||
FieldName = 'create_user_name'
|
||||
RowTitle.Caption = 'Описание'
|
||||
FieldName = 'TB_CLIENT_EMAIL'
|
||||
RowTitle.Caption = 'E-Mail'
|
||||
WordWrap = False
|
||||
RowHeight = 50
|
||||
RowHeight = 27
|
||||
ReadOnly = False
|
||||
end
|
||||
item
|
||||
@ -81,22 +81,48 @@ object Form1: TForm1
|
||||
WordWrap = False
|
||||
RowHeight = 27
|
||||
ReadOnly = False
|
||||
end
|
||||
item
|
||||
FieldName = 'CREATE_USER_NAME'
|
||||
RowTitle.Caption = 'Автор'
|
||||
WordWrap = False
|
||||
RowHeight = 27
|
||||
ReadOnly = False
|
||||
end
|
||||
item
|
||||
FieldName = 'create_user_date'
|
||||
RowTitle.Caption = 'Дата создания'
|
||||
Color = clWhite
|
||||
WordWrap = False
|
||||
RowHeight = 27
|
||||
ReadOnly = False
|
||||
end
|
||||
item
|
||||
FieldName = 'TB_CLEINT_TYPE'
|
||||
RowTitle.Caption = 'Тип клиента'
|
||||
KeyList.Strings = (
|
||||
'1'
|
||||
'2'
|
||||
'3'
|
||||
'4'
|
||||
'5'
|
||||
)
|
||||
PickList.Strings = (
|
||||
'Группа "А"'
|
||||
'Группа "Б"'
|
||||
'Группа "В"'
|
||||
'Группа "Г"'
|
||||
)
|
||||
WordWrap = False
|
||||
RowHeight = 27
|
||||
ReadOnly = False
|
||||
end>
|
||||
RowHeights = (
|
||||
27
|
||||
27
|
||||
27
|
||||
27
|
||||
27
|
||||
27
|
||||
50
|
||||
27
|
||||
)
|
||||
TitleStyle = tsNative
|
||||
end
|
||||
object RxDBGrid1: TRxDBGrid
|
||||
Left = 40
|
||||
Height = 222
|
||||
Top = 72
|
||||
Height = 312
|
||||
Top = 8
|
||||
Width = 1080
|
||||
ColumnDefValues.BlobText = '(данные)'
|
||||
TitleButtons = False
|
||||
@ -128,6 +154,19 @@ object Form1: TForm1
|
||||
Filter.ItemIndex = -1
|
||||
Footers = <>
|
||||
end
|
||||
item
|
||||
Title.Alignment = taCenter
|
||||
Title.Orientation = toHorizontal
|
||||
Title.Caption = 'VIP'
|
||||
FieldName = 'VIP'
|
||||
EditButtons = <>
|
||||
Filter.DropDownRows = 0
|
||||
Filter.EmptyValue = '(Пусто)'
|
||||
Filter.AllValue = '(Все значения)'
|
||||
Filter.EmptyFont.Style = [fsItalic]
|
||||
Filter.ItemIndex = -1
|
||||
Footers = <>
|
||||
end
|
||||
item
|
||||
Title.Alignment = taCenter
|
||||
Title.Orientation = toHorizontal
|
||||
@ -383,6 +422,10 @@ object Form1: TForm1
|
||||
Precision = -1
|
||||
Size = 50
|
||||
end
|
||||
item
|
||||
Name = 'VIP'
|
||||
DataType = ftBoolean
|
||||
end
|
||||
item
|
||||
Name = 'CREATE_USER_NAME'
|
||||
DataType = ftString
|
||||
@ -393,6 +436,10 @@ object Form1: TForm1
|
||||
Name = 'CREATE_USER_DATE'
|
||||
DataType = ftDateTime
|
||||
Precision = -1
|
||||
end
|
||||
item
|
||||
Name = 'TB_CLEINT_TYPE'
|
||||
DataType = ftInteger
|
||||
end>
|
||||
PacketRecords = 0
|
||||
Left = 176
|
||||
@ -454,10 +501,20 @@ object Form1: TForm1
|
||||
Required = False
|
||||
Size = 50
|
||||
end
|
||||
object rxDataVIP: TBooleanField
|
||||
FieldKind = fkData
|
||||
FieldName = 'VIP'
|
||||
Index = 6
|
||||
LookupCache = False
|
||||
ProviderFlags = [pfInUpdate, pfInWhere]
|
||||
ReadOnly = False
|
||||
Required = False
|
||||
DisplayValues = 'True;False'
|
||||
end
|
||||
object rxDataCREATE_USER_NAME: TStringField
|
||||
FieldKind = fkData
|
||||
FieldName = 'CREATE_USER_NAME'
|
||||
Index = 6
|
||||
Index = 7
|
||||
LookupCache = False
|
||||
ProviderFlags = [pfInUpdate, pfInWhere]
|
||||
ReadOnly = False
|
||||
@ -467,7 +524,16 @@ object Form1: TForm1
|
||||
object rxDataCREATE_USER_DATE: TDateTimeField
|
||||
FieldKind = fkData
|
||||
FieldName = 'CREATE_USER_DATE'
|
||||
Index = 7
|
||||
Index = 8
|
||||
LookupCache = False
|
||||
ProviderFlags = [pfInUpdate, pfInWhere]
|
||||
ReadOnly = False
|
||||
Required = False
|
||||
end
|
||||
object rxDataTB_CLEINT_TYPE: TLongintField
|
||||
FieldKind = fkData
|
||||
FieldName = 'TB_CLEINT_TYPE'
|
||||
Index = 9
|
||||
LookupCache = False
|
||||
ProviderFlags = [pfInUpdate, pfInWhere]
|
||||
ReadOnly = False
|
||||
|
||||
@ -35,11 +35,13 @@ type
|
||||
rxDataCREATE_USER_DATE: TDateTimeField;
|
||||
rxDataCREATE_USER_NAME: TStringField;
|
||||
rxDataTB_CLEINT_CODE: TLongintField;
|
||||
rxDataTB_CLEINT_TYPE: TLongintField;
|
||||
rxDataTB_CLIENT_EMAIL: TStringField;
|
||||
rxDataTB_CLIENT_ID: TLongintField;
|
||||
rxDataTB_CLIENT_INN: TStringField;
|
||||
rxDataTB_CLIENT_NAME: TStringField;
|
||||
rxDataTB_CLIENT_PHONE: TStringField;
|
||||
rxDataVIP: TBooleanField;
|
||||
RxDBGrid1: TRxDBGrid;
|
||||
RxDBVerticalGrid1: TRxDBVerticalGrid;
|
||||
rxData: TRxMemoryData;
|
||||
@ -81,16 +83,17 @@ end;
|
||||
procedure TForm1.FillDataBase;
|
||||
begin
|
||||
rxData.Open;
|
||||
rxData.AppendRecord([1, 1, '01000100101', 'JSC "BOOT"', 'test@email.com', '5(555)-557-88-77', 'alexs', now]);
|
||||
rxData.AppendRecord([2, 2, '02000100101', 'Wikimedia Foundation, Inc.', 'test@email.com', '5(555)-557-88-77', '1', now]);
|
||||
rxData.AppendRecord([3, 3, '03000100101', 'LLC Pilot ', 'test@email.com', '5(555)-557-88-77', '2', now]);
|
||||
rxData.AppendRecord([4, 4, '04000100101', 'Pilot, OOO', 'test@email.com', '5(555)-557-88-77', '3', now]);
|
||||
rxData.AppendRecord([5, 5, '05000100101', 'JSC "MS"', 'test@email.com', '5(555)-557-88-77', '4', now]);
|
||||
rxData.AppendRecord([6, 11, '06000100101', 'JSC "AA"', 'test@email.com', '5(555)-557-88-77', '5', now]);
|
||||
rxData.AppendRecord([7, 12, '07000100101', 'JSC "BBBB"', 'test@email.com', '5(555)-557-88-77', '6', now]);
|
||||
rxData.AppendRecord([8, 13, '08000100101', 'JSC "CCCC"', 'test@email.com', '5(555)-557-88-77', '7', now]);
|
||||
rxData.AppendRecord([9, 14, '09000100101', 'JSC "DDD"', 'test@email.com', '5(555)-557-88-77', '8', now]);
|
||||
rxData.AppendRecord([10, 15, '101000200101', 'JSC "EEEE"', 'test@email.com', '5(555)-557-88-77', '9', now]);
|
||||
rxData.AppendRecord([1, 1, '01000100101', 'JSC "BOOT"', 'test1@email.com', '5(555)-557-88-77', true, 'alexs', now, 1]);
|
||||
rxData.AppendRecord([2, 2, '02000100101', 'Wikimedia Foundation, Inc.', 'test2@email.com', '5(555)-557-88-77', false, 'boss', now, 2]);
|
||||
rxData.AppendRecord([3, 3, '03000100101', 'LLC Pilot ', 'test3@email.com', '5(555)-557-88-77', true, 'master', now, 3]);
|
||||
rxData.AppendRecord([4, 4, '04000100101', 'Pilot, OOO', 'test4@email.com', '5(555)-557-88-77', true, 'onegin', now, 1]);
|
||||
rxData.AppendRecord([5, 5, '05000100101', 'JSC "MS"', 'test5@email.com', '5(555)-557-88-77', true, 'alfred', now, 1]);
|
||||
rxData.AppendRecord([6, 11, '06000100101', 'JSC "AA"', 'test6@email.com', '5(555)-557-88-77', true, 'anna', now, 1]);
|
||||
rxData.AppendRecord([7, 12, '07000100101', 'JSC "BBBB"', 'test7@email.com', '5(555)-557-88-77', true, 'tux', now, 1]);
|
||||
rxData.AppendRecord([8, 13, '08000100101', 'JSC "CCCC"', 'test8@email.com', '5(555)-557-88-77', true, 'x-man', now, 4]);
|
||||
rxData.AppendRecord([9, 14, '09000100101', 'JSC "DDD"', 'test9@email.com', '5(555)-557-88-77', true, 'arny', now, 1]);
|
||||
rxData.AppendRecord([10, 15, '101000200101', 'JSC "EEEE"', 'test10@email.com', '5(555)-557-88-77', true, 'andy', now, 1]);
|
||||
rxData.First;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user