mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 00:05:53 +01:00
109 lines
2.8 KiB
Plaintext
109 lines
2.8 KiB
Plaintext
object MyDataModule: TMyDataModule
|
|
OldCreateOrder = False
|
|
Height = 308
|
|
Width = 560
|
|
object FDConnection1: TFDConnection
|
|
Params.Strings = (
|
|
'Database=C:\FB30\examples\empbuild\EMPLOYEE.FDB'
|
|
'User_Name=sysdba'
|
|
'Password=masterkey'
|
|
'Protocol=TCPIP'
|
|
'Server=localhost'
|
|
'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 * 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
|