unit1.dfm

Basic Marketing stock Program

    object STOKTADI: TStringField
      FieldName = 'ADI'
      Size = 40
    end
    object STOKTBIRIM: TStringField
      FieldName = 'BIRIM'
      Size = 2
    end
    object STOKTGRUPKODU: TFloatField
      FieldName = 'GRUPKODU'
    end
    object STOKTKDV: TFloatField
      FieldName = 'KDV'
    end
    object STOKTISKONTO: TFloatField
      FieldName = 'ISKONTO'
    end
    object STOKTDOVKOD: TStringField
      FieldName = 'DOVKOD'
      Size = 10
    end
    object STOKTALISFIYAT: TFloatField
      FieldName = 'ALISFIYAT'
      DisplayFormat = '###,###,###,###'
    end
    object STOKTSFIYAT1: TFloatField
      FieldName = 'SFIYAT1'
      DisplayFormat = '###,###,###,###'
    end
    object STOKTSFIYAT2: TFloatField
      FieldName = 'SFIYAT2'
      DisplayFormat = '###,###,###,###'
    end
    object STOKTSFIYAT3: TFloatField
      FieldName = 'SFIYAT3'
      DisplayFormat = '###,###,###,###'
    end
    object STOKTKRITIKSTOK: TFloatField
      FieldName = 'KRITIKSTOK'
    end
    object STOKTGIRMIK: TFloatField
      FieldName = 'GIRMIK'
    end
    object STOKTCIKMIK: TFloatField
      FieldName = 'CIKMIK'
    end
    object STOKTMEVCUT: TFloatField
      FieldName = 'MEVCUT'
    end
    object STOKTLGRUP: TStringField
      FieldKind = fkLookup
      FieldName = 'LGRUP'
      LookupDataSet = GRUPT
      LookupKeyFields = 'SIRKOD;KODU'
      LookupResultField = 'ADI'
      KeyFields = 'SIRKOD;GRUPKODU'
      Size = 30
      Lookup = True
    end
    object STOKTKDVD: TStringField
      FieldName = 'KDVD'
      Size = 1
    end
  end
  object STOKD: TDataSource
    DataSet = STOKT
    Left = 200
    Top = 168
  end
  object stkfist: TTable
    Active = True
    BeforePost = stkfistBeforePost
    AfterPost = stkfistAfterPost
    DatabaseName = 'STOK'
    IndexFieldNames = 'SIRKOD;FISTUR;FISNO'
    TableName = 'STKFIS.db'
    Left = 248
    Top = 120
    object stkfistSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object stkfistFISTUR: TFloatField
      FieldName = 'FISTUR'
    end
    object stkfistFISNO: TFloatField
      FieldName = 'FISNO'
    end
    object stkfistFISTAR: TDateField
      FieldName = 'FISTAR'
    end
    object stkfistFIRKOD: TFloatField
      FieldName = 'FIRKOD'
    end
    object stkfistKDVTUT: TFloatField
      FieldName = 'KDVTUT'
    end
    object stkfistISKTUT: TFloatField
      FieldName = 'ISKTUT'
    end
    object stkfistFISTUT: TFloatField
      FieldName = 'FISTUT'
    end
    object stkfistGENTUT: TFloatField
      FieldName = 'GENTUT'
    end
  end
  object stkdett: TTable
    Active = True
    AfterPost = stkdettAfterPost
    DatabaseName = 'STOK'
    IndexFieldNames = 'SIRKOD;FISTUR;FISNO'
    MasterFields = 'SIRKOD;FISTUR;FISNO'
    MasterSource = stkfisd
    TableName = 'STKDET.db'
    Left = 288
    Top = 120
    object stkdettSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object stkdettFISTUR: TFloatField
      FieldName = 'FISTUR'
    end
    object stkdettFISNO: TFloatField
      FieldName = 'FISNO'
    end
    object stkdettSIRA: TFloatField
      FieldName = 'SIRA'
    end
    object stkdettFISTAR: TDateField
      FieldName = 'FISTAR'
    end
    object stkdettFIRKOD: TFloatField
      FieldName = 'FIRKOD'
    end
    object stkdettMALKODU: TStringField
      FieldName = 'MALKODU'
    end
    object stkdettMALADI: TStringField
      FieldName = 'MALADI'
      Size = 40
    end
    object stkdettBIRIMI: TStringField
      FieldName = 'BIRIMI'
      Size = 5
    end
    object stkdettKDV: TFloatField
      FieldName = 'KDV'
    end
    object stkdettMIKTAR: TFloatField
      FieldName = 'MIKTAR'
    end
    object stkdettFIYATI: TFloatField
      FieldName = 'FIYATI'
    end
    object stkdettTUTAR: TFloatField
      FieldName = 'TUTAR'
    end
    object stkdettKAYIT: TFloatField
      FieldName = 'KAYIT'
    end
  end
  object stkfisd: TDataSource
    DataSet = stkfist
    Left = 248
    Top = 168
  end
  object stkdetd: TDataSource
    DataSet = stkdett
    Left = 288
    Top = 168
  end
  object CEKAT: TTable
    Active = True
    AfterPost = CEKATAfterPost
    DatabaseName = 'STOK'
    IndexFieldNames = 'SIRKOD;CEKNO'
    TableName = 'CEKA.db'
    Left = 24
    Top = 216
    object CEKATSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object CEKATSNO: TAutoIncField
      FieldName = 'SNO'
      ReadOnly = True
    end
    object CEKATCEKNO: TStringField
      FieldName = 'CEKNO'
    end
    object CEKATATAR: TDateField
      FieldName = 'ATAR'
      EditMask = '!99/99/0000;1;_'
    end
    object CEKATMUSNO: TFloatField
      Alignment = taLeftJustify
      FieldName = 'MUSNO'
    end
    object CEKATFIRADI: TStringField
      FieldName = 'FIRADI'
      Size = 40
    end
    object CEKATVADE: TDateField
      FieldName = 'VADE'
      EditMask = '!99/99/0000;1;_'
    end
    object CEKATTAHSIL: TDateField
      FieldName = 'TAHSIL'
      EditMask = '!99/99/0000;1;_'
    end
    object CEKATTIP: TStringField
      FieldName = 'TIP'
      Size = 1
    end
    object CEKATBANKA: TStringField
      FieldName = 'BANKA'
      Size = 30
    end
    object CEKATSUBE: TStringField
      FieldName = 'SUBE'
      Size = 30
    end
    object CEKATTUTAR: TFloatField
      FieldName = 'TUTAR'
      DisplayFormat = '###,###,###,###'
      EditFormat = '###,###,###,###'
    end
  end
  object CEKATD: TDataSource
    DataSet = CEKAT
    Left = 24
    Top = 264
  end
  object CEKBT: TTable
    Active = True
    AfterPost = CEKBTAfterPost
    DatabaseName = 'STOK'
    IndexFieldNames = 'SIRKOD;CEKNO'
    TableName = 'CEKB.db'
    Left = 96
    Top = 216
    object CEKBTSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object CEKBTSNO: TAutoIncField
      FieldName = 'SNO'
      ReadOnly = True
    end
    object CEKBTCEKNO: TStringField
      FieldName = 'CEKNO'
    end
    object CEKBTATAR: TDateField
      FieldName = 'ATAR'
      EditMask = '!99/99/0000;1;_'
    end
    object CEKBTMUSNO: TFloatField
      FieldName = 'MUSNO'
    end
    object CEKBTFIRADI: TStringField
      FieldName = 'FIRADI'
      Size = 40
    end
    object CEKBTVADE: TDateField
      FieldName = 'VADE'
      EditMask = '!99/99/0000;1;_'
    end
    object CEKBTTAHSIL: TDateField
      FieldName = 'TAHSIL'
      EditMask = '!99/99/0000;1;_'
    end
    object CEKBTTIP: TStringField
      FieldName = 'TIP'
      Size = 1
    end
    object CEKBTBANKA: TStringField
      FieldName = 'BANKA'
      Size = 30
    end
    object CEKBTSUBE: TStringField
      FieldName = 'SUBE'
      Size = 30
    end
    object CEKBTTUTAR: TFloatField
      FieldName = 'TUTAR'
      DisplayFormat = '###,###,###,###'
      EditFormat = '###,###,###,###'
    end
  end
  object CEKBTD: TDataSource
    DataSet = CEKBT
    Left = 96
    Top = 264
  end
  object BANKAT: TTable
    Active = True
    AfterPost = BANKATAfterPost
    DatabaseName = 'STOK'
    IndexFieldNames = 'BADI'
    TableName = 'BANKA.db'
    Left = 336
    Top = 16
    object BANKATKODU: TAutoIncField
      FieldName = 'KODU'
      ReadOnly = True
    end
    object BANKATBADI: TStringField
      FieldName = 'BADI'
      Size = 40
    end
  end
  object BANKAD: TDataSource
    DataSet = BANKAT
    Left = 336
    Top = 62
  end
  object stab: TTable
    Active = True
    AfterPost = stabAfterPost
    DatabaseName = 'STOK'
    IndexFieldNames = 'SIRKOD;FISTUR;FISNO'
    TableName = 'STAB.db'
    Left = 336
    Top = 120
    object stabSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object stabFISTUR: TFloatField
      FieldName = 'FISTUR'
    end
    object stabFISNO: TFloatField
      FieldName = 'FISNO'
    end
    object stabFISTAR: TDateField
      FieldName = 'FISTAR'
    end
    object stabFIRKOD: TFloatField
      FieldName = 'FIRKOD'
    end
    object stabKDVTUT: TFloatField
      FieldName = 'KDVTUT'
    end
    object stabISKTUT: TFloatField
      FieldName = 'ISKTUT'
    end
    object stabFISTUT: TFloatField
      FieldName = 'FISTUT'
    end
    object stabGENTUT: TFloatField
      FieldName = 'GENTUT'
      DisplayFormat = '###,###,###,###'
      EditFormat = '###,###,###,###'
    end
    object stabLFIRADI: TStringField
      FieldKind = fkLookup
      FieldName = 'LFIRADI'
      LookupDataSet = firma
      LookupKeyFields = 'SIRKOD;FIRKOD'
      LookupResultField = 'FIRMAADI'
      KeyFields = 'SIRKOD;FIRKOD'
      Size = 40
      Lookup = True
    end
  end
  object stad: TTable
    Active = True
    AfterPost = stadAfterPost
    DatabaseName = 'STOK'
    IndexFieldNames = 'SIRKOD;FISTUR;FISNO;SIRA'
    TableName = 'STAD.db'
    Left = 384
    Top = 120
    object stadSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object stadFISTUR: TFloatField
      FieldName = 'FISTUR'
    end
    object stadFISNO: TFloatField
      FieldName = 'FISNO'
    end
    object stadSIRA: TFloatField
      FieldName = 'SIRA'
    end
    object stadFISTAR: TDateField
      FieldName = 'FISTAR'
    end
    object stadFIRKOD: TFloatField
      FieldName = 'FIRKOD'
    end
    object stadMALADI: TStringField
      FieldName = 'MALADI'
      Size = 40
    end
    object stadBIRIMI: TStringField
      FieldName = 'BIRIMI'
      Size = 5
    end
    object stadKDV: TFloatField
      FieldName = 'KDV'
    end
    object stadMIKTAR: TFloatField
      FieldName = 'MIKTAR'
    end
    object stadFIYATI: TFloatField
      FieldName = 'FIYATI'
    end
    object stadTUTAR: TFloatField
      FieldName = 'TUTAR'
    end
    object stadKAYIT: TFloatField
      FieldName = 'KAYIT'
    end
  end
  object stabd: TDataSource
    DataSet = stab
    Left = 340
    Top = 168
  end
  object stadd: TDataSource
    DataSet = stad
    Left = 384
    Top = 168
  end
  object firma: TTable
    Active = True
    AfterPost = firmaAfterPost
    DatabaseName = 'STOK'
    TableName = 'FIRMA.db'
    Left = 384
    Top = 16
    object firmaSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object firmaFIRKOD: TFloatField