here are the necessary dfm''s

object IB_DateTimePicker1: TIB_DateTimePicker
Left = 144
Top = 168
Width = 186
Height = 21
CalAlignment = dtaLeft
Date = 37830.7768269907
Time = 37830.7768269907
ShowCheckbox = False
Checked = False
Color = clGrayText
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 12
DataField = '"ProduceDate"'
DataSource = ds_produce
end

object produce: TIB_Query
ColumnAttributes.Strings = (
'"ItemName"=COMPUTED'
'"ItemID"=REQUIRED'
'"ProduceTime"=REQUIRED'
'"Qty"=REQUIRED'
'"Unit"=REQUIRED'
'"RecordBy"=REQUIRED'
'"ProduceDate"=REQUIRED')
DatabaseName = 'D:\Works\KSK\database\ACCTDB.GDB'
FieldsCharCase.Strings = (
'"RecordBy"=UPPER'
'"Remarks"=UPPER')
FieldsDisplayFormat.Strings = (
'"ProduceDate"=mm/dd/yy'
'"ProduceTime"=hh:mm AM/PM')
FieldsEditMask.Strings = (
'"ProduceTime"=!90:00> LL;1;_')
FieldsIndex.Strings = (
'ID'
'"ItemID"'
'"ProduceDate"'
'"ProduceTime"'
'"ItemName"'
'"Qty"'
'"Unit"'
'"RecordBy"'
'"Remarks"'
'"Status"')
FieldsReadOnly.Strings = (
'"Qty"=NOEDIT'
'"Unit"=NOEDIT'
'"ItemID"=NOEDIT')
FieldsVisible.Strings = (
'"Base"=TRUE')
IB_Connection = Form_main.IB_Connection1
SQL.Strings = (
'select m.*,'

' (select "Name" from "items" d where d.ID = m."ItemID")
as "I' +
'temName",'

' (select "Base" from "items" d2 where d2.ID = m."ItemID")
as ' +
'"Base"'
'from "produce" m')
ColorScheme = True
DefaultValues.Strings = (
'"Qty"=0'
'"Status"=ACT')
DeleteSQL.Strings = (
'DELETE FROM "produce"'
'WHERE'
' ID = :OLD_ID')
EditSQL.Strings = (
'UPDATE "produce" SET'
' ID = :ID, /*PK*/'
' "ItemID" = :"ItemID",'
' "ProduceDate" = :"ProduceDate",'
' "ProduceTime" = :"ProduceTime",'
' "Qty" = :"Qty",'
' "Unit" = :"Unit",'
' "RecordBy" = :"RecordBy",'
' "Remarks" = :"Remarks",'
' "Status" = :"Status"'
'WHERE'
' ID = :OLD_ID')
GeneratorLinks.Strings = (
'"produce".ID="gen_produce"')
InsertSQL.Strings = (
'INSERT INTO "produce"('
' ID, /*PK*/'
' "ItemID",'
' "ProduceDate",'
' "ProduceTime",'
' "Qty",'
' "Unit",'
' "RecordBy",'
' "Remarks",'
' "Status")'
'VALUES ('
' :ID,'
' :"ItemID",'
' :"ProduceDate",'
' :"ProduceTime",'
' :"Qty",'
' :"Unit",'
' :"RecordBy",'
' :"Remarks",'
' :"Status")')
KeyLinks.Strings = (
'ID')
MasterSearchFlags = [msfOpenMasterOnOpen,
msfSearchAppliesToMasterOnly]
OrderingItemNo = 2
OrderingItems.Strings = (
'"ItemID"="ItemID";"ItemID" DESC'
'"ProduceDate"="ProduceDate";"ProduceDate" DESC')
OrderingLinks.Strings = (
'"ItemID"=ITEM=1'
'"ProduceDate"=ITEM=2')
SearchingLinks.Strings = (
'"ItemID"="ItemID"'
'"ProduceDate"="ProduceDate"')
AfterScroll = produceAfterScroll
BeforeEdit = produceBeforeEdit
BufferSynchroFlags = []
FetchWholeRows = True
Left = 528
Top = 72
end

object ds_produce: TIB_DataSource
Dataset = produce
OnStateChanged = ds_produceStateChanged
Left = 528
Top = 120
end