Anasayfa > Kodlar > Visual Basic 6 ile işçi kayıt programı

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:):):))):)


TD Software


  1. Ramazan
    02/03/2011, 22:53

    Kardeş bu kod da silme işlemini nasıl yapacağımızı yazmamışsın Biliyorsan Kodu yollarmısın şimdiden tşk. Ram1@hotmail.com.tr

    Beğen

  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: