Kaj dela ta sledeča koda a bi mi kdo malo obrazložil ? @ Slo-Tech

Forum » Programiranje »
Kaj dela ta sledeča koda a bi mi kdo malo obrazložil ?

Kaj dela ta sledeča koda a bi mi kdo malo obrazložil ?

jungle :: 2. sep 2009, 09:52

KAJ DELA TA KODA BI MI LAHKO VSAK STAVEK OZ. VRSTIVO MALO OBRAZLOŽIL HVALA ZA POMOČ !

---------------------------------------------------------------------------------------------------------------

Private Sub baza_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

End Sub

Private Sub cmddodaj_Click()
baza.Recordset.AddNew
End Sub

Private Sub cmdizhod_Click()
End
End Sub

Private Sub cmdnakonec_Click()
baza.Recordset.MoveLast
End Sub

Private Sub cmdnaprej_Click()
If Not baza.Recordset.EOF Then
baza.Recordset.MoveNext
If baza.Recordset.EOF Then
baza.Recordset.MovePrevious
End If
End If
End Sub

Private Sub cmdnazacetek_Click()
baza.Recordset.MoveFirst
End Sub

Private Sub cmdnazaj_Click()
If Not baza.Recordset.BOF Then
baza.Recordset.MovePrevious
If baza.Recordset.BOF Then
baza.Recordset.MoveNext
End If
End If
End Sub

Private Sub cmdodstrani_Click()
Confirm = MsgBox("Želite res izbrisati člana?", vbYesNo, "Potrditev brisanja")
If Confirm = vbYes Then
baza.Recordset.Delete
MsgBox "Oseba izbrisana!", , "Message"
Else
MsgBox "Oseba ni izbrisana!", , "Message"
End If
End Sub

Private Sub cmdpopravi_Click()
baza.Recordset.Fields("Ime").Value = txtime.Text
baza.Recordset.Fields("Priimek").Value = txtpriimek.Text
baza.Recordset.Fields("Naslov").Value = txtnaslov.Text
baza.Recordset.Fields("Telefonska").Value = txttelefonska.Text
baza.Recordset.Fields("Mobitel").Value = txtmobitel.Text
baza.Recordset.Fields("Clanstvo").Value = txtclanstvo.Text
baza.Recordset.Update
End Sub


Private Sub Form_Load()

End Sub

spremenil: Primoz (4. sep 2009 ob 14:55)

ComboFusion :: 4. sep 2009, 14:28

Čeprav imam danes malo časa, tudi mene zanima, kaj to dela. Vendar ne zgleda nič tako groznega, kot kaže. Lahko pa bi povedal, keri jezik je to ne? :) Pa malo bolj natančno opisal, s kje si to pobral, pa tako naprej. Ruby? RoR? Python? Teh treh ne poznam. PRIBLIŽNO pa vidim, za kaj gre. 9 funkcij, ki vsaka počne nekaj svojega... kaj točno, mi pri vseh ni popolnoma jasno, ker ne poznam jezika, vendar se da vseeno približno videti, ker so osnovni koncepti programiranja enaki pri vseh jezikih.

Verjetno si to pobral iz kake definicije razreda, al kej podobnega... ker tle ne vidim programa, ki bi kakršnokoli od teh funkcij kje klical. Vidim, da so funkcije private, se pravi najbrž dosegljive samo znotraj fajla, v katerem delaš, kar mi da mislit, da mogoče vselej niso iz definicije razreda. Kdo ve, kako je to poštelano v tem tvojem jeziku. Če so private, to še ne pomeni, da ne morejo biti v definiciji razreda. Pa še kako so lahko. :)

Tle bi moral ti problem bolj natančno opisat. Poleg tega naslednjič za kodo uporabljaj raje tage za kodo, ki so na voljo v temu forumu. Drugače, kot v tem primeru, pride koda "špagetasta" in težje berljiva. Tako da bodi vesel, da ti je kdo sploh odgovoril. :)))

Prosim ostale, ki ta jezik bolje poznajo, naj me popravijo. Torej, ne garantiram, da je moja razlaga 100% pravilna, tako da jo vzemi z rezervo prosim. Jaz imam do zdej izkušnje samo s C, Javo in pri spletnih jezikih PHP in ColdFusion. Ta jezik mi res zgleda (kar sem videl na youtube... sintakso) kot RoR ali Ruby sam. Ne vem no... mogoče sem mimo ustrelil.

// funkcija sprejme tri argumente, vendar ne vidim, da bi ta funkcija sploh kaj delala, ker nima vsebine, ni definirana
Private Sub baza_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
End Sub

// Ko jo pokličeš (verjetno, ko klikneš nekam), doda funkcija cmddodaj_Click() nov recordset.
Private Sub cmddodaj_Click()
baza.Recordset.AddNew
End Sub

// Ko jo pokličeš (verjetno, ko klikneš nekam), funkcija poskrbi, da se nekaj zaključi, sam vprašanje,
// če je funkcija znotraj sploh prav definirana, ker spet ne poznam jezika. Tisti "End" znotraj pa mi tudi kej dosti ne pove.
// Verjetno je ok, samo mi je nalo nsmiselno pisat tako kratko funkcijo samo zaradi enega End ukaza. :)
Private Sub cmdizhod_Click()
    End
End Sub

// Ko jo pokličeš (verjetno, ko klikneš nekam), funkcija najbrž doda nek objekt / struct (recordset) nekam na konec, zgleda, da v bazo.
Private Sub cmdnakonec_Click()
    baza.Recordset.MoveLast
End Sub

Private Sub cmdnaprej_Click()
  If Not baza.Recordset.EOF Then // Če nisi na koncu nečesa, verjetno posameznega recordseta, potem...
    baza.Recordset.MoveNext // ...nekaj, nek recordset premakni naprej
    If baza.Recordset.EOF Then // ce si na koncu, potem...
      baza.Recordset.MovePrevious // ...premakni prejsnjega
    End If
  End If
End Sub

// funkcija odstrani neko osebo, nek recordset, ko nekam klikneš
Private Sub cmdodstrani_Click()
    Confirm = MsgBox("Želite res izbrisati člana?", vbYesNo, "Potrditev brisanja") // Opozorilo pred dokončnim brisanjem
    If Confirm = vbYes Then // če ja, potem...
        baza.Recordset.Delete // briši osebo
        MsgBox "Oseba izbrisana!", , "Message" // sporočilo, da se je zgodil ta del zanke
    Else
        MsgBox "Oseba ni izbrisana!", , "Message" // če pa ne, pol pa ti dodatno pove, da osebe nisi zbrisal, se pravi, se je zgodil ta del zanke
    End If
End Sub

// funkcija verjetno ponastavi / popravi kak obrazec, kako formo nekje
Private Sub cmdpopravi_Click()
    baza.Recordset.Fields("Ime").Value = txtime.Text
    baza.Recordset.Fields("Priimek").Value = txtpriimek.Text
    baza.Recordset.Fields("Naslov").Value = txtnaslov.Text
    baza.Recordset.Fields("Telefonska").Value = txttelefonska.Text
    baza.Recordset.Fields("Mobitel").Value = txtmobitel.Text
    baza.Recordset.Fields("Clanstvo").Value = txtclanstvo.Text
    baza.Recordset.Update
End Sub

Kot lahko sklepam gre tle za dele, ki skrbijo za vstavljanje, brisanje, premikanje objektov / struktov / oseb v bazo, iz nje in premikanje po njej. Kej takega.

LP

Zgodovina sprememb…

spremenil: ComboFusion (4. sep 2009 ob 14:30)

techfreak :) :: 4. sep 2009, 15:42

// Ko jo pokličeš (verjetno, ko klikneš nekam), doda funkcija cmddodaj_Click() nov recordset.
Private Sub cmddodaj_Click()
baza.Recordset.AddNew
End Sub

Doda nov zapis/vrstico v tabelo.

// Ko jo pokličeš (verjetno, ko klikneš nekam), funkcija poskrbi, da se nekaj zaključi, sam vprašanje,
// če je funkcija znotraj sploh prav definirana, ker spet ne poznam jezika. Tisti "End" znotraj pa mi tudi kej dosti ne pove.
// Verjetno je ok, samo mi je nalo nsmiselno pisat tako kratko funkcijo samo zaradi enega End ukaza. :)
Private Sub cmdizhod_Click()
    End
End Sub

Ko jo pokličeš, se program zapre.

// Ko jo pokličeš (verjetno, ko klikneš nekam), funkcija najbrž doda nek objekt / struct (recordset) nekam na konec, zgleda, da v bazo.
Private Sub cmdnakonec_Click()
    baza.Recordset.MoveLast
End Sub

Prestavi se na zadnji vnos v bazi

Private Sub cmdnaprej_Click()
  If Not baza.Recordset.EOF Then // Če nisi na koncu nečesa, verjetno posameznega recordseta, potem...
    baza.Recordset.MoveNext // ...nekaj, nek recordset premakni naprej
    If baza.Recordset.EOF Then // ce si na koncu, potem...
      baza.Recordset.MovePrevious // ...premakni prejsnjega
    End If
  End If
End Sub

Če nisi na koncu tabele, se premakne na naslednji zapis. In potem če je ta napis zadnji, potem se premakne nazaj.

// funkcija verjetno ponastavi / popravi kak obrazec, kako formo nekje
Private Sub cmdpopravi_Click()
    baza.Recordset.Fields("Ime").Value = txtime.Text
    baza.Recordset.Fields("Priimek").Value = txtpriimek.Text
    baza.Recordset.Fields("Naslov").Value = txtnaslov.Text
    baza.Recordset.Fields("Telefonska").Value = txttelefonska.Text
    baza.Recordset.Fields("Mobitel").Value = txtmobitel.Text
    baza.Recordset.Fields("Clanstvo").Value = txtclanstvo.Text
    baza.Recordset.Update
End Sub

Funkcija popravi zapis v bazi.

Ostalo je pa že ComboFusion povedal. Jezik je pa Visual Basic.

ComboFusion :: 4. sep 2009, 17:32

Hvala Dejan. Kot rečeno, sem sklepal glede na znanje, ki ga imam iz Jave.

Sklemen :: 13. sep 2009, 19:38

Gre za VB6 ... prva procedura je notri zato, ker je nekdo v IDE narobe kliknil in izbral proceduro WillMove ADO komponente, drugo je že Dejan opisal ...

VB je vseeno še dobro znati zaradi programiranja v VBA ...

simonk

Vredno ogleda ...

	Tema	Sporočila	Ogledi	Zadnje sporočilo
	Tema	Sporočila	Ogledi	Zadnje sporočilo
»	[Access 2007] dusangonzo Oddelek: Programiranje	13	2609 (2209)	urosz 24. mar 2010 16:47:19
»	access -> word ali excel marvin42 Oddelek: Programska oprema	5	1207 (1148)	zavajon 27. jul 2007 09:12:50
»	[VB] Komunikacija s serijskimi napravami mNeRo Oddelek: Programiranje	41	2283 (1557)	mNeRo 27. mar 2007 09:18:49
»	[VB6] Program Odštevalnik - verjetno preprosta rešitev ampak jest je ne najdem (strani: 1 2 ) sladkor Oddelek: Programiranje	51	5202 (4676)	Nerdor 6. feb 2005 18:23:08
»	Kako do podatka v queryu iz VisualBasicScripta (VBA) v accessu? matic Oddelek: Programiranje	11	2121 (2006)	Fim 15. jan 2004 22:04:43

Več podobnih tem

Zadnje novice

Zadnji članki

Išči:

Forum » Programiranje »
Kaj dela ta sledeča koda a bi mi kdo malo obrazložil ?

Kaj dela ta sledeča koda a bi mi kdo malo obrazložil ?