ftp.sanbilgisayar.com/ftp.sanbilgisayar.com.tar/ftp.sanbilgisayar.com/SHOP/ShopImportP.exe/0/RCDATA/TKONTKOPFORM/TKONTKOPFORM.txt

Text File | 2015-03-03 | 12KB | 531 lines

object KontKopForm: TKontKopForm
  Left = 444
  Top = 165
  Width = 782
  Height = 449
  ActiveControl = CopyGrid
  Caption = 'Kontrat Kopyalama'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 28
    Width = 240
    Height = 353
    Align = alLeft
  end
  object Bevel2: TBevel
    Left = 0
    Top = 0
    Width = 749
    Height = 28
    Align = alTop
  end
  object Label1: TLabel
    Left = 67
    Top = 12
    Width = 112
    Height = 13
    Caption = 'Kopyalanan Kontrat'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuHighlight
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 441
    Top = 11
    Width = 126
    Height = 13
    Caption = 'Kopyalanacak Kontrat'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuHighlight
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 6
    Top = 36
    Width = 44
    Height = 13
    Alignment = taRightJustify
    Caption = 'Ma'#287'aza :'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 5
    Top = 54
    Width = 47
    Height = 13
    Alignment = taRightJustify
    Caption = 'Operat'#246'r :'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 5
    Top = 70
    Width = 36
    Height = 13
    Alignment = taRightJustify
    Caption = 'Sezon :'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Magaza: TDBText
    Left = 62
    Top = 36
    Width = 53
    Height = 13
    DataField = 'Kodu'
    DataSource = DMmag.MagazaDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Turop: TDBText
    Left = 62
    Top = 54
    Width = 55
    Height = 13
    DataField = 'Turop'
    DataSource = DMmag.MagKontDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Sezon: TDBText
    Left = 62
    Top = 70
    Width = 37
    Height = 14
    DataField = 'SezNo'
    DataSource = DMmag.MagKontDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBText1: TDBText
    Left = 120
    Top = 36
    Width = 118
    Height = 13
    Color = clBtnFace
    DataField = 'Adi'
    DataSource = DMmag.MagazaDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clDefault
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Label6: TLabel
    Left = 5
    Top = 85
    Width = 56
    Height = 13
    Alignment = taRightJustify
    Caption = 'Ba'#351'. Tarihi :'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object BasTarihi: TDBText
    Left = 62
    Top = 85
    Width = 72
    Height = 14
    DataField = 'BasTarih'
    DataSource = DMmag.MagKontDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 5
    Top = 101
    Width = 54
    Height = 13
    Alignment = taRightJustify
    Caption = 'Biti'#351' Tarihi :'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object BitTarihi: TDBText
    Left = 62
    Top = 101
    Width = 72
    Height = 14
    DataField = 'BitTarih'
    DataSource = DMmag.MagKontDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label8: TLabel
    Left = 115
    Top = 36
    Width = 5
    Height = 13
    Caption = '-'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object CopyGrid: TDBGridEh
    Left = 240
    Top = 28
    Width = 467
    Height = 353
    Align = alClient
    DataSource = MemTable_DS
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab]
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    UseMultiTitle = True
    VTitleMargin = 20
    Columns = <
      item
        EditButtons = <
          item
            ShortCut = 113
            OnClick = CopyGridColumns0EditButtons0Click
          end>
        FieldName = 'Kodu'
        Footers = <>
        Width = 71
        OnUpdateData = CopyGridColumns0UpdateData
      end
      item
        EditButtons = <>
        FieldName = 'Adi'
        Footers = <>
        Width = 155
      end
      item
        EditButtons = <
          item
            Hint = 'Tur Operat'#246'rlerini Listeler'
            ShortCut = 113
            OnClick = CopyGridColumns2EditButtons0Click
          end>
        FieldName = 'Turop'
        Footers = <>
        OnUpdateData = CopyGridColumns2UpdateData
      end
      item
        EditButtons = <>
        FieldName = 'SezNo'
        Footers = <>
        Width = 41
      end
      item
        EditButtons = <>
        FieldName = 'BasTarihi'
        Footers = <>
        Width = 69
      end
      item
        EditButtons = <>
        FieldName = 'BitTarihi'
        Footers = <>
        Width = 67
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 381
    Width = 749
    Height = 31
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 1
    object Kopyala: TBitBtn
      Left = 239
      Top = 3
      Width = 75
      Height = 25
      Caption = 'Kopyala'
      TabOrder = 0
      OnClick = KopyalaClick
    end
    object Kapat: TBitBtn
      Left = 428
      Top = 3
      Width = 75
      Height = 25
      Caption = #304'ptal'
      TabOrder = 1
      OnClick = KapatClick
    end
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 117
    Width = 233
    Height = 264
    Caption = ' Kopyalanacak Bilgiler '
    TabOrder = 2
    object Label9: TLabel
      Left = 12
      Top = 19
      Width = 58
      Height = 13
      Caption = '- Ana Sezon'
    end
    object Label10: TLabel
      Left = 12
      Top = 37
      Width = 63
      Height = 13
      Caption = '- Mal / Grubu'
    end
    object Label11: TLabel
      Left = 12
      Top = 56
      Width = 86
      Height = 13
      Caption = '- Komisyon Alanlar'
    end
    object Label12: TLabel
      Left = 12
      Top = 74
      Width = 56
      Height = 13
      Caption = '- Ayak Bast'#305
    end
  end
  object Panel2: TPanel
    Left = 707
    Top = 28
    Width = 42
    Height = 353
    Align = alRight
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 3
    object BtnYeni: TBitBtn
      Left = 4
      Top = 33
      Width = 35
      Height = 23
      Caption = 'Yeni'
      TabOrder = 0
      OnClick = BtnYeniClick
    end
    object BtnSil: TBitBtn
      Left = 4
      Top = 64
      Width = 35
      Height = 23
      Caption = 'Sil'
      TabOrder = 1
      OnClick = BtnSilClick
    end
  end
  object ExecQry: TMSQuery
    Connection = mDM.MSConnection
    SQL.Strings = (
      'SET IDENTITY_INSERT MAGKONT ON')
    Left = 259
    Top = 99
  end
  object MemTable_DS: TDataSource
    DataSet = MemTable
    Left = 320
    Top = 146
  end
  object MagQry: TMSQuery
    Connection = mDM.MSConnection
    SQL.Strings = (
      'Select Kodu, Adi From Magaza')
    ReadOnly = True
    Active = True
    Left = 258
    Top = 145
    object MagQryKodu: TStringField
      FieldName = 'Kodu'
      Origin = '.Kodu'
      Size = 6
    end
    object MagQryAdi: TStringField
      FieldName = 'Adi'
      Origin = '.Adi'
      Size = 30
    end
  end
  object TmpQry: TMSQuery
    Connection = mDM.MSConnection
    Left = 382
    Top = 102
  end
  object MemTable: TkbmMemTable
    DesignActivation = True
    AttachedAutoRefresh = True
    AttachMaxCount = 1
    FieldDefs = <
      item
        Name = 'Kodu'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'Turop'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'SezNo'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'BasTarihi'
        DataType = ftDateTime
      end
      item
        Name = 'BitTarihi'
        DataType = ftDateTime
      end>
    IndexDefs = <
      item
        Name = 'Indx'
        Fields = 'Kodu;SezNo'
        Options = [ixPrimary, ixUnique]
      end>
    SortOptions = []
    PersistentBackup = False
    ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy]
    LoadedCompletely = False
    SavedCompletely = False
    FilterOptions = []
    Version = '5.52'
    LanguageID = 0
    SortID = 0
    SubLanguageID = 1
    LocaleID = 1024
    BeforePost = MemTableBeforePost
    OnPostError = MemTablePostError
    Left = 319
    Top = 102
    object MemTableKodu: TStringField
      DisplayLabel = 'Ma'#287'aza Kodu'
      FieldName = 'Kodu'
      Size = 6
    end
    object MemTableAdi: TStringField
      DisplayLabel = 'Ma'#287'aza Ad'#305
      FieldKind = fkLookup
      FieldName = 'Adi'
      LookupDataSet = DMmag.Magaza
      LookupKeyFields = 'Kodu'
      LookupResultField = 'Adi'
      KeyFields = 'Kodu'
      Size = 23
      Lookup = True
    end
    object MemTableTurop: TStringField
      FieldName = 'Turop'
      Size = 6
    end
    object MemTableSezNo: TStringField
      DisplayLabel = 'Sezon No'
      DisplayWidth = 5
      FieldName = 'SezNo'
      Size = 5
    end
    object MemTableBasTarihi: TDateTimeField
      DisplayLabel = 'Baslang'#305#231' Tarihi'
      DisplayWidth = 10
      FieldName = 'BasTarihi'
      OnSetText = MemTableBasTarihiSetText
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '99/99/9999'
    end
    object MemTableBitTarihi: TDateTimeField
      DisplayLabel = 'Biti'#351' Tarihi'
      DisplayWidth = 10
      FieldName = 'BitTarihi'
      OnSetText = MemTableBasTarihiSetText
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '99/99/9999'
    end
  end
end