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
Wrap
Text File
|
2015-03-03
|
2KB
|
82 lines
object DMrehgr: TDMrehgr
OldCreateOrder = True
OnCreate = DMrehgrCreate
OnDestroy = DMrehgrDestroy
Left = 459
Top = 165
Height = 218
Width = 247
object RehGrp_DS: TDataSource
DataSet = RehGrp
Left = 30
Top = 10
end
object RehGrp: TMSQuery
Connection = mDM.MSConnection
SQL.Strings = (
'Select * From RehberGrp'
'Order By Rehber')
FetchRows = 1
BeforeInsert = RehGrpBeforeInsert
BeforeEdit = RehGrpBeforeEdit
BeforePost = RehGrpBeforePost
OnDeleteError = UpdateError
OnEditError = UpdateError
OnNewRecord = RehGrpNewRecord
OnPostError = UpdateError
Left = 30
Top = 64
object RehGrpAdi: TStringField
FieldName = 'Adi'
Required = True
Size = 6
end
object RehGrpRehber: TStringField
DisplayLabel = 'Rehber '
DisplayWidth = 8
FieldName = 'Rehber'
Required = True
Size = 6
end
object RehGrpRehberAdi: TStringField
DisplayLabel = 'Ad'#305
FieldKind = fkLookup
FieldName = 'RehberAdi'
LookupDataSet = Rehber
LookupKeyFields = 'Kodu'
LookupResultField = 'Adi'
KeyFields = 'Rehber'
Size = 30
Lookup = True
end
end
object Rehber: TMSQuery
Connection = mDM.MSConnection
SQL.Strings = (
'Select Kodu, Adi From Rehber')
Left = 88
Top = 64
object RehberKodu: TStringField
FieldName = 'Kodu'
Required = True
Size = 6
end
object RehberAdi: TStringField
FieldName = 'Adi'
Size = 25
end
end
object RehGrpTMP: TMSQuery
Connection = mDM.MSConnection
SQL.Strings = (
'Select * From RehberGrp')
Left = 152
Top = 64
end
object TmpQry: TMSQuery
Connection = mDM.MSConnection
Left = 152
Top = 16
end
end