ListView problem
Programiram u VB-u 3-4 godine.Firma u kojoj radim se opredelila za Delphi.Sad sam u fazi
privikavnja.U VB-u sam se puno služio sa ListView kontrolom, pa sad to radim i u Delphiju.Provalio sam na koji način da ubacujem vrednosti u ListView, ali problem mi je kako da ih isčitam iz List-a i upišem u bazu.Upis u bazu nije problem.Evo koda u VB-u.Kako bi on izgledao u Delphiju?Unapred hvala.
Private Sub cmdSpremi_Click()
Dim iBrojac As Integer
Dim intg As Integer
Set rsUnos = New ADODB.Recordset
rsUnos.Open _
"Select * From tblUnos order by UnosID", cn, adOpenKeyset, adLockOptimistic
For iBrojac = 1 To ListView.ListItems.Count
With rsUnos
If .BOF = True And .EOF = True Then
intg = 0
.AddNew
!UnosID = intg + 1
!Firma1 = (ListView.ListItems(iBrojac).SubItems(1))
!Filter = (ListView.ListItems(iBrojac).SubItems(2))
!Firma2 = (ListView.ListItems(iBrojac).SubItems(3))
.Update
Else
.MoveLast
intg = !UnosID
.AddNew
!UnosID = intg + 1
!Firma1 = (ListView.ListItems(iBrojac).SubItems(1))
!Filter = (ListView.ListItems(iBrojac).SubItems(2))
!Firma2 = (ListView.ListItems(iBrojac).SubItems(3))
.Update
End If
End With
Next
For iBrojac = 1 To ListView.ListItems.Count
If ListView.ListItems(iBrojac).SubItems(2) = "duguje" Then
With rsUnos
.MoveLast
intg = !UnosID
.AddNew
!UnosID = intg + 1
!Firma1 = (ListView.ListItems(iBrojac).SubItems(3))
!Filter = "potrazuje"
!Firma2 = (ListView.ListItems(iBrojac).SubItems(1))
.Update
End With
Else
With rsUnos
.MoveLast
intg = !UnosID
.AddNew
!UnosID = intg + 1
!Firma1 = (ListView.ListItems(iBrojac).SubItems(3))
!Filter = "duguje"
!Firma2 = (ListView.ListItems(iBrojac).SubItems(1))
.Update
End With
End If
Next
Unload Me
End Sub
 |  |
 |
