Public goForm As Form
m.goForm = NewObject("frmOrnek")
m.goForm.Show
DEFINE CLASS frmOrnek AS form
Top = 0
Left = 0
Height = 379
Width = 643
DoCreate = .T.
Caption = "Relation Örneği"
Name = "frmOrnek"
ADD OBJECT grdmusteri AS grid WITH ;
ColumnCount = 2, ;
Anchor = 75, ;
Height = 175, ;
Left = 0, ;
Panel = 1, ;
RecordSource = "Musteri", ;
Top = 0, ;
Width = 643, ;
Name = "grdMusteri", ;
Column1.ControlSource = "Musteri.cKodMusteri", ;
Column1.Name = "Column1", ;
Column2.ControlSource = "Musteri.cMusteriAdi", ;
Column2.Width = 179, ;
Column2.Name = "Column2"
ADD OBJECT grdharcama AS grid WITH ;
ColumnCount = 2, ;
Anchor = 30, ;
Height = 175, ;
Left = 0, ;
RecordSource = "Harcama", ;
Top = 174, ;
Width = 643, ;
Name = "grdHarcama", ;
Column1.ControlSource = "Harcama.cKodMusteri", ;
Column1.Name = "Column1", ;
Column2.ControlSource = "Harcama.nTutar", ;
Column2.Name = "Column2"
ADD OBJECT label1 AS label WITH ;
Anchor = 4, ;
Caption = "Seçilen Tutar", ;
Height = 17, ;
Left = 6, ;
Top = 354, ;
Width = 102, ;
Name = "Label1"
ADD OBJECT txttutar AS textbox WITH ;
Anchor = 4, ;
Alignment = 3, ;
Value = 0, ;
Enabled = .F., ;
Height = 23, ;
Left = 119, ;
Top = 351, ;
Width = 100, ;
Name = "txtTutar"
PROCEDURE Load
Create Cursor Musteri (cKodMusteri C(10), cMusteriAdi C(100))
Index On cKodMusteri Tag cKodMuster Unique
Create Cursor Harcama (nKodHarcama I AutoInc, cKodMusteri C(10), nTutar B(2))
Index On nKodHarcama Tag nKodHarcam Unique
Index On cKodMusteri Tag cKodMuster Additive
Insert Into Musteri Values("120001", "A Müşterisi")
Insert Into Musteri Values("120002", "B Müşterisi")
Insert Into Musteri Values("120003", "C Müşterisi")
Insert Into Harcama (cKodMusteri, nTutar) Values("120001", 100)
Insert Into Harcama (cKodMusteri, nTutar) Values("120002", 200)
Insert Into Harcama (cKodMusteri, nTutar) Values("120001", 300)
Insert Into Harcama (cKodMusteri, nTutar) Values("120003", 400)
Insert Into Harcama (cKodMusteri, nTutar) Values("120001", 500)
Insert Into Harcama (cKodMusteri, nTutar) Values("120002", 600)
Insert Into Harcama (cKodMusteri, nTutar) Values("120003", 700)
Insert Into Harcama (cKodMusteri, nTutar) Values("120003", 800)
Set Relation To cKodMusteri Into Harcama In Musteri
Go Top In Musteri
ENDPROC
PROCEDURE grdharcama.AfterRowColChange
LPARAMETERS nColIndex
ThisForm.txtTutar.Value = Harcama.nTutar
ENDPROC
ENDDEFINE