home *** CD-ROM | disk | FTP | other *** search
/ ftp.sanbilgisayar.com / ftp.sanbilgisayar.com.tar / ftp.sanbilgisayar.com / SHOP / ShopImportP.exe / 0 / RCDATA / TDMREHGR / TDMREHGR.txt
Text File  |  2015-03-03  |  2KB  |  82 lines
  1. object DMrehgr: TDMrehgr
  2.   OldCreateOrder = True
  3.   OnCreate = DMrehgrCreate
  4.   OnDestroy = DMrehgrDestroy
  5.   Left = 459
  6.   Top = 165
  7.   Height = 218
  8.   Width = 247
  9.   object RehGrp_DS: TDataSource
  10.     DataSet = RehGrp
  11.     Left = 30
  12.     Top = 10
  13.   end
  14.   object RehGrp: TMSQuery
  15.     Connection = mDM.MSConnection
  16.     SQL.Strings = (
  17.       'Select * From RehberGrp'
  18.       'Order By Rehber')
  19.     FetchRows = 1
  20.     BeforeInsert = RehGrpBeforeInsert
  21.     BeforeEdit = RehGrpBeforeEdit
  22.     BeforePost = RehGrpBeforePost
  23.     OnDeleteError = UpdateError
  24.     OnEditError = UpdateError
  25.     OnNewRecord = RehGrpNewRecord
  26.     OnPostError = UpdateError
  27.     Left = 30
  28.     Top = 64
  29.     object RehGrpAdi: TStringField
  30.       FieldName = 'Adi'
  31.       Required = True
  32.       Size = 6
  33.     end
  34.     object RehGrpRehber: TStringField
  35.       DisplayLabel = 'Rehber '
  36.       DisplayWidth = 8
  37.       FieldName = 'Rehber'
  38.       Required = True
  39.       Size = 6
  40.     end
  41.     object RehGrpRehberAdi: TStringField
  42.       DisplayLabel = 'Ad'#305
  43.       FieldKind = fkLookup
  44.       FieldName = 'RehberAdi'
  45.       LookupDataSet = Rehber
  46.       LookupKeyFields = 'Kodu'
  47.       LookupResultField = 'Adi'
  48.       KeyFields = 'Rehber'
  49.       Size = 30
  50.       Lookup = True
  51.     end
  52.   end
  53.   object Rehber: TMSQuery
  54.     Connection = mDM.MSConnection
  55.     SQL.Strings = (
  56.       'Select Kodu, Adi From Rehber')
  57.     Left = 88
  58.     Top = 64
  59.     object RehberKodu: TStringField
  60.       FieldName = 'Kodu'
  61.       Required = True
  62.       Size = 6
  63.     end
  64.     object RehberAdi: TStringField
  65.       FieldName = 'Adi'
  66.       Size = 25
  67.     end
  68.   end
  69.   object RehGrpTMP: TMSQuery
  70.     Connection = mDM.MSConnection
  71.     SQL.Strings = (
  72.       'Select * From RehberGrp')
  73.     Left = 152
  74.     Top = 64
  75.   end
  76.   object TmpQry: TMSQuery
  77.     Connection = mDM.MSConnection
  78.     Left = 152
  79.     Top = 16
  80.   end
  81. end
  82.