2016-11-27 23:17:20 +01:00
|
|
|
object MyDataModule: TMyDataModule
|
|
|
|
Height = 308
|
|
|
|
Width = 560
|
|
|
|
object FDConnection1: TFDConnection
|
|
|
|
Params.Strings = (
|
2018-05-16 19:46:29 +02:00
|
|
|
'Database=employee'
|
2016-11-27 23:17:20 +01:00
|
|
|
'User_Name=sysdba'
|
|
|
|
'Password=masterkey'
|
|
|
|
'Protocol=TCPIP'
|
|
|
|
'Server=localhost'
|
2022-11-07 21:35:04 +01:00
|
|
|
'CharacterSet=UTF8'
|
2016-11-27 23:17:20 +01:00
|
|
|
'DriverID=FB')
|
2017-10-09 16:17:12 +02:00
|
|
|
ConnectedStoredUsage = []
|
2022-11-07 21:35:04 +01:00
|
|
|
Connected = True
|
2016-11-27 23:17:20 +01:00
|
|
|
LoginPrompt = False
|
|
|
|
Left = 160
|
|
|
|
Top = 40
|
|
|
|
end
|
|
|
|
object qryCustomers: TFDQuery
|
|
|
|
Connection = FDConnection1
|
2017-05-17 22:32:45 +02:00
|
|
|
FetchOptions.AssignedValues = [evUnidirectional]
|
|
|
|
UpdateOptions.AssignedValues = [uvEDelete, uvEInsert, uvEUpdate]
|
|
|
|
UpdateOptions.EnableDelete = False
|
|
|
|
UpdateOptions.EnableInsert = False
|
|
|
|
UpdateOptions.EnableUpdate = False
|
2016-11-27 23:17:20 +01:00
|
|
|
SQL.Strings = (
|
2022-11-07 21:35:04 +01:00
|
|
|
|
|
|
|
'select customer.*, '#39#20320#22909#39' as cn_hello, '#39#1047#1076#1088#1072#1074#1086#39' as sr_hello from c' +
|
|
|
|
'ustomer')
|
2016-11-27 23:17:20 +01:00
|
|
|
Left = 160
|
|
|
|
Top = 112
|
2017-05-17 22:32:45 +02:00
|
|
|
object qryCustomersCUST_NO: TIntegerField
|
|
|
|
FieldName = 'CUST_NO'
|
|
|
|
Origin = 'CUST_NO'
|
|
|
|
ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
|
|
|
|
Required = True
|
|
|
|
end
|
|
|
|
object qryCustomersCUSTOMER: TStringField
|
|
|
|
FieldName = 'CUSTOMER'
|
|
|
|
Origin = 'CUSTOMER'
|
|
|
|
Required = True
|
|
|
|
Size = 25
|
|
|
|
end
|
|
|
|
object qryCustomersCONTACT_FIRST: TStringField
|
|
|
|
FieldName = 'CONTACT_FIRST'
|
|
|
|
Origin = 'CONTACT_FIRST'
|
|
|
|
Size = 15
|
|
|
|
end
|
|
|
|
object qryCustomersCONTACT_LAST: TStringField
|
|
|
|
FieldName = 'CONTACT_LAST'
|
|
|
|
Origin = 'CONTACT_LAST'
|
|
|
|
end
|
|
|
|
object qryCustomersPHONE_NO: TStringField
|
|
|
|
FieldName = 'PHONE_NO'
|
|
|
|
Origin = 'PHONE_NO'
|
|
|
|
end
|
|
|
|
object qryCustomersADDRESS_LINE1: TStringField
|
|
|
|
FieldName = 'ADDRESS_LINE1'
|
|
|
|
Origin = 'ADDRESS_LINE1'
|
|
|
|
Size = 30
|
|
|
|
end
|
|
|
|
object qryCustomersADDRESS_LINE2: TStringField
|
|
|
|
FieldName = 'ADDRESS_LINE2'
|
|
|
|
Origin = 'ADDRESS_LINE2'
|
|
|
|
Size = 30
|
|
|
|
end
|
|
|
|
object qryCustomersCITY: TStringField
|
|
|
|
FieldName = 'CITY'
|
|
|
|
Origin = 'CITY'
|
|
|
|
Size = 25
|
|
|
|
end
|
|
|
|
object qryCustomersSTATE_PROVINCE: TStringField
|
|
|
|
FieldName = 'STATE_PROVINCE'
|
|
|
|
Origin = 'STATE_PROVINCE'
|
|
|
|
Size = 15
|
|
|
|
end
|
|
|
|
object qryCustomersCOUNTRY: TStringField
|
|
|
|
FieldName = 'COUNTRY'
|
|
|
|
Origin = 'COUNTRY'
|
|
|
|
Size = 15
|
|
|
|
end
|
|
|
|
object qryCustomersPOSTAL_CODE: TStringField
|
|
|
|
FieldName = 'POSTAL_CODE'
|
|
|
|
Origin = 'POSTAL_CODE'
|
|
|
|
Size = 12
|
|
|
|
end
|
|
|
|
object qryCustomersON_HOLD: TStringField
|
|
|
|
FieldName = 'ON_HOLD'
|
|
|
|
Origin = 'ON_HOLD'
|
|
|
|
FixedChar = True
|
|
|
|
Size = 1
|
|
|
|
end
|
2022-11-07 21:35:04 +01:00
|
|
|
object qryCustomersCN_HELLO: TWideStringField
|
|
|
|
AutoGenerateValue = arDefault
|
|
|
|
FieldName = 'CN_HELLO'
|
|
|
|
Origin = 'CN_HELLO'
|
|
|
|
ProviderFlags = []
|
|
|
|
ReadOnly = True
|
|
|
|
FixedChar = True
|
|
|
|
Size = 2
|
|
|
|
end
|
|
|
|
object qryCustomersSR_HELLO: TWideStringField
|
|
|
|
AutoGenerateValue = arDefault
|
|
|
|
FieldName = 'SR_HELLO'
|
|
|
|
Origin = 'SR_HELLO'
|
|
|
|
ProviderFlags = []
|
|
|
|
ReadOnly = True
|
|
|
|
FixedChar = True
|
|
|
|
Size = 6
|
|
|
|
end
|
2016-11-27 23:17:20 +01:00
|
|
|
end
|
|
|
|
object FDPhysFBDriverLink1: TFDPhysFBDriverLink
|
|
|
|
Left = 160
|
|
|
|
Top = 200
|
|
|
|
end
|
|
|
|
object qryCountry: TFDQuery
|
|
|
|
Connection = FDConnection1
|
|
|
|
SQL.Strings = (
|
|
|
|
'SELECT * FROM COUNTRY ORDER BY COUNTRY')
|
|
|
|
Left = 256
|
|
|
|
Top = 112
|
|
|
|
end
|
2017-04-20 23:48:50 +02:00
|
|
|
object FDGUIxWaitCursor1: TFDGUIxWaitCursor
|
|
|
|
Provider = 'Console'
|
|
|
|
Left = 264
|
|
|
|
Top = 200
|
|
|
|
end
|
2016-11-27 23:17:20 +01:00
|
|
|
end
|