Visual Basic 6 ile işçi kayıt programı

Fabrikadakı işçi kaydı yapan program 4 tan elabel 1.labela işçi yaka no 2 . labela adı 3.labela soyadı ve 4. labela çalıstıgı brim yazın daha sonra bu labelların karsısına label1 e text1 label 2 ye text2 label 3 e text 3 label 4 e text dört gelecek biçimde ayarlayınız sonra 4 tane buton ekleyin forma 1 butonakaydet 2. butona ara 3. butonatemizle 4. butonaçıkıs yazın sonra formun altına4 tane list ekleyin ayrı ayrı 1 listin adı işçi yaka no  2. list adı ad 3. list adı soyad 4. list adı çalıstıgı brim olsun

en başa bunları ekleyınız......

Private Type eleman
yakano As Integer
Ad As String
Soyad As String
Birim As String
End Type
Dim isci As eleman
command 1 e asagıdakı kodları ekleyınız ...
Private Sub Command1_Click()
Open "c:\kayit.dat" For Random As #1
'daha önceden kayit yapildiysa çikacak hata'
If Text1.Text = isci.yakano Then
MsgBox "DAHA ÖNCE BÖYLE BiR NUMARA iLE KAYIT YAPTINIZ. LÜTFEN BASKA BiR KAYIT NUMARASI BELiRLEYiN !!!"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
'GoTo 100
End If
isci.yakano = Text1.Text
isci.Ad = Text2.Text
isci.Soyad = Text3.Text
isci.Birim = Text4.Text
Put #1, isci.yakano, isci
'100:
List1.AddItem isci.yakano
List2.AddItem isci.Ad
List3.AddItem isci.Soyad
List4.AddItem isci.Birim
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Close #1:
MsgBox "KAYDI BASARIYLA YAPTINIZ..."
Exit Sub
End Sub
command 2 ye asagıdakı kodları ekleyınız .......
Private Sub Command2_Click()
Open "c:\kayit.dat" For Random As #1
ara = Val(InputBox("ARADIGINIZ iSÇiNiN YAKA NUMARASINI GiRiNiZ...", "ARA"))
Get #1, ara, isci
If isci.yakano <> ara Then MsgBox "DAHA ÖNCE BÖYLE BiR KAYIT YAPMADINIZ !!! "
Text1.Text = isci.yakano
Text2.Text = isci.Ad
Text3.Text = isci.Soyad
Text4.Text = isci.Birim
Close #1
Exit Sub
End Sub
command 3 e asagıdakı kodları ekleyınız........
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
command 4 easgıdakı kodları ekleyınız..........
Private Sub Command4_Click()
End
End Sub
formu çift tıklayıp Private Sub Form_Load() bölümünede
Text1 = "": Text2 = "": Text3 = "": Text4 = ""
bunu ekleyınızzzzzzzzzz............
ve f5 e basınız program hazırdırrrrrrrr:):):))):)