datamod1.~dfm

this is sample for traders

    end
    object qPegawaiPEGID: TStringField
      FieldName = 'PEGID'
      Size = 25
    end
    object qPegawaiALAMAT: TMemoField
      FieldName = 'ALAMAT'
      BlobType = ftMemo
    end
    object qPegawaiRTRW: TStringField
      FieldName = 'RTRW'
      Size = 6
    end
    object qPegawaiKELURAHAN: TStringField
      FieldName = 'KELURAHAN'
      Size = 25
    end
    object qPegawaiKECAMATAN: TStringField
      FieldName = 'KECAMATAN'
      Size = 25
    end
    object qPegawaiKOTA: TStringField
      FieldName = 'KOTA'
    end
    object qPegawaiKODEPOS: TStringField
      FieldName = 'KODEPOS'
      Size = 6
    end
    object qPegawaiPHONE_1: TStringField
      FieldName = 'PHONE_1'
      Size = 14
    end
    object qPegawaiPHONE_2: TStringField
      FieldName = 'PHONE_2'
      Size = 14
    end
    object qPegawaiHANDPHONE: TStringField
      FieldName = 'HANDPHONE'
      Size = 14
    end
    object qPegawaiBIRTHPLACE: TStringField
      FieldName = 'BIRTHPLACE'
    end
    object qPegawaiBIRTHDAY: TDateField
      FieldName = 'BIRTHDAY'
    end
    object qPegawaiSEX: TStringField
      FieldName = 'SEX'
      Size = 1
    end
    object qPegawaiAGAMA: TStringField
      FieldName = 'AGAMA'
      Size = 9
    end
    object qPegawaiWN: TStringField
      FieldName = 'WN'
      Size = 15
    end
    object qPegawaiHIREDATE: TDateField
      FieldName = 'HIREDATE'
    end
    object qPegawaiFOTO: TBlobField
      FieldName = 'FOTO'
    end
    object qPegawaiMARITAL: TStringField
      FieldName = 'MARITAL'
      Size = 11
    end
    object qPegawaiJABATAN: TStringField
      FieldName = 'JABATAN'
      Size = 2
    end
    object qPegawaiDEPARTMENT: TStringField
      FieldName = 'DEPARTMENT'
      Size = 2
    end
    object qPegawaiDEPNAME: TStringField
      FieldKind = fkLookup
      FieldName = 'DEPNAME'
      LookupDataSet = tbDepartment
      LookupKeyFields = 'DPTID'
      LookupResultField = 'DPTNAME'
      KeyFields = 'DEPARTMENT'
      Lookup = True
    end
    object qPegawaiJABNAME: TStringField
      FieldKind = fkLookup
      FieldName = 'JABNAME'
      LookupDataSet = tbJabatan
      LookupKeyFields = 'JBTID'
      LookupResultField = 'JABATAN'
      KeyFields = 'JABATAN'
      Lookup = True
    end
  end
  object qPegawaiEdit: TZQuery
    Connection = DtaCon
    SQL.Strings = (
      'SELECT * FROM PEGAWAI'
      'WHERE PEGNIP=:PEGNIP')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PEGNIP'
        ParamType = ptUnknown
      end>
    DataSource = dsPegawai
    Left = 420
    Top = 168
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PEGNIP'
        ParamType = ptUnknown
      end>
    object qPegawaiEditPEGNIP: TStringField
      FieldName = 'PEGNIP'
      Required = True
      Size = 14
    end
    object qPegawaiEditPEGNAME: TStringField
      FieldName = 'PEGNAME'
      Required = True
      Size = 25
    end
    object qPegawaiEditJENISID: TStringField
      FieldName = 'JENISID'
      Size = 6
    end
    object qPegawaiEditPEGID: TStringField
      FieldName = 'PEGID'
      Size = 25
    end
    object qPegawaiEditALAMAT: TMemoField
      FieldName = 'ALAMAT'
      BlobType = ftMemo
    end
    object qPegawaiEditRTRW: TStringField
      FieldName = 'RTRW'
      Size = 6
    end
    object qPegawaiEditKELURAHAN: TStringField
      FieldName = 'KELURAHAN'
      Size = 25
    end
    object qPegawaiEditKECAMATAN: TStringField
      FieldName = 'KECAMATAN'
      Size = 25
    end
    object qPegawaiEditKOTA: TStringField
      FieldName = 'KOTA'
    end
    object qPegawaiEditKODEPOS: TStringField
      FieldName = 'KODEPOS'
      Size = 6
    end
    object qPegawaiEditPHONE_1: TStringField
      FieldName = 'PHONE_1'
      Size = 14
    end
    object qPegawaiEditPHONE_2: TStringField
      FieldName = 'PHONE_2'
      Size = 14
    end
    object qPegawaiEditHANDPHONE: TStringField
      FieldName = 'HANDPHONE'
      Size = 14
    end
    object qPegawaiEditBIRTHPLACE: TStringField
      FieldName = 'BIRTHPLACE'
    end
    object qPegawaiEditBIRTHDAY: TDateField
      FieldName = 'BIRTHDAY'
    end
    object qPegawaiEditSEX: TStringField
      FieldName = 'SEX'
      Size = 1
    end
    object qPegawaiEditAGAMA: TStringField
      FieldName = 'AGAMA'
      Size = 9
    end
    object qPegawaiEditWN: TStringField
      FieldName = 'WN'
      Size = 15
    end
    object qPegawaiEditHIREDATE: TDateField
      FieldName = 'HIREDATE'
    end
    object qPegawaiEditFOTO: TBlobField
      FieldName = 'FOTO'
    end
    object qPegawaiEditMARITAL: TStringField
      FieldName = 'MARITAL'
      Size = 11
    end
    object qPegawaiEditJABATAN: TStringField
      FieldName = 'JABATAN'
      Size = 2
    end
    object qPegawaiEditDEPARTMENT: TStringField
      FieldName = 'DEPARTMENT'
      Size = 2
    end
  end
  object dsPegawai: TDataSource
    DataSet = qPegawai
    Left = 360
    Top = 216
  end
  object tbJabatan: TZTable
    Connection = DtaCon
    TableName = 'jabatan'
    Left = 528
    Top = 116
  end
  object tbDepartment: TZTable
    Connection = DtaCon
    TableName = 'department'
    Left = 532
    Top = 172
  end
  object lsSales: TZQuery
    Connection = DtaCon
    SQL.Strings = (
      
        'SELECT SALES.TRDATE,SALES.TRNO,SALES.LGNCODE,LGN.NAMALGN,SALES.P' +
        'EGNIP,PEGAWAI.PEGNAME,'
      'SALES.TRTOTAL,SALES.TRDP,SALES.TRDUE,SALES.STATUS,SALES.TRSISA'
      'FROM SALES,LGN,PEGAWAI'
      'WHERE SALES.LGNCODE=LGN.LGNCODE AND SALES.PEGNIP=PEGAWAI.PEGNIP'
      'ORDER BY SALES.TRNO, SALES.TRDATE ASC')
    Params = <>
    Left = 304
    Top = 284
    object lsSalesTRDATE: TDateField
      FieldName = 'TRDATE'
      Required = True
      DisplayFormat = 'dd-mm-yyyy'
    end
    object lsSalesTRNO: TStringField
      FieldName = 'TRNO'
      Required = True
      Size = 14
    end
    object lsSalesLGNCODE: TStringField
      FieldName = 'LGNCODE'
      Size = 4
    end
    object lsSalesNAMALGN: TStringField
      FieldName = 'NAMALGN'
      Required = True
      Size = 40
    end
    object lsSalesTRTOTAL: TFloatField
      FieldName = 'TRTOTAL'
      DisplayFormat = '#,##0'
    end
    object lsSalesSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 1
    end
    object lsSalesJUMRETUR: TFloatField
      FieldKind = fkLookup
      FieldName = 'JUMRETUR'
      LookupDataSet = qFindRetSales
      LookupKeyFields = 'FAKNO'
      LookupResultField = 'JUMRETUR'
      KeyFields = 'TRNO'
      DisplayFormat = '#,##0'
      Lookup = True
    end
    object lsSalesTRDP: TFloatField
      FieldName = 'TRDP'
      DisplayFormat = '#,##0.##'
    end
    object lsSalesTRSISA: TFloatField
      FieldName = 'TRSISA'
      Required = True
      DisplayFormat = '#,##0.##'
    end
    object lsSalesPEGNAME: TStringField
      FieldName = 'PEGNAME'
      Required = True
      Size = 25
    end
  end
  object qSales: TZQuery
    Connection = DtaCon
    OnCalcFields = qSalesCalcFields
    CachedUpdates = True
    OnNewRecord = qSalesNewRecord
    SQL.Strings = (
      'SELECT * FROM sales')
    Params = <>
    Left = 356
    Top = 272
    object qSalesTRNO: TStringField
      FieldName = 'TRNO'
      Required = True
      OnChange = qSalesTRNOChange
      Size = 14
    end
    object qSalesTRDATE: TDateField
      FieldName = 'TRDATE'
      Required = True
      DisplayFormat = 'dd-mm-yyyy'
    end
    object qSalesTRTIME: TTimeField
      FieldName = 'TRTIME'
    end
    object qSalesSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 1
    end
    object qSalesLGNCODE: TStringField
      FieldName = 'LGNCODE'
      OnChange = qSalesLGNCODEChange
      Size = 4
    end
    object qSalesPEGNIP: TStringField
      FieldName = 'PEGNIP'
      Size = 14
    end
    object qSalesTRTOTAL: TFloatField
      FieldName = 'TRTOTAL'
      DisplayFormat = '#,##0'
    end
    object qSalesTRDISC: TFloatField
      FieldName = 'TRDISC'
      DisplayFormat = '#,##0'
    end
    object qSalesTRDUE: TFloatField
      FieldName = 'TRDUE'
      DisplayFormat = '#,##0'
    end
    object qSalesPRINTED: TSmallintField
      FieldName = 'PRINTED'
    end
    object qSalesUSERNAME: TStringField
      FieldName = 'USERNAME'
      Size = 10
    end
    object qSalesPCNODE: TStringField
      FieldName = 'PCNODE'
      Size = 100
    end
    object qSalesPCNAME: TStringField
      FieldName = 'PCNAME'
      Size = 100
    end
    object qSalesPERIOD: TIntegerField
      FieldName = 'PERIOD'
    end
    object qSalesPOSTED: TSmallintField
      FieldName = 'POSTED'
      Required = True
    end
    object qSalesGRANDTOTAL: TFloatField
      FieldKind = fkCalculated
      FieldName = 'GRANDTOTAL'
      DisplayFormat = '#,##0'
      Calculated = True
    end
    object qSalesJTEMPO: TStringField
      FieldName = 'JTEMPO'
      Required = True
      Size = 6
    end
    object qSalesJRETUR: TFloatField
      FieldName = 'JRETUR'
    end
    object qSalesANGSURAN: TIntegerField
      FieldName = 'ANGSURAN'
      DisplayFormat = '##0'
    end
    object qSalesTRDP: TFloatField
      FieldName = 'TRDP'
      DisplayFormat = '#,##0.#0'
    end
    object qSalesTRSISA: TFloatField
      FieldName = 'TRSISA'
      DisplayFormat = '#,##0.#0'
    end
    object qSalesJ_ANGSURAN: TFloatField
      FieldName = 'J_ANGSURAN'
      Required = True
      DisplayFormat = '#,##0.##'
    end
    object qSalesCSISA: TFloatField
      FieldKind = fkCalculated
      FieldName = 'CSISA'
      DisplayFormat = '#,##0.#0'
      Calculated = True
    end
    object qSalesCJANG: TFloatField
      FieldKind = fkCalculated
      FieldName = 'CJANG'
      DisplayFormat = '#,##0.#0'
      Calculated = True
    end
    object qSalesTOTALPAYED: TFloatField
      FieldName = 'TOTALPAYED'
    end
    object qSalesTOTALBAL: TFloatField
      FieldName = 'TOTALBAL'
    end
  end
  object qSalesline: TZQuery
    Connection = DtaCon
    OnCalcFields = qSaleslineCalcFields
    CachedUpdates = True
    AfterPost = qSaleslineAfterPost
    AfterDelete = qSaleslineAfterDelete
    OnNewRecord = qSaleslineNewRecord
    SQL.Strings = (
      'SELECT * FROM SALESLINE'
      'WHERE TRNO=:TRNO'
      'ORDER BY LINENO ASC')
    Params = <
      item
        DataType = ftUnknown
        Name = 'TRNO'
        ParamType = ptUnknown
      end>
    DataSource = dsSales
    Left = 400
    Top = 272
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TRNO'
        ParamType = ptUnknown
      end>
    object qSaleslineTRNO: TStringField
      FieldName = 'TRNO'
      Required = True
      Size = 14
    end
    object qSaleslineLINENO: TIntegerField
      FieldName = 'LINENO'
      Required = True
    end
    object qSaleslineITEMCODE: TStringField
      FieldName = 'ITEMCODE'
      Required = True
      OnChange = qSaleslineITEMCODEChange
    end
    object qSaleslineITEMNAME: TStringField
      FieldName = 'ITEMNAME'
      Size = 30
    end
    object qSaleslineQTY: TFloatField
      FieldName = 'QTY'
      DisplayFormat = '#,##0.##'
    end
    object qSaleslineUNITID: TIntegerField
      FieldName = 'UNITID'
    end
    object qSaleslineSAT: TStringField
      FieldName = 'SAT'
      Size = 4
    end
    object qSaleslinePRICE: TFloatField
      FieldName = 'PRICE'
      DisplayFormat = '#,##0'
    end
    object qSaleslineDISC_1: TFloatField
      FieldName = 'DISC_1'
      DisplayFormat = '##0.##'
    end
    object qSaleslineSUBTOTAL: TFloatField
      FieldName = 'SUBTOTAL'
      DisplayFormat = '#,##0'
    end
    object qSaleslineNETPRICE: TFloatField
      FieldName = 'NETPRICE'
      DisplayFormat = '#,##0'
    end
    object qSaleslineCOST: TFloatField
      FieldName = 'COST'
      DisplayFormat = '#,##0'
    end
    object qSaleslineCONVHINT: TStringField
      FieldName = 'CONVHINT'
      Size = 25
    end
    object qSaleslineRETQTY: TFloatField
      FieldName = 'RETQTY'
      DisplayFormat = '#,##0.##'
    end
    object qSaleslinePOSTED: TSmallintField
      FieldName = 'POSTED'
      Required = True
    end
    object qSaleslineCSUBTOTAL: TFloatField
      FieldKind = fkCalculated
      FieldName = 'CSUBTOTAL'
      DisplayFormat = '#,##0'
      Calculated = True
    end
  end
  object dsSales: TDataSource
    DataSet = qSales
    Left = 356
    Top = 324
  end
  object ItemBySales: TZReadOnlyQuery
    Connection = DtaCon
    OnCalcFields = ItemBySalesCalcFields
    SQL.Strings = (
      
        'SELECT ITEM.ITEMCODE, ITEM.ITEMNAME, ITEM_PRICE.SELLPRICE, ITEM.' +
        'UNITID'
      '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 = dsSalesline
    Left = 468
    Top = 276
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ITEMCODE'
        ParamType = ptUnknown
      end>
    object ItemBySalesITEMCODE: TStringField
      FieldName = 'ITEMCODE'
      Required = True
    end
    object ItemBySalesITEMNAME: TStringField
      FieldName = 'ITEMNAME'
      Size = 30
    end
    object ItemBySalesSELLPRICE: TFloatField
      FieldName = 'SELLPRICE'
      DisplayFormat = '#,##0.##'
    end
    object ItemBySalesSAT: TStringField
      FieldKind = fkLookup
      FieldName = 'SAT'
      LookupDataSet = tbSat
      LookupKeyFields = 'UNITID'
      LookupResultField = 'UNITNAME'
      KeyFields = 'UNITID'
      Lookup = True
    end
    object ItemBySalesUNITID: TIntegerField
      FieldName = 'UNITID'
      Required = True
    end
    object ItemBySalesONHAND: TFloatField
      FieldKind = fkLookup
      FieldName = 'ONHAND'
      LookupDataSet = qItemQTY
      LookupKeyFields = 'ITEMCODE'
      LookupResultField = 'ONHAND'
      KeyFields = 'ITEMCODE'
      DisplayFormat = '#,##0.##'
      Lookup = True
    end
    object ItemBySalesHITSALDO: TFloatField
      FieldKind = fkCalculated
      FieldName = 'HITSALDO'
      DisplayFormat = '#,##0.##'
      Calculated = True
    end
  end
  object lgnBySales: TZQuery
    Connection = DtaCon
    SQL.Strings = (
      
        'SELECT LGN.LGNCODE, LGN.JENIS, LGN.NAMALGN, LGN.CREDLIMIT, LGN.C' +