datamod1.~dfm

this is sample for traders

    end
    object qSPLCITY: TStringField
      FieldName = 'CITY'
      Size = 10
    end
  end
  object qEdSpl: TZQuery
    Connection = DtaCon
    CachedUpdates = True
    SQL.Strings = (
      'SELECT * FROM SPL'
      'WHERE SPLCODE=:SPLCODE')
    Params = <
      item
        DataType = ftUnknown
        Name = 'SPLCODE'
        ParamType = ptUnknown
      end>
    DataSource = dsSpl
    Left = 296
    Top = 236
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SPLCODE'
        ParamType = ptUnknown
      end>
    object qEdSplSPLCODE: TStringField
      FieldName = 'SPLCODE'
      Required = True
      Size = 4
    end
    object qEdSplNAMASPL: TStringField
      FieldName = 'NAMASPL'
      Size = 25
    end
    object qEdSplJENIS: TStringField
      FieldName = 'JENIS'
      Size = 50
    end
    object qEdSplNPWP: TStringField
      FieldName = 'NPWP'
      Size = 100
    end
    object qEdSplCREDLIMIT: TFloatField
      FieldName = 'CREDLIMIT'
    end
    object qEdSplOPBAL: TFloatField
      FieldName = 'OPBAL'
    end
    object qEdSplCURBAL: TFloatField
      FieldName = 'CURBAL'
    end
  end
  object dsSpl: TDataSource
    DataSet = qSPL
    Left = 248
    Top = 284
  end
  object qSplPhone: TZQuery
    Connection = DtaCon
    CachedUpdates = True
    AfterDelete = qSplPhoneAfterDelete
    OnNewRecord = qSplPhoneNewRecord
    SQL.Strings = (
      'SELECT * FROM SPL_TLP'
      'WHERE SPLCODE=:SPLCODE'
      'ORDER BY LINENO ASC')
    Params = <
      item
        DataType = ftUnknown
        Name = 'SPLCODE'
        ParamType = ptUnknown
      end>
    DataSource = dsSpl
    Left = 248
    Top = 340
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SPLCODE'
        ParamType = ptUnknown
      end>
    object qSplPhoneSPLCODE: TStringField
      FieldName = 'SPLCODE'
      Required = True
      Size = 4
    end
    object qSplPhoneLINENO: TIntegerField
      FieldName = 'LINENO'
      Required = True
    end
    object qSplPhoneTLP: TStringField
      FieldName = 'TLP'
      EditMask = '!\(999\)999-99-99;1;_'
      Size = 16
    end
    object qSplPhoneGRUP: TStringField
      FieldName = 'GRUP'
      Required = True
      Size = 10
    end
    object qSplPhoneJENIS: TStringField
      FieldName = 'JENIS'
      Size = 15
    end
  end
  object qSplPerson: TZQuery
    Connection = DtaCon
    CachedUpdates = True
    AfterDelete = qSplPersonAfterDelete
    OnNewRecord = qSplPersonNewRecord
    SQL.Strings = (
      'SELECT * FROM SPL_CTC'
      'WHERE SPLCODE=:SPLCODE'
      'ORDER BY LINENO ASC')
    Params = <
      item
        DataType = ftUnknown
        Name = 'SPLCODE'
        ParamType = ptUnknown
      end>
    DataSource = dsSpl
    Left = 248
    Top = 396
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SPLCODE'
        ParamType = ptUnknown
      end>
    object qSplPersonSPLCODE: TStringField
      FieldName = 'SPLCODE'
      Required = True
      Size = 4
    end
    object qSplPersonLINENO: TIntegerField
      FieldName = 'LINENO'
      Required = True
    end
    object qSplPersonCTCPERSON: TStringField
      FieldName = 'CTCPERSON'
      Required = True
      Size = 25
    end
    object qSplPersonMOBILEPHN: TStringField
      FieldName = 'MOBILEPHN'
      EditMask = '!\(999\)999-99-9999;1;_'
      Size = 18
    end
  end
  object qSplAddress: TZQuery
    Connection = DtaCon
    CachedUpdates = True
    AfterDelete = qSplAddressAfterDelete
    OnNewRecord = qSplAddressNewRecord
    SQL.Strings = (
      'SELECT * FROM SPL_ADDRESS'
      'WHERE SPLCODE=:SPLCODE'
      'ORDER BY LINENO ASC')
    Params = <
      item
        DataType = ftUnknown
        Name = 'SPLCODE'
        ParamType = ptUnknown
      end>
    DataSource = dsSpl
    Left = 248
    Top = 452
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SPLCODE'
        ParamType = ptUnknown
      end>
    object qSplAddressSPLCODE: TStringField
      FieldName = 'SPLCODE'
      Required = True
      Size = 4
    end
    object qSplAddressLINENO: TIntegerField
      FieldName = 'LINENO'
      Required = True
    end
    object qSplAddressADDRESS: TMemoField
      FieldName = 'ADDRESS'
      Required = True
      BlobType = ftMemo
    end
    object qSplAddressCITY: TStringField
      FieldName = 'CITY'
      Size = 10
    end
    object qSplAddressPOSCODE: TStringField
      FieldName = 'POSCODE'
      Size = 6
    end
    object qSplAddressGRUP: TStringField
      FieldName = 'GRUP'
      Required = True
      Size = 10
    end
    object qSplAddressCOUNTRY: TStringField
      FieldName = 'COUNTRY'
      Size = 15
    end
  end
  object ZUpdateSpl: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM SPL'
      'WHERE'
      '  SPL.SPLCODE = :OLD_SPLCODE;'
      ''
      'DELETE FROM SPL_ADDRESS'
      'WHERE'
      ' SPL_ADDRESS.SPLCODE=:OLD_SPLCODE;'
      ''
      'DELETE FROM SPL_TLP'
      'WHERE'
      ' SPL_TLP.SPLCODE=:OLD_SPLCODE;'
      ''
      'DELETE FROM SPL_CTC'
      'WHERE'
      ' SPL_CTC.SPLCODE=:OLD_SPLCODE;'
      ' ')
    UseSequenceFieldForRefreshSQL = False
    Left = 248
    Top = 508
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'OLD_SPLCODE'
        ParamType = ptUnknown
      end>
  end
  object qFindGudang: TZReadOnlyQuery
    Connection = DtaCon
    SQL.Strings = (
      'SELECT * FROM ITEM_GUDANG'
      'ORDER BY GDGCODE, GDGNAME ASC')
    Params = <>
    Left = 116
    Top = 128
  end
  object frxPurc: TfrxDBDataset
    UserName = 'frxPurc'
    CloseDataSource = False
    DataSet = qPurc
    Left = 480
    Top = 396
  end
  object frxPurcline: TfrxDBDataset
    UserName = 'frxPurcline'
    CloseDataSource = False
    DataSet = qPurcLine
    Left = 484
    Top = 444
  end
  object frxSupplier: TfrxDBDataset
    UserName = 'frxSupplier'
    CloseDataSource = False
    DataSet = SplByPurc
    Left = 536
    Top = 424
  end
  object frxSysReg: TfrxDBDataset
    RangeEnd = reCurrent
    UserName = 'frxSysReg'
    CloseDataSource = False
    DataSet = sysReg
    Left = 716
    Top = 508
  end
  object qRegSP: TZQuery
    Connection = DtaCon
    SQL.Strings = (
      'SELECT * FROM REGSPNO ORDER BY SPNO ASC')
    Params = <>
    Left = 28
    Top = 344
    object qRegSPSPNO: TStringField
      FieldName = 'SPNO'
      Required = True
      Size = 14
    end
  end
  object tbJtempo: TZTable
    Connection = DtaCon
    TableName = 'jtempo'
    Left = 28
    Top = 404
  end
  object dsJtempo: TDataSource
    DataSet = tbJtempo
    Left = 28
    Top = 452
  end
  object dsSalesline: TDataSource
    DataSet = qSalesline
    Left = 356
    Top = 380
  end
  object qFindRetSales: TZQuery
    Connection = DtaCon
    SQL.Strings = (
      
        'SELECT RETSALESLINE.FAKNO, SUM(RETSALESLINE.SUBTOTAL+(RETSALESLI' +
        'NE.SUBTOTAL*0)) AS JUMRETUR'
      'FROM RETSALESLINE, RETSALES, SALES'
      
        'WHERE RETSALESLINE.FAKNO=SALES.TRNO AND RETSALESLINE.TRNO=RETSAL' +
        'ES.TRNO AND RETSALES.STATUS="D"'
      'GROUP BY FAKNO'
      'ORDER BY FAKNO ASC')
    Params = <>
    Left = 328
    Top = 452
  end
  object qPiutangCard: TZQuery
    Connection = DtaCon
    SQL.Strings = (
      'SELECT * FROM SALESPAYCARD'
      'WHERE SPNO=:SPNO'
      'ORDER BY PAYNO ASC')
    Params = <
      item
        DataType = ftUnknown
        Name = 'SPNO'
        ParamType = ptUnknown
      end>
    Left = 416
    Top = 528
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SPNO'
        ParamType = ptUnknown
      end>
    object qPiutangCardSPNO: TStringField
      FieldName = 'SPNO'
      Required = True
      Size = 14
    end
    object qPiutangCardPAYNO: TIntegerField
      FieldName = 'PAYNO'
      Required = True
    end
    object qPiutangCardDUEDATE: TDateField
      FieldName = 'DUEDATE'
      Required = True
      DisplayFormat = 'dd-mm-yyyy'
    end
    object qPiutangCardLGNCODE: TStringField
      FieldName = 'LGNCODE'
      Required = True
      Size = 4
    end
    object qPiutangCardAMOUNT: TFloatField
      FieldName = 'AMOUNT'
      Required = True
      DisplayFormat = '#,##0.##'
    end
    object qPiutangCardPAYED: TSmallintField
      FieldName = 'PAYED'
      Required = True
    end
    object qPiutangCardPAYEDDATE: TDateField
      FieldName = 'PAYEDDATE'
      DisplayFormat = 'dd-mm-yyyy'
    end
    object qPiutangCardCOLLECTOR: TStringField
      FieldName = 'COLLECTOR'
      Size = 14
    end
    object qPiutangCardPEGNAME: TStringField
      FieldKind = fkLookup
      FieldName = 'PEGNAME'
      LookupDataSet = qPegawai
      LookupKeyFields = 'PEGNIP'
      LookupResultField = 'PEGNAME'
      KeyFields = 'COLLECTOR'
      Lookup = True
    end
    object qPiutangCardKWINO: TStringField
      FieldName = 'KWINO'
      Size = 10
    end
  end
  object SalesByPiutang: TZQuery
    Connection = DtaCon
    SQL.Strings = (
      'SELECT * FROM SALES'
      'WHERE TRNO=:SPNO')
    Params = <
      item
        DataType = ftUnknown
        Name = 'SPNO'
        ParamType = ptUnknown
      end>
    DataSource = dsPiutangCard
    Left = 504
    Top = 528
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SPNO'
        ParamType = ptUnknown
      end>
    object SalesByPiutangTRNO: TStringField
      FieldName = 'TRNO'
      Required = True
      Size = 14
    end
    object SalesByPiutangTRDATE: TDateField
      FieldName = 'TRDATE'
      Required = True
    end
    object SalesByPiutangTRTIME: TTimeField
      FieldName = 'TRTIME'
    end
    object SalesByPiutangJTEMPO: TStringField
      FieldName = 'JTEMPO'
      Required = True
      Size = 6
    end
    object SalesByPiutangJRETUR: TFloatField
      FieldName = 'JRETUR'
    end
    object SalesByPiutangSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 1
    end
    object SalesByPiutangANGSURAN: TIntegerField
      FieldName = 'ANGSURAN'
      Required = True
      DisplayFormat = '###'
    end
    object SalesByPiutangJ_ANGSURAN: TFloatField
      FieldName = 'J_ANGSURAN'
      Required = True
      DisplayFormat = '#,##0.##'
    end
    object SalesByPiutangLGNCODE: TStringField
      FieldName = 'LGNCODE'
      Required = True
      Size = 4
    end
    object SalesByPiutangPEGNIP: TStringField
      FieldName = 'PEGNIP'
      Required = True
      Size = 14
    end
    object SalesByPiutangTRTOTAL: TFloatField
      FieldName = 'TRTOTAL'
      DisplayFormat = '#,##0.##'
    end
    object SalesByPiutangTRDISC: TFloatField
      FieldName = 'TRDISC'
    end
    object SalesByPiutangTRDP: TFloatField
      FieldName = 'TRDP'
      DisplayFormat = '#,##0.##'
    end
    object SalesByPiutangTRDUE: TFloatField
      FieldName = 'TRDUE'
    end
    object SalesByPiutangTRSISA: TFloatField
      FieldName = 'TRSISA'
      Required = True
      DisplayFormat = '#,##0.##'
    end
    object SalesByPiutangPRINTED: TSmallintField
      FieldName = 'PRINTED'
    end
    object SalesByPiutangUSERNAME: TStringField
      FieldName = 'USERNAME'
      Size = 10
    end
    object SalesByPiutangPCNODE: TStringField
      FieldName = 'PCNODE'
      Size = 100
    end
    object SalesByPiutangPCNAME: TStringField
      FieldName = 'PCNAME'
      Size = 100
    end
    object SalesByPiutangPERIOD: TIntegerField
      FieldName = 'PERIOD'
    end
    object SalesByPiutangPOSTED: TSmallintField
      FieldName = 'POSTED'
      Required = True
    end
    object SalesByPiutangDEALERNAME: TStringField
      FieldKind = fkLookup
      FieldName = 'DEALERNAME'
      LookupDataSet = qPegawai
      LookupKeyFields = 'PEGNIP'
      LookupResultField = 'PEGNAME'
      KeyFields = 'PEGNIP'
      Lookup = True
    end
    object SalesByPiutangTOTALPAYED: TFloatField
      FieldName = 'TOTALPAYED'
      DisplayFormat = '#,##0.##'
    end
    object SalesByPiutangTOTALBAL: TFloatField
      FieldName = 'TOTALBAL'
      DisplayFormat = '#,##0.##'
    end
  end
  object dsPiutangCard: TDataSource
    DataSet = qPiutangCard
    Left = 416
    Top = 480
  end
  object lgnByPiutang: TZReadOnlyQuery
    Connection = DtaCon
    SQL.Strings = (
      
        'SELECT LGN.LGNCODE, LGN.JENIS, LGN.NAMALGN, LGN.CREDLIMIT, LGN.C' +
        'URBAL,'
      'LGN_ADDRESS.ADDRESS, LGN_ADDRESS.CITY'
      'FROM LGN, LGN_ADDRESS'
      
        'WHERE LGN.LGNCODE=LGN_ADDRESS.LGNCODE AND LGN_ADDRESS.GRUP="BISN' +
        'IS"'
      'AND LGN.LGNCODE=:LGNCODE')
    Params = <
      item
        DataType = ftUnknown
        Name = 'LGNCODE'
        ParamType = ptUnknown
      end>
    DataSource = dsPiutangCard
    Left = 588
    Top = 528
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'LGNCODE'
        ParamType = ptUnknown
      end>
  end
  object qPayEdit: TZQuery
    Connection = DtaCon
    CachedUpdates = True
    AfterApplyUpdates = qPayEditAfterApplyUpdates
    SQL.Strings = (
      'SELECT * FROM SALESPAYCARD'
      'WHERE SPNO=:SPNO AND PAYNO=:PAYNO')
    Params = <
      item
        DataType = ftUnknown
        Name = 'SPNO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAYNO'
        ParamType = ptUnknown
      end>
    DataSource = dsPiutangCard
    Left = 540
    Top = 484
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SPNO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAYNO'
        ParamType = ptUnknown
      end>
  end
end