Membuat 2 form yang saling berinteraksi

Ini terjadi pada saat kita mau entry data transaksi stok, untuk mempermudah pengisian kode stok, kita tingal tampilkan data stok tersebu dan cukup di click and stok tsb akan masuk ke form transaksi tanpa unload.....
sorry kalu kurang sempurna, silahkan teman tambahkan..
**
Nih aku kasih sourcenya sedikit yaaa
Pada saat click tambah.
****
DO FORM fr_pr_add NAME FR_PR_ADD1 WITH "TAMBAH"
thisform.init_pr_grid()
thisform.grid_new1.setfocus()

****
DO FORM FR_GRID_STK NAME FR_GRID_STK1


****
SELECT cur_rstk
SCATTER memvar
IF fmode = "EDIT"
INSERT INTO cur_tdpr(stk_cde, stk_des, uom_cde, req_qty);
values(m.stk_cde,m.exp_2, m.uom_cde, 0)
fr_pr_add1.refresh
ELSE
SELECT tmp_cur
INSERT INTO tmp_cur(stk_cde, stk_des, uom_cde, req_qty);
values(m.stk_cde,m.exp_2, m.uom_cde, 0)
SELECT * from tmp_cur ORDER BY stk_cde DESC INTO CURSOR cur_tdpr READWRITE
fr_pr_add1.Grid1.RecordSourceType = 1
fr_pr_add1.Grid1.RecordSource = "cur_tdpr"
fr_pr_add1.grid1.ColumnCount = 5

fr_pr_add1.grid1.column1.header1.Caption = "KODE"
fr_pr_add1.grid1.column1.Width = 65
fr_pr_add1.grid1.column1.alignment = 0
fr_pr_add1.grid1.column1.ReadOnly = .F.

fr_pr_add1.grid1.column2.header1.Caption = "NAMA BARANG"
fr_pr_add1.grid1.column2.Width = 240
fr_pr_add1.grid1.column2.alignment = 0

fr_pr_add1.grid1.column3.header1.Caption = "UNIT SAT."
fr_pr_add1.grid1.column3.Width = 65
fr_pr_add1.grid1.column3.alignment = 0

fr_pr_add1.grid1.column4.header1.Caption = "JUMLAH"
fr_pr_add1.grid1.column4.Width = 80
fr_pr_add1.grid1.column4.alignment = 1

fr_pr_add1.grid1.column5.header1.Caption = "KETERANGAN"
fr_pr_add1.grid1.column5.Width = 230
fr_pr_add1.grid1.column5.alignment = 0
fr_pr_add1.grid1.column5.text1.format = "!"

fr_pr_add1.grid1.column1.ReadOnly = .F.

fr_pr_add1.refresh
endif