datamod1.~dfm

this is sample for traders

        'URBAL,'
      'LGN.ADDRESS, LGN.CITY'
      'FROM LGN'
      'WHERE LGN.LGNCODE=:LGNCODE')
    Params = <
      item
        DataType = ftUnknown
        Name = 'LGNCODE'
        ParamType = ptUnknown
      end>
    DataSource = dsSales
    Left = 532
    Top = 280
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'LGNCODE'
        ParamType = ptUnknown
      end>
    object lgnBySalesLGNCODE: TStringField
      FieldName = 'LGNCODE'
      Required = True
      Size = 4
    end
    object lgnBySalesJENIS: TStringField
      FieldName = 'JENIS'
      Size = 4
    end
    object lgnBySalesNAMALGN: TStringField
      FieldName = 'NAMALGN'
      Required = True
      Size = 40
    end
    object lgnBySalesCREDLIMIT: TFloatField
      FieldName = 'CREDLIMIT'
      DisplayFormat = '#,##0.##'
    end
    object lgnBySalesCURBAL: TFloatField
      FieldName = 'CURBAL'
      DisplayFormat = '#,##0.##'
    end
    object lgnBySalesADDRESS: TMemoField
      FieldName = 'ADDRESS'
      Required = True
      BlobType = ftMemo
    end
    object lgnBySalesCITY: TStringField
      FieldName = 'CITY'
    end
  end
  object qFindItem: TZReadOnlyQuery
    Connection = DtaCon
    SQL.Strings = (
      'SELECT ITEM.ITEMCODE,ITEM.ITEMNAME,'
      
        'IFNULL((SELECT ITEM_QTY.ONHAND FROM ITEM_QTY WHERE ITEMCODE=ITEM' +
        '.ITEMCODE),0)  AS ONHAND,'
      'ITEM.UNITID'
      'FROM item'
      'Order By ITEM.ITEMCODE')
    Params = <>
    Left = 412
    Top = 336
    object qFindItemITEMCODE: TStringField
      FieldName = 'ITEMCODE'
      Required = True
    end
    object qFindItemITEMNAME: TStringField
      FieldName = 'ITEMNAME'
      Size = 30
    end
    object qFindItemONHAND: TFloatField
      FieldName = 'ONHAND'
      DisplayFormat = '#,##0.##'
    end
    object qFindItemUNITID: TIntegerField
      FieldName = 'UNITID'
      Required = True
    end
    object qFindItemSAT: TStringField
      FieldKind = fkLookup
      FieldName = 'SAT'
      LookupDataSet = tbSat
      LookupKeyFields = 'UNITID'
      LookupResultField = 'UNITNAME'
      KeyFields = 'UNITID'
      Lookup = True
    end
  end
  object qFindLgn: TZReadOnlyQuery
    Connection = DtaCon
    SQL.Strings = (
      'SELECT LGN.LGNCODE, LGN.NAMALGN, LGN.CREDLIMIT, LGN.CURBAL,'
      'LGN.ADDRESS, LGN.CITY'
      'FROM LGN')
    Params = <>
    Left = 412
    Top = 392
  end
  object qPurc: TZQuery
    Connection = DtaCon
    AfterOpen = qPurcAfterOpen
    OnCalcFields = qPurcCalcFields
    CachedUpdates = True
    OnNewRecord = qPurcNewRecord
    SQL.Strings = (
      'SELECT * FROM PURC'
      'ORDER BY TRDATE,TRNO ASC')
    Params = <>
    Left = 628
    Top = 284
    object qPurcSPLCODE: TStringField
      FieldName = 'SPLCODE'
      OnChange = qPurcSPLCODEChange
      Size = 4
    end
    object qPurcPERIOD: TIntegerField
      FieldName = 'PERIOD'
    end
    object qPurcPOSTED: TSmallintField
      FieldName = 'POSTED'
      Required = True
    end
    object qPurcGRANDTOTAL: TFloatField
      FieldKind = fkCalculated
      FieldName = 'GRANDTOTAL'
      DisplayFormat = '#,##0.##'
      Calculated = True
    end
    object qPurcDUEDATE: TDateField
      FieldName = 'DUEDATE'
    end
    object qPurcUSERNAME: TStringField
      FieldName = 'USERNAME'
      Size = 10
    end
    object qPurcTRNO: TStringField
      FieldName = 'TRNO'
      Required = True
      Size = 14
    end
    object qPurcTRDATE: TDateField
      FieldName = 'TRDATE'
      Required = True
    end
    object qPurcTRTIME: TTimeField
      FieldName = 'TRTIME'
    end
    object qPurcFTAXNO: TStringField
      FieldName = 'FTAXNO'
      Size = 30
    end
    object qPurcSJNO: TStringField
      FieldName = 'SJNO'
      Required = True
      Size = 15
    end
    object qPurcSJDATE: TDateField
      FieldName = 'SJDATE'
    end
    object qPurcSTATUS: TStringField
      FieldName = 'STATUS'
      Required = True
      Size = 1
    end
    object qPurcTERMDAYS: TIntegerField
      FieldName = 'TERMDAYS'
      Required = True
    end
    object qPurcTRTOTAL: TFloatField
      FieldName = 'TRTOTAL'
      DisplayFormat = '#,##0.#0'
    end
    object qPurcTRDISC: TFloatField
      FieldName = 'TRDISC'
      DisplayFormat = '#,##0.#0'
    end
    object qPurcTRPPN: TFloatField
      FieldName = 'TRPPN'
      DisplayFormat = '#,##0.#0'
    end
    object qPurcTRDUE: TFloatField
      FieldName = 'TRDUE'
      DisplayFormat = '#,##0.#0'
    end
    object qPurcPPN: TStringField
      FieldName = 'PPN'
      Required = True
      Size = 1
    end
    object qPurcPCNODE: TStringField
      FieldName = 'PCNODE'
    end
    object qPurcPCNAME: TStringField
      FieldName = 'PCNAME'
      Size = 50
    end
    object qPurcBIAYA: TFloatField
      FieldName = 'BIAYA'
    end
    object qPurcCURR: TStringField
      FieldName = 'CURR'
      Size = 3
    end
    object qPurcEXCHANGE_R: TFloatField
      FieldName = 'EXCHANGE_R'
    end
    object qPurcNAMASPL: TStringField
      FieldKind = fkLookup
      FieldName = 'NAMASPL'
      LookupDataSet = qSPL
      LookupKeyFields = 'SPLCODE'
      LookupResultField = 'NAMASPL'
      KeyFields = 'SPLCODE'
      Lookup = True
    end
    object qPurcTAXREPNO: TIntegerField
      FieldName = 'TAXREPNO'
      Required = True
    end
    object qPurcFTAXDATE: TDateField
      FieldName = 'FTAXDATE'
    end
  end
  object qPurcLine: TZQuery
    Connection = DtaCon
    OnCalcFields = qPurcLineCalcFields
    CachedUpdates = True
    AfterPost = qPurcLineAfterPost
    AfterDelete = qPurcLineAfterDelete
    OnNewRecord = qPurcLineNewRecord
    SQL.Strings = (
      'SELECT * FROM PURCLINE'
      'WHERE TRNO=:TRNO'
      'ORDER BY LINENO ASC')
    Params = <
      item
        DataType = ftUnknown
        Name = 'TRNO'
        ParamType = ptUnknown
      end>
    DataSource = dsPurc
    Left = 676
    Top = 284
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TRNO'
        ParamType = ptUnknown
      end>
    object qPurcLineLINENO: TIntegerField
      FieldName = 'LINENO'
      Required = True
    end
    object qPurcLineITEMCODE: TStringField
      FieldName = 'ITEMCODE'
      Required = True
      OnChange = qPurcLineITEMCODEChange
    end
    object qPurcLineITEMNAME: TStringField
      FieldName = 'ITEMNAME'
      Size = 25
    end
    object qPurcLineQTY: TFloatField
      FieldName = 'QTY'
    end
    object qPurcLinePRICE: TFloatField
      FieldName = 'PRICE'
      DisplayFormat = '#,##0.##'
    end
    object qPurcLineSUBTOTAL: TFloatField
      FieldName = 'SUBTOTAL'
      DisplayFormat = '#,##0.##'
    end
    object qPurcLinePOSTED: TSmallintField
      FieldName = 'POSTED'
      Required = True
    end
    object qPurcLineCPRICE: TFloatField
      FieldKind = fkCalculated
      FieldName = 'CPRICE'
      DisplayFormat = '#,##0.##'
      Calculated = True
    end
    object qPurcLineCSUBTOTAL: TFloatField
      FieldKind = fkCalculated
      FieldName = 'CSUBTOTAL'
      DisplayFormat = '#,##0.##'
      Calculated = True
    end
    object qPurcLineTRNO: TStringField
      FieldName = 'TRNO'
      Required = True
      Size = 14
    end
    object qPurcLineUNITID: TIntegerField
      FieldName = 'UNITID'
    end
    object qPurcLineSAT: TStringField
      FieldName = 'SAT'
      Size = 4
    end
    object qPurcLineDISC_1: TFloatField
      FieldName = 'DISC_1'
    end
    object qPurcLineDISC_2: TFloatField
      FieldName = 'DISC_2'
    end
    object qPurcLineRETQTY: TFloatField
      FieldName = 'RETQTY'
    end
    object qPurcLineNETPRICE: TFloatField
      FieldName = 'NETPRICE'
      DisplayFormat = '#,##0.##'
    end
    object qPurcLineBONUS: TSmallintField
      FieldName = 'BONUS'
      Required = True
    end
    object qPurcLineGDGCODE: TStringField
      FieldName = 'GDGCODE'
      Required = True
      Size = 6
    end
  end
  object dsPurc: TDataSource
    DataSet = qPurc
    Left = 632
    Top = 340
  end
  object dsPurcline: TDataSource
    DataSet = qPurcLine
    Left = 680
    Top = 340
  end
  object ItemByPurc: TZReadOnlyQuery
    Connection = DtaCon
    SQL.Strings = (
      'SELECT ITEM.ITEMCODE, ITEM.ITEMNAME, ITEM.UNITID,'
      '(IFNULL((SELECT (SUM(B.QTY*B.NETPRICE)/SUM(B.QTY))'
      '    FROM PURC A, purcline B'
      '    WHERE'
      
        '    A.TRDATE=(SELECT MAX(TRDATE) FROM PURC,PURCLINE WHERE PURCLI' +
        'NE.ITEMCODE=:ITEMCODE AND PURCLINE.TRNO=PURC.TRNO)'
      '    AND B.TRNO=A.TRNO'
      '    AND B.ITEMCODE=:ITEMCODE'
      '    GROUP BY ITEMCODE),0)) AS LASTCOST'
      'FROM ITEM, ITEM_PRICE'
      'WHERE ITEM.ITEMCODE=:ITEMCODE'
      'AND ITEM_PRICE.ITEMCODE=ITEM.ITEMCODE AND ITEM_PRICE.DEFAU=1')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ITEMCODE'
        ParamType = ptUnknown
      end>
    DataSource = dsPurcline
    Left = 749
    Top = 212
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ITEMCODE'
        ParamType = ptUnknown
      end>
    object ItemByPurcITEMCODE: TStringField
      FieldName = 'ITEMCODE'
      Required = True
    end
    object ItemByPurcITEMNAME: TStringField
      FieldName = 'ITEMNAME'
      Size = 30
    end
    object ItemByPurcUNITID: TIntegerField
      FieldName = 'UNITID'
      Required = True
    end
    object ItemByPurcSAT: TStringField
      FieldKind = fkLookup
      FieldName = 'SAT'
      LookupDataSet = tbSat
      LookupKeyFields = 'UNITID'
      LookupResultField = 'UNITNAME'
      KeyFields = 'UNITID'
      Lookup = True
    end
    object ItemByPurcLASTCOST: TFloatField
      FieldName = 'LASTCOST'
    end
  end
  object SplByPurc: TZReadOnlyQuery
    Connection = DtaCon
    SQL.Strings = (
      
        'SELECT SPL.SPLCODE, SPL.JENIS, SPL.NAMASPL, SPL.NPWP, SPL.CREDLI' +
        'MIT, SPL.CURBAL,'
      'SPL_ADDRESS.ADDRESS, SPL_ADDRESS.CITY'
      'FROM SPL, SPL_ADDRESS'
      
        'WHERE SPL.SPLCODE=SPL_ADDRESS.SPLCODE AND SPL_ADDRESS.GRUP='#39'BISN' +
        'IS'#39
      'AND SPL.SPLCODE=:SPLCODE')
    Params = <
      item
        DataType = ftUnknown
        Name = 'SPLCODE'
        ParamType = ptUnknown
      end>
    DataSource = dsPurc
    Left = 734
    Top = 284
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SPLCODE'
        ParamType = ptUnknown
      end>
    object StringField8: TStringField
      FieldName = 'JENIS'
      Size = 4
    end
    object StringField9: TStringField
      FieldName = 'NPWP'
      Size = 100
    end
    object FloatField3: TFloatField
      FieldName = 'CREDLIMIT'
    end
    object FloatField4: TFloatField
      FieldName = 'CURBAL'
    end
    object FloatField5: TFloatField
      FieldKind = fkCalculated
      FieldName = 'SISALIMIT'
      Calculated = True
    end
    object MemoField2: TMemoField
      FieldName = 'ADDRESS'
      Required = True
      BlobType = ftMemo
    end
    object StringField10: TStringField
      FieldName = 'CITY'
    end
    object SplByPurcSPLCODE: TStringField
      FieldName = 'SPLCODE'
      Required = True
      Size = 4
    end
    object SplByPurcNAMASPL: TStringField
      FieldName = 'NAMASPL'
      Size = 25
    end
  end
  object qFindSpl: TZReadOnlyQuery
    Connection = DtaCon
    SQL.Strings = (
      
        'SELECT SPL.SPLCODE, SPL.NAMASPL, SPL.NPWP, SPL.CREDLIMIT, SPL.CU' +
        'RBAL,'
      'SPL_ADDRESS.ADDRESS, SPL_ADDRESS.CITY'
      'FROM SPL, SPL_ADDRESS'
      
        'WHERE SPL.SPLCODE=SPL_ADDRESS.SPLCODE AND SPL_ADDRESS.GRUP="BISN' +
        'IS"')
    Params = <>
    Left = 628
    Top = 236
    object StringField11: TStringField
      FieldName = 'NPWP'
      Size = 100
    end
    object FloatField6: TFloatField
      FieldName = 'CREDLIMIT'
    end
    object FloatField7: TFloatField
      FieldName = 'CURBAL'
    end
    object MemoField3: TMemoField
      FieldName = 'ADDRESS'
      Required = True
      BlobType = ftMemo
    end
    object StringField12: TStringField
      FieldName = 'CITY'
    end
    object qFindSplSPLCODE: TStringField
      FieldName = 'SPLCODE'
      Required = True
      Size = 4
    end
    object qFindSplNAMASPL: TStringField
      FieldName = 'NAMASPL'
      Size = 25
    end
  end
  object qSatItem: TZReadOnlyQuery
    Connection = DtaCon
    SQL.Strings = (
      'SELECT A.UNITID, B.UNITNAME, A.SELLPRICE'
      'FROM ITEM_PRICE A, ITEM_UNIT B'
      'WHERE ITEMCODE=:ITEMCODE AND A.UNITID=B.UNITID')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ITEMCODE'
        ParamType = ptUnknown
      end>
    Left = 632
    Top = 128
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ITEMCODE'
        ParamType = ptUnknown
      end>
    object qSatItemUNITID: TIntegerField
      FieldName = 'UNITID'
      Required = True
    end
    object qSatItemUNITNAME: TStringField
      FieldName = 'UNITNAME'
      Required = True
      Size = 4
    end
    object qSatItemSELLPRICE: TFloatField
      FieldName = 'SELLPRICE'
    end
  end
  object qSPL: TZQuery
    Connection = DtaCon
    AfterOpen = qSPLAfterOpen
    UpdateObject = ZUpdateSpl
    CachedUpdates = True
    OnNewRecord = qSPLNewRecord
    SQL.Strings = (
      'SELECT SPL.*,SPL_ADDRESS.ADDRESS,SPL_ADDRESS.CITY'
      'FROM SPL,SPL_ADDRESS'
      'WHERE SPL.SPLCODE=SPL_ADDRESS.SPLCODE AND'
      'SPL_ADDRESS.GRUP="BISNIS"'
      'ORDER BY SPLCODE, NAMASPL ASC'
      '')
    Params = <>
    Left = 248
    Top = 236
    object qSPLSPLCODE: TStringField
      FieldName = 'SPLCODE'
      Required = True
      Size = 4
    end
    object qSPLJENIS: TStringField
      FieldName = 'JENIS'
      Size = 50
    end
    object qSPLNAMASPL: TStringField
      FieldName = 'NAMASPL'
      Size = 25
    end
    object qSPLCREDLIMIT: TFloatField
      FieldName = 'CREDLIMIT'
      DisplayFormat = '#,##0'
    end
    object qSPLNPWP: TStringField
      FieldName = 'NPWP'
      Size = 100
    end
    object qSPLOPBAL: TFloatField
      FieldName = 'OPBAL'
      DisplayFormat = '#,##0'
    end
    object qSPLCURBAL: TFloatField
      FieldName = 'CURBAL'
      DisplayFormat = '#,##0.##'
    end
    object qSPLADDRESS2: TMemoField
      FieldName = 'ADDRESS'
      Required = True
      BlobType = ftMemo