modüle bölümü
Type kayitbilgisi
adı As String * 20
soyadı As String * 20
sicil As String * 20
cins As String * 20
dep As String * 20
adres As String * 20
tel As String * 20
End Type
Global alanlar As kayitbilgisi
form bölümü
Dim kayitno As Integer
Private Sub Command1_Click()
a = MsgBox("KAYDEDİLSİN Mİ?", 4)
If a = 6 Then
Text1.Text = kayitno
alanlar.adı = Text2.Text
alanlar.soyadı = Text3.Text
alanlar.sicil = Text4.Text
alanlar.adres = Text5.Text
alanlar.tel = Text6.Text
If Option1.Value = True Then
Else
Option2.Value = Option2.Caption
End If
alanlar.dep = Combo1.Text
Put #1, kayitno, alanlar
kayitno = kayitno + 1
Text1.Text = kayitno
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Combo1.Text = ""
Option1.Value = False
Option2.Value = False
Text2.SetFocus
End If
End Sub
Private Sub Command2_Click()
Text1.Text = kayitno
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Combo1.Text = ""
Option1.Value = False
Option2.Value = False
Text2.SetFocus
End Sub
Private Sub Command3_Click()
Close #1
Unload Me
End Sub
Private Sub Form_Activate()
Text2.SetFocus
End Sub
Private Sub Form_Load()
Open "kenan.dat" For Random As #1 Len = Len(alanlar)
kayitno = LOF(1) / Len(alanlar)
kayitno = kayitno + 1
End Sub