| Subject | RE: [IBO] TIB_LookupCombo - Join Tables - too ambitious?? |
|---|---|
| Author | Dion Oliphant |
| Post date | 2002-09-16T11:41:01Z |
Here we go, Helen
Datasource(CoveredMem):-
------------
object dmFundManager: TdmFundManager
OldCreateOrder = False
OnCreate = DataModuleCreate
OnDestroy = DataModuleDestroy
Left = 8
Top = 29
Height = 729
Width = 1000
object qryPerson: TIB_Query
ColumnAttributes.Strings = (
'STATUSNAME=COMPUTED'
'DOB=NOTIME')
DatabaseName = 'FundManager'
FieldsDisplayLabel.Strings = (
'FIRSTNAME=First Name'
'SURNAME=Surname')
FieldsGridLabel.Strings = (
'SURNAME=Surname'
'FIRSTNAME=First Name')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * '
' FROM PERSON p'
'')
ColorScheme = True
GeneratorLinks.Strings = (
'PERSONID=PERSONID_GEN')
KeyLinks.Strings = (
'PERSON.PERSONID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
OrderingItemNo = 1
OrderingItems.Strings = (
'ID=ID')
OrderingLinks.Strings = (
'ID=1')
RequestLive = True
SearchingLinks.Strings = (
'ID=ID')
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 114
Top = 491
end
object qryTitle: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'TITLE=TRUE'
'TITLEID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM TITLE')
ColorScheme = True
GeneratorLinks.Strings = (
'TITLEID=TITLE_GEN')
KeyLinks.Strings = (
'TITLE.TITLEID=MEMBER.TITLEID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 666
Top = 166
end
object dsPerson: TIB_DataSource
Dataset = qryPerson
Left = 28
Top = 489
end
object dsTitle: TIB_DataSource
Dataset = qryTitle
Left = 562
Top = 166
end
object cnFundMan: TIB_Connection
SQLDialect = 3
FieldsEditMask.Strings = (
'MEMBER.DOB dd/mm/yyyy'
'MEMBERINFUND.DOI dd/mm/yyyy')
DatabaseName = 'FundManager'
Params.Strings = (
'SQL DIALECT=3'
'USER NAME=SYSDBA'
'PATH=d:\softek\delphi 5\fund manager\data\fundmanager.gdb')
BeforeConnect = cnFundManBeforeConnect
AfterConnect = cnFundManAfterConnect
BeforeDisconnect = cnFundManBeforeDisconnect
OnError = cnFundManError
Left = 748
Top = 594
end
object trnFundMan: TIB_Transaction
IB_Connection = cnFundMan
Isolation = tiCommitted
Left = 612
Top = 593
end
object IB_SessionProps1: TIB_SessionProps
AllowDefaultConnection = True
AllowDefaultTransaction = True
BusyCursor = -17
StoreActive = False
TimerInterval = 5000
UseCursor = False
YieldCursor = -19
EditingColor = clYellow
InsertingColor = clLime
DeletingColor = clRed
SearchingColor = clAqua
ReadOnlyColor = clSilver
SelectedColor = clNavy
InvalidColor = clNone
PreparedColor = clWhite
BrowsingColor = clWhite
Left = 684
Top = 594
end
object qryResCountry: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM COUNTRY')
ColorScheme = True
GeneratorLinks.Strings = (
'COUNTRYID=COUNTRY_GEN')
KeyLinks.Strings = (
'COUNTRY.COUNTRYID=MEMBER.RCOUNTRYID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 116
Top = 15
end
object qryResProvince: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM PROVINCE')
ColorScheme = True
GeneratorLinks.Strings = (
'PROVINCEID=PROVINCE_GEN')
KeyLinks.Strings = (
'PROVINCE.PROVINCEID=MEMBER.RPROVINCEID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 116
Top = 66
end
object qryResCity: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'CITYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM CITY')
ColorScheme = True
GeneratorLinks.Strings = (
'CITYID=CITY_GEN')
KeyLinks.Strings = (
'CITY.CITYID=MEMBER.RCITYID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 116
Top = 115
end
object qryResSuburb: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'SUBURBID=FALSE'
'CITYID=FALSE'
'POSTALCODE=FALSE'
'SUBURBNAME=TRUE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM SUBURB')
ColorScheme = True
GeneratorLinks.Strings = (
'SUBURBID=SUBURB_GEN')
KeyLinks.Strings = (
'SUBURB.SUBURBID=MEMBER.RSUBURBID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 116
Top = 171
end
object dsResCountry: TIB_DataSource
Dataset = qryResCountry
Left = 32
Top = 12
end
object dsResProvince: TIB_DataSource
Dataset = qryResProvince
Left = 31
Top = 66
end
object dsResCity: TIB_DataSource
Dataset = qryResCity
Left = 31
Top = 115
end
object dsResSuburb: TIB_DataSource
Dataset = qryResSuburb
Left = 30
Top = 167
end
object dsUser: TIB_DataSource
Dataset = qryUser
Left = 561
Top = 66
end
object qryUser: TIB_Query
DatabaseName = 'FundManager'
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM USERS')
ColorScheme = True
GeneratorLinks.Strings = (
'SUBURBID=SUBURB_GEN')
KeyLinks.Strings = (
'USERS.USERNAME')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 666
Top = 66
end
object dsLanguage: TIB_DataSource
Dataset = qryLanguage
Left = 380
Top = 219
end
object qryLanguage: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM LANGUAGE')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Delete requested. Please Confirm.')
GeneratorLinks.Strings = (
'LANGUAGE.LANGUAGEID=LANGUAGE_GEN')
KeyLinks.Strings = (
'LANGUAGE.LANGUAGE')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 469
Top = 218
end
object qryPosProvince: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM PROVINCE')
ColorScheme = True
GeneratorLinks.Strings = (
'PROVINCEID=PROVINCE_GEN')
KeyLinks.Strings = (
'PROVINCE.PROVINCEID=MEMBER.PPROVINCEID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 288
Top = 66
end
object dsPosProvince: TIB_DataSource
Dataset = qryPosProvince
Left = 194
Top = 66
end
object dsPosCity: TIB_DataSource
Dataset = qryPosCity
Left = 202
Top = 123
end
object qryPosCity: TIB_Query
DatabaseName = 'FundManager'
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM CITY')
ColorScheme = True
GeneratorLinks.Strings = (
'CITYID=CITY_GEN')
KeyLinks.Strings = (
'CITY.CITYID=MEMBER.PCITYID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 288
Top = 115
end
object dsPosSuburb: TIB_DataSource
Dataset = qryPosSuburb
Left = 202
Top = 167
end
object qryPosSuburb: TIB_Query
DatabaseName = 'FundManager'
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM SUBURB')
ColorScheme = True
GeneratorLinks.Strings = (
'SUBURBID=SUBURB_GEN')
KeyLinks.Strings = (
'SUBURB.SUBURBID=MEMBER.PSUBURBID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 287
Top = 167
end
object dsPosCountry: TIB_DataSource
Dataset = qryPosCountry
Left = 194
Top = 14
end
object qryPosCountry: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM COUNTRY')
ColorScheme = True
GeneratorLinks.Strings = (
'COUNTRYID=COUNTRY_GEN')
KeyLinks.Strings = (
'COUNTRY.COUNTRYID=MEMBER.PCOUNTRYID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 288
Top = 9
end
object dsRelativeType: TIB_DataSource
Dataset = qryRelativeType
Left = 379
Top = 15
end
object qryRelativeType: TIB_Query
ColumnAttributes.Strings = (
'PAYING=BOOLEAN=T,F')
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM RELATIVETYPE')
ColorScheme = True
DefaultValues.Strings = (
'PAYING=F')
GeneratorLinks.Strings = (
'RELATIVETYPEID=RELATIVETYPE_GEN')
KeyLinks.Strings = (
'RELATIVETYPE.RELATIVETYPEID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 467
Top = 15
end
object dsFund: TIB_DataSource
Dataset = qryfund
Left = 529
Top = 17
end
object dsOptions: TIB_DataSource
Dataset = qryOptions
Left = 379
Top = 115
end
object qryOptions: TIB_Query
ColumnAttributes.Strings = (
'MARKETERCOM=CURRENCY'
'INITPAY=CURRENCY')
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT *'
'FROM OPTIONS')
ColorScheme = True
GeneratorLinks.Strings = (
'OPTIONID=OPTIONS_GEN')
KeyLinks.Strings = (
'OPTIONS.OPTIONID'
'OPTIONS.FUNDID')
KeyRelation = 'Options'
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
SearchedDeletes = False
AfterCancel = qryFundAfterCancel
AfterDelete = qryOptionsAfterDelete
AfterInsert = qryOptionsAfterInsert
BeforePost = qryOptionsBeforePost
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
FetchWholeRows = True
Left = 467
Top = 115
end
object dsGroups: TIB_DataSource
Dataset = qryGroups
Left = 29
Top = 221
end
object qryEditRelativeType: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM RELATIVETYPE')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Delete requested. Please Confirm.')
GeneratorLinks.Strings = (
'RELATIVETYPEID=RELATIVETYPE_GEN')
KeyLinks.Strings = (
'RELATIVETYPE.RELATIVETYPEID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
FetchWholeRows = True
Left = 563
Top = 432
end
object qryEmployer: TIB_Query
DatabaseName = 'FundManager'
FieldsDisplayWidth.Strings = (
'NAME=204')
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM EMPLOYER')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Delete requested. Please Confirm.')
GeneratorLinks.Strings = (
'EMPLOYERID=EMPLOYER_GEN')
KeyLinks.Strings = (
'EMPLOYER.EMPLOYERID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 284
Top = 219
end
object qryCountry: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM COUNTRY')
ColorScheme = True
GeneratorLinks.Strings = (
'COUNTRYID=COUNTRY_GEN')
KeyLinks.Strings = (
'COUNTRY.COUNTRYID=PROVINCE.COUNTRYID')
KeyDescLinks.Strings = (
'COUNTRY.COUNTRYNAME=COUNTRYDESC')
KeySource = dsProvince
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 666
Top = 220
end
object dsCountry: TIB_DataSource
Dataset = qryCountry
Left = 563
Top = 220
end
object dsProvince: TIB_DataSource
Dataset = qryProvince
Left = 202
Top = 322
end
object qryProvince: TIB_Query
ColumnAttributes.Strings = (
'COUNTRYDESC=COMPUTED')
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT p.PROVINCENAME,'
' p.PROVINCEID,'
' p.COUNTRYID,'
' (SELECT c.COUNTRYNAME'
' FROM COUNTRY c'
' WHERE c.COUNTRYID=p.COUNTRYID)'
' AS COUNTRYDESC'
' '
'FROM PROVINCE p')
ColorScheme = True
GeneratorLinks.Strings = (
'PROVINCEID=PROVINCE_GEN')
KeyLinks.Strings = (
'PROVINCE.PROVINCEID=CITY.PROVINCEID')
KeyDescLinks.Strings = (
'PROVINCE.PROVINCENAME=PROVDESC')
KeySource = dsCity
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 285
Top = 319
end
object dsCity: TIB_DataSource
Dataset = qryCity
Left = 561
Top = 117
end
object qryCity: TIB_Query
ColumnAttributes.Strings = (
'PROVDESC=COMPUTED')
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'CITYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT c.CITYID'
' , c.CITYNAME'
' , c.PROVINCEID'
' , (SELECT p.PROVINCENAME'
' FROM PROVINCE p'
' WHERE c.PROVINCEID=p.PROVINCEID)'
' AS PROVDESC '
'FROM CITY c')
ColorScheme = True
GeneratorLinks.Strings = (
'CITYID=CITY_GEN')
KeyLinks.Strings = (
'CITY.CITYID=SUBURB.CITYID')
KeyDescLinks.Strings = (
'CITY.CITYNAME=CITYDESC')
KeySource = dsSuburb
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 666
Top = 117
end
object dsSuburb: TIB_DataSource
Dataset = qrySuburb
Left = 200
Top = 488
end
object qrySuburb: TIB_Query
ColumnAttributes.Strings = (
'CITYDESC=COMPUTED')
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'SUBURBID=FALSE'
'CITYID=FALSE'
'POSTALCODE=TRUE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT s.SUBURBID'
' , s.SUBURBNAME'
' , s.CITYID'
' , s.POSTALCODE'
' , (SELECT CITYNAME '
' FROM CITY c'
' WHERE c.CITYID=s.CITYID)'
' AS CITYDESC'
'FROM SUBURB s')
ColorScheme = True
GeneratorLinks.Strings = (
'SUBURBID=SUBURB_GEN')
KeyLinks.Strings = (
'SUBURB.SUBURBID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 292
Top = 485
end
object qryMemberProfile: TIB_Query
ColumnAttributes.Strings = (
'DOI=NOTIME'
'MARKETERNAME=COMPUTED'
'THEFUNDNAME=COMPUTED'
'ACCOUNTNAME=COMPUTED'
'OPTIONNAME=COMPUTED')
DatabaseName = 'FundManager'
FieldsDisplayLabel.Strings = (
'FIRSTNAME=First Name'
'SURNAME=Surname'
'FUNDNAME=Fund'
'MARKETERNAME=Marketer Name'
'THEFUNDNAME=Fund Name'
'GROUPNAME=Group Name'
'OPTIONNAME=Option'
'ACCOUNTNAME=Account Name'
'DOI=Date of Inception'
'ACTN=Action'
'MEMBERNO=Member No.'
'PAYTYPE=Pay Type'
'PAYEEID=Paye ID'
'PAYEEFIRSTNAME=Payee First Name'
'PAYEESURNAME=Payee Surname')
FieldsGridLabel.Strings = (
'SURNAME=Surname'
'FIRSTNAME=First Name')
FieldsDisplayWidth.Strings = (
'FUNDNAME=100'
'GROUPNAME=110'
'FUNDNO=93'
'THEFUNDNAME=94'
'MARKETERNAME=99'
'OPTIONNAME=92'
'MEMBERNO=59'
'DOI=64'
'ACCOUNTNAME=55'
'ACTN=46'
'PAYEESURNAME=176')
FieldsVisible.Strings = (
'PERSONID=FALSE'
'FUNDNO=FALSE'
'MARKETERID=FALSE'
'GROUPNAME=TRUE'
'ACCOUNTID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT '
' MEMBERID'
' , OPTIONID'
' , FUNDID'
' , MARKETERID'
' , DOI'
' , ACCOUNTID'
' , ACTN'
' , PAYTYPE '
' , PAYEEID'
' , PAYEEFIRSTNAME'
' , PAYEESURNAME'
''
' , (SELECT f.FUNDNAME '
' FROM FUND f'
' WHERE f.FUNDID=m.FUNDID)'
' AS THEFUNDNAME '
''
' , (SELECT o.OPTIONNAME '
' FROM OPTIONS o'
' WHERE o.OPTIONID=m.OPTIONID)'
' AS OPTIONNAME '
''
' , (SELECT a.FIRSTNAME ||'#39' '#39'|| a.SURNAME '
' FROM MARKETER a'
' WHERE a.MARKETERID=m.MARKETERID)'
' AS MARKETERNAME'
''
''
' FROM MEMBERINFUND m'
''
' WHERE (m.MEMBERID = :MEMBERID)')
ColorScheme = True
KeyLinks.Strings = (
'MEMBERID'
'FUNDID'
'OPTIONID')
KeyRelation = 'MEMBERINFUND'
MasterSource = dsMembers
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'MEMBERID=MEMBER.MEMBERID')
RequestLive = True
SearchedEdits = False
SearchedDeletes = False
AfterCancel = qryMemberProfileAfterPost
AfterPost = qryMemberProfileAfterPost
BeforeEdit = qryMemberProfileBeforeEdit
BeforePost = qryMemberProfileBeforePost
OnNewRecord = qryMemberProfileNewRecord
OnPostError = qryMemberProfilePostError
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 285
Top = 269
ParamValues = (
'MEMBERID=')
end
object dsMemberProfile: TIB_DataSource
Dataset = qryMemberProfile
Left = 202
Top = 270
end
object dsEmployer: TIB_DataSource
Dataset = qryEmployer
Left = 202
Top = 219
end
object dsCoveredFamMem: TIB_DataSource
Dataset = qryCoveredFamMem
Left = 379
Top = 66
end
object dsMarketer: TIB_DataSource
Dataset = qryMarketer
Left = 388
Top = 433
end
object qryMarketer: TIB_Query
ColumnAttributes.Strings = (
'DOB=NOTIME'
'DOE=NOTIME')
DatabaseName = 'FundManager'
FieldsDisplayLabel.Strings = (
'FIRSTNAME=First Name'
'SURNAME=Surname'
'MARKETERID=ID')
FieldsGridLabel.Strings = (
'SURNAME=Surname'
'FIRSTNAME=First Name')
FieldsVisible.Strings = (
'MARKETERID=TRUE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM MARKETER')
ColorScheme = True
GeneratorLinks.Strings = (
'MARKETERID=MARKETERID_GEN')
KeyLinks.Strings = (
'MARKETER.MARKETERID=MEMBERINFUND.MARKETERID')
KeySource = dsMemberProfile
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 466
Top = 433
end
object dsOptionNotes: TIB_DataSource
Dataset = qryOptionNotes
Left = 381
Top = 271
end
object qryOptionNotes: TIB_Query
ColumnAttributes.Strings = (
'NOTEDDATE=NOTIME')
DatabaseName = 'FundManager'
FieldsGridLabel.Strings = (
'NOTEDDATE=Date')
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * '
' FROM OPTIONNOTES o'
' WHERE (o.MEMBERID = :AMEMBERID) '
' AND (o.OPTIONID = :AOPTIONID)'
' AND (o.FUNDID = :AFUNDID) ')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Delete requested. Please Confirm.')
GeneratorLinks.Strings = (
'OPTIONNOTES.OPTIONNOTESID=OPTIONNOTESID_GEN')
KeyLinks.Strings = (
'OPTIONNOTESID')
MasterSource = dsMemberProfile
MasterLinks.Strings = (
'OPTIONNOTES.MEMBERID = MEMBERINFUND.MEMBERID'
'OPTIONNOTES.OPTIONID = MEMBERINFUND.OPTIONID '
'OPTIONNOTES.FUNDID = MEMBERINFUND.FUNDID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'AMEMBERID = MEMBERINFUND.MEMBERID'
'AOPTIONID = MEMBERINFUND.OPTIONID '
'AFUNDID = MEMBERINFUND.FUNDID')
RequestLive = True
AfterPost = qryOptionNotesAfterPost
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 470
Top = 271
end
object dsBeneficiary: TIB_DataSource
Dataset = qryBeneficiary
Left = 390
Top = 484
end
object qryBeneficiary: TIB_Query
DatabaseName = 'FundManager'
FieldsDisplayLabel.Strings = (
'FIRSTNAME=First Name'
'SURNAME=Surname'
'INITIALS=Initials'
'ID=ID')
FieldsGridLabel.Strings = (
'SURNAME=Surname'
'FIRSTNAME=First Name')
FieldsVisible.Strings = (
'BENID=FALSE'
'TITLEID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * '
' FROM BENEFICIARY b'
'WHERE b.BENID=:BENID'
'')
ColorScheme = True
GeneratorLinks.Strings = (
'BENID=BENID_GEN')
KeyLinks.Strings = (
'BENID')
MasterSource = dsMemberBen
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'BENID=BENID')
OrderingItemNo = 1
OrderingItems.Strings = (
'BENID=BENID')
OrderingLinks.Strings = (
'BENID=ITEM=1')
RequestLive = True
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 468
Top = 484
ParamValues = (
'BENID=0')
end
object dsGroupsInOption: TIB_DataSource
Dataset = qryGroupsInOption
Left = 28
Top = 272
end
object qryOptionsInFund: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT *'
' FROM OPTIONS o'
' WHERE o.FUNDID= :AFUNDID'
'')
ColorScheme = True
GeneratorLinks.Strings = (
'OPTIONID=OPTIONS_GEN')
KeyLinks.Strings = (
'OPTIONS.OPTIONID')
MasterSource = dsFund
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'AFUNDID=FUND.FUNDID')
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 115
Top = 438
ParamValues = (
'AFUNDID=0')
end
object dsOptionsInFund: TIB_DataSource
Dataset = qryOptionsInFund
Left = 25
Top = 439
end
object qryCostItem: TIB_Query
ColumnAttributes.Strings = (
'AMOUNT=CURRENCY'
'ACCOUNTNAME=COMPUTED'
'BASICCOSTAMOUNT=COMPUTED;CURRENCY'
'RECACCOUNTNAME=COMPUTED'
'RECUR=BOOLEAN')
DatabaseName = 'FundManager'
FieldsAlignment.Strings = (
'AMOUNT=RIGHT')
FieldsDisplayFormat.Strings = (
'AMOUNT=#,###.00')
FieldsDisplayLabel.Strings = (
'COSTITEMNAME=Item Name'
'AMOUNT=Amount'
'ACTN=Exp Action'
'ACCOUNTNAME=Exp Acc Name'
'RECACCOUNTNAME=Inc Acc Name'
'RECACTN=Inc Action')
FieldsDisplayWidth.Strings = (
'COSTITEMNAME=92'
'AMOUNT=39'
'ACTN=57'
'ACCOUNTID=67'
'ACCOUNTNAME=76'
'RECACTN=56'
'RECACCOUNTNAME=73')
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT '
' COSTITEMID'
' , COSTITEMNAME'
' , OPTIONID'
' , FUNDID'
' , AMOUNT'
' , AMNT'
' , ACTN'
' , RECACTN'
' , ACCOUNTID'
' , RECACCOUNTID '
' , RECUR'
''
' , (SELECT ACCOUNTID FROM ACCOUNT a'
' WHERE a.ACCOUNTID = c.ACCOUNTID)'
' AS ACCOUNTNAME'
' '
' ,(SELECT ACCOUNTID FROM ACCOUNT a'
' WHERE a.ACCOUNTID = c.RECACCOUNTID)'
' AS RECACCOUNTNAME'
''
' ,(SELECT SUM(amount) '
' FROM COSTITEM '
' WHERE (c.FUNDID = :CFUNDID) '
' AND (c.OPTIONID = :COPTIONID))'
' AS BasicCostAmount'
''
'FROM COSTITEM c'
' WHERE (c.FUNDID = :AFUNDID) '
' AND (c.OPTIONID = :AOPTIONID)')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Are you sure you want to delete this item?')
GeneratorLinks.Strings = (
'COSTITEMID=COSTITEM_GEN')
KeyLinks.Strings = (
'COSTITEM.COSTITEMID'
'COSTITEM.OPTIONID'
'COSTITEM.FUNDID')
MasterSource = dsOptions
MasterLinks.Strings = (
'COSTITEM.FUNDID=OPTIONS.FUNDID'
'COSTITEM.OPTIONID=OPTIONS.OPTIONID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'AFUNDID=OPTIONS.FUNDID'
'AOPTIONID=OPTIONS.OPTIONID')
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 470
Top = 317
end
object dsCostItem: TIB_DataSource
Dataset = qryCostItem
Left = 383
Top = 319
end
object dsEditFund: TIB_DataSource
Dataset = qryEditFund
Left = 568
Top = 317
end
object qryEditFund: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM FUND')
ColorScheme = True
GeneratorLinks.Strings = (
'FUND.FUNDID=FUND_GEN')
KeyLinks.Strings = (
'FUND.FUNDID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
AfterPost = qryEditFundAfterPost
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 666
Top = 325
end
object qryGroupsInOption: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT *'
' FROM GROUPSINOPTION g'
''
' LEFT JOIN GROUPS r'
' ON (r.GROUPID=g.GROUPID)'
''
' WHERE (g.OPTIONID = :AOptionID)'
' AND (g.FUNDID = :AFundID)')
ColorScheme = True
KeyLinks.Strings = (
'GROUPSINOPTION.FUNDID'
'GROUPSINOPTION.OPTIONID'
'GROUPSINOPTION.GROUPID')
KeyRelation = 'GROUPSINOPTION'
MasterSource = dsOptionsInFund
MasterLinks.Strings = (
'GROUPSINOPTION.FUNDID=OPTIONS.FUNDID'
'GROUPSINOPTION.OPTIONID=OPTIONS.OPTIONID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'AFUNDID=OPTIONS.FUNDID'
'AOPTIONID=OPTIONS.OPTIONID')
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 113
Top = 276
ParamValues = (
'AOPTIONID=0')
end
object qryMemStatus: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE'
'STATUSID=FALSE'
'MEMSTATUSID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT *'
'FROM MEMSTATUS')
ColorScheme = True
GeneratorLinks.Strings = (
'MEMSTATUSID=STATUS_GEN')
KeyLinks.Strings = (
'MEMSTATUS.MEMSTATUSID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 666
Top = 431
end
object dsRegion: TIB_DataSource
Dataset = qryRegion
Left = 27
Top = 324
end
object qryRegion: TIB_Query
ColumnAttributes.Strings = (
'COUNTRYDESC=COMPUTED')
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT *'
'FROM REGION')
ColorScheme = True
GeneratorLinks.Strings = (
'REGION.REGIONID=REGION_GEN')
KeyLinks.Strings = (
'REGION.REGIONID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 111
Top = 325
end
object qryqryMemberInFund: TIB_DataSource
Dataset = qryMemberInFund
Left = 203
Top = 375
end
object qryMemberInFund: TIB_Query
ColumnAttributes.Strings = (
'COUNTRYDESC=COMPUTED')
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT MEMBERID '
' ,FUNDID'
' ,OPTIONID '
''
' , (SELECT f.FUNDNAME '
' FROM FUND f'
' WHERE f.FUNDID = m.FUNDID) AS FUNDNAME'
''
' , (SELECT o.OPTIONNAME '
' FROM OPTIONS o'
' WHERE o.OPTIONID = m.OPTIONID) AS OPTIONNAME'
' '
' FROM MEMBERINFUND m'
''
' WHERE m.MEMBERID = :AMEMBERID')
ColorScheme = True
KeyLinks.Strings = (
'MEMBERID'
'OPTIONID'
'FUNDID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
ReadOnly = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 287
Top = 373
ParamValues = (
'AMEMBERID=')
end
object qryOptionRelTypeCost: TIB_Query
DatabaseName = 'FundManager'
FieldsGridLabel.Strings = (
'ARELNAME=Relationship'
'MAXAGE=Max Age'
'MINAGE=Min Age')
FieldsDisplayWidth.Strings = (
'ARELNAME=190'
'MAXAGE=62'
'MINAGE=')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT o.*, '
''
' (SELECT NAME FROM RELATIVETYPE r'
' WHERE r.RELATIVETYPEID = o.RELATIVETYPEID)'
' AS ARELNAME'
''
' FROM OPTIONRELTYPEAGE o'
''
' WHERE (OPTIONID = :AOPTIONID)'
' AND (FUNDID = :AFUNDID)'
'')
ColorScheme = True
KeyLinks.Strings = (
'OPTIONID '
'FUNDID'
'RELATIVETYPEID')
KeyRelation = 'OPTIONRELTYPEAGE'
MasterSource = dsOptions
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'AOPTIONID=OPTIONS.OPTIONID '
'AFUNDID=OPTIONS.FUNDID')
RequestLive = True
AfterPost = qryOptionRelTypeCostAfterPost
AfterScroll = qryOptionRelTypeCostAfterScroll
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 666
Top = 272
ParamValues = (
'AOPTIONID=0')
end
object dsOptionRelTypeCost: TIB_DataSource
Dataset = qryOptionRelTypeCost
Left = 568
Top = 272
end
object dsAccount: TIB_DataSource
Dataset = qryAccount
Left = 568
Top = 376
end
object dsEditGroups: TIB_DataSource
Dataset = qryEditGroups
Left = 28
Top = 384
end
object qryEditGroups: TIB_Query
DatabaseName = 'FundManager'
FieldsDisplayLabel.Strings = (
'GROUPNAME=Group Name'
'CONTACT=Contact'
'TEL=Tel'
'FAX=Fax'
'EMAIL=e mail')
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE'
'GROUPID=FALSE'
'REGIONID=FALSE'
'FULLNAME=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT *'
' FROM GROUPS')
ColorScheme = True
KeyLinks.Strings = (
'GROUPID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 113
Top = 380
end
object dsMemberBen: TIB_DataSource
Dataset = qryMemberBen
Left = 376
Top = 167
end
object qryExtraCost: TIB_Query
DatabaseName = 'FundManager'
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT o.FUNDID, '
' o.OPTIONID,'
' o.RELATIVETYPEID, '
' o.EXTRACOST,'
' r.NAME, '
' r.PAYING '
''
' FROM OPTIONRELTYPEAGE o'
''
' LEFT JOIN RELATIVETYPE r'
' ON (o.RELATIVETYPEID=r.RELATIVETYPEID)'
' '
' WHERE (OPTIONID = :AOPTIONID)'
' AND (FUNDID = :AFUNDID)'
''
'')
ColorScheme = False
KeyLinks.Strings = (
'OPTIONID'
'FUNDID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
SearchedEdits = False
SearchedDeletes = False
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 288
Top = 430
ParamValues = (
'AOPTIONID=0')
end
object dsExtraCost: TIB_DataSource
Dataset = qryExtraCost
Left = 200
Top = 429
end
object qryEditGroupsInOption: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
SQL.Strings = (
'SELECT *'
' FROM GROUPSINOPTION g')
ColorScheme = True
KeyLinks.Strings = (
'GROUPSINOPTION.FUNDID'
'GROUPSINOPTION.OPTIONID'
'GROUPSINOPTION.GROUPID')
KeyRelation = 'GROUPSINOPTION'
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 668
Top = 485
end
object dsEditGroupsInOption: TIB_DataSource
Left = 562
Top = 485
end
object dsBen: TIB_DataSource
Dataset = qryBen
Left = 206
Top = 548
end
object qryBen: TIB_Query
DatabaseName = 'FundManager'
FieldsDisplayLabel.Strings = (
'FIRSTNAME=First Name'
'SURNAME=Surname')
FieldsGridLabel.Strings = (
'SURNAME=Surname'
'FIRSTNAME=First Name')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT b.*'
' FROM BENEFICIARY b'
' WHERE b.BENID = :ABENID'
'')
ColorScheme = True
GeneratorLinks.Strings = (
'BENEFICIARY.BENID=BENID_GEN')
KeyLinks.Strings = (
'beneficiary.BENID')
MasterSource = dsMemberBen
MasterLinks.Strings = (
'BENEFICIARY.BENID=MEMBERBEN.BENID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'ABENID=MEMBERBEN.BENID')
OrderingItemNo = 1
OrderingItems.Strings = (
'BEN_ID=ID')
OrderingLinks.Strings = (
'BEN_ID=ITEM=1')
RequestLive = True
SearchingLinks.Strings = (
'BEN_ID=ID')
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 284
Top = 548
end
object dsExtraCostItems: TIB_DataSource
Dataset = qryExtraCostItems
Left = 389
Top = 539
end
object qryExtraCostItems: TIB_Query
ColumnAttributes.Strings = (
'AMOUNT=CURRENCY'
'ACCOUNTNAME=COMPUTED'
'EXTRACOSTAMOUNT=COMPUTED;CURRENCY'
'RECACCOUNTNAME=COMPUTED')
DatabaseName = 'FundManager'
FieldsAlignment.Strings = (
'AMOUNT=RIGHT')
FieldsDisplayFormat.Strings = (
'AMOUNT=#,###.00')
FieldsDisplayLabel.Strings = (
'COSTITEMNAME=Item Name'
'AMOUNT=Amount'
'ACTN=Exp Action'
'ACCOUNTNAME=Exp Acc Name'
'RECACCOUNTNAME=Inc Acc Name'
'RECACTN=Inc Action')
FieldsDisplayWidth.Strings = (
'COSTITEMNAME=90'
'AMOUNT=53'
'ACTN=58'
'ACCOUNTID=67'
'ACCOUNTNAME=77'
'RECACCOUNTNAME=74'
'RECACTN=60')
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT '
' ECOSTITEMID'
' , COSTITEMNAME'
' , OPTIONID'
' , FUNDID'
' , AMOUNT'
' , AMNT'
' , ACTN'
' , RECACTN'
' , ACCOUNTID'
' , RELATIVETYPEID'
' , RECACCOUNTID'
''
' ,(SELECT ACCOUNTID FROM ACCOUNT a'
' WHERE a.ACCOUNTID = e.ACCOUNTID)'
' AS ACCOUNTNAME'
''
' ,(SELECT ACCOUNTID FROM ACCOUNT a'
' WHERE a.ACCOUNTID = e.RECACCOUNTID)'
' AS RECACCOUNTNAME'
''
' ,(SELECT SUM(amount) '
' FROM ECOSTITEM '
' WHERE (e.FUNDID = FUNDID) '
' AND (e.OPTIONID = OPTIONID)'
' AND (e.RELATIVETYPEID = RELATIVETYPEID))'
' AS ExtraCostAmount'
' '
'FROM ECOSTITEM e'
' WHERE (e.FUNDID = :AFUNDID) '
' AND (e.OPTIONID = :AOPTIONID)'
' AND (e.RELATIVETYPEID = :ARELATIVETYPEID)')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Are you sure you want to delete this item?')
GeneratorLinks.Strings = (
'ECOSTITEMID=ECOSTITEM_GEN')
KeyLinks.Strings = (
'ECOSTITEM.ECOSTITEMID')
MasterSource = dsOptionRelTypeCost
MasterLinks.Strings = (
'ECOSTITEM.FUNDID=OPTIONRELTYPEAGE.FUNDID'
'ECOSTITEM.OPTIONID=OPTIONRELTYPEAGE.OPTIONID'
'ECOSTITEM.RELATIVETYPEID=OPTIONRELTYPEAGE.RELATIVETYPEID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'AFUNDID=OPTIONRELTYPEAGE.FUNDID'
'AOPTIONID=OPTIONRELTYPEAGE.OPTIONID'
'ARELATIVETYPEID=OPTIONRELTYPEAGE.RELATIVETYPEID')
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 470
Top = 538
end
object dsUnions: TIB_DataSource
Dataset = qryUnions
Left = 566
Top = 540
end
object qryUnions: TIB_Query
DatabaseName = 'FundManager'
FieldsDisplayLabel.Strings = (
'FIRSTNAME=First Name'
'SURNAME=Surname')
FieldsGridLabel.Strings = (
'SURNAME=Surname'
'FIRSTNAME=First Name')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT *'
' FROM UNIONS')
ColorScheme = True
GeneratorLinks.Strings = (
'UNIONS.UNIONID=UNIONID_GEN')
KeyLinks.Strings = (
'UNIONID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
OrderingItemNo = 1
OrderingItems.Strings = (
'NAME=NAME')
OrderingLinks.Strings = (
'NAME=1')
RequestLive = True
SearchingLinks.Strings = (
'NAME=NAME')
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 668
Top = 540
end
object dsMarketerEDT: TIB_DataSource
Dataset = qryMarketerEDT
Left = 28
Top = 601
end
object dsEnviroOptions: TIB_DataSource
Dataset = qryEnviroOptions
Left = 208
Top = 600
end
object qryEnviroOptions: TIB_Query
ColumnAttributes.Strings = (
'AUTOACCCREATE=BOOLEAN=T,F'
'SAVEONEXIT=BOOLEAN=T,F')
DatabaseName = 'FundManager'
IB_Connection = cnFundMan
SQL.Strings = (
'SELECT * '
' FROM ENVIROOPTIONS ')
ColorScheme = False
GeneratorLinks.Strings = (
'ENVIROOPTIONS.ENVIROOPTIONSID=ENVIROOPTIONSID_GEN')
KeyLinks.Strings = (
'ENVIROOPTIONS.ENVIROOPTIONSID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 288
Top = 600
end
object dsMemGenLedger: TIB_DataSource
Dataset = qryMemGenLedger
Left = 744
Top = 16
end
object qryMemGenLedger: TIB_Query
ColumnAttributes.Strings = (
'TRANSDATE=NOTIME'
'OPTIONNAME=COMPUTED'
'THEFUNDNAME=COMPUTED')
DatabaseName = 'FundManager'
FieldsDisplayWidth.Strings = (
'DESCRIPTION=119'
'FUNDID=59'
'REF=62'
'ACTN=48'
'ACCOUNTID=99'
'THEFUNDNAME=78'
'AMOUNT=65'
'OPTIONNAME=84')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * '
' FROM GENLEDGER'
' _HERE (TRANSDATE >= :ASTARTDATE )'
' AND (TRANSDATE <= :AENDDATE )'
' AND (ACCOUNTID = :AACCOUNTID)'
'ORDER BY ACCOUNTID, TRANSDATE')
ColorScheme = True
GeneratorLinks.Strings = (
'GENLEDGERID = GENLEDGERID_GEN')
KeyLinks.Strings = (
'GENLEDGERID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
SearchedDeletes = False
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 744
Top = 64
end
object dsGenLedger: TIB_DataSource
Dataset = qryGenLedger
Left = 744
Top = 120
end
object dsMembers: TIB_DataSource
Dataset = qryMembers
Left = 28
Top = 554
end
object qryAccount: TIB_Query
DatabaseName = 'FundManager'
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT ACCOUNTID'
'FROM ACCOUNT')
ColorScheme = False
KeyLinks.Strings = (
'account.accountid')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 664
Top = 376
end
object qryGroupCatLK: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT *'
' FROM GROUPCAT'
' '
'ORDER BY GROUPCATNAME')
ColorScheme = True
GeneratorLinks.Strings = (
'GROUPCATID=GROUPCATID_GEN')
KeyLinks.Strings = (
'GROUPCATID=GROUPS.GROUPCATID')
KeyDescLinks.Strings = (
'GROUPCATNAME=AGROUPCATNAME')
KeySource = dsGroups
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 535
Top = 596
end
object dsGroupCatLK: TIB_DataSource
Dataset = qryGroupCatLK
Left = 469
Top = 589
end
object qryGenLedger: TIB_Query
DatabaseName = 'FundManager'
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * '
' FROM GENLEDGER'
' '
'ORDER BY ACCOUNTID, TRANSDATE')
ColorScheme = False
GeneratorLinks.Strings = (
'GENLEDGER.GENLEDGERID=GENLEDGERID_GEN')
KeyLinks.Strings = (
'GENLEDGERID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
BeforePost = qryGenLedgerBeforePost
BufferSynchroFlags = []
FetchWholeRows = True
Left = 744
Top = 168
end
object qryTempTrans: TIB_Query
ColumnAttributes.Strings = (
'TRANSDATE=NOTIME'
'THEFUNDNAME=COMPUTED'
'OPTIONNAME=COMPUTED')
DatabaseName = 'FundManager'
FieldsDisplayFormat.Strings = (
'AMOUNT=R #,###.00')
FieldsDisplayLabel.Strings = (
'THEFUNDNAME=Fund Name'
'OPTIONNAME=Option Name'
'TRANSDATE=Date'
'DESCRIPTION=Description'
'AMOUNT=Amount'
'REF=Ref'
'ACCOUNTID=Account'
'ACTN=Action')
FieldsDisplayWidth.Strings = (
'DESCRIPTION=127'
'OPTIONNAME=90'
'AMOUNT=77'
'REF=72'
'ACTN=47'
'ACCOUNTID=77'
'TRANSDATE=61'
'THEFUNDNAME=76')
FieldsVisible.Strings = (
'TEMPTRANSID=FALSE'
'FUNDID=FALSE'
'OPTIONID=FALSE'
'TALLY=FALSE'
'TRANSREF=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT t.*'
''
' , (SELECT FUNDNAME '
' FROM FUND f'
' WHERE f.FUNDID=t.FUNDID)'
' AS THEFUNDNAME '
''
' , (SELECT OPTIONNAME '
' FROM OPTIONS o'
' WHERE o.OPTIONID=t.OPTIONID)'
' AS OPTIONNAME'
''
'FROM TEMPTRANS t'
'ORDER BY TRANSREF, ACTN, TRANSDATE DESC')
ColorScheme = True
GeneratorLinks.Strings = (
'TEMPTRANSID=TEMPTRANSID_GEN')
KeyLinks.Strings = (
'TEMPTRANSID')
KeyDescLinks.Strings = (
'TEMPTRANS.OPTIONNAME=OPTIONNAME '
'TEMPTRANS.FUNDNAME=THEFUNDNAME')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
AfterPost = qryTempTransAfterPost
BeforeDelete = qryTempTransBeforeDelete
BeforeEdit = qryTempTransBeforeDelete
OnNewRecord = qryTempTransNewRecord
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 472
Top = 374
end
object dsTempTrans: TIB_DataSource
Dataset = qryTempTrans
Left = 384
Top = 376
end
object qryGroups: TIB_Query
ColumnAttributes.Strings = (
'AGROUPCATNAME=COMPUTED')
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GROUPID=FALSE'
'REGIONID=FALSE'
'GROUPCATID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT g.*,'
''
' (SELECT GROUPCATNAME '
' FROM GROUPCAT t'
' WHERE t.GROUPCATID=g.GROUPCATID) AS AGROUPCATNAME '
' '
' FROM GROUPS g '
' '
'ORDER BY GROUPNAME,'
' ')
ColorScheme = True
GeneratorLinks.Strings = (
'GROUPID=GROUPS_GEN')
KeyLinks.Strings = (
'GROUPS.GROUPID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
FetchWholeRows = True
Left = 112
Top = 224
end
object qryMembers: TIB_Query
DatabaseName = 'FundManager'
FieldsDisplayWidth.Strings = (
'SURNAME=103')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM MEMBER')
CallbackInc = 0
ColorScheme = True
KeyLinks.Strings = (
'MEMBERID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
OrderingItemNo = 1
OrderingItems.Strings = (
'SURNAME=SURNAME;SURNAME DESC')
OrderingLinks.Strings = (
'SURNAME=ITEM=1')
RequestLive = True
AfterInsert = qryMembersAfterInsert
AfterPost = qryMembersAfterPost
AfterScroll = qryMembersAfterScroll
OnNewRecord = qryMembersNewRecord
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
CommitAction = caRefreshKeys
DMLCacheFlags = [dcfAnnounceEdit, dcfReceiveEdit]
FetchWholeRows = True
Left = 112
Top = 552
end
object qryMemberBen: TIB_Query
ColumnAttributes.Strings = (
'BEN_TITLE=COMPUTED'
'RELATIONSHIP=COMPUTED'
'MEMSTATUSNAME=COMPUTED')
DatabaseName = 'FundManager'
FieldsDisplayLabel.Strings = (
'INITIALS=Initials'
'FIRSTNAME=First Names'
'SURNAME=Surname'
'BEN_TITLE=Title'
'RELATIONSHIP=Relationship'
'MEMSTATUSNAME=Status')
FieldsVisible.Strings = (
'BEN_TITLE=TRUE'
'RCOUNTRYID=FALSE'
'RPROVINCEID=FALSE'
'RCITYID=FALSE'
'RSUBURBID=FALSE'
'TITLEID=TRUE'
'BENID=TRUE'
'RELATIVETYPEID=TRUE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT '
' MEMBERBEN.MEMBERID'
' , MEMBERBEN.RELATIVETYPEID'
' , MEMBERBEN.OPTIONID'
' , MEMBERBEN.FUNDID'
' , MEMBERBEN.BANKID'
' , MEMBERBEN.BRANCHCODE'
' , MEMBERBEN.ACOUNTNO'
' , MEMBERBEN.ACCOUNTTYPEID'
' , MEMBERBEN.BENID'
' , MEMBERBEN.MemStatusId'
''
' , Beneficiary.BENID'
' , Beneficiary.ID'
' , Beneficiary.TITLEID'
' , Beneficiary.INITIALS'
' , Beneficiary.FIRSTNAME'
' , Beneficiary.SURNAME'
' , Beneficiary.HOMETEL'
' , Beneficiary.WORKTEL'
' , Beneficiary.EMAIL'
' , Beneficiary.LANGUAGEID'
' , Beneficiary.RSTREET1'
' , Beneficiary.RSTREET2'
' , Beneficiary.RCOUNTRYID'
' , Beneficiary.RPROVINCEID'
' , Beneficiary.RCITYID'
' , Beneficiary.RSUBURBID'
' '
''
' ,(SELECT TITLE '
' FROM TITLE '
' WHERE TITLE.TITLEID=Beneficiary.TITLEID) '
' AS BEN_TITLE'
''
' ,(SELECT NAME'
' FROM RelativeType '
' WHERE RelativeType.RelativeTypeId = '
' MemberBen.RelativeTypeId) '
' AS Relationship'
''
' ,(SELECT MemStatusName'
' FROM MemStatus '
' WHERE MemStatus.MemStatusId = '
' MemberBen.MemStatusId) '
' AS MemStatusName'
''
'FROM MEMBERBEN '
''
' JOIN Beneficiary '
' ON (Beneficiary.BENID = MEMBERBEN.BENID)'
''
' WHERE (MEMBERBEN.MEMBERID = :MEMBERID)'
' AND (MEMBERBEN.OPTIONID = :OPTIONID) '
' AND (MEMBERBEN.FUNDID = :FUNDID)')
CheckRequired = False
ColorScheme = True
EditSQL.Strings = (
'EXECUTE PROCEDURE UpdateBen (:BENEFICIARY.TitleId'
' , :ID'
' , :BENEFICIARY.INITIALS'
' , :BENEFICIARY.SURNAME'
' , :BENEFICIARY.FIRSTNAME'
' , :BENEFICIARY.HOMETEL '
' , :BENEFICIARY.WORKTEL'
' , :BENEFICIARY.EMAIL'
' , :BENEFICIARY.LANGUAGEID '
' , :BENEFICIARY.RSTREET1 '
' , :BENEFICIARY.RSTREET2 '
' , :BENEFICIARY.RCOUNTRYID '
' , :BENEFICIARY.RPROVINCEID '
' , :BENEFICIARY.RCITYID '
' , :BENEFICIARY.RSUBURBID '
' , :MEMBERBEN.BenID'
' , :MEMBERBEN.RELATIVETYPEID'
' , :MEMBERBEN.FUNDID'
' , :MEMBERBEN.OPTIONID'
' , :MEMBERBEN.MEMBERID '
' , :MEMBERBEN.MemStatusId) ')
InsertSQL.Strings = (
'EXECUTE PROCEDURE INSERT_BEN( :memberben.BENID'
' , :BENEFICIARY.ID'
' , :BENEFICIARY.INITIALS'
' , :BENEFICIARY.SURNAME'
' , :BENEFICIARY.FIRSTNAME'
' , :BENEFICIARY.TITLEID'
' , :BENEFICIARY.HOMETEL '
' , :BENEFICIARY.WORKTEL'
' , :BENEFICIARY.EMAIL'
' , :BENEFICIARY.LANGUAGEID '
' , :BENEFICIARY.RSTREET1 '
' , :BENEFICIARY.RSTREET2 '
' , :BENEFICIARY.RCOUNTRYID '
' , :BENEFICIARY.RPROVINCEID '
' , :BENEFICIARY.RCITYID '
' , :BENEFICIARY.RSUBURBID '
' , :MEMBERBEN.MEMBERID'
' , :MEMBERBEN.RELATIVETYPEID'
' , :MEMBERBEN.OPTIONID'
' , :MEMBERBEN.FUNDID'
' , :MEMBERBEN.BANKID'
' , :MEMBERBEN.BRANCHCODE'#9
' , :MEMBERBEN.ACOUNTNO'#9
' , :MEMBERBEN.ACCOUNTTYPEID '
' , :MEMBERBEN.MemStatusId) '
' '
'')
KeyLinks.Strings = (
'MEMBERBEN.MEMBERID'
'MEMBERBEN.BENID'
'MEMBERBEN.OPTIONID '
'MEMBERBEN.FUNDID ')
KeyLinksAutoDefine = False
MasterSource = dsMemberProfile
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'MEMBERID = MEMBERID'
'OPTIONID = OPTIONID'
'FUNDID = FUNDID')
RequestLive = True
AfterPost = qryMemberBenAfterPost
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 464
Top = 168
end
object OpenDialog1: TOpenDialog
DefaultExt = '*.imp'
Filter = 'Fund Import File Type (*.imp)|*.imp|All Files (*.*)|*.*'
Left = 743
Top = 488
end
object qryCoveredMem: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT COVEREDMEM.RELATIVETYPEID'
' ,COVEREDMEM.PERSONID'
' ,COVEREDMEM.MEMBERID'
' ,COVEREDMEM.STATUSID'
''
' ,PERSON.PERSONID'
' ,PERSON.FIRSTNAME'
' ,PERSON.SURNAME'
' ,PERSON.ID'
''
' ,ECOSTITEM.AMOUNT'
' ,ECOSTITEM.COSTITEMNAME'
' ,ECOSTITEM.ACTN'
' ,ECOSTITEM.RECACTN'
' ,ECOSTITEM.RECACCOUNTID'
' ,ECOSTITEM.ACCOUNTID'
''
' ,(SELECT NAME'
' FROM RELATIVETYPE'
' WHERE RELATIVETYPE.RELATIVETYPEID ='
' COVEREDMEM.RELATIVETYPEID)'
' AS RELNAME'
''
' ,(SELECT MEMSTATUSNAME'
' FROM MEMSTATUS'
' WHERE MEMSTATUS.MEMSTATUSID ='
' COVEREDMEM.STATUSID)'
' AS STATUSNAME'
''
' FROM COVEREDMEM'
''
' JOIN PERSON'
' ON (PERSON.PERSONID = COVEREDMEM.PERSONID)'
''
' JOIN ECOSTITEM'
' ON (COVEREDMEM.FUNDID = ECOSTITEM.FUNDID AND'
' COVEREDMEM.OPTIONID = ECOSTITEM.OPTIONID AND'
' COVEREDMEM.RELATIVETYPEID = ECOSTITEM.RELATIVETYPEID )'
''
' WHERE (COVEREDMEM.MEMBERID = :MEMBERID)'
' AND (COVEREDMEM.FUNDID = :FUNDID)'
' AND (COVEREDMEM.OPTIONID = :OPTIONID)')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Delete requested. Please Confirm.')
GeneratorLinks.Strings = (
'PersonID=PERSONID_GEN')
KeyLinks.Strings = (
'PersonID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = [bsAfterEdit]
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 740
Top = 219
end
object qryMarketerEDT: TIB_Query
ColumnAttributes.Strings = (
'TITLENAME=COMPUTED')
DatabaseName = 'FundManager'
IB_Connection = cnFundMan
SQL.Strings = (
'select MARKETERID'
' , TITLEID'
' , INITIALS'
' , FIRSTNAME'
' , SURNAME'
' , DOB'
' , HOMETEL'
' , EMAIL'
' , DOE'
''
' ,(select title from title t '
' where t.titleid=m.titleid) '
' as titlename'
''
'from marketer m')
ColorScheme = False
KeyLinks.Strings = (
'marketerid')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
FetchWholeRows = True
Left = 112
Top = 596
end
object IB_SyncCursor1: TIB_SyncCursor
IB_Connection = cnFundMan
ActionEditVal = 'U'
ActionInsertVal = 'I'
ActionDeleteVal = 'D'
EventName = 'IBO$DMLCACHE'
TableName = 'IBO$DMLCACHE'
ColIDName = 'DMLID'
ColActionName = 'DMLACTION'
ColKeyFieldsName = 'KEYFIELDS'
ColKeyValuesNames = 'KEYVALUE1,KEYVALUE2,KEYVALUE3'
ColUserName = 'DMLUSER'
Left = 738
Top = 431
end
object qryBasicCosts: TIB_Query
ColumnAttributes.Strings = (
'AMOUNT=CURRENCY'
'ACCOUNTNAME=COMPUTED'
'BASICCOSTAMOUNT=COMPUTED;CURRENCY'
'RECACCOUNTNAME=COMPUTED'
'RECUR=BOOLEAN')
DatabaseName = 'FundManager'
FieldsAlignment.Strings = (
'AMOUNT=RIGHT')
FieldsDisplayFormat.Strings = (
'AMOUNT=#,###.00')
FieldsDisplayLabel.Strings = (
'COSTITEMNAME=Item Name'
'AMOUNT=Amount'
'ACTN=Exp Action'
'ACCOUNTNAME=Exp Acc Name'
'RECACCOUNTNAME=Inc Acc Name'
'RECACTN=Inc Action')
FieldsDisplayWidth.Strings = (
'COSTITEMNAME=92'
'AMOUNT=39'
'ACTN=57'
'ACCOUNTID=67'
'ACCOUNTNAME=76'
'RECACTN=56'
'RECACCOUNTNAME=73')
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT COSTITEMID'
' , COSTITEMNAME'
' , AMOUNT'
' , OPTIONID'
' , FUNDID'
' , ACTN'
' , ACCOUNTID'
' , RECACCOUNTID'
' , RECUR '
''
' , (SELECT ACCOUNTID FROM ACCOUNT a'
' WHERE a.ACCOUNTID = c.ACCOUNTID)'
' AS ACCOUNTNAME'
' '
' ,(SELECT ACCOUNTID FROM ACCOUNT a'
' WHERE a.ACCOUNTID = c.RECACCOUNTID)'
' AS RECACCOUNTNAME'
''
'FROM COSTITEM c'
' WHERE (c.FUNDID = :AFUNDID) '
' AND (c.OPTIONID = :AOPTIONID)'
' AND (c.Live = '#39'T'#39')'
' AND (c.TransType = :AtransType)')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Are you sure you want to delete this item?')
KeyLinks.Strings = (
'COSTITEM.COSTITEMID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'AFUNDID=OPTIONS.FUNDID'
'AOPTIONID=OPTIONS.OPTIONID')
RequestLive = True
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 742
Top = 265
end
object qryBCInvoice: TIB_Query
ColumnAttributes.Strings = (
'AMOUNT=CURRENCY'
'ACCOUNTNAME=COMPUTED'
'BASICCOSTAMOUNT=COMPUTED;CURRENCY'
'RECACCOUNTNAME=COMPUTED'
'RECUR=BOOLEAN'
'LIVE=BOOLEAN'
'BCINVOICEAMOUNT=COMPUTED;CURRENCY')
DatabaseName = 'FundManager'
FieldsAlignment.Strings = (
'AMOUNT=RIGHT')
FieldsDisplayFormat.Strings = (
'AMOUNT=#,###.00')
FieldsDisplayLabel.Strings = (
'COSTITEMNAME=Item Name'
'AMOUNT=Amount'
'ACTN=Action'
'ACCOUNTNAME=Account'
'RECACCOUNTNAME=Inc Acc Name'
'RECACTN=Inc Action'
'RECUR=Recur'
'LIVE=Live')
FieldsDisplayWidth.Strings = (
'COSTITEMNAME=92'
'AMOUNT=39'
'ACTN=57'
'ACCOUNTID=67'
'ACCOUNTNAME=76'
'RECACTN=56'
'RECACCOUNTNAME=73')
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT '
' COSTITEMID'
' , COSTITEMNAME'
' , OPTIONID'
' , FUNDID'
' , AMOUNT'
' , AMNT'
' , ACTN'
' , ACCOUNTID'
' , RECUR'
' , LIVE'
' , TRANSTYPE'
''
' , (SELECT ACCOUNTID FROM ACCOUNT a'
' WHERE a.ACCOUNTID = c.ACCOUNTID)'
' AS ACCOUNTNAME'
' '
' ,(SELECT ACCOUNTID FROM ACCOUNT a'
' WHERE a.ACCOUNTID = c.RECACCOUNTID)'
' AS RECACCOUNTNAME'
''
' ,(SELECT SUM(amount) '
' FROM COSTITEM c'
' WHERE (c.FUNDID = :AFUNDID) '
' AND (c.OPTIONID = :AOPTIONID)'
' AND (c.TRANSTYPE = '#39'I'#39'))'
' AS BCInvoiceAmount'
''
'FROM COSTITEM c'
' WHERE (c.FUNDID = :AFUNDID) '
' AND (c.OPTIONID = :AOPTIONID)'
' AND (c.TRANSTYPE = '#39'I'#39')')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Are you sure you want to delete this item?')
GeneratorLinks.Strings = (
'COSTITEMID=COSTITEM_GEN')
KeyLinks.Strings = (
'COSTITEMID')
KeyRelation = 'COSTITEM'
MasterSource = dsOptions
MasterLinks.Strings = (
'FUNDID=OPTIONS.FUNDID'
'OPTIONID=OPTIONS.OPTIONID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'AFUNDID=OPTIONS.FUNDID'
'AOPTIONID=OPTIONS.OPTIONID')
RequestLive = True
AfterPost = qryBCInvoiceAfterPost
BeforePost = qryBCInvoiceBeforePost
OnNewRecord = qryBCInvoiceNewRecord
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 742
Top = 325
ParamValues = (
'AFUNDID=0')
end
object dsBCInvoice: TIB_DataSource
Dataset = qryBCInvoice
Left = 743
Top = 375
end
object qryBCReceipts: TIB_Query
ColumnAttributes.Strings = (
'AMOUNT=CURRENCY'
'ACCOUNTNAME=COMPUTED'
'BASICCOSTAMOUNT=COMPUTED;CURRENCY'
'RECACCOUNTNAME=COMPUTED'
'RECUR=BOOLEAN'
'LIVE=BOOLEAN'
'BCRECEIPTSAMOUNT=COMPUTED;CURRENCY')
DatabaseName = 'FundManager'
FieldsAlignment.Strings = (
'AMOUNT=RIGHT')
FieldsDisplayFormat.Strings = (
'AMOUNT=#,###.00')
FieldsDisplayLabel.Strings = (
'COSTITEMNAME=Item Name'
'AMOUNT=Amount'
'ACTN=Action'
'ACCOUNTNAME=Account'
'RECACCOUNTNAME=Inc Acc Name'
'RECACTN=Inc Action'
'RECUR=Recur'
'LIVE=Live')
FieldsDisplayWidth.Strings = (
'COSTITEMNAME=66'
'AMOUNT=39'
'ACTN=57'
'ACCOUNTID=67'
'ACCOUNTNAME=76'
'RECACTN=56'
'RECACCOUNTNAME=73'
'BCRECEIPTSAMOUNT=64')
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
<br/><br/>(Message over 64 KB, truncated)
Datasource(CoveredMem):-
------------
object dmFundManager: TdmFundManager
OldCreateOrder = False
OnCreate = DataModuleCreate
OnDestroy = DataModuleDestroy
Left = 8
Top = 29
Height = 729
Width = 1000
object qryPerson: TIB_Query
ColumnAttributes.Strings = (
'STATUSNAME=COMPUTED'
'DOB=NOTIME')
DatabaseName = 'FundManager'
FieldsDisplayLabel.Strings = (
'FIRSTNAME=First Name'
'SURNAME=Surname')
FieldsGridLabel.Strings = (
'SURNAME=Surname'
'FIRSTNAME=First Name')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * '
' FROM PERSON p'
'')
ColorScheme = True
GeneratorLinks.Strings = (
'PERSONID=PERSONID_GEN')
KeyLinks.Strings = (
'PERSON.PERSONID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
OrderingItemNo = 1
OrderingItems.Strings = (
'ID=ID')
OrderingLinks.Strings = (
'ID=1')
RequestLive = True
SearchingLinks.Strings = (
'ID=ID')
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 114
Top = 491
end
object qryTitle: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'TITLE=TRUE'
'TITLEID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM TITLE')
ColorScheme = True
GeneratorLinks.Strings = (
'TITLEID=TITLE_GEN')
KeyLinks.Strings = (
'TITLE.TITLEID=MEMBER.TITLEID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 666
Top = 166
end
object dsPerson: TIB_DataSource
Dataset = qryPerson
Left = 28
Top = 489
end
object dsTitle: TIB_DataSource
Dataset = qryTitle
Left = 562
Top = 166
end
object cnFundMan: TIB_Connection
SQLDialect = 3
FieldsEditMask.Strings = (
'MEMBER.DOB dd/mm/yyyy'
'MEMBERINFUND.DOI dd/mm/yyyy')
DatabaseName = 'FundManager'
Params.Strings = (
'SQL DIALECT=3'
'USER NAME=SYSDBA'
'PATH=d:\softek\delphi 5\fund manager\data\fundmanager.gdb')
BeforeConnect = cnFundManBeforeConnect
AfterConnect = cnFundManAfterConnect
BeforeDisconnect = cnFundManBeforeDisconnect
OnError = cnFundManError
Left = 748
Top = 594
end
object trnFundMan: TIB_Transaction
IB_Connection = cnFundMan
Isolation = tiCommitted
Left = 612
Top = 593
end
object IB_SessionProps1: TIB_SessionProps
AllowDefaultConnection = True
AllowDefaultTransaction = True
BusyCursor = -17
StoreActive = False
TimerInterval = 5000
UseCursor = False
YieldCursor = -19
EditingColor = clYellow
InsertingColor = clLime
DeletingColor = clRed
SearchingColor = clAqua
ReadOnlyColor = clSilver
SelectedColor = clNavy
InvalidColor = clNone
PreparedColor = clWhite
BrowsingColor = clWhite
Left = 684
Top = 594
end
object qryResCountry: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM COUNTRY')
ColorScheme = True
GeneratorLinks.Strings = (
'COUNTRYID=COUNTRY_GEN')
KeyLinks.Strings = (
'COUNTRY.COUNTRYID=MEMBER.RCOUNTRYID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 116
Top = 15
end
object qryResProvince: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM PROVINCE')
ColorScheme = True
GeneratorLinks.Strings = (
'PROVINCEID=PROVINCE_GEN')
KeyLinks.Strings = (
'PROVINCE.PROVINCEID=MEMBER.RPROVINCEID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 116
Top = 66
end
object qryResCity: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'CITYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM CITY')
ColorScheme = True
GeneratorLinks.Strings = (
'CITYID=CITY_GEN')
KeyLinks.Strings = (
'CITY.CITYID=MEMBER.RCITYID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 116
Top = 115
end
object qryResSuburb: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'SUBURBID=FALSE'
'CITYID=FALSE'
'POSTALCODE=FALSE'
'SUBURBNAME=TRUE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM SUBURB')
ColorScheme = True
GeneratorLinks.Strings = (
'SUBURBID=SUBURB_GEN')
KeyLinks.Strings = (
'SUBURB.SUBURBID=MEMBER.RSUBURBID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 116
Top = 171
end
object dsResCountry: TIB_DataSource
Dataset = qryResCountry
Left = 32
Top = 12
end
object dsResProvince: TIB_DataSource
Dataset = qryResProvince
Left = 31
Top = 66
end
object dsResCity: TIB_DataSource
Dataset = qryResCity
Left = 31
Top = 115
end
object dsResSuburb: TIB_DataSource
Dataset = qryResSuburb
Left = 30
Top = 167
end
object dsUser: TIB_DataSource
Dataset = qryUser
Left = 561
Top = 66
end
object qryUser: TIB_Query
DatabaseName = 'FundManager'
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM USERS')
ColorScheme = True
GeneratorLinks.Strings = (
'SUBURBID=SUBURB_GEN')
KeyLinks.Strings = (
'USERS.USERNAME')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 666
Top = 66
end
object dsLanguage: TIB_DataSource
Dataset = qryLanguage
Left = 380
Top = 219
end
object qryLanguage: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM LANGUAGE')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Delete requested. Please Confirm.')
GeneratorLinks.Strings = (
'LANGUAGE.LANGUAGEID=LANGUAGE_GEN')
KeyLinks.Strings = (
'LANGUAGE.LANGUAGE')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 469
Top = 218
end
object qryPosProvince: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM PROVINCE')
ColorScheme = True
GeneratorLinks.Strings = (
'PROVINCEID=PROVINCE_GEN')
KeyLinks.Strings = (
'PROVINCE.PROVINCEID=MEMBER.PPROVINCEID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 288
Top = 66
end
object dsPosProvince: TIB_DataSource
Dataset = qryPosProvince
Left = 194
Top = 66
end
object dsPosCity: TIB_DataSource
Dataset = qryPosCity
Left = 202
Top = 123
end
object qryPosCity: TIB_Query
DatabaseName = 'FundManager'
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM CITY')
ColorScheme = True
GeneratorLinks.Strings = (
'CITYID=CITY_GEN')
KeyLinks.Strings = (
'CITY.CITYID=MEMBER.PCITYID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 288
Top = 115
end
object dsPosSuburb: TIB_DataSource
Dataset = qryPosSuburb
Left = 202
Top = 167
end
object qryPosSuburb: TIB_Query
DatabaseName = 'FundManager'
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM SUBURB')
ColorScheme = True
GeneratorLinks.Strings = (
'SUBURBID=SUBURB_GEN')
KeyLinks.Strings = (
'SUBURB.SUBURBID=MEMBER.PSUBURBID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 287
Top = 167
end
object dsPosCountry: TIB_DataSource
Dataset = qryPosCountry
Left = 194
Top = 14
end
object qryPosCountry: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM COUNTRY')
ColorScheme = True
GeneratorLinks.Strings = (
'COUNTRYID=COUNTRY_GEN')
KeyLinks.Strings = (
'COUNTRY.COUNTRYID=MEMBER.PCOUNTRYID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 288
Top = 9
end
object dsRelativeType: TIB_DataSource
Dataset = qryRelativeType
Left = 379
Top = 15
end
object qryRelativeType: TIB_Query
ColumnAttributes.Strings = (
'PAYING=BOOLEAN=T,F')
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM RELATIVETYPE')
ColorScheme = True
DefaultValues.Strings = (
'PAYING=F')
GeneratorLinks.Strings = (
'RELATIVETYPEID=RELATIVETYPE_GEN')
KeyLinks.Strings = (
'RELATIVETYPE.RELATIVETYPEID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 467
Top = 15
end
object dsFund: TIB_DataSource
Dataset = qryfund
Left = 529
Top = 17
end
object dsOptions: TIB_DataSource
Dataset = qryOptions
Left = 379
Top = 115
end
object qryOptions: TIB_Query
ColumnAttributes.Strings = (
'MARKETERCOM=CURRENCY'
'INITPAY=CURRENCY')
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT *'
'FROM OPTIONS')
ColorScheme = True
GeneratorLinks.Strings = (
'OPTIONID=OPTIONS_GEN')
KeyLinks.Strings = (
'OPTIONS.OPTIONID'
'OPTIONS.FUNDID')
KeyRelation = 'Options'
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
SearchedDeletes = False
AfterCancel = qryFundAfterCancel
AfterDelete = qryOptionsAfterDelete
AfterInsert = qryOptionsAfterInsert
BeforePost = qryOptionsBeforePost
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
FetchWholeRows = True
Left = 467
Top = 115
end
object dsGroups: TIB_DataSource
Dataset = qryGroups
Left = 29
Top = 221
end
object qryEditRelativeType: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM RELATIVETYPE')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Delete requested. Please Confirm.')
GeneratorLinks.Strings = (
'RELATIVETYPEID=RELATIVETYPE_GEN')
KeyLinks.Strings = (
'RELATIVETYPE.RELATIVETYPEID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
FetchWholeRows = True
Left = 563
Top = 432
end
object qryEmployer: TIB_Query
DatabaseName = 'FundManager'
FieldsDisplayWidth.Strings = (
'NAME=204')
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM EMPLOYER')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Delete requested. Please Confirm.')
GeneratorLinks.Strings = (
'EMPLOYERID=EMPLOYER_GEN')
KeyLinks.Strings = (
'EMPLOYER.EMPLOYERID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 284
Top = 219
end
object qryCountry: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM COUNTRY')
ColorScheme = True
GeneratorLinks.Strings = (
'COUNTRYID=COUNTRY_GEN')
KeyLinks.Strings = (
'COUNTRY.COUNTRYID=PROVINCE.COUNTRYID')
KeyDescLinks.Strings = (
'COUNTRY.COUNTRYNAME=COUNTRYDESC')
KeySource = dsProvince
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 666
Top = 220
end
object dsCountry: TIB_DataSource
Dataset = qryCountry
Left = 563
Top = 220
end
object dsProvince: TIB_DataSource
Dataset = qryProvince
Left = 202
Top = 322
end
object qryProvince: TIB_Query
ColumnAttributes.Strings = (
'COUNTRYDESC=COMPUTED')
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT p.PROVINCENAME,'
' p.PROVINCEID,'
' p.COUNTRYID,'
' (SELECT c.COUNTRYNAME'
' FROM COUNTRY c'
' WHERE c.COUNTRYID=p.COUNTRYID)'
' AS COUNTRYDESC'
' '
'FROM PROVINCE p')
ColorScheme = True
GeneratorLinks.Strings = (
'PROVINCEID=PROVINCE_GEN')
KeyLinks.Strings = (
'PROVINCE.PROVINCEID=CITY.PROVINCEID')
KeyDescLinks.Strings = (
'PROVINCE.PROVINCENAME=PROVDESC')
KeySource = dsCity
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 285
Top = 319
end
object dsCity: TIB_DataSource
Dataset = qryCity
Left = 561
Top = 117
end
object qryCity: TIB_Query
ColumnAttributes.Strings = (
'PROVDESC=COMPUTED')
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'CITYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT c.CITYID'
' , c.CITYNAME'
' , c.PROVINCEID'
' , (SELECT p.PROVINCENAME'
' FROM PROVINCE p'
' WHERE c.PROVINCEID=p.PROVINCEID)'
' AS PROVDESC '
'FROM CITY c')
ColorScheme = True
GeneratorLinks.Strings = (
'CITYID=CITY_GEN')
KeyLinks.Strings = (
'CITY.CITYID=SUBURB.CITYID')
KeyDescLinks.Strings = (
'CITY.CITYNAME=CITYDESC')
KeySource = dsSuburb
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 666
Top = 117
end
object dsSuburb: TIB_DataSource
Dataset = qrySuburb
Left = 200
Top = 488
end
object qrySuburb: TIB_Query
ColumnAttributes.Strings = (
'CITYDESC=COMPUTED')
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'SUBURBID=FALSE'
'CITYID=FALSE'
'POSTALCODE=TRUE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT s.SUBURBID'
' , s.SUBURBNAME'
' , s.CITYID'
' , s.POSTALCODE'
' , (SELECT CITYNAME '
' FROM CITY c'
' WHERE c.CITYID=s.CITYID)'
' AS CITYDESC'
'FROM SUBURB s')
ColorScheme = True
GeneratorLinks.Strings = (
'SUBURBID=SUBURB_GEN')
KeyLinks.Strings = (
'SUBURB.SUBURBID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 292
Top = 485
end
object qryMemberProfile: TIB_Query
ColumnAttributes.Strings = (
'DOI=NOTIME'
'MARKETERNAME=COMPUTED'
'THEFUNDNAME=COMPUTED'
'ACCOUNTNAME=COMPUTED'
'OPTIONNAME=COMPUTED')
DatabaseName = 'FundManager'
FieldsDisplayLabel.Strings = (
'FIRSTNAME=First Name'
'SURNAME=Surname'
'FUNDNAME=Fund'
'MARKETERNAME=Marketer Name'
'THEFUNDNAME=Fund Name'
'GROUPNAME=Group Name'
'OPTIONNAME=Option'
'ACCOUNTNAME=Account Name'
'DOI=Date of Inception'
'ACTN=Action'
'MEMBERNO=Member No.'
'PAYTYPE=Pay Type'
'PAYEEID=Paye ID'
'PAYEEFIRSTNAME=Payee First Name'
'PAYEESURNAME=Payee Surname')
FieldsGridLabel.Strings = (
'SURNAME=Surname'
'FIRSTNAME=First Name')
FieldsDisplayWidth.Strings = (
'FUNDNAME=100'
'GROUPNAME=110'
'FUNDNO=93'
'THEFUNDNAME=94'
'MARKETERNAME=99'
'OPTIONNAME=92'
'MEMBERNO=59'
'DOI=64'
'ACCOUNTNAME=55'
'ACTN=46'
'PAYEESURNAME=176')
FieldsVisible.Strings = (
'PERSONID=FALSE'
'FUNDNO=FALSE'
'MARKETERID=FALSE'
'GROUPNAME=TRUE'
'ACCOUNTID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT '
' MEMBERID'
' , OPTIONID'
' , FUNDID'
' , MARKETERID'
' , DOI'
' , ACCOUNTID'
' , ACTN'
' , PAYTYPE '
' , PAYEEID'
' , PAYEEFIRSTNAME'
' , PAYEESURNAME'
''
' , (SELECT f.FUNDNAME '
' FROM FUND f'
' WHERE f.FUNDID=m.FUNDID)'
' AS THEFUNDNAME '
''
' , (SELECT o.OPTIONNAME '
' FROM OPTIONS o'
' WHERE o.OPTIONID=m.OPTIONID)'
' AS OPTIONNAME '
''
' , (SELECT a.FIRSTNAME ||'#39' '#39'|| a.SURNAME '
' FROM MARKETER a'
' WHERE a.MARKETERID=m.MARKETERID)'
' AS MARKETERNAME'
''
''
' FROM MEMBERINFUND m'
''
' WHERE (m.MEMBERID = :MEMBERID)')
ColorScheme = True
KeyLinks.Strings = (
'MEMBERID'
'FUNDID'
'OPTIONID')
KeyRelation = 'MEMBERINFUND'
MasterSource = dsMembers
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'MEMBERID=MEMBER.MEMBERID')
RequestLive = True
SearchedEdits = False
SearchedDeletes = False
AfterCancel = qryMemberProfileAfterPost
AfterPost = qryMemberProfileAfterPost
BeforeEdit = qryMemberProfileBeforeEdit
BeforePost = qryMemberProfileBeforePost
OnNewRecord = qryMemberProfileNewRecord
OnPostError = qryMemberProfilePostError
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 285
Top = 269
ParamValues = (
'MEMBERID=')
end
object dsMemberProfile: TIB_DataSource
Dataset = qryMemberProfile
Left = 202
Top = 270
end
object dsEmployer: TIB_DataSource
Dataset = qryEmployer
Left = 202
Top = 219
end
object dsCoveredFamMem: TIB_DataSource
Dataset = qryCoveredFamMem
Left = 379
Top = 66
end
object dsMarketer: TIB_DataSource
Dataset = qryMarketer
Left = 388
Top = 433
end
object qryMarketer: TIB_Query
ColumnAttributes.Strings = (
'DOB=NOTIME'
'DOE=NOTIME')
DatabaseName = 'FundManager'
FieldsDisplayLabel.Strings = (
'FIRSTNAME=First Name'
'SURNAME=Surname'
'MARKETERID=ID')
FieldsGridLabel.Strings = (
'SURNAME=Surname'
'FIRSTNAME=First Name')
FieldsVisible.Strings = (
'MARKETERID=TRUE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM MARKETER')
ColorScheme = True
GeneratorLinks.Strings = (
'MARKETERID=MARKETERID_GEN')
KeyLinks.Strings = (
'MARKETER.MARKETERID=MEMBERINFUND.MARKETERID')
KeySource = dsMemberProfile
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 466
Top = 433
end
object dsOptionNotes: TIB_DataSource
Dataset = qryOptionNotes
Left = 381
Top = 271
end
object qryOptionNotes: TIB_Query
ColumnAttributes.Strings = (
'NOTEDDATE=NOTIME')
DatabaseName = 'FundManager'
FieldsGridLabel.Strings = (
'NOTEDDATE=Date')
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * '
' FROM OPTIONNOTES o'
' WHERE (o.MEMBERID = :AMEMBERID) '
' AND (o.OPTIONID = :AOPTIONID)'
' AND (o.FUNDID = :AFUNDID) ')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Delete requested. Please Confirm.')
GeneratorLinks.Strings = (
'OPTIONNOTES.OPTIONNOTESID=OPTIONNOTESID_GEN')
KeyLinks.Strings = (
'OPTIONNOTESID')
MasterSource = dsMemberProfile
MasterLinks.Strings = (
'OPTIONNOTES.MEMBERID = MEMBERINFUND.MEMBERID'
'OPTIONNOTES.OPTIONID = MEMBERINFUND.OPTIONID '
'OPTIONNOTES.FUNDID = MEMBERINFUND.FUNDID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'AMEMBERID = MEMBERINFUND.MEMBERID'
'AOPTIONID = MEMBERINFUND.OPTIONID '
'AFUNDID = MEMBERINFUND.FUNDID')
RequestLive = True
AfterPost = qryOptionNotesAfterPost
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 470
Top = 271
end
object dsBeneficiary: TIB_DataSource
Dataset = qryBeneficiary
Left = 390
Top = 484
end
object qryBeneficiary: TIB_Query
DatabaseName = 'FundManager'
FieldsDisplayLabel.Strings = (
'FIRSTNAME=First Name'
'SURNAME=Surname'
'INITIALS=Initials'
'ID=ID')
FieldsGridLabel.Strings = (
'SURNAME=Surname'
'FIRSTNAME=First Name')
FieldsVisible.Strings = (
'BENID=FALSE'
'TITLEID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * '
' FROM BENEFICIARY b'
'WHERE b.BENID=:BENID'
'')
ColorScheme = True
GeneratorLinks.Strings = (
'BENID=BENID_GEN')
KeyLinks.Strings = (
'BENID')
MasterSource = dsMemberBen
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'BENID=BENID')
OrderingItemNo = 1
OrderingItems.Strings = (
'BENID=BENID')
OrderingLinks.Strings = (
'BENID=ITEM=1')
RequestLive = True
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 468
Top = 484
ParamValues = (
'BENID=0')
end
object dsGroupsInOption: TIB_DataSource
Dataset = qryGroupsInOption
Left = 28
Top = 272
end
object qryOptionsInFund: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT *'
' FROM OPTIONS o'
' WHERE o.FUNDID= :AFUNDID'
'')
ColorScheme = True
GeneratorLinks.Strings = (
'OPTIONID=OPTIONS_GEN')
KeyLinks.Strings = (
'OPTIONS.OPTIONID')
MasterSource = dsFund
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'AFUNDID=FUND.FUNDID')
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 115
Top = 438
ParamValues = (
'AFUNDID=0')
end
object dsOptionsInFund: TIB_DataSource
Dataset = qryOptionsInFund
Left = 25
Top = 439
end
object qryCostItem: TIB_Query
ColumnAttributes.Strings = (
'AMOUNT=CURRENCY'
'ACCOUNTNAME=COMPUTED'
'BASICCOSTAMOUNT=COMPUTED;CURRENCY'
'RECACCOUNTNAME=COMPUTED'
'RECUR=BOOLEAN')
DatabaseName = 'FundManager'
FieldsAlignment.Strings = (
'AMOUNT=RIGHT')
FieldsDisplayFormat.Strings = (
'AMOUNT=#,###.00')
FieldsDisplayLabel.Strings = (
'COSTITEMNAME=Item Name'
'AMOUNT=Amount'
'ACTN=Exp Action'
'ACCOUNTNAME=Exp Acc Name'
'RECACCOUNTNAME=Inc Acc Name'
'RECACTN=Inc Action')
FieldsDisplayWidth.Strings = (
'COSTITEMNAME=92'
'AMOUNT=39'
'ACTN=57'
'ACCOUNTID=67'
'ACCOUNTNAME=76'
'RECACTN=56'
'RECACCOUNTNAME=73')
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT '
' COSTITEMID'
' , COSTITEMNAME'
' , OPTIONID'
' , FUNDID'
' , AMOUNT'
' , AMNT'
' , ACTN'
' , RECACTN'
' , ACCOUNTID'
' , RECACCOUNTID '
' , RECUR'
''
' , (SELECT ACCOUNTID FROM ACCOUNT a'
' WHERE a.ACCOUNTID = c.ACCOUNTID)'
' AS ACCOUNTNAME'
' '
' ,(SELECT ACCOUNTID FROM ACCOUNT a'
' WHERE a.ACCOUNTID = c.RECACCOUNTID)'
' AS RECACCOUNTNAME'
''
' ,(SELECT SUM(amount) '
' FROM COSTITEM '
' WHERE (c.FUNDID = :CFUNDID) '
' AND (c.OPTIONID = :COPTIONID))'
' AS BasicCostAmount'
''
'FROM COSTITEM c'
' WHERE (c.FUNDID = :AFUNDID) '
' AND (c.OPTIONID = :AOPTIONID)')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Are you sure you want to delete this item?')
GeneratorLinks.Strings = (
'COSTITEMID=COSTITEM_GEN')
KeyLinks.Strings = (
'COSTITEM.COSTITEMID'
'COSTITEM.OPTIONID'
'COSTITEM.FUNDID')
MasterSource = dsOptions
MasterLinks.Strings = (
'COSTITEM.FUNDID=OPTIONS.FUNDID'
'COSTITEM.OPTIONID=OPTIONS.OPTIONID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'AFUNDID=OPTIONS.FUNDID'
'AOPTIONID=OPTIONS.OPTIONID')
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 470
Top = 317
end
object dsCostItem: TIB_DataSource
Dataset = qryCostItem
Left = 383
Top = 319
end
object dsEditFund: TIB_DataSource
Dataset = qryEditFund
Left = 568
Top = 317
end
object qryEditFund: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM FUND')
ColorScheme = True
GeneratorLinks.Strings = (
'FUND.FUNDID=FUND_GEN')
KeyLinks.Strings = (
'FUND.FUNDID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
AfterPost = qryEditFundAfterPost
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 666
Top = 325
end
object qryGroupsInOption: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT *'
' FROM GROUPSINOPTION g'
''
' LEFT JOIN GROUPS r'
' ON (r.GROUPID=g.GROUPID)'
''
' WHERE (g.OPTIONID = :AOptionID)'
' AND (g.FUNDID = :AFundID)')
ColorScheme = True
KeyLinks.Strings = (
'GROUPSINOPTION.FUNDID'
'GROUPSINOPTION.OPTIONID'
'GROUPSINOPTION.GROUPID')
KeyRelation = 'GROUPSINOPTION'
MasterSource = dsOptionsInFund
MasterLinks.Strings = (
'GROUPSINOPTION.FUNDID=OPTIONS.FUNDID'
'GROUPSINOPTION.OPTIONID=OPTIONS.OPTIONID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'AFUNDID=OPTIONS.FUNDID'
'AOPTIONID=OPTIONS.OPTIONID')
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 113
Top = 276
ParamValues = (
'AOPTIONID=0')
end
object qryMemStatus: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE'
'STATUSID=FALSE'
'MEMSTATUSID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT *'
'FROM MEMSTATUS')
ColorScheme = True
GeneratorLinks.Strings = (
'MEMSTATUSID=STATUS_GEN')
KeyLinks.Strings = (
'MEMSTATUS.MEMSTATUSID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 666
Top = 431
end
object dsRegion: TIB_DataSource
Dataset = qryRegion
Left = 27
Top = 324
end
object qryRegion: TIB_Query
ColumnAttributes.Strings = (
'COUNTRYDESC=COMPUTED')
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT *'
'FROM REGION')
ColorScheme = True
GeneratorLinks.Strings = (
'REGION.REGIONID=REGION_GEN')
KeyLinks.Strings = (
'REGION.REGIONID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 111
Top = 325
end
object qryqryMemberInFund: TIB_DataSource
Dataset = qryMemberInFund
Left = 203
Top = 375
end
object qryMemberInFund: TIB_Query
ColumnAttributes.Strings = (
'COUNTRYDESC=COMPUTED')
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT MEMBERID '
' ,FUNDID'
' ,OPTIONID '
''
' , (SELECT f.FUNDNAME '
' FROM FUND f'
' WHERE f.FUNDID = m.FUNDID) AS FUNDNAME'
''
' , (SELECT o.OPTIONNAME '
' FROM OPTIONS o'
' WHERE o.OPTIONID = m.OPTIONID) AS OPTIONNAME'
' '
' FROM MEMBERINFUND m'
''
' WHERE m.MEMBERID = :AMEMBERID')
ColorScheme = True
KeyLinks.Strings = (
'MEMBERID'
'OPTIONID'
'FUNDID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
ReadOnly = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 287
Top = 373
ParamValues = (
'AMEMBERID=')
end
object qryOptionRelTypeCost: TIB_Query
DatabaseName = 'FundManager'
FieldsGridLabel.Strings = (
'ARELNAME=Relationship'
'MAXAGE=Max Age'
'MINAGE=Min Age')
FieldsDisplayWidth.Strings = (
'ARELNAME=190'
'MAXAGE=62'
'MINAGE=')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT o.*, '
''
' (SELECT NAME FROM RELATIVETYPE r'
' WHERE r.RELATIVETYPEID = o.RELATIVETYPEID)'
' AS ARELNAME'
''
' FROM OPTIONRELTYPEAGE o'
''
' WHERE (OPTIONID = :AOPTIONID)'
' AND (FUNDID = :AFUNDID)'
'')
ColorScheme = True
KeyLinks.Strings = (
'OPTIONID '
'FUNDID'
'RELATIVETYPEID')
KeyRelation = 'OPTIONRELTYPEAGE'
MasterSource = dsOptions
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'AOPTIONID=OPTIONS.OPTIONID '
'AFUNDID=OPTIONS.FUNDID')
RequestLive = True
AfterPost = qryOptionRelTypeCostAfterPost
AfterScroll = qryOptionRelTypeCostAfterScroll
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 666
Top = 272
ParamValues = (
'AOPTIONID=0')
end
object dsOptionRelTypeCost: TIB_DataSource
Dataset = qryOptionRelTypeCost
Left = 568
Top = 272
end
object dsAccount: TIB_DataSource
Dataset = qryAccount
Left = 568
Top = 376
end
object dsEditGroups: TIB_DataSource
Dataset = qryEditGroups
Left = 28
Top = 384
end
object qryEditGroups: TIB_Query
DatabaseName = 'FundManager'
FieldsDisplayLabel.Strings = (
'GROUPNAME=Group Name'
'CONTACT=Contact'
'TEL=Tel'
'FAX=Fax'
'EMAIL=e mail')
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE'
'GROUPID=FALSE'
'REGIONID=FALSE'
'FULLNAME=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT *'
' FROM GROUPS')
ColorScheme = True
KeyLinks.Strings = (
'GROUPID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 113
Top = 380
end
object dsMemberBen: TIB_DataSource
Dataset = qryMemberBen
Left = 376
Top = 167
end
object qryExtraCost: TIB_Query
DatabaseName = 'FundManager'
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT o.FUNDID, '
' o.OPTIONID,'
' o.RELATIVETYPEID, '
' o.EXTRACOST,'
' r.NAME, '
' r.PAYING '
''
' FROM OPTIONRELTYPEAGE o'
''
' LEFT JOIN RELATIVETYPE r'
' ON (o.RELATIVETYPEID=r.RELATIVETYPEID)'
' '
' WHERE (OPTIONID = :AOPTIONID)'
' AND (FUNDID = :AFUNDID)'
''
'')
ColorScheme = False
KeyLinks.Strings = (
'OPTIONID'
'FUNDID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
SearchedEdits = False
SearchedDeletes = False
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 288
Top = 430
ParamValues = (
'AOPTIONID=0')
end
object dsExtraCost: TIB_DataSource
Dataset = qryExtraCost
Left = 200
Top = 429
end
object qryEditGroupsInOption: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
SQL.Strings = (
'SELECT *'
' FROM GROUPSINOPTION g')
ColorScheme = True
KeyLinks.Strings = (
'GROUPSINOPTION.FUNDID'
'GROUPSINOPTION.OPTIONID'
'GROUPSINOPTION.GROUPID')
KeyRelation = 'GROUPSINOPTION'
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 668
Top = 485
end
object dsEditGroupsInOption: TIB_DataSource
Left = 562
Top = 485
end
object dsBen: TIB_DataSource
Dataset = qryBen
Left = 206
Top = 548
end
object qryBen: TIB_Query
DatabaseName = 'FundManager'
FieldsDisplayLabel.Strings = (
'FIRSTNAME=First Name'
'SURNAME=Surname')
FieldsGridLabel.Strings = (
'SURNAME=Surname'
'FIRSTNAME=First Name')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT b.*'
' FROM BENEFICIARY b'
' WHERE b.BENID = :ABENID'
'')
ColorScheme = True
GeneratorLinks.Strings = (
'BENEFICIARY.BENID=BENID_GEN')
KeyLinks.Strings = (
'beneficiary.BENID')
MasterSource = dsMemberBen
MasterLinks.Strings = (
'BENEFICIARY.BENID=MEMBERBEN.BENID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'ABENID=MEMBERBEN.BENID')
OrderingItemNo = 1
OrderingItems.Strings = (
'BEN_ID=ID')
OrderingLinks.Strings = (
'BEN_ID=ITEM=1')
RequestLive = True
SearchingLinks.Strings = (
'BEN_ID=ID')
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 284
Top = 548
end
object dsExtraCostItems: TIB_DataSource
Dataset = qryExtraCostItems
Left = 389
Top = 539
end
object qryExtraCostItems: TIB_Query
ColumnAttributes.Strings = (
'AMOUNT=CURRENCY'
'ACCOUNTNAME=COMPUTED'
'EXTRACOSTAMOUNT=COMPUTED;CURRENCY'
'RECACCOUNTNAME=COMPUTED')
DatabaseName = 'FundManager'
FieldsAlignment.Strings = (
'AMOUNT=RIGHT')
FieldsDisplayFormat.Strings = (
'AMOUNT=#,###.00')
FieldsDisplayLabel.Strings = (
'COSTITEMNAME=Item Name'
'AMOUNT=Amount'
'ACTN=Exp Action'
'ACCOUNTNAME=Exp Acc Name'
'RECACCOUNTNAME=Inc Acc Name'
'RECACTN=Inc Action')
FieldsDisplayWidth.Strings = (
'COSTITEMNAME=90'
'AMOUNT=53'
'ACTN=58'
'ACCOUNTID=67'
'ACCOUNTNAME=77'
'RECACCOUNTNAME=74'
'RECACTN=60')
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT '
' ECOSTITEMID'
' , COSTITEMNAME'
' , OPTIONID'
' , FUNDID'
' , AMOUNT'
' , AMNT'
' , ACTN'
' , RECACTN'
' , ACCOUNTID'
' , RELATIVETYPEID'
' , RECACCOUNTID'
''
' ,(SELECT ACCOUNTID FROM ACCOUNT a'
' WHERE a.ACCOUNTID = e.ACCOUNTID)'
' AS ACCOUNTNAME'
''
' ,(SELECT ACCOUNTID FROM ACCOUNT a'
' WHERE a.ACCOUNTID = e.RECACCOUNTID)'
' AS RECACCOUNTNAME'
''
' ,(SELECT SUM(amount) '
' FROM ECOSTITEM '
' WHERE (e.FUNDID = FUNDID) '
' AND (e.OPTIONID = OPTIONID)'
' AND (e.RELATIVETYPEID = RELATIVETYPEID))'
' AS ExtraCostAmount'
' '
'FROM ECOSTITEM e'
' WHERE (e.FUNDID = :AFUNDID) '
' AND (e.OPTIONID = :AOPTIONID)'
' AND (e.RELATIVETYPEID = :ARELATIVETYPEID)')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Are you sure you want to delete this item?')
GeneratorLinks.Strings = (
'ECOSTITEMID=ECOSTITEM_GEN')
KeyLinks.Strings = (
'ECOSTITEM.ECOSTITEMID')
MasterSource = dsOptionRelTypeCost
MasterLinks.Strings = (
'ECOSTITEM.FUNDID=OPTIONRELTYPEAGE.FUNDID'
'ECOSTITEM.OPTIONID=OPTIONRELTYPEAGE.OPTIONID'
'ECOSTITEM.RELATIVETYPEID=OPTIONRELTYPEAGE.RELATIVETYPEID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'AFUNDID=OPTIONRELTYPEAGE.FUNDID'
'AOPTIONID=OPTIONRELTYPEAGE.OPTIONID'
'ARELATIVETYPEID=OPTIONRELTYPEAGE.RELATIVETYPEID')
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 470
Top = 538
end
object dsUnions: TIB_DataSource
Dataset = qryUnions
Left = 566
Top = 540
end
object qryUnions: TIB_Query
DatabaseName = 'FundManager'
FieldsDisplayLabel.Strings = (
'FIRSTNAME=First Name'
'SURNAME=Surname')
FieldsGridLabel.Strings = (
'SURNAME=Surname'
'FIRSTNAME=First Name')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT *'
' FROM UNIONS')
ColorScheme = True
GeneratorLinks.Strings = (
'UNIONS.UNIONID=UNIONID_GEN')
KeyLinks.Strings = (
'UNIONID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
OrderingItemNo = 1
OrderingItems.Strings = (
'NAME=NAME')
OrderingLinks.Strings = (
'NAME=1')
RequestLive = True
SearchingLinks.Strings = (
'NAME=NAME')
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 668
Top = 540
end
object dsMarketerEDT: TIB_DataSource
Dataset = qryMarketerEDT
Left = 28
Top = 601
end
object dsEnviroOptions: TIB_DataSource
Dataset = qryEnviroOptions
Left = 208
Top = 600
end
object qryEnviroOptions: TIB_Query
ColumnAttributes.Strings = (
'AUTOACCCREATE=BOOLEAN=T,F'
'SAVEONEXIT=BOOLEAN=T,F')
DatabaseName = 'FundManager'
IB_Connection = cnFundMan
SQL.Strings = (
'SELECT * '
' FROM ENVIROOPTIONS ')
ColorScheme = False
GeneratorLinks.Strings = (
'ENVIROOPTIONS.ENVIROOPTIONSID=ENVIROOPTIONSID_GEN')
KeyLinks.Strings = (
'ENVIROOPTIONS.ENVIROOPTIONSID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 288
Top = 600
end
object dsMemGenLedger: TIB_DataSource
Dataset = qryMemGenLedger
Left = 744
Top = 16
end
object qryMemGenLedger: TIB_Query
ColumnAttributes.Strings = (
'TRANSDATE=NOTIME'
'OPTIONNAME=COMPUTED'
'THEFUNDNAME=COMPUTED')
DatabaseName = 'FundManager'
FieldsDisplayWidth.Strings = (
'DESCRIPTION=119'
'FUNDID=59'
'REF=62'
'ACTN=48'
'ACCOUNTID=99'
'THEFUNDNAME=78'
'AMOUNT=65'
'OPTIONNAME=84')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * '
' FROM GENLEDGER'
' _HERE (TRANSDATE >= :ASTARTDATE )'
' AND (TRANSDATE <= :AENDDATE )'
' AND (ACCOUNTID = :AACCOUNTID)'
'ORDER BY ACCOUNTID, TRANSDATE')
ColorScheme = True
GeneratorLinks.Strings = (
'GENLEDGERID = GENLEDGERID_GEN')
KeyLinks.Strings = (
'GENLEDGERID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
SearchedDeletes = False
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 744
Top = 64
end
object dsGenLedger: TIB_DataSource
Dataset = qryGenLedger
Left = 744
Top = 120
end
object dsMembers: TIB_DataSource
Dataset = qryMembers
Left = 28
Top = 554
end
object qryAccount: TIB_Query
DatabaseName = 'FundManager'
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT ACCOUNTID'
'FROM ACCOUNT')
ColorScheme = False
KeyLinks.Strings = (
'account.accountid')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 664
Top = 376
end
object qryGroupCatLK: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT *'
' FROM GROUPCAT'
' '
'ORDER BY GROUPCATNAME')
ColorScheme = True
GeneratorLinks.Strings = (
'GROUPCATID=GROUPCATID_GEN')
KeyLinks.Strings = (
'GROUPCATID=GROUPS.GROUPCATID')
KeyDescLinks.Strings = (
'GROUPCATNAME=AGROUPCATNAME')
KeySource = dsGroups
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 535
Top = 596
end
object dsGroupCatLK: TIB_DataSource
Dataset = qryGroupCatLK
Left = 469
Top = 589
end
object qryGenLedger: TIB_Query
DatabaseName = 'FundManager'
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * '
' FROM GENLEDGER'
' '
'ORDER BY ACCOUNTID, TRANSDATE')
ColorScheme = False
GeneratorLinks.Strings = (
'GENLEDGER.GENLEDGERID=GENLEDGERID_GEN')
KeyLinks.Strings = (
'GENLEDGERID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
BeforePost = qryGenLedgerBeforePost
BufferSynchroFlags = []
FetchWholeRows = True
Left = 744
Top = 168
end
object qryTempTrans: TIB_Query
ColumnAttributes.Strings = (
'TRANSDATE=NOTIME'
'THEFUNDNAME=COMPUTED'
'OPTIONNAME=COMPUTED')
DatabaseName = 'FundManager'
FieldsDisplayFormat.Strings = (
'AMOUNT=R #,###.00')
FieldsDisplayLabel.Strings = (
'THEFUNDNAME=Fund Name'
'OPTIONNAME=Option Name'
'TRANSDATE=Date'
'DESCRIPTION=Description'
'AMOUNT=Amount'
'REF=Ref'
'ACCOUNTID=Account'
'ACTN=Action')
FieldsDisplayWidth.Strings = (
'DESCRIPTION=127'
'OPTIONNAME=90'
'AMOUNT=77'
'REF=72'
'ACTN=47'
'ACCOUNTID=77'
'TRANSDATE=61'
'THEFUNDNAME=76')
FieldsVisible.Strings = (
'TEMPTRANSID=FALSE'
'FUNDID=FALSE'
'OPTIONID=FALSE'
'TALLY=FALSE'
'TRANSREF=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT t.*'
''
' , (SELECT FUNDNAME '
' FROM FUND f'
' WHERE f.FUNDID=t.FUNDID)'
' AS THEFUNDNAME '
''
' , (SELECT OPTIONNAME '
' FROM OPTIONS o'
' WHERE o.OPTIONID=t.OPTIONID)'
' AS OPTIONNAME'
''
'FROM TEMPTRANS t'
'ORDER BY TRANSREF, ACTN, TRANSDATE DESC')
ColorScheme = True
GeneratorLinks.Strings = (
'TEMPTRANSID=TEMPTRANSID_GEN')
KeyLinks.Strings = (
'TEMPTRANSID')
KeyDescLinks.Strings = (
'TEMPTRANS.OPTIONNAME=OPTIONNAME '
'TEMPTRANS.FUNDNAME=THEFUNDNAME')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
AfterPost = qryTempTransAfterPost
BeforeDelete = qryTempTransBeforeDelete
BeforeEdit = qryTempTransBeforeDelete
OnNewRecord = qryTempTransNewRecord
BufferSynchroFlags = []
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 472
Top = 374
end
object dsTempTrans: TIB_DataSource
Dataset = qryTempTrans
Left = 384
Top = 376
end
object qryGroups: TIB_Query
ColumnAttributes.Strings = (
'AGROUPCATNAME=COMPUTED')
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GROUPID=FALSE'
'REGIONID=FALSE'
'GROUPCATID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT g.*,'
''
' (SELECT GROUPCATNAME '
' FROM GROUPCAT t'
' WHERE t.GROUPCATID=g.GROUPCATID) AS AGROUPCATNAME '
' '
' FROM GROUPS g '
' '
'ORDER BY GROUPNAME,'
' ')
ColorScheme = True
GeneratorLinks.Strings = (
'GROUPID=GROUPS_GEN')
KeyLinks.Strings = (
'GROUPS.GROUPID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
FetchWholeRows = True
Left = 112
Top = 224
end
object qryMembers: TIB_Query
DatabaseName = 'FundManager'
FieldsDisplayWidth.Strings = (
'SURNAME=103')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT * FROM MEMBER')
CallbackInc = 0
ColorScheme = True
KeyLinks.Strings = (
'MEMBERID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
OrderingItemNo = 1
OrderingItems.Strings = (
'SURNAME=SURNAME;SURNAME DESC')
OrderingLinks.Strings = (
'SURNAME=ITEM=1')
RequestLive = True
AfterInsert = qryMembersAfterInsert
AfterPost = qryMembersAfterPost
AfterScroll = qryMembersAfterScroll
OnNewRecord = qryMembersNewRecord
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
CommitAction = caRefreshKeys
DMLCacheFlags = [dcfAnnounceEdit, dcfReceiveEdit]
FetchWholeRows = True
Left = 112
Top = 552
end
object qryMemberBen: TIB_Query
ColumnAttributes.Strings = (
'BEN_TITLE=COMPUTED'
'RELATIONSHIP=COMPUTED'
'MEMSTATUSNAME=COMPUTED')
DatabaseName = 'FundManager'
FieldsDisplayLabel.Strings = (
'INITIALS=Initials'
'FIRSTNAME=First Names'
'SURNAME=Surname'
'BEN_TITLE=Title'
'RELATIONSHIP=Relationship'
'MEMSTATUSNAME=Status')
FieldsVisible.Strings = (
'BEN_TITLE=TRUE'
'RCOUNTRYID=FALSE'
'RPROVINCEID=FALSE'
'RCITYID=FALSE'
'RSUBURBID=FALSE'
'TITLEID=TRUE'
'BENID=TRUE'
'RELATIVETYPEID=TRUE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT '
' MEMBERBEN.MEMBERID'
' , MEMBERBEN.RELATIVETYPEID'
' , MEMBERBEN.OPTIONID'
' , MEMBERBEN.FUNDID'
' , MEMBERBEN.BANKID'
' , MEMBERBEN.BRANCHCODE'
' , MEMBERBEN.ACOUNTNO'
' , MEMBERBEN.ACCOUNTTYPEID'
' , MEMBERBEN.BENID'
' , MEMBERBEN.MemStatusId'
''
' , Beneficiary.BENID'
' , Beneficiary.ID'
' , Beneficiary.TITLEID'
' , Beneficiary.INITIALS'
' , Beneficiary.FIRSTNAME'
' , Beneficiary.SURNAME'
' , Beneficiary.HOMETEL'
' , Beneficiary.WORKTEL'
' , Beneficiary.EMAIL'
' , Beneficiary.LANGUAGEID'
' , Beneficiary.RSTREET1'
' , Beneficiary.RSTREET2'
' , Beneficiary.RCOUNTRYID'
' , Beneficiary.RPROVINCEID'
' , Beneficiary.RCITYID'
' , Beneficiary.RSUBURBID'
' '
''
' ,(SELECT TITLE '
' FROM TITLE '
' WHERE TITLE.TITLEID=Beneficiary.TITLEID) '
' AS BEN_TITLE'
''
' ,(SELECT NAME'
' FROM RelativeType '
' WHERE RelativeType.RelativeTypeId = '
' MemberBen.RelativeTypeId) '
' AS Relationship'
''
' ,(SELECT MemStatusName'
' FROM MemStatus '
' WHERE MemStatus.MemStatusId = '
' MemberBen.MemStatusId) '
' AS MemStatusName'
''
'FROM MEMBERBEN '
''
' JOIN Beneficiary '
' ON (Beneficiary.BENID = MEMBERBEN.BENID)'
''
' WHERE (MEMBERBEN.MEMBERID = :MEMBERID)'
' AND (MEMBERBEN.OPTIONID = :OPTIONID) '
' AND (MEMBERBEN.FUNDID = :FUNDID)')
CheckRequired = False
ColorScheme = True
EditSQL.Strings = (
'EXECUTE PROCEDURE UpdateBen (:BENEFICIARY.TitleId'
' , :ID'
' , :BENEFICIARY.INITIALS'
' , :BENEFICIARY.SURNAME'
' , :BENEFICIARY.FIRSTNAME'
' , :BENEFICIARY.HOMETEL '
' , :BENEFICIARY.WORKTEL'
' , :BENEFICIARY.EMAIL'
' , :BENEFICIARY.LANGUAGEID '
' , :BENEFICIARY.RSTREET1 '
' , :BENEFICIARY.RSTREET2 '
' , :BENEFICIARY.RCOUNTRYID '
' , :BENEFICIARY.RPROVINCEID '
' , :BENEFICIARY.RCITYID '
' , :BENEFICIARY.RSUBURBID '
' , :MEMBERBEN.BenID'
' , :MEMBERBEN.RELATIVETYPEID'
' , :MEMBERBEN.FUNDID'
' , :MEMBERBEN.OPTIONID'
' , :MEMBERBEN.MEMBERID '
' , :MEMBERBEN.MemStatusId) ')
InsertSQL.Strings = (
'EXECUTE PROCEDURE INSERT_BEN( :memberben.BENID'
' , :BENEFICIARY.ID'
' , :BENEFICIARY.INITIALS'
' , :BENEFICIARY.SURNAME'
' , :BENEFICIARY.FIRSTNAME'
' , :BENEFICIARY.TITLEID'
' , :BENEFICIARY.HOMETEL '
' , :BENEFICIARY.WORKTEL'
' , :BENEFICIARY.EMAIL'
' , :BENEFICIARY.LANGUAGEID '
' , :BENEFICIARY.RSTREET1 '
' , :BENEFICIARY.RSTREET2 '
' , :BENEFICIARY.RCOUNTRYID '
' , :BENEFICIARY.RPROVINCEID '
' , :BENEFICIARY.RCITYID '
' , :BENEFICIARY.RSUBURBID '
' , :MEMBERBEN.MEMBERID'
' , :MEMBERBEN.RELATIVETYPEID'
' , :MEMBERBEN.OPTIONID'
' , :MEMBERBEN.FUNDID'
' , :MEMBERBEN.BANKID'
' , :MEMBERBEN.BRANCHCODE'#9
' , :MEMBERBEN.ACOUNTNO'#9
' , :MEMBERBEN.ACCOUNTTYPEID '
' , :MEMBERBEN.MemStatusId) '
' '
'')
KeyLinks.Strings = (
'MEMBERBEN.MEMBERID'
'MEMBERBEN.BENID'
'MEMBERBEN.OPTIONID '
'MEMBERBEN.FUNDID ')
KeyLinksAutoDefine = False
MasterSource = dsMemberProfile
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'MEMBERID = MEMBERID'
'OPTIONID = OPTIONID'
'FUNDID = FUNDID')
RequestLive = True
AfterPost = qryMemberBenAfterPost
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 464
Top = 168
end
object OpenDialog1: TOpenDialog
DefaultExt = '*.imp'
Filter = 'Fund Import File Type (*.imp)|*.imp|All Files (*.*)|*.*'
Left = 743
Top = 488
end
object qryCoveredMem: TIB_Query
DatabaseName = 'FundManager'
FieldsVisible.Strings = (
'GENDER'
'EMPLOYERID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT COVEREDMEM.RELATIVETYPEID'
' ,COVEREDMEM.PERSONID'
' ,COVEREDMEM.MEMBERID'
' ,COVEREDMEM.STATUSID'
''
' ,PERSON.PERSONID'
' ,PERSON.FIRSTNAME'
' ,PERSON.SURNAME'
' ,PERSON.ID'
''
' ,ECOSTITEM.AMOUNT'
' ,ECOSTITEM.COSTITEMNAME'
' ,ECOSTITEM.ACTN'
' ,ECOSTITEM.RECACTN'
' ,ECOSTITEM.RECACCOUNTID'
' ,ECOSTITEM.ACCOUNTID'
''
' ,(SELECT NAME'
' FROM RELATIVETYPE'
' WHERE RELATIVETYPE.RELATIVETYPEID ='
' COVEREDMEM.RELATIVETYPEID)'
' AS RELNAME'
''
' ,(SELECT MEMSTATUSNAME'
' FROM MEMSTATUS'
' WHERE MEMSTATUS.MEMSTATUSID ='
' COVEREDMEM.STATUSID)'
' AS STATUSNAME'
''
' FROM COVEREDMEM'
''
' JOIN PERSON'
' ON (PERSON.PERSONID = COVEREDMEM.PERSONID)'
''
' JOIN ECOSTITEM'
' ON (COVEREDMEM.FUNDID = ECOSTITEM.FUNDID AND'
' COVEREDMEM.OPTIONID = ECOSTITEM.OPTIONID AND'
' COVEREDMEM.RELATIVETYPEID = ECOSTITEM.RELATIVETYPEID )'
''
' WHERE (COVEREDMEM.MEMBERID = :MEMBERID)'
' AND (COVEREDMEM.FUNDID = :FUNDID)'
' AND (COVEREDMEM.OPTIONID = :OPTIONID)')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Delete requested. Please Confirm.')
GeneratorLinks.Strings = (
'PersonID=PERSONID_GEN')
KeyLinks.Strings = (
'PersonID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = [bsAfterEdit]
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 740
Top = 219
end
object qryMarketerEDT: TIB_Query
ColumnAttributes.Strings = (
'TITLENAME=COMPUTED')
DatabaseName = 'FundManager'
IB_Connection = cnFundMan
SQL.Strings = (
'select MARKETERID'
' , TITLEID'
' , INITIALS'
' , FIRSTNAME'
' , SURNAME'
' , DOB'
' , HOMETEL'
' , EMAIL'
' , DOE'
''
' ,(select title from title t '
' where t.titleid=m.titleid) '
' as titlename'
''
'from marketer m')
ColorScheme = False
KeyLinks.Strings = (
'marketerid')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
RequestLive = True
BufferSynchroFlags = []
FetchWholeRows = True
Left = 112
Top = 596
end
object IB_SyncCursor1: TIB_SyncCursor
IB_Connection = cnFundMan
ActionEditVal = 'U'
ActionInsertVal = 'I'
ActionDeleteVal = 'D'
EventName = 'IBO$DMLCACHE'
TableName = 'IBO$DMLCACHE'
ColIDName = 'DMLID'
ColActionName = 'DMLACTION'
ColKeyFieldsName = 'KEYFIELDS'
ColKeyValuesNames = 'KEYVALUE1,KEYVALUE2,KEYVALUE3'
ColUserName = 'DMLUSER'
Left = 738
Top = 431
end
object qryBasicCosts: TIB_Query
ColumnAttributes.Strings = (
'AMOUNT=CURRENCY'
'ACCOUNTNAME=COMPUTED'
'BASICCOSTAMOUNT=COMPUTED;CURRENCY'
'RECACCOUNTNAME=COMPUTED'
'RECUR=BOOLEAN')
DatabaseName = 'FundManager'
FieldsAlignment.Strings = (
'AMOUNT=RIGHT')
FieldsDisplayFormat.Strings = (
'AMOUNT=#,###.00')
FieldsDisplayLabel.Strings = (
'COSTITEMNAME=Item Name'
'AMOUNT=Amount'
'ACTN=Exp Action'
'ACCOUNTNAME=Exp Acc Name'
'RECACCOUNTNAME=Inc Acc Name'
'RECACTN=Inc Action')
FieldsDisplayWidth.Strings = (
'COSTITEMNAME=92'
'AMOUNT=39'
'ACTN=57'
'ACCOUNTID=67'
'ACCOUNTNAME=76'
'RECACTN=56'
'RECACCOUNTNAME=73')
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT COSTITEMID'
' , COSTITEMNAME'
' , AMOUNT'
' , OPTIONID'
' , FUNDID'
' , ACTN'
' , ACCOUNTID'
' , RECACCOUNTID'
' , RECUR '
''
' , (SELECT ACCOUNTID FROM ACCOUNT a'
' WHERE a.ACCOUNTID = c.ACCOUNTID)'
' AS ACCOUNTNAME'
' '
' ,(SELECT ACCOUNTID FROM ACCOUNT a'
' WHERE a.ACCOUNTID = c.RECACCOUNTID)'
' AS RECACCOUNTNAME'
''
'FROM COSTITEM c'
' WHERE (c.FUNDID = :AFUNDID) '
' AND (c.OPTIONID = :AOPTIONID)'
' AND (c.Live = '#39'T'#39')'
' AND (c.TransType = :AtransType)')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Are you sure you want to delete this item?')
KeyLinks.Strings = (
'COSTITEM.COSTITEMID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'AFUNDID=OPTIONS.FUNDID'
'AOPTIONID=OPTIONS.OPTIONID')
RequestLive = True
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 742
Top = 265
end
object qryBCInvoice: TIB_Query
ColumnAttributes.Strings = (
'AMOUNT=CURRENCY'
'ACCOUNTNAME=COMPUTED'
'BASICCOSTAMOUNT=COMPUTED;CURRENCY'
'RECACCOUNTNAME=COMPUTED'
'RECUR=BOOLEAN'
'LIVE=BOOLEAN'
'BCINVOICEAMOUNT=COMPUTED;CURRENCY')
DatabaseName = 'FundManager'
FieldsAlignment.Strings = (
'AMOUNT=RIGHT')
FieldsDisplayFormat.Strings = (
'AMOUNT=#,###.00')
FieldsDisplayLabel.Strings = (
'COSTITEMNAME=Item Name'
'AMOUNT=Amount'
'ACTN=Action'
'ACCOUNTNAME=Account'
'RECACCOUNTNAME=Inc Acc Name'
'RECACTN=Inc Action'
'RECUR=Recur'
'LIVE=Live')
FieldsDisplayWidth.Strings = (
'COSTITEMNAME=92'
'AMOUNT=39'
'ACTN=57'
'ACCOUNTID=67'
'ACCOUNTNAME=76'
'RECACTN=56'
'RECACCOUNTNAME=73')
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
SQL.Strings = (
'SELECT '
' COSTITEMID'
' , COSTITEMNAME'
' , OPTIONID'
' , FUNDID'
' , AMOUNT'
' , AMNT'
' , ACTN'
' , ACCOUNTID'
' , RECUR'
' , LIVE'
' , TRANSTYPE'
''
' , (SELECT ACCOUNTID FROM ACCOUNT a'
' WHERE a.ACCOUNTID = c.ACCOUNTID)'
' AS ACCOUNTNAME'
' '
' ,(SELECT ACCOUNTID FROM ACCOUNT a'
' WHERE a.ACCOUNTID = c.RECACCOUNTID)'
' AS RECACCOUNTNAME'
''
' ,(SELECT SUM(amount) '
' FROM COSTITEM c'
' WHERE (c.FUNDID = :AFUNDID) '
' AND (c.OPTIONID = :AOPTIONID)'
' AND (c.TRANSTYPE = '#39'I'#39'))'
' AS BCInvoiceAmount'
''
'FROM COSTITEM c'
' WHERE (c.FUNDID = :AFUNDID) '
' AND (c.OPTIONID = :AOPTIONID)'
' AND (c.TRANSTYPE = '#39'I'#39')')
ColorScheme = True
ConfirmDeletePrompt.Strings = (
'Are you sure you want to delete this item?')
GeneratorLinks.Strings = (
'COSTITEMID=COSTITEM_GEN')
KeyLinks.Strings = (
'COSTITEMID')
KeyRelation = 'COSTITEM'
MasterSource = dsOptions
MasterLinks.Strings = (
'FUNDID=OPTIONS.FUNDID'
'OPTIONID=OPTIONS.OPTIONID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
MasterParamLinks.Strings = (
'AFUNDID=OPTIONS.FUNDID'
'AOPTIONID=OPTIONS.OPTIONID')
RequestLive = True
AfterPost = qryBCInvoiceAfterPost
BeforePost = qryBCInvoiceBeforePost
OnNewRecord = qryBCInvoiceNewRecord
BufferSynchroFlags = [bsAfterEdit, bsAfterInsert]
CommitAction = caRefreshKeys
FetchWholeRows = True
Left = 742
Top = 325
ParamValues = (
'AFUNDID=0')
end
object dsBCInvoice: TIB_DataSource
Dataset = qryBCInvoice
Left = 743
Top = 375
end
object qryBCReceipts: TIB_Query
ColumnAttributes.Strings = (
'AMOUNT=CURRENCY'
'ACCOUNTNAME=COMPUTED'
'BASICCOSTAMOUNT=COMPUTED;CURRENCY'
'RECACCOUNTNAME=COMPUTED'
'RECUR=BOOLEAN'
'LIVE=BOOLEAN'
'BCRECEIPTSAMOUNT=COMPUTED;CURRENCY')
DatabaseName = 'FundManager'
FieldsAlignment.Strings = (
'AMOUNT=RIGHT')
FieldsDisplayFormat.Strings = (
'AMOUNT=#,###.00')
FieldsDisplayLabel.Strings = (
'COSTITEMNAME=Item Name'
'AMOUNT=Amount'
'ACTN=Action'
'ACCOUNTNAME=Account'
'RECACCOUNTNAME=Inc Acc Name'
'RECACTN=Inc Action'
'RECUR=Recur'
'LIVE=Live')
FieldsDisplayWidth.Strings = (
'COSTITEMNAME=66'
'AMOUNT=39'
'ACTN=57'
'ACCOUNTID=67'
'ACCOUNTNAME=76'
'RECACTN=56'
'RECACCOUNTNAME=73'
'BCRECEIPTSAMOUNT=64')
FieldsVisible.Strings = (
'PROVINCEID=FALSE'
'COUNTRYID=FALSE')
IB_Connection = cnFundMan
IB_Transaction = trnFundMan
<br/><br/>(Message over 64 KB, truncated)