dinamik barkod ayirmak vb6 da

alwinn
02-06-2009, 13:33   |  #1  
OP Taze Üye
Teşekkür Sayısı: 0
2 mesaj
Kayıt Tarihi:Kayıt: Oca 2009

 

arkadaslar market programi hazirliyorum ve stok formunu hazirladim simdi satis formundayim bu formda da aktif text kutusuna gelen barkoda gore textlere mal adi ve fiyatini gosteriyorum ancak bundan sonraki islem sirasini ve hangi islemlerin yapilacagini tam olarak bilmiyorum aklima gelen barkodun okudugu kod 29 la basliyorsa kodu ikiye ayirip ilk7 karakterini barkod sutununa sonraki 5 karakteride cikan agirlik kismina kaydetmesi gerektigidir
eger ilk 2 karakter 29 dan farkliysa bu seferde tabloda cikan adet kisminin artirilmasidir. satilan urunlerin satis zamanin kaydi sadece tarihlemi olacak saatde gosterilirmi hangi saatde satildigi gibi ? ayni urunden bir gunde 10 kere satildi mesela 6 satisda kac adet yada ne kadar agirlik satildi bu nasil duzenlenecek bu konuda yardimci olacak arkadaslara tesekkur ediyorum.. okunan barkodun textlerde gosterilmesi icin yazdigim kod asagidadir.. not access de hazirladim veritabaninin yedegini nasil ve ne zaman almam lazim bu konuda da yardim ederseniz sevinirim tesekkur ediyorum..
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Text1 = "" Then
Text2 = ""
Text3 = ""
Text4 = ""
Exit Sub
End If
Set Rst = New ADODB.Recordset
Rst.Open " select * from personel where Barkod= " & Text1.Text & "", cnn, adOpenKeyset, adLockOptimistic
If Rst.EOF And Rst.BOF Then
Text2 = ""
Text3 = ""
Text4 = ""
Else
Text2 = Rst.Fields(1)
Text3 = Rst.Fields(7)
End If
End Sub

Private Sub Text1_LostFocus()
Text1.BackColor = &H80000014
End Sub