object MyDataModule: TMyDataModule OldCreateOrder = False Height = 308 Width = 560 object FDConnection1: TFDConnection Params.Strings = ( 'Database=employee' 'User_Name=sysdba' 'Password=masterkey' 'Protocol=TCPIP' 'Server=localhost' 'DriverID=FB') ConnectedStoredUsage = [] 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 * from customer') 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 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