Senin, 23 November 2009

Pemrograman aplikasi foxpro : imput data perusahaan



Form => Init
thisform.combo1.AddItem ("Ms.Febriani")
thisform.combo1.AddItem ("Mr.Gana")
thisform.combo1.AddItem ("Ms.Vera")
thisform.combo1.AddItem ("Mr.Irma")

Combo =. Click
IF(thisform.combo1.value= "Ms.Febriani")
thisform.text1.value = "DR01"
thisform.text2.value = "FEBRIANI"
thisform.text3.Value = "PT.PEMBANGUNAN"
thisform.text4.value = "Direktur"
thisform.text5.value = "Menikah"
thisform.text6.Value = "BANDUNG"
thisform.text7.value = "ISLAM"
thisform.text8.Value = "08567345788"
thisform.image1.Picture= "2.jpg"

ELSE

IF (thisform.combo1.value="Mr.Gana")
thisform.text1.value = "MGR01"
thisform.text2.value = "Gana"
thisform.text3.Value = "PT.PEMBANGUNAN"
thisform.text4.value = "Manager"
thisform.text5.value = "Menikah"
thisform.text6.Value = "BANDUNG"
thisform.text7.value = "ISLAM"
thisform.text8.Value = "081254963315"
thisform.image1.Picture= "4.jpg"

ELSE

IF (thisform.combo1.value="Ms.Vera")
thisform.text1.value = "SKT01"
thisform.text2.value = "Vera"
thisform.text3.Value = "PT.PEMBANGUNAN"
thisform.text4.value = "Sekertaris"
thisform.text5.value = "Menikah"
thisform.text6.Value = "JAKARTA"
thisform.text7.value = "ISLAM"
thisform.text8.Value = "0818854512"
thisform.image1.Picture= "1.jpg"

ELSE(thisform.combo1.value="Ms.Irma")

thisform.text1.value = "SKT02"
thisform.text2.value = "Irma"
thisform.text3.Value = "PT.PEMBANGUNAN"
thisform.text4.value = "Sekertaris"
thisform.text5.value = "Menikah"
thisform.text6.Value = "SEMARANG"
thisform.text7.value = "ISLAM"
thisform.text8.Value = "0896525255"
thisform.image1.Picture= "3.jpg"
thisform.text1.Enabled = .T.
thisform.text1.ForeColor = RGB(255,0,128)
thisform.text1.BackColor = RGB(255,255,255)
thisform.text2.Enabled = .F.
thisform.text3.Enabled = .F.
ENDIF
ENDIF
ENDIF

thisform.Refresh

download file click disini

Reaksi: