datamod1.~dfm

this is sample for traders

object DM1: TDM1
  OldCreateOrder = False
  Left = 192
  Top = 107
  Height = 633
  Width = 830
  object DtaCon: TZConnection
    Protocol = 'mysql-5'
    HostName = 'localhost'
    Port = 3306
    Database = 'lw-lsm@carin'
    User = 'root'
    Password = 'scorpio662310'
    TransactIsolationLevel = tiReadCommitted
    DesignConnection = True
    AfterConnect = DtaConAfterConnect
    OnRollback = DtaConRollback
    Left = 16
    Top = 12
  end
  object qGudang: TZQuery
    Connection = DtaCon
    SQL.Strings = (
      'SELECT * FROM ITEM_GUDANG')
    Params = <>
    Left = 88
    Top = 24
  end
  object qGudangEdit: TZQuery
    Connection = DtaCon
    CachedUpdates = True
    SQL.Strings = (
      'SELECT * FROM ITEM_GUDANG'
      'WHERE GDGCODE=:GDGCODE')
    Params = <
      item
        DataType = ftUnknown
        Name = 'GDGCODE'
        ParamType = ptUnknown
      end>
    DataSource = dsGudang
    Left = 88
    Top = 72
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'GDGCODE'
        ParamType = ptUnknown
      end>
  end
  object dsGudang: TDataSource
    DataSet = qGudang
    Left = 148
    Top = 24
  end
  object qItem: TZQuery
    Connection = DtaCon
    AfterOpen = qItemAfterOpen
    CachedUpdates = True
    SQL.Strings = (
      'SELECT ITEM.*,'
      
        'ITEM_UNIT.UNITNAME AS SAT,ITEM_BRAND.BRANDNAME,ITEM_GRUP.GRUPNAM' +
        'E'
      'FROM ITEM,ITEM_UNIT,ITEM_BRAND,ITEM_GRUP'
      'WHERE ITEM.ITEMCODE LIKE '#39'%'#39
      'AND ITEM.UNITID=ITEM_UNIT.UNITID'
      'AND ITEM.BRANDCODE=ITEM_BRAND.BRANDCODE'
      'AND ITEM.GRUPCODE=ITEM_GRUP.GRUPCODE'
      'ORDER BY ITEM.ITEMCODE, ITEM.ITEMNAME ASC'
      '')
    Params = <>
    Left = 232
    Top = 24
    object qItemITEMCODE: TStringField
      FieldName = 'ITEMCODE'
      Required = True
    end
    object qItemCODEBAR: TStringField
      FieldName = 'CODEBAR'
      Required = True
      Size = 14
    end
    object qItemSERIAL: TSmallintField
      FieldName = 'SERIAL'
    end
    object qItemGRUPCODE: TStringField
      FieldName = 'GRUPCODE'
      Required = True
      Size = 6
    end
    object qItemBRANDCODE: TStringField
      FieldName = 'BRANDCODE'
      Required = True
      Size = 6
    end
    object qItemITEMNAME: TStringField
      FieldName = 'ITEMNAME'
      Required = True
      Size = 30
    end
    object qItemSIZENAME: TStringField
      FieldName = 'SIZENAME'
      Size = 10
    end
    object qItemUNITID: TIntegerField
      FieldName = 'UNITID'
      Required = True
    end
    object qItemLASTCOST: TFloatField
      FieldName = 'LASTCOST'
    end
    object qItemAVGCOST: TFloatField
      FieldName = 'AVGCOST'
    end
    object qItemRELEVEL: TFloatField
      FieldName = 'RELEVEL'
    end
    object qItemFOTO: TBlobField
      FieldName = 'FOTO'
    end
    object qItemLASTUPDATE: TDateField
      FieldName = 'LASTUPDATE'
    end
    object qItemOPBAL: TFloatField
      FieldKind = fkLookup
      FieldName = 'OPBAL'
      LookupDataSet = qItemQTY
      LookupKeyFields = 'ITEMCODE'
      LookupResultField = 'OPBAL'
      KeyFields = 'ITEMCODE'
      Lookup = True
    end
    object qItemONHAND: TFloatField
      FieldKind = fkLookup
      FieldName = 'ONHAND'
      LookupDataSet = qItemQTY
      LookupKeyFields = 'ITEMCODE'
      LookupResultField = 'ONHAND'
      KeyFields = 'ITEMCODE'
      Lookup = True
    end
    object qItemGRUPNAME: TStringField
      FieldName = 'GRUPNAME'
    end
    object qItemBRANDNAME: TStringField
      FieldName = 'BRANDNAME'
    end
    object qItemSAT: TStringField
      FieldName = 'SAT'
      Required = True
      Size = 4
    end
    object qItemSELLPRICE: TFloatField
      FieldKind = fkLookup
      FieldName = 'SELLPRICE'
      LookupDataSet = qItemPrice
      LookupKeyFields = 'ITEMCODE'
      LookupResultField = 'SELLPRICE'
      KeyFields = 'ITEMCODE'
      DisplayFormat = '#,##0.##'
      Lookup = True
    end
    object qItemCURR: TStringField
      FieldKind = fkLookup
      FieldName = 'CURR'
      LookupDataSet = qItemPrice
      LookupKeyFields = 'ITEMCODE'
      LookupResultField = 'CURR'
      KeyFields = 'ITEMCODE'
      Lookup = True
    end
  end
  object qItemGrup: TZQuery
    Connection = DtaCon
    SQL.Strings = (
      'SELECT * FROM ITEM_GRUP')
    Params = <>
    Left = 292
    Top = 24
    object qItemGrupGRUPCODE: TStringField
      FieldName = 'GRUPCODE'
      Required = True
      Size = 6
    end
    object qItemGrupGRUPNAME: TStringField
      FieldName = 'GRUPNAME'
      Required = True
    end
  end
  object qItemBrand: TZQuery
    Connection = DtaCon
    SQL.Strings = (
      'SELECT * FROM ITEM_BRAND')
    Params = <>
    Left = 356
    Top = 24
    object qItemBrandBRANDCODE: TStringField
      FieldName = 'BRANDCODE'
      Required = True
      Size = 6
    end
    object qItemBrandBRANDNAME: TStringField
      FieldName = 'BRANDNAME'
      Required = True
    end
    object qItemBrandPOM: TSmallintField
      FieldName = 'POM'
      Required = True
    end
  end
  object qItemQTY: TZQuery
    Connection = DtaCon
    SQL.Strings = (
      'SELECT *'
      'FROM item_qty')
    Params = <>
    Left = 424
    Top = 24
  end
  object qItemEdit: TZQuery
    Connection = DtaCon
    CachedUpdates = True
    SQL.Strings = (
      'SELECT * FROM ITEM '
      'WHERE ITEMCODE=:ITEMCODE')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ITEMCODE'
        ParamType = ptUnknown
      end>
    DataSource = dsItem
    Left = 236
    Top = 76
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ITEMCODE'
        ParamType = ptUnknown
      end>
  end
  object qItemPrice: TZQuery
    Connection = DtaCon
    SQL.Strings = (
      'SELECT ITEM_PRICE.CURR, ITEM_PRICE.SELLPRICE,ITEM_PRICE.ITEMCODE'
      'FROM ITEM_PRICE, ITEM'
      'WHERE ITEM_PRICE.ITEMCODE=ITEM.ITEMCODE AND ITEM_PRICE.DEFAU=1'
      'GROUP BY ITEM_PRICE.ITEMCODE'
      'ORDER BY ITEM_PRICE.ITEMCODE ASC')
    Params = <>
    Left = 484
    Top = 24
    object qItemPriceCURR: TStringField
      FieldName = 'CURR'
      Size = 3
    end
    object qItemPriceSELLPRICE: TFloatField
      FieldName = 'SELLPRICE'
    end
    object qItemPriceITEMCODE: TStringField
      FieldName = 'ITEMCODE'
      Required = True
    end
  end
  object tbSat: TZTable
    Connection = DtaCon
    TableName = 'item_unit'
    Left = 28
    Top = 144
  end
  object qHisPurc: TZQuery
    Connection = DtaCon
    Params = <>
    Left = 656
    Top = 24
  end
  object dsItem: TDataSource
    DataSet = qItem
    Left = 236
    Top = 132
  end
  object qItemPriceEdit: TZQuery
    Connection = DtaCon
    CachedUpdates = True
    SQL.Strings = (
      'SELECT * FROM ITEM_PRICE WHERE ITEMCODE=:ITEMCODE')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ITEMCODE'
        ParamType = ptUnknown
      end>
    DataSource = dsItem
    Left = 484
    Top = 76
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ITEMCODE'
        ParamType = ptUnknown
      end>
    object qItemPriceEditITEMCODE: TStringField
      FieldName = 'ITEMCODE'
      Required = True
    end
    object qItemPriceEditUNITID: TIntegerField
      FieldName = 'UNITID'
      Required = True
    end
    object qItemPriceEditMIN: TIntegerField
      FieldName = 'MIN'
      DisplayFormat = '###'
    end
    object qItemPriceEditMAX: TIntegerField
      FieldName = 'MAX'
      DisplayFormat = '###'
    end
    object qItemPriceEditCURR: TStringField
      FieldName = 'CURR'
      Size = 3
    end
    object qItemPriceEditDEFAU: TSmallintField
      FieldName = 'DEFAU'
    end
    object qItemPriceEditSELLPRICE: TFloatField
      FieldName = 'SELLPRICE'
      DisplayFormat = '#,##0.#0'
    end
  end
  object tbCurrency: TZTable
    Connection = DtaCon
    TableName = 'curr'
    Left = 28
    Top = 188
  end
  object sysReg: TZQuery
    Connection = DtaCon
    SQL.Strings = (
      'SELECT * FROM SYSREG')
    Params = <>
    Left = 28
    Top = 236
  end
  object frxDBItem: TfrxDBDataset
    UserName = 'frxDBItem'
    CloseDataSource = False
    DataSet = qItem
    Left = 236
    Top = 184
  end
  object qLgn: TZQuery
    Connection = DtaCon
    AfterOpen = qLgnAfterOpen
    SQL.Strings = (
      'SELECT * FROM LGN')
    Params = <>
    Left = 120
    Top = 244
    object qLgnLGNCODE: TStringField
      FieldName = 'LGNCODE'
      Required = True
      Size = 4
    end
    object qLgnNAMALGN: TStringField
      FieldName = 'NAMALGN'
      Required = True
      Size = 40
    end
    object qLgnJENIS: TStringField
      FieldName = 'JENIS'
      Size = 4
    end
    object qLgnCREDLIMIT: TFloatField
      FieldName = 'CREDLIMIT'
    end
    object qLgnOPBAL: TFloatField
      FieldName = 'OPBAL'
    end
    object qLgnCURBAL: TFloatField
      FieldName = 'CURBAL'
    end
    object qLgnADDRESS: TMemoField
      FieldName = 'ADDRESS'
      BlobType = ftMemo
    end
    object qLgnCITY: TStringField
      FieldName = 'CITY'
    end
    object qLgnPOSCODE: TStringField
      FieldName = 'POSCODE'
      Size = 6
    end
    object qLgnCOUNTRY: TStringField
      FieldName = 'COUNTRY'
      Size = 15
    end
  end
  object dsLgn: TDataSource
    DataSet = qLgn
    Left = 120
    Top = 292
  end
  object qEdLgn: TZQuery
    Connection = DtaCon
    CachedUpdates = True
    OnNewRecord = qEdLgnNewRecord
    SQL.Strings = (
      'SELECT * FROM LGN '
      'WHERE LGNCODE=:LGNCODE')
    Params = <
      item
        DataType = ftUnknown
        Name = 'LGNCODE'
        ParamType = ptUnknown
      end>
    DataSource = dsLgn
    Left = 168
    Top = 244
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'LGNCODE'
        ParamType = ptUnknown
      end>
    object qEdLgnLGNCODE: TStringField
      FieldName = 'LGNCODE'
      Required = True
      Size = 4
    end
    object qEdLgnNAMALGN: TStringField
      FieldName = 'NAMALGN'
      Required = True
      Size = 40
    end
    object qEdLgnJENIS: TStringField
      FieldName = 'JENIS'
      Size = 4
    end
    object qEdLgnCREDLIMIT: TFloatField
      FieldName = 'CREDLIMIT'
    end
    object qEdLgnOPBAL: TFloatField
      FieldName = 'OPBAL'
    end
    object qEdLgnCURBAL: TFloatField
      FieldName = 'CURBAL'
    end
    object qEdLgnADDRESS: TMemoField
      FieldName = 'ADDRESS'
      BlobType = ftMemo
    end
    object qEdLgnCITY: TStringField
      FieldName = 'CITY'
    end
    object qEdLgnPOSCODE: TStringField
      FieldName = 'POSCODE'
      Size = 6
    end
    object qEdLgnCOUNTRY: TStringField
      FieldName = 'COUNTRY'
      Size = 15
    end
  end
  object tbTitleName: TZTable
    Connection = DtaCon
    TableName = 'titlename'
    Left = 28
    Top = 288
  end
  object qLgnCtc: TZQuery
    Connection = DtaCon
    CachedUpdates = True
    OnNewRecord = qLgnCtcNewRecord
    SQL.Strings = (
      'SELECT * FROM LGN_CTC'
      'WHERE LGNCODE=:LGNCODE'
      'ORDER BY LINENO ASC')
    Params = <
      item
        DataType = ftUnknown
        Name = 'LGNCODE'
        ParamType = ptUnknown
      end>
    DataSource = dsLgn
    Left = 120
    Top = 396
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'LGNCODE'
        ParamType = ptUnknown
      end>
    object qLgnCtcLGNCODE: TStringField
      FieldName = 'LGNCODE'
      Required = True
      Size = 4
    end
    object qLgnCtcLINENO: TIntegerField
      FieldName = 'LINENO'
      Required = True
    end
    object qLgnCtcCTCPERSON: TStringField
      FieldName = 'CTCPERSON'
      Required = True
      Size = 25
    end
    object qLgnCtcMOBILEPHN: TStringField
      FieldName = 'MOBILEPHN'
      Size = 18
    end
  end
  object qLgnPhone: TZQuery
    Connection = DtaCon
    CachedUpdates = True
    OnNewRecord = qLgnPhoneNewRecord
    SQL.Strings = (
      'SELECT * FROM LGN_TLP'
      'WHERE LGNCODE=:LGNCODE'
      'ORDER BY LINENO ASC')
    Params = <
      item
        DataType = ftUnknown
        Name = 'LGNCODE'
        ParamType = ptUnknown
      end>
    DataSource = dsLgn
    Left = 120
    Top = 344
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'LGNCODE'
        ParamType = ptUnknown
      end>
    object qLgnPhoneLGNCODE: TStringField
      FieldName = 'LGNCODE'
      Required = True
      Size = 4
    end
    object qLgnPhoneLINENO: TIntegerField
      FieldName = 'LINENO'
      Required = True
    end
    object qLgnPhoneTLP: TStringField
      FieldName = 'TLP'
      Size = 16
    end
    object qLgnPhoneJENIS: TStringField
      FieldName = 'JENIS'
      Size = 15
    end
  end
  object dsEdLgn: TDataSource
    DataSet = qEdLgn
    Left = 168
    Top = 292
  end
  object qPegawai: TZQuery
    Connection = DtaCon
    SQL.Strings = (
      'SELECT * FROM PEGAWAI'
      'ORDER BY PEGNIP, PEGNAME ASC')
    Params = <>
    Left = 360
    Top = 168
    object qPegawaiPEGNIP: TStringField
      FieldName = 'PEGNIP'
      Required = True
      Size = 14
    end
    object qPegawaiPEGNAME: TStringField
      FieldName = 'PEGNAME'
      Required = True
      Size = 25
    end
    object qPegawaiJENISID: TStringField
      FieldName = 'JENISID'
      Size = 6