BiH



#16 02.08.2013-00:41
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 10,129


Subject: Re: Kasa MSAccess to VB6
Ja koristim u vecini slucajeva klasicni i to ado:
dbgrid dbcobo, dblist.
U zo jos flexgrid.
Jedino ako se ne radi o velikoj bazi onda koristim ove igracke kako ih ja nekada zovem.
Vecina nema ni help pa se djaba patis lakse je sam napraviti i manje koda napises.

Ako nadjem vremena probat cu ti napraviti primjer sa klasicnim kontrolama.
Pozdrav
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 02.08.2013-00:49 od strane zxz. ↑  ↓

#17 02.08.2013-00:48
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 10,129


Subject: Re: Kasa MSAccess to VB6
Evo ovaj mozda ti se svidi.
http://www.icentar.ba/download/setups.zip

Prilozi:
Informacije o fajlu: zip  Grd.zip
Preuzimanja: 157
Veličina: 39.90 KB


Pozdrav
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 02.08.2013-00:53 od strane zxz. ↑  ↓

#18 06.08.2013-18:52
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,695


Subject: Re: Kasa MSAccess to VB6
Gi razgledav ovie gridovi no sega i nemam vreme da eksperimentiram mnogu zatoa ke prodolzam da rabotam so ovaj Grid sto pocnav mislam deka ke si ja brka rabotata.
Sega me interesira kako mozam (odnosno dali e mozno) vo gridov da soberam,odzemam ili da obrabotam nekoja operecija nad dve tri ili poveke polijna i rezultatot da go gledam na edno pole.
Vo Accesot toa go resavav vo
control source na poleto dodavav na primer: =([Ed_Cena]*[Kolicina])/100
↑  ↓

#19 06.08.2013-19:07
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 10,129


Subject: Re: Kasa MSAccess to VB6
Citat:
Vo Accesot toa go resavav vo
control source na poleto dodavav na primer: =([Ed_Cena]*[Kolicina])/100
To ti je najbolje da napises u SQL-u.
Znam da flex grid to moze a data grid bi morao probati ali kazem opet najbolje je SQL napisati to u data.
Pozdrav
↑  ↓

#20 06.08.2013-19:27
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,695


Subject: Re: Kasa MSAccess to VB6
go staviv vo sql ot no kako da go osvezam posle promena ili update
↑  ↓

#21 06.08.2013-19:29
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,695


Subject: Re: Kasa MSAccess to VB6
Isto me interesira sto se koristi na gridot i formata kako zamena za On Current nastanot
↑  ↓

#22 06.08.2013-19:56
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 10,129


Subject: Re: Kasa MSAccess to VB6
me.data.Refresh
naravno data od grida ako radis sa data.
Grid nema rekorde da broji jedino ga mozes refresirati.
Pozdrav
↑  ↓

#23 06.08.2013-20:19
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,695


Subject: Re: Kasa MSAccess to VB6
Jas go imam reseno so Recordset
DownloadIzvorni kod (Visual Basic):
  1. Set rsSmetki = New Recordset
  2.       rsSmetki.Open "SHAPE {select * from tblSmetki order by ID_Smetka} AS ParentCMD APPEND ({SELECT tblSmetki_Stavki.ID_Stavka, tblSmetki_Stavki.Smetka_Br, tblSmetki_Stavki.Stavka, tblSmetki_Stavki.Ed_Mera, tblSmetki_Stavki.Kolicina, tblSmetki_Stavki.Ed_Cena, tblSmetki_Stavki.Posledna_Prod_Cena, tblSmetki_Stavki.Popust, tblSmetki_Stavki.DDV, tblSmetki_Stavki.R_Br, tblSmetki_Stavki.Barkod, [Ed_Cena]*[Kolicina] AS Vkupno FROM tblSmetki_Stavki Order By R_Br} AS ChildCMD RELATE ID_Smetka TO Smetka_Br) AS ChildCMD", cn, adOpenStatic, adLockOptimistic

no koga ke mu napravam na recordsetot Requery ne reagira nisto
koga ke stavam gridStavki_Smetka.ReBind togas e ok no me vraka na pocetok na stavkite odnosno na prviot Row
↑  ↓

#24 06.08.2013-20:41
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 10,129


Subject: Re: Kasa MSAccess to VB6
Jel i dalje korsitis onaj tvoj tdbGrid?
Pozdrav
↑  ↓

#25 06.08.2013-20:55
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,695


Subject: Re: Kasa MSAccess to VB6
da nemam vreme da eksperimentiram treba da ja zavrsam rabotata sto pobrzo
↑  ↓

#26 06.08.2013-20:56
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 10,129


Subject: Re: Kasa MSAccess to VB6
gridStavki_Smetka.Bookmark = 4
gridStavki_Smetka.Col = 2
gridStavki_Smetka.SetFocus
Pozdrav
↑  ↓

#27 06.08.2013-21:02
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,695


Subject: Re: Kasa MSAccess to VB6
Koja e funkcijata na ovaj red

gridStavki_Smetka.Bookmark = 4
↑  ↓

#28 06.08.2013-21:19
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 10,129


Subject: Re: Kasa MSAccess to VB6
a = gridStavki_Smetka.Bookmark
b=gridStavki_Smetka.Col
ovako zabiljezis gdje si stao
e onda mozes poslije postaviti gdje hoces.

E sad neznam sta si konkretno htio da uradis.
Pozdrav
↑  ↓

#29 06.08.2013-22:12
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,695


Subject: Re: Kasa MSAccess to VB6
Eve da pojasnam sto rabotam sega
Na subformata vo stariot program imav kod na Barkod_AfterUpdate za barcodot od artiklot
DownloadIzvorni kod (Visual Basic):
  1. Private Sub Barkod_AfterUpdate()
  2. On Error Resume Next
  3. Dim BarCod As String
  4.  
  5. BarCod = Me.Barkod
  6. Artikalce = DLookup("ID_Artikal", "tblArtikli", "Artikal_BarKod='" & BarCod & "'")
  7. If IsNull(Artikalce) Or Artikalce = "" Then
  8. 'MsgBox " "
  9.   DoCmd.OpenForm "frmNajdi_Artikal", acNormal
  10.  
  11.  
  12. Me.Undo
  13. Exit Sub
  14. Else
  15.    Me.Smetka_Br = Forms![frmKasa]![ID_Smetka]
  16.    Me.Stavka = Artikalce
  17.    Me.DDV = Stavka.Column(2)
  18.    Me.Ed_Cena = Stavka.Column(3)
  19.    Me.Barkod = Stavka.Column(6)
  20.    Me.Posledna_Prod_Cena = Stavka.Column(3)
  21.    DoCmd.RunCommand acCmdSaveRecord
  22.    DoCmd.GoToRecord , , acNewRec
  23.    SendKeys "{LEFT}"
  24.    Me.Kolicina.SetFocus
  25.  
  26. End If
  27. End Sub
sega vo gridot go zamenav so ovaj cod
DownloadIzvorni kod (Visual Basic):
  1. Private Sub gridStavki_Smetka_AfterColUpdate(ByVal ColIndex As Integer)
  2.  
  3.     Select Case ColIndex
  4.            Case 1 'Barkod pole
  5.             ArtikalID = ""
  6.              'Barkod
  7.             ArtikalID = DLookup("ID_Artikal", "tblArtikli", "Artikal_BarKod='" & gridStavki_Smetka.Columns(1).Text & "'")
  8.              If IsNull(ArtikalID) Or ArtikalID = "" Then
  9.              ' MsgBox "nema barkod"
  10.             'Sifra
  11.                ArtikalID = DLookup("ID_Artikal", "tblArtikli", "Artikal_Sifra='" & gridStavki_Smetka.Columns(1).Text & "'")
  12.                 If IsNull(ArtikalID) Or ArtikalID = "" Then
  13.                ' MsgBox "nema sifra"
  14.               frmNajdi_Artikal.Show
  15.                frmNajdi_Artikal.pret.Text = gridStavki_Smetka.Columns(1).Text
  16.                ' Naziv
  17.                End If
  18.             Else
  19.                  gridStavki_Smetka.Columns(0).Value = gridStavki_Smetka.ApproxCount
  20.                  gridStavki_Smetka.Columns(2).Value = ArtikalID
  21.                  gridStavki_Smetka.Columns(3).Value = DLookup("Ed_Mera", "tblArtikli", "ID_Artikal=" & ArtikalID)
  22.                  gridStavki_Smetka.Columns(4).Value = 1
  23.                  gridStavki_Smetka.Columns(5).Value = DLookup("Artikal_Prodazna_Cena", "tblArtikli", "ID_Artikal=" & ArtikalID)
  24.                  gridStavki_Smetka.Columns(6).Value = DLookup("Artikal_DDV", "tblArtikli", "ID_Artikal=" & ArtikalID)
  25.                 ' gridStavki_Smetka.Col = 4
  26.                 SendKeys "{RIGHT}"
  27.                  SendKeys "{RIGHT}"
  28.                  SendKeys "{RIGHT}"
  29.              End If
  30.             Case 2  ' Stavka pole
  31.             ArtikalID = ""
  32.              'Barkod
  33.                 ArtikalID = gridStavki_Smetka.Columns(2).Value
  34.                  If IsNull(gridStavki_Smetka.Columns(0).Value) Or gridStavki_Smetka.Columns(0).Value = "" Then
  35.                     gridStavki_Smetka.Columns(0).Value = gridStavki_Smetka.ApproxCount
  36.                  Else
  37.                     gridStavki_Smetka.Columns(0).Value = gridStavki_Smetka.Columns(0).Value
  38.                  End If
  39.                  gridStavki_Smetka.Columns(0).Value = gridStavki_Smetka.ApproxCount
  40.                  gridStavki_Smetka.Columns(1).Value = DLookup("Artikal_BarKod", "tblArtikli", "ID_Artikal=" & ArtikalID)
  41.                  gridStavki_Smetka.Columns(2).Value = ArtikalID
  42.                  gridStavki_Smetka.Columns(3).Value = DLookup("Ed_Mera", "tblArtikli", "ID_Artikal=" & ArtikalID)
  43.                  gridStavki_Smetka.Columns(4).Value = 1
  44.                  gridStavki_Smetka.Columns(5).Value = DLookup("Artikal_Prodazna_Cena", "tblArtikli", "ID_Artikal=" & ArtikalID)
  45.                  gridStavki_Smetka.Columns(6).Value = DLookup("Artikal_DDV", "tblArtikli", "ID_Artikal=" & ArtikalID)
  46.                  SendKeys "{RIGHT}"
  47.                  SendKeys "{RIGHT}"
  48.             Case 4  'kolicina pole
  49.                If gridStavki_Smetka.Columns(4).Value <= 0 Then
  50.                    gridStavki_Smetka.Columns(4).Value = 1
  51.                    gridStavki_Smetka.Columns(4).RefreshCell
  52.                 End If
  53.                  
  54.             Case Else
  55.          
  56.      End Select
  57.  
  58. End Sub
ova sve funkcionira no poleto vkupno na krajot od gridot ostanuva prazno
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 06.08.2013-22:14 od strane Gjoreski. ↑  ↓

#30 06.08.2013-23:21
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 10,129


Subject: Re: Kasa MSAccess to VB6
Citat:
Case 1 'Barkod pole
ArtikalID = ""
'Barkod
ArtikalID = DLookup("ID_Artikal", "tblArtikli", "Artikal_BarKod='" & gridStavki_Smetka.Columns(1).Text & "'")
If IsNull(ArtikalID) Or ArtikalID = "" Then
' MsgBox "nema barkod"
'Sifra
ArtikalID = DLookup("ID_Artikal", "tblArtikli", "Artikal_Sifra='" & gridStavki_Smetka.Columns(1).Text & "'")
If IsNull(ArtikalID) Or ArtikalID = "" Then
' MsgBox "nema sifra"
frmNajdi_Artikal.Show
frmNajdi_Artikal.pret.Text = gridStavki_Smetka.Columns(1).Text
' Naziv
End If

jel se radi o ovom dijelu koda.
Pozdrav
↑  ↓

Stranice (2): 1, 2


All times are GMT +01:00. Current time: 04.06.2020-14:01.