Data1 компонентінің DatebaseName қасиетіне C:\dip\Ibr.mdb мәнін береміз.
Command1 компонентінің код терезесіне мына процедураны ендіреміз:
Private Sub Command1_Click()
Form1.Show
Form2.Hide
End Sub
Сосын, тағы бір жаңа форма ашамыз, Негізі мәзірдегі Command3 компонентінің код терезесіне сол ашылған 4-формаға өту программасын жазамыз:
Private Sub Command3_Click()
Form4.Show
End Sub
Жаңа ашылған форма (Form4) бетіне Label1, Label2, Label3, Label4, Command1 компоненттерін орнатып, Caption қасиеттеріне қажетті мәліметтерді ендіреміз (15 сурет). Command1 түймесінің код терезесіне мына программаны ендіреміз:
Private Sub Command2_Click()
Me.Hide
Form1.Show
End Sub
Достарыңызбен бөлісу: |