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

tvplanit: Add new fields to zeos datastore

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5168 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-09-15 21:32:42 +00:00
parent 226fa2e900
commit 378b2802b5
1 changed files with 28 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
components/tvplanit/source/addons/zeos/vpzeosds.pas
View File

@@ -89,20 +89,35 @@ begin
FConnection.ExecuteDirect( FConnection.ExecuteDirect(
'CREATE TABLE Contacts ('+ 'CREATE TABLE Contacts ('+
'RecordID INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, '+ 'RecordID INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, '+
'ResourceID INTEGER,' + 'ResourceID INTEGER, ' +
'FirstName VARCHAR(50) ,'+ 'FirstName VARCHAR(50), '+
'LastName VARCHAR(50) , '+ 'LastName VARCHAR(50), '+
'Title VARCHAR(20) ,'+
'Category INTEGER, '+
'PathToPhoto VARCHAR(255), '+
'Birthdate DATE, '+ 'Birthdate DATE, '+
'Anniversary DATE, '+ 'Anniversary DATE, '+
'Title VARCHAR(50) ,'+
'Company VARCHAR(50) ,'+ 'Company VARCHAR(50) ,'+
'Job_Position VARCHAR(30), '+ 'Job_Position VARCHAR(30), '+
'Address VARCHAR(100), '+ 'AddressType1 INTEGER, '+
'City VARCHAR(50), '+ 'Address1 VARCHAR(100), '+
'State VARCHAR(25), '+ 'City1 VARCHAR(50), '+
'Zip VARCHAR(10), '+ 'State1 VARCHAR(25), '+
'Country VARCHAR(25), '+ 'Zip1 VARCHAR(10), '+
'Country1 VARCHAR(25), '+
'AddressType2 INTEGER, '+
'Address2 VARCHAR(100), '+
'City2 VARCHAR(50), '+
'State2 VARCHAR(25), '+
'Zip2 VARCHAR(10), '+
'Country2 VARCHAR(25), '+
'Notes VARCHAR(1024), '+ 'Notes VARCHAR(1024), '+
'EMail1 VARCHAR(100), '+
'EMail2 VARCHAR(100), '+
'EMail3 VARCHAR(100), '+
'EMailType1 INTEGER, '+
'EMailType2 INTEGER, '+
'EMailType3 INTEGER, '+
'Phone1 VARCHAR(25), '+ 'Phone1 VARCHAR(25), '+
'Phone2 VARCHAR(25), '+ 'Phone2 VARCHAR(25), '+
'Phone3 VARCHAR(25), '+ 'Phone3 VARCHAR(25), '+
@@ -113,8 +128,10 @@ begin
'PhoneType3 INTEGER, '+ 'PhoneType3 INTEGER, '+
'PhoneType4 INTEGER, '+ 'PhoneType4 INTEGER, '+
'PhoneType5 INTEGER, '+ 'PhoneType5 INTEGER, '+
'Category INTEGER, '+ 'Website1 VARCHAR(100), '+
'EMail VARCHAR(100), '+ 'Website2 VARCHAR(100), '+
'WebsiteType1 INTEGER, '+
'WebsiteType2 INTEGER, '+
'Custom1 VARCHAR(100), '+ 'Custom1 VARCHAR(100), '+
'Custom2 VARCHAR(100),'+ 'Custom2 VARCHAR(100),'+
'Custom3 VARCHAR(100), '+ 'Custom3 VARCHAR(100), '+