object MyDataModule: TMyDataModule Height = 308 Width = 560 object FDConnection1: TFDConnection Params.Strings = ( 'Database=employee' 'User_Name=sysdba' 'Password=masterkey' 'Protocol=TCPIP' 'Server=localhost' 'CharacterSet=UTF8' 'DriverID=FB') ConnectedStoredUsage = [] Connected = True LoginPrompt = False Left = 160 Top = 40 end object qryCustomers: TFDQuery Connection = FDConnection1 FetchOptions.AssignedValues = [evUnidirectional] UpdateOptions.AssignedValues = [uvEDelete, uvEInsert, uvEUpdate] UpdateOptions.EnableDelete = False UpdateOptions.EnableInsert = False UpdateOptions.EnableUpdate = False SQL.Strings = ( 'select customer.*, '#39#20320#22909#39' as cn_hello, '#39#1047#1076#1088#1072#1074#1086#39' as sr_hello from c' + 'ustomer') Left = 160 Top = 112 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 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 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 object FDGUIxWaitCursor1: TFDGUIxWaitCursor Provider = 'Console' Left = 264 Top = 200 end end