unit1.dfm

Basic Marketing stock Program

      FieldName = 'FIRKOD'
    end
    object firmaFIRMAADI: TStringField
      FieldName = 'FIRMAADI'
      Size = 50
    end
    object firmaUNVAN: TStringField
      FieldName = 'UNVAN'
      Size = 50
    end
    object firmaYETKILI: TStringField
      FieldName = 'YETKILI'
      Size = 50
    end
    object firmaSATIS: TFloatField
      FieldName = 'SATIS'
    end
    object firmaISKONTO: TFloatField
      FieldName = 'ISKONTO'
    end
    object firmaADRES1: TStringField
      FieldName = 'ADRES1'
      Size = 50
    end
    object firmaADRES2: TStringField
      FieldName = 'ADRES2'
      Size = 50
    end
    object firmaEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 30
    end
    object firmaWEB: TStringField
      FieldName = 'WEB'
      Size = 30
    end
    object firmaTELEFON1: TStringField
      FieldName = 'TELEFON1'
    end
    object firmaTELEFON2: TStringField
      FieldName = 'TELEFON2'
    end
    object firmaFAX: TStringField
      FieldName = 'FAX'
    end
    object firmaVDAIRE: TStringField
      FieldName = 'VDAIRE'
      Size = 30
    end
    object firmaVNO: TStringField
      FieldName = 'VNO'
      Size = 30
    end
    object firmaBORC: TFloatField
      FieldName = 'BORC'
    end
    object firmaALACAK: TFloatField
      FieldName = 'ALACAK'
    end
  end
  object DataSource2: TDataSource
    DataSet = firma
    Left = 384
    Top = 64
  end
  object musterit: TTable
    Active = True
    AfterPost = musteritAfterPost
    DatabaseName = 'STOK'
    IndexName = 'FIR01'
    TableName = 'MUSTERI.db'
    Left = 152
    Top = 216
    object musteritSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object musteritFIRKOD: TFloatField
      FieldName = 'FIRKOD'
    end
    object musteritADI: TStringField
      FieldName = 'ADI'
      Size = 40
    end
    object musteritYETKILI: TStringField
      FieldName = 'YETKILI'
      Size = 50
    end
    object musteritSATIS: TFloatField
      FieldName = 'SATIS'
    end
    object musteritISKONTO: TFloatField
      FieldName = 'ISKONTO'
    end
    object musteritADRES1: TStringField
      FieldName = 'ADRES1'
      Size = 50
    end
    object musteritADRES2: TStringField
      FieldName = 'ADRES2'
      Size = 50
    end
    object musteritEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 30
    end
    object musteritWEB: TStringField
      FieldName = 'WEB'
      Size = 30
    end
    object musteritTELEFON1: TStringField
      FieldName = 'TELEFON1'
    end
    object musteritTELEFON2: TStringField
      FieldName = 'TELEFON2'
    end
    object musteritFAX: TStringField
      FieldName = 'FAX'
    end
    object musteritVDAIRE: TStringField
      FieldName = 'VDAIRE'
      Size = 30
    end
    object musteritVNO: TStringField
      FieldName = 'VNO'
      Size = 30
    end
    object musteritBORC: TFloatField
      FieldName = 'BORC'
      DisplayFormat = '###,###,###,###'
      EditFormat = '###,###,###,###'
    end
    object musteritALACAK: TFloatField
      FieldName = 'ALACAK'
      DisplayFormat = '###,###,###,###'
      EditFormat = '###,###,###,###'
    end
  end
  object musterid: TDataSource
    DataSet = musterit
    Left = 152
    Top = 264
  end
  object mtahsilt: TTable
    Active = True
    AfterPost = mtahsiltAfterPost
    DatabaseName = 'STOK'
    TableName = 'MTAHSIL.db'
    Left = 208
    Top = 219
    object mtahsiltSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object mtahsiltSIRA: TAutoIncField
      FieldName = 'SIRA'
      ReadOnly = True
    end
    object mtahsiltTARIH: TDateField
      FieldName = 'TARIH'
      EditMask = '!99/99/0000;1;_'
    end
    object mtahsiltFIRKOD: TFloatField
      Alignment = taLeftJustify
      FieldName = 'FIRKOD'
    end
    object mtahsiltFIRADI: TStringField
      FieldName = 'FIRADI'
      Size = 40
    end
    object mtahsiltACIKLAMA: TStringField
      FieldName = 'ACIKLAMA'
      Size = 40
    end
    object mtahsiltTUTAR: TFloatField
      FieldName = 'TUTAR'
      DisplayFormat = '###,###,###,###'
    end
    object mtahsiltKFISNO: TFloatField
      FieldName = 'KFISNO'
    end
  end
  object mtahsild: TDataSource
    DataSet = mtahsilt
    Left = 208
    Top = 265
  end
  object urunt: TTable
    Active = True
    AfterPost = uruntAfterPost
    DatabaseName = 'STOK'
    IndexFieldNames = 'SIRKOD;URUNADI'
    TableName = 'STOK.db'
    Left = 264
    Top = 217
    object uruntSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object uruntKODU: TStringField
      FieldName = 'KODU'
    end
    object uruntADI: TStringField
      FieldName = 'ADI'
      Size = 40
    end
    object uruntBIRIM: TStringField
      FieldName = 'BIRIM'
      Size = 2
    end
    object uruntGRUPKODU: TFloatField
      FieldName = 'GRUPKODU'
    end
    object uruntKDV: TFloatField
      FieldName = 'KDV'
    end
    object uruntISKONTO: TFloatField
      FieldName = 'ISKONTO'
    end
    object uruntDOVKOD: TStringField
      FieldName = 'DOVKOD'
      Size = 10
    end
    object uruntALISFIYAT: TFloatField
      FieldName = 'ALISFIYAT'
    end
    object uruntSFIYAT1: TFloatField
      FieldName = 'SFIYAT1'
    end
    object uruntSFIYAT2: TFloatField
      FieldName = 'SFIYAT2'
    end
    object uruntSFIYAT3: TFloatField
      FieldName = 'SFIYAT3'
    end
    object uruntKRITIKSTOK: TFloatField
      FieldName = 'KRITIKSTOK'
    end
    object uruntGIRMIK: TFloatField
      FieldName = 'GIRMIK'
    end
    object uruntCIKMIK: TFloatField
      FieldName = 'CIKMIK'
    end
    object uruntMEVCUT: TFloatField
      FieldName = 'MEVCUT'
    end
    object uruntKDVD: TStringField
      FieldName = 'KDVD'
      Size = 1
    end
    object uruntURUNADI: TStringField
      FieldName = 'URUNADI'
      Size = 15
    end
    object uruntPLUTUS: TStringField
      FieldName = 'PLUTUS'
      Size = 2
    end
    object uruntSATIS: TStringField
      FieldName = 'SATIS'
      Size = 1
    end
    object uruntSTOKONAY: TStringField
      FieldName = 'STOKONAY'
      Size = 1
    end
    object uruntFTARIH: TDateField
      FieldName = 'FTARIH'
    end
  end
  object urund: TDataSource
    DataSet = urunt
    Left = 264
    Top = 265
  end
  object fgrup: TTable
    Active = True
    DatabaseName = 'STOK'
    IndexFieldNames = 'GRUPADI'
    TableName = 'FGRUP.db'
    Left = 384
    Top = 219
    object fgrupGRUP: TFloatField
      FieldName = 'GRUP'
    end
    object fgrupGRUPADI: TStringField
      FieldName = 'GRUPADI'
      Size = 35
    end
  end
  object fgrupd: TDataSource
    DataSet = fgrup
    Left = 384
    Top = 266
  end
  object agact: TQuery
    AfterPost = agactAfterPost
    DatabaseName = 'STOK'
    RequestLive = True
    SQL.Strings = (
      'select * from AGAC'
      'Where'
      'SIRKOD=:XSIRKOD AND'
      'MAMNO=:Xmamno')
    Left = 24
    Top = 320
    ParamData = <
      item
        DataType = ftString
        Name = 'XSIRKOD'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'Xmamno'
        ParamType = ptUnknown
      end>
    object agactSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Origin = 'STOK."AGAC.DB".SIRKOD'
      Size = 3
    end
    object agactMAMNO: TStringField
      FieldName = 'MAMNO'
      Origin = 'STOK."AGAC.DB".MAMNO'
    end
    object agactPMAMNO: TStringField
      FieldName = 'PMAMNO'
      Origin = 'STOK."AGAC.DB".PMAMNO'
    end
    object agactKADET: TFloatField
      FieldName = 'KADET'
      Origin = 'STOK."AGAC.DB".KADET'
      DisplayFormat = '###,###,###'
    end
    object agactLMAMADI: TStringField
      FieldKind = fkLookup
      FieldName = 'LMAMADI'
      LookupDataSet = STOKT
      LookupKeyFields = 'KODU'
      LookupResultField = 'ADI'
      KeyFields = 'PMAMNO'
      Size = 40
      Lookup = True
    end
  end
  object agacd: TDataSource
    DataSet = agact
    Left = 72
    Top = 320
  end
  object irsfist: TTable
    Active = True
    AfterPost = irsfistAfterPost
    DatabaseName = 'STOK'
    IndexFieldNames = 'SIRKOD;SERI;IRSNO'
    TableName = 'IRSALIYE.db'
    Left = 128
    Top = 320
    object irsfistSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object irsfistSERI: TFloatField
      FieldName = 'SERI'
    end
    object irsfistIRSNO: TFloatField
      FieldName = 'IRSNO'
    end
    object irsfistIRSTAR: TDateField
      FieldName = 'IRSTAR'
      Required = True
    end
    object irsfistMUSNO: TFloatField
      FieldName = 'MUSNO'
      Required = True
    end
    object irsfistISKONTO: TFloatField
      FieldName = 'ISKONTO'
    end
    object irsfistFATNO: TFloatField
      FieldName = 'FATNO'
    end
    object irsfistFATTAR: TDateField
      FieldName = 'FATTAR'
    end
  end
  object irsdett: TTable
    Active = True
    AfterPost = irsdettAfterPost
    DatabaseName = 'STOK'
    TableName = 'IRSDETAY.db'
    Left = 176
    Top = 320
    object irsdettSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object irsdettSERI: TFloatField
      FieldName = 'SERI'
    end
    object irsdettIRSNO: TFloatField
      FieldName = 'IRSNO'
    end
    object irsdettSIRA: TFloatField
      FieldName = 'SIRA'
    end
    object irsdettIRSTAR: TDateField
      FieldName = 'IRSTAR'
    end
    object irsdettMUSNO: TFloatField
      FieldName = 'MUSNO'
    end
    object irsdettSTOK: TStringField
      FieldName = 'STOK'
    end
    object irsdettSTOKADI: TStringField
      FieldName = 'STOKADI'
      Size = 40
    end
    object irsdettBRIM: TStringField
      FieldName = 'BRIM'
      Size = 4
    end
    object irsdettKDVYUZ: TFloatField
      FieldName = 'KDVYUZ'
    end
    object irsdettMIKTAR: TFloatField
      FieldName = 'MIKTAR'
    end
    object irsdettFIYAT: TFloatField
      FieldName = 'FIYAT'
    end
    object irsdettTUTAR: TFloatField
      FieldName = 'TUTAR'
    end
  end
end