VB pomoc
Prikazujem rezultate 1 do 2 od 2

Tema: VB pomoc

  1. #1
    Nov član
    Učlanjen
    17.09.2008.
    Poruke
    0
    Reputaciona moć
    0

    Podrazumevano VB pomoc

    e ovako...trebam odraditi seminarski rad iz programiranja....odmah da kažem da ne tražim od nikoga da to uradi umjesto mene.....radi se o jednostavnom (ne za mene jer studiram na faxu za informatiku i menadžment i imam programiranje iako mi to nije predmet od posebnog značaja i neće mi trebati) programu-skladište.

    Napravio sam formu koja izgleda ovako

    a evo i koda:
    Kod:
    Option Explicit
    
    Private db As Database
    
    Private Sub cmdIznesi_Click()
    On Error Resume Next
      txtNaziv.Text = Trim(txtNaziv.Text)
      txtKolicina.Text = CStr(Val(txtKolicina.Text))
      If txtNaziv.Text = "" Or Val(txtKolicina.Text) <= 0 Then Exit Sub
      
      Dim rs As Recordset
      Set rs = db.OpenRecordset("SELECT Naziv, Kolicina FROM Skladiste WHERE Naziv='" + txtNaziv.Text + "'")
      If rs.BOF = True And rs.EOF = True Then
        MsgBox "Ne postoji!"
        txtNaziv.SetFocus
        Exit Sub
      Else
        rs.MoveFirst
        Dim pKolicina As Long
        pKolicina = rs!Kolicina
        If Val(txtKolicina.Text) < pKolicina Then
          db.Execute "UPDATE Skladiste SET Kolicina=" + CStr(pKolicina - Val(txtKolicina.Text)) + " WHERE Naziv='" + txtNaziv.Text + "'"
        ElseIf Val(txtKolicina.Text) = pKolicina Then
          db.Execute "DELETE FROM Skladiste WHERE Naziv='" + txtNaziv.Text + "'"
        Else
          MsgBox "Nema toliko..."
          txtKolicina.Text = CStr(pKolicina)
          txtKolicina.SetFocus
          Exit Sub
        End If
      End If
      
      txtNaziv.Text = ""
      txtKolicina.Text = ""
      PopuniLsv1
      txtNaziv.SetFocus
    End Sub
    
    Private Sub cmdUnesi_Click()
    On Error Resume Next
      txtNaziv.Text = Trim(txtNaziv.Text)
      txtKolicina.Text = CStr(Val(txtKolicina.Text))
      If txtNaziv.Text = "" Or Val(txtKolicina.Text) <= 0 Then Exit Sub
      
      Dim rs As Recordset
      Set rs = db.OpenRecordset("SELECT Naziv, Kolicina FROM Skladiste WHERE Naziv='" + txtNaziv.Text + "'")
      If rs.BOF = True And rs.EOF = True Then
        db.Execute "INSERT INTO Skladiste (Naziv, Kolicina) VALUES ('" + txtNaziv.Text + "', " + txtKolicina.Text + ")"
      Else
        rs.MoveFirst
        Dim pKolicina As Long
        pKolicina = rs!Kolicina
        db.Execute "UPDATE Skladiste SET Kolicina=" + CStr(pKolicina + Val(txtKolicina.Text)) + " WHERE Naziv='" + txtNaziv.Text + "'"
      End If
      
      txtNaziv.Text = ""
      txtKolicina.Text = ""
      PopuniLsv1
      txtNaziv.SetFocus
    End Sub
    
    Private Sub Form_Load()
      On Error Resume Next
      Err.Clear
      Set db = OpenDatabase("c:\sklada.mdb")
      If Err.Number = 3024 Then
        Set db = CreateDatabase("c:\sklada.mdb", dbLangGeneral)
        db.Execute "CREATE TABLE Skladiste (Naziv TEXT, Kolicina LONG)"
      End If
      PopuniLsv1
    End Sub
    
    Private Sub lsv1_ItemClick(ByVal Item As ComctlLib.ListItem)
      txtNaziv.Text = Item.Text
      txtKolicina.Text = Item.SubItems(1)
    End Sub
    
    Private Sub txtKolicina_GotFocus()
      txtKolicina.SelStart = 0
      txtKolicina.SelLength = Len(txtKolicina.Text)
    End Sub
    
    Private Sub txtKolicina_KeyPress(KeyAscii As Integer)
      Select Case Chr(KeyAscii)
        Case "0" To "9", Chr(vbKeyBack)
        Case Else
          KeyAscii = 0
      End Select
    End Sub
    
    Private Sub txtNaziv_GotFocus()
      txtNaziv.SelStart = 0
      txtNaziv.SelLength = Len(txtNaziv.Text)
    End Sub
    
    Sub PopuniLsv1()
      lsv1.ListItems.Clear
      Dim rs As Recordset
      Set rs = db.OpenRecordset("SELECT Naziv, Kolicina FROM Skladiste")
      If rs.BOF = True And rs.EOF = True Then Exit Sub
      Dim li As ListItem
      rs.MoveFirst
      Do
        Set li = lsv1.ListItems.Add(, , rs!Naziv)
        li.SubItems(1) = rs!Kolicina
        rs.MoveNext
      Loop Until rs.EOF = True
    End Sub
    E sada problem je što ne znam kako da dodam još 2 tabele toj bazi tj. po dve labele i txt boxa ovoj formi (vrsta i količina)...u stvari ono što ne znam je šta treba u kodu izmjeniti ako to uradim....bio bih mnogo zahvalan ako mi neko može pomoći!
    Hvala unaprijed!



  2. #2
    Zainteresovan član
    Učlanjen
    05.09.2008.
    Poruke
    122
    Reputaciona moć
    0

    Podrazumevano Re: VB pomoc

    Nadji u MSDN.
    valjda baza podataka ima metod da doda tablu majku mu.

Slične teme

  1. POMOC! Potrebne slike igracha Crwene Zvezde .POMOC
    Autor Interista u forumu Fudbal
    Odgovora: 4
    Poslednja poruka: 20.03.2007., 16:40
  2. !! POMOC !! Dodatna antena za mobilni telefon !! POMOC !!
    Autor ludak1985 u forumu Mobilna telefonija
    Odgovora: 7
    Poslednja poruka: 27.08.2005., 00:10
  3. pomoc pomoc yahoo mail i krstarica pricaonica
    Autor copex u forumu Sigurnost i zaštita
    Odgovora: 1
    Poslednja poruka: 10.11.2004., 23:46

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •