unit1.dfm

Basic Marketing stock Program

object dtaksit: Tdtaksit
  OldCreateOrder = False
  Left = 218
  Top = 95
  Height = 477
  Width = 583
  object kullanici: TTable
    Active = True
    AfterPost = kullaniciAfterPost
    DatabaseName = 'STOK'
    IndexFieldNames = 'KODU'
    TableName = 'USER.db'
    Left = 96
    Top = 16
    object kullaniciKODU: TStringField
      FieldName = 'KODU'
      Size = 15
    end
    object kullaniciADI: TStringField
      FieldName = 'ADI'
      Size = 40
    end
    object kullaniciSIFRE: TStringField
      FieldName = 'SIFRE'
      Size = 30
    end
    object kullaniciYETKI: TStringField
      FieldName = 'YETKI'
      Size = 1
    end
    object kullaniciDURUM: TStringField
      FieldName = 'DURUM'
      Size = 1
    end
  end
  object USERSD: TDataSource
    DataSet = kullanici
    Left = 96
    Top = 64
  end
  object GRUPT: TTable
    Active = True
    AfterPost = GRUPTAfterPost
    DatabaseName = 'STOK'
    IndexName = 'grup01'
    TableName = 'GRUP.db'
    Left = 152
    Top = 16
    object GRUPTSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object GRUPTKODU: TFloatField
      FieldName = 'KODU'
    end
    object GRUPTADI: TStringField
      FieldName = 'ADI'
      Size = 35
    end
  end
  object GRUPD: TDataSource
    DataSet = GRUPT
    Left = 152
    Top = 64
  end
  object KASA: TTable
    Active = True
    AfterPost = KASAAfterPost
    DatabaseName = 'STOK'
    IndexFieldNames = 'SIRKOD;KASAFISNO'
    TableName = 'KASA.db'
    Left = 200
    Top = 16
    object KASASIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object KASAKASAFISNO: TFloatField
      FieldName = 'KASAFISNO'
    end
    object KASAKASATARIH: TDateField
      FieldName = 'KASATARIH'
    end
    object KASAKASAACIKLAMA: TStringField
      FieldName = 'KASAACIKLAMA'
      Size = 60
    end
    object KASAKASAISLEM: TStringField
      FieldName = 'KASAISLEM'
      Size = 10
    end
    object KASAKASATUTAR: TFloatField
      FieldName = 'KASATUTAR'
      DisplayFormat = '###,###,###,###'
      EditFormat = '###,###,###,###'
    end
  end
  object KASAD: TDataSource
    DataSet = KASA
    Left = 200
    Top = 64
  end
  object TELEFON: TTable
    Active = True
    AfterPost = TELEFONAfterPost
    DatabaseName = 'STOK'
    TableName = 'telefon.DB'
    Left = 264
    Top = 16
    object TELEFONADISOYADI: TStringField
      FieldName = 'ADISOYADI'
      Size = 40
    end
    object TELEFONTELEFON: TStringField
      FieldName = 'TELEFON'
      Size = 40
    end
    object TELEFONCEPTEL: TStringField
      FieldName = 'CEPTEL'
      Size = 40
    end
    object TELEFONISTEL: TStringField
      FieldName = 'ISTEL'
      Size = 40
    end
    object TELEFONFAX: TStringField
      FieldName = 'FAX'
      Size = 40
    end
    object TELEFONEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 40
    end
    object TELEFONWEB: TStringField
      FieldName = 'WEB'
      Size = 40
    end
    object TELEFONICQ: TStringField
      FieldName = 'ICQ'
      Size = 40
    end
    object TELEFONADRES: TMemoField
      FieldName = 'ADRES'
      BlobType = ftMemo
      Size = 240
    end
    object TELEFONNOT: TMemoField
      FieldName = 'NOT'
      BlobType = ftMemo
      Size = 240
    end
    object TELEFONRESIM: TBlobField
      FieldName = 'RESIM'
      BlobType = ftBlob
      Size = 240
    end
  end
  object TELEFOND: TDataSource
    DataSet = TELEFON
    Left = 264
    Top = 64
  end
  object DataSource1: TDataSource
    DataSet = SIRKETT
    Left = 24
    Top = 64
  end
  object SIRKETT: TTable
    Active = True
    AfterPost = SIRKETTAfterPost
    DatabaseName = 'STOK'
    TableName = 'SIRKET.db'
    Left = 24
    Top = 8
    object SIRKETTSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object SIRKETTADI: TStringField
      FieldName = 'ADI'
      Size = 40
    end
    object SIRKETTTELEFON: TStringField
      FieldName = 'TELEFON'
      Size = 40
    end
    object SIRKETTFAKS: TStringField
      FieldName = 'FAKS'
      Size = 40
    end
    object SIRKETTEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 40
    end
    object SIRKETTWEB: TStringField
      FieldName = 'WEB'
      Size = 40
    end
    object SIRKETTADRES: TMemoField
      FieldName = 'ADRES'
      BlobType = ftMemo
      Size = 1
    end
    object SIRKETTSEHIR: TStringField
      FieldName = 'SEHIR'
      Size = 30
    end
  end
  object firmat: TQuery
    AfterPost = firmatAfterPost
    DatabaseName = 'STOK'
    RequestLive = True
    SQL.Strings = (
      'select * from FIRMA '
      'Where'
      'SIRKOD=:XSIRKOD AND'
      'FIRKOD=:XFIRKOD')
    Left = 24
    Top = 120
    ParamData = <
      item
        DataType = ftString
        Name = 'XSIRKOD'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'XFIRKOD'
        ParamType = ptUnknown
      end>
    object firmatSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Origin = 'TAKSIT."FIRMA.DB".SIRKOD'
      Size = 3
    end
    object firmatFIRKOD: TFloatField
      FieldName = 'FIRKOD'
      Origin = 'TAKSIT."FIRMA.DB".FIRKOD'
    end
    object firmatFIRMAADI: TStringField
      FieldName = 'FIRMAADI'
      Origin = 'TAKSIT."FIRMA.DB".FIRMAADI'
      Size = 50
    end
    object firmatUNVAN: TStringField
      FieldName = 'UNVAN'
      Origin = 'TAKSIT."FIRMA.DB".UNVAN'
      Size = 50
    end
    object firmatYETKILI: TStringField
      FieldName = 'YETKILI'
      Origin = 'TAKSIT."FIRMA.DB".YETKILI'
      Size = 50
    end
    object firmatSATIS: TFloatField
      FieldName = 'SATIS'
      Origin = 'TAKSIT."FIRMA.DB".SATIS'
    end
    object firmatISKONTO: TFloatField
      FieldName = 'ISKONTO'
      Origin = 'TAKSIT."FIRMA.DB".ISKONTO'
    end
    object firmatADRES1: TStringField
      FieldName = 'ADRES1'
      Origin = 'TAKSIT."FIRMA.DB".ADRES1'
      Size = 50
    end
    object firmatADRES2: TStringField
      FieldName = 'ADRES2'
      Origin = 'TAKSIT."FIRMA.DB".ADRES2'
      Size = 50
    end
    object firmatEMAIL: TStringField
      FieldName = 'EMAIL'
      Origin = 'TAKSIT."FIRMA.DB".EMAIL'
      Size = 30
    end
    object firmatWEB: TStringField
      FieldName = 'WEB'
      Origin = 'TAKSIT."FIRMA.DB".WEB'
      Size = 30
    end
    object firmatTELEFON1: TStringField
      FieldName = 'TELEFON1'
      Origin = 'TAKSIT."FIRMA.DB".TELEFON1'
    end
    object firmatTELEFON2: TStringField
      FieldName = 'TELEFON2'
      Origin = 'TAKSIT."FIRMA.DB".TELEFON2'
    end
    object firmatFAX: TStringField
      FieldName = 'FAX'
      Origin = 'TAKSIT."FIRMA.DB".FAX'
    end
    object firmatVDAIRE: TStringField
      FieldName = 'VDAIRE'
      Origin = 'TAKSIT."FIRMA.DB".VDAIRE'
      Size = 30
    end
    object firmatVNO: TStringField
      FieldName = 'VNO'
      Origin = 'TAKSIT."FIRMA.DB".VNO'
      Size = 30
    end
    object firmatBORC: TFloatField
      FieldName = 'BORC'
      Origin = 'TAKSIT."FIRMA.DB".BORC'
      DisplayFormat = '###,###,###,###,###'
      EditFormat = '###,###,###,###,###'
    end
    object firmatALACAK: TFloatField
      FieldName = 'ALACAK'
      Origin = 'TAKSIT."FIRMA.DB".ALACAK'
      DisplayFormat = '###,###,###,###,###'
    end
    object firmatFGRUP: TFloatField
      FieldName = 'FGRUP'
      Origin = 'STOK."FIRMA.DB".FGRUP'
    end
    object firmatLGRUP: TStringField
      FieldKind = fkLookup
      FieldName = 'LGRUP'
      LookupDataSet = fgrup
      LookupKeyFields = 'GRUP'
      LookupResultField = 'GRUPADI'
      KeyFields = 'FGRUP'
      Size = 30
      Lookup = True
    end
  end
  object firmad: TDataSource
    DataSet = firmat
    Left = 24
    Top = 168
  end
  object odemet: TTable
    Active = True
    AutoCalcFields = False
    AfterPost = odemetAfterPost
    DatabaseName = 'STOK'
    IndexFieldNames = 'SIRKOD;SIRA'
    TableName = 'ODEME.db'
    Left = 96
    Top = 120
    object odemetSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object odemetSIRA: TAutoIncField
      FieldName = 'SIRA'
      ReadOnly = True
    end
    object odemetTARIH: TDateField
      FieldName = 'TARIH'
    end
    object odemetFIRKOD: TFloatField
      FieldName = 'FIRKOD'
    end
    object odemetFIRADI: TStringField
      FieldName = 'FIRADI'
      Size = 40
    end
    object odemetACIKLAMA: TStringField
      FieldName = 'ACIKLAMA'
      Size = 40
    end
    object odemetTUTAR: TFloatField
      FieldName = 'TUTAR'
      DisplayFormat = '###,###,###,###,###'
      EditFormat = '###,###,###,###,###'
    end
    object odemetKFISNO: TFloatField
      FieldName = 'KFISNO'
    end
  end
  object odemed: TDataSource
    DataSet = odemet
    Left = 96
    Top = 168
  end
  object tahsilt: TTable
    Active = True
    AfterPost = tahsiltAfterPost
    DatabaseName = 'STOK'
    IndexFieldNames = 'SIRKOD;SIRA'
    TableName = 'TAHSIL.db'
    Left = 152
    Top = 120
    object tahsiltSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object tahsiltSIRA: TAutoIncField
      FieldName = 'SIRA'
      ReadOnly = True
    end
    object tahsiltTARIH: TDateField
      FieldName = 'TARIH'
    end
    object tahsiltFIRKOD: TFloatField
      FieldName = 'FIRKOD'
    end
    object tahsiltFIRADI: TStringField
      FieldName = 'FIRADI'
      Size = 40
    end
    object tahsiltACIKLAMA: TStringField
      FieldName = 'ACIKLAMA'
      Size = 40
    end
    object tahsiltTUTAR: TFloatField
      FieldName = 'TUTAR'
      DisplayFormat = '###,###,###,###,###'
      EditFormat = '###,###,###,###,###'
    end
    object tahsiltKFISNO: TFloatField
      FieldName = 'KFISNO'
    end
  end
  object tahsild: TDataSource
    DataSet = tahsilt
    Left = 152
    Top = 168
  end
  object STOKT: TTable
    Active = True
    BeforePost = STOKTBeforePost
    AfterPost = STOKTAfterPost
    DatabaseName = 'STOK'
    IndexFieldNames = 'SIRKOD;ADI'
    TableName = 'STOK.db'
    Left = 200
    Top = 120
    object STOKTSIRKOD: TStringField
      FieldName = 'SIRKOD'
      Size = 3
    end
    object STOKTKODU: TStringField
      FieldName = 'KODU'
    end