object YetkiBolgeGrpRehForm: TYetkiBolgeGrpRehForm Left = 649 Top = 104 Width = 322 Height = 494 ActiveControl = BolegGrupGrid BorderIcons = [] Caption = 'Yetki B'#246'lge Gruplar'#305' Rehberi' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Position = poScreenCenter Scaled = False OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 14 Top = 405 Width = 15 Height = 13 Alignment = taRightJustify Caption = 'Bul' Font.Charset = TURKISH_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Sec: TBitBtn Left = 26 Top = 426 Width = 69 Height = 25 Caption = 'Se'#231 TabOrder = 2 Kind = bkOK end object Vazgec: TBitBtn Left = 117 Top = 426 Width = 69 Height = 25 Caption = 'Vazge'#231 TabOrder = 3 Kind = bkCancel end object Bul: TEdit Left = 32 Top = 401 Width = 60 Height = 21 CharCase = ecUpperCase MaxLength = 6 TabOrder = 1 OnChange = BulChange end object BolegGrupGrid: TDBGridEh Left = 0 Top = 0 Width = 306 Height = 399 Align = alTop AllowedOperations = [] AutoFitColWidths = True DataSource = BolgeGrp_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 = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] ParentFont = False TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clMaroon TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] UseMultiTitle = True OnDblClick = BolegGrupGridDblClick Columns = < item EditButtons = <> FieldName = 'Adi' Footers = <> Width = 173 end> end object BolgeGrp_DS: TDataSource DataSet = BolgeGrp Left = 22 Top = 84 end object BolgeGrp: TMSQuery Connection = mDM.MSConnection SQL.Strings = ( 'Select Distinct Adi From UserYetkiBolgeGrp with (NOLOCK)' 'Order By Adi') ReadOnly = True Left = 24 Top = 136 object BolgeGrpAdi: TStringField DisplayLabel = 'Grup Ad'#305 DisplayWidth = 6 FieldName = 'Adi' Size = 3 end end end