pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Avoid properties of Laz 1.8 in vpflxdsed1.lfm. Improved layout of FlexDS field mapper.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5874 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-05-19 16:44:40 +00:00
parent 6ceea2b711
commit 89f0aff1e3
3 changed files with 166 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

123
components/tvplanit/examples/datastores/flex/access/unit1.lfm
View File

@@ -8,7 +8,7 @@ object Form1: TForm1
ClientWidth = 980
OnCreate = FormCreate
OnDestroy = FormDestroy
LCLVersion = '1.9.0.0'
LCLVersion = '1.6.4.0'
object Panel1: TPanel
Left = 0
Height = 33
@@ -592,6 +592,7 @@ object Form1: TForm1
end
object QryResources: TSQLQuery
PacketRecords = -1
IndexName = 'DEFAULT_ORDER'
FieldDefs = <
item
Name = 'ResourceID'
@@ -709,6 +710,7 @@ object Form1: TForm1
end
object QryContacts: TSQLQuery
PacketRecords = -1
IndexName = 'DEFAULT_ORDER'
FieldDefs = <
item
Name = 'RecordID'
@@ -755,6 +757,12 @@ object Form1: TForm1
Precision = -1
Size = 50
end
item
Name = 'Department'
DataType = ftString
Precision = -1
Size = 50
end
item
Name = 'Job_Position'
DataType = ftString
@@ -762,31 +770,71 @@ object Form1: TForm1
Size = 30
end
item
Name = 'Address'
Name = 'AddressType1'
DataType = ftInteger
Precision = -1
end
item
Name = 'Address1'
DataType = ftString
Precision = -1
Size = 100
end
item
Name = 'City'
Name = 'City1'
DataType = ftString
Precision = -1
Size = 50
end
item
Name = 'State'
Name = 'State1'
DataType = ftString
Precision = -1
Size = 25
end
item
Name = 'Zip'
Name = 'Zip1'
DataType = ftString
Precision = -1
Size = 10
end
item
Name = 'Country'
Name = 'Country1'
DataType = ftString
Precision = -1
Size = 25
end
item
Name = 'AddressType2'
DataType = ftInteger
Precision = -1
end
item
Name = 'Address2'
DataType = ftString
Precision = -1
Size = 100
end
item
Name = 'City2'
DataType = ftString
Precision = -1
Size = 50
end
item
Name = 'State2'
DataType = ftString
Precision = -1
Size = 25
end
item
Name = 'Zip2'
DataType = ftString
Precision = -1
Size = 10
end
item
Name = 'Country2'
DataType = ftString
Precision = -1
Size = 25
@@ -797,6 +845,39 @@ object Form1: TForm1
Precision = -1
Size = 255
end
item
Name = 'EMail1'
DataType = ftString
Precision = -1
Size = 100
end
item
Name = 'EMail2'
DataType = ftString
Precision = -1
Size = 100
end
item
Name = 'EMail3'
DataType = ftString
Precision = -1
Size = 100
end
item
Name = 'EMailType1'
DataType = ftInteger
Precision = -1
end
item
Name = 'EMailType2'
DataType = ftInteger
Precision = -1
end
item
Name = 'EMailType3'
DataType = ftInteger
Precision = -1
end
item
Name = 'Phone1'
DataType = ftString
@@ -853,15 +934,31 @@ object Form1: TForm1
Precision = -1
end
item
Name = 'Category'
Name = 'Website1'
DataType = ftString
Precision = -1
Size = 100
end
item
Name = 'Website2'
DataType = ftString
Precision = -1
Size = 100
end
item
Name = 'WebsiteType1'
DataType = ftInteger
Precision = -1
end
item
Name = 'EMail'
DataType = ftString
Name = 'WebsiteType2'
DataType = ftInteger
Precision = -1
end
item
Name = 'Category'
DataType = ftInteger
Precision = -1
Size = 100
end
item
Name = 'Custom1'
@@ -957,6 +1054,7 @@ object Form1: TForm1
end
object QryEvents: TSQLQuery
PacketRecords = -1
IndexName = 'DEFAULT_ORDER'
FieldDefs = <
item
Name = 'RecordID'
@@ -1088,6 +1186,7 @@ object Form1: TForm1
end
object QryTasks: TSQLQuery
PacketRecords = -1
IndexName = 'DEFAULT_ORDER'
FieldDefs = <
item
Name = 'RecordID'
@@ -1174,7 +1273,7 @@ object Form1: TForm1
top = 621
end
object ODBCConnection1: TODBCConnection
Connected = False
Connected = True
LoginPrompt = False
KeepConnection = True
Params.Strings = (
@@ -1187,7 +1286,7 @@ object Form1: TForm1
top = 304
end
object SQLTransaction1: TSQLTransaction
Active = False
Active = True
Database = ODBCConnection1
Options = []
left = 136