VB.Net අවුලක්

isurutmv · Oct 19, 2017

mcn vb.net walin karapu project ekak thiyenawa eke invoice eka print wena eke invoice eke items pennanna listbox ekak dala thiyenne palleha thiyenne eke code eka bn eeth invoice eke data pennanne nane bn mokakda awula

PHP:

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim conp As OleDbConnection
        Dim drp As OleDbDataReader
        Dim comp As OleDbCommand
        setupListView()

        conp = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\ECMIS.accdb;Persist Security Info=True;Jet OLEDB:Database Password=l3nyora")

        conp.Open()
        If lblQ.Text = "YES" Then
            comp = New OleDbCommand("select ItemNumber,ItemName,ItemDescription,ItemPrice,ItemVAT,ItemDiscount,ItemQuantity,ItemTotal FROM tblQuotes WHERE QuoteNumber LIKE'%" & txtSearch.Text & "%'", conp)

          
            drp = comp.ExecuteReader

            If drp.HasRows Then
                While drp.Read

                    Dim newitem As New ListViewItem
                    newitem.Text = drp.GetValue(0) '1 column
                    newitem.SubItems.Add(drp.GetValue(1)) '2 column
                    newitem.SubItems.Add(drp.GetValue(2)) '3 column
                    newitem.SubItems.Add(drp.GetValue(3)) '4 column
                    newitem.SubItems.Add(drp.GetValue(4)) '5 column
                    newitem.SubItems.Add(drp.GetValue(5)) '6 column
                    newitem.SubItems.Add(drp.GetValue(6)) '7 column
                    newitem.SubItems.Add(drp.GetValue(7)) '8 column



                    ListView1.Items.Add(newitem)

                End While


            End If
        Else

            comp = New OleDbCommand("select ItemNumber,ItemName,ItemDescription,ItemPrice,ItemVAT,ItemDiscount,ItemQuantity,ItemTotal FROM tblSales WHERE SalesNumber LIKE'%" & txtSearch.Text & "%'", conp)


            drp = comp.ExecuteReader

            If drp.HasRows Then
                While drp.Read

                    Dim newitem As New ListViewItem
                    newitem.Text = drp.GetValue(0) '1 column
                    newitem.SubItems.Add(drp.GetValue(1)) '2 column
                    newitem.SubItems.Add(drp.GetValue(2)) '3 column
                    newitem.SubItems.Add(drp.GetValue(3)) '4 column
                    newitem.SubItems.Add(drp.GetValue(4)) '5 column
                    newitem.SubItems.Add(drp.GetValue(5)) '6 column
                    newitem.SubItems.Add(drp.GetValue(6)) '7 column
                    newitem.SubItems.Add(drp.GetValue(7)) '8 column



                    ListView1.Items.Add(newitem)

                End While

            End If
        End If
    End Sub

    Sub setupListView()
        'aad columns to listview
        ListView1.Columns.Add("ICode", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Item Name", 150, HorizontalAlignment.Left)
        ListView1.Columns.Add("Item Description", 305, HorizontalAlignment.Left)
        ListView1.Columns.Add("Price", 100, HorizontalAlignment.Right)
        ListView1.Columns.Add("Vat", 80, HorizontalAlignment.Right)
        ListView1.Columns.Add("Disc", 80, HorizontalAlignment.Right)
        ListView1.Columns.Add("Qty", 60, HorizontalAlignment.Center)
        ListView1.Columns.Add("Total", 100, HorizontalAlignment.Right)
        ListView1.FullRowSelect = True
        ListView1.GridLines = True
        'changing column header
        ListView1.HeaderStyle = ColumnHeaderStyle.Nonclickable

       
    End Sub

Hora_Nariya · Oct 19, 2017

BUMP

senewimala1988 · Oct 19, 2017

BUMP!

tsomeone · Oct 19, 2017

Okata wada lesi nedda DataSet eka use karanam, Dataset eka bind karanna listview ekata, passe generate karana parata dataset eke table eka clear karala ayeth fill karanna, ita passe listview eka refresh karanna, databinding karanna eka leda adui :love:

oke mokakda wena seen eka uba button eka click karama data tika populate wenne listview ekatada? data tika database eken enawada? message box ekak dala balanna count records enna, mata oya code eka kiyawanna kammaliy ban, kallen kaalla debug karapan breakpoints dala ethakota ubatama hoyaganna puluwan lede. :cool:

isurutmv · Oct 19, 2017

tsomeone said:
Okata wada lesi nedda DataSet eka use karanam, Dataset eka bind karanna listview ekata, passe generate karana parata dataset eke table eka clear karala ayeth fill karanna, ita passe listview eka refresh karanna, databinding karanna eka leda adui

karana widiha poddak kiyala diyanko mcn

tsomeone · Oct 19, 2017

isurutmv said:
karana widiha poddak kiyala diyanko mcn

mokakda wenna one seen eka kiyanna

isurutmv · Oct 19, 2017

tsomeone said:
mokakda wenna one seen eka kiyanna

shop eke item tika bill karala print karapuwa bill eka print wenna oone gattu items wala details ekkama

Scattered123 · Oct 19, 2017

isurutmv said:
shop eke item tika bill karala print karapuwa bill eka print wenna oone gattu items wala details ekkama

etkta bill eke print wenne nathi ekada aula? blpn print function ekata uba hariyta data feed krnwd kyl

tsomeone · Oct 19, 2017

Datagrid use karapan man nam dataset and datagrid, oka vb.net walata deela thiyenne hethuwakata, dataset ekata tables tila fill karala aye database eka one na e datawali wada karanna puluwan, me method eka follow karapan

tsomeone · Oct 19, 2017

isurutmv said:
shop eke item tika bill karala print karapuwa bill eka print wenna oone gattu items wala details ekkama

Crystal Report, Data Report ayi use karanne nathhe? lesi ne ban ayi lesi dewal code dala leda karaganne passe kaleka oke code ekak wenas karanna one unoth ubata epa wewi print walata report use karanna.

isurutmv · Oct 19, 2017

Scattered123 said:
etkta bill eke print wenne nathi ekada aula? blpn print function ekata uba hariyta data feed krnwd kyl

na mcn print wena invoice eke item details pennanne na

tsomeone · Oct 19, 2017

oke uba click karana hama parama setupListView() run wena nisa hamawelema aluthen column hadenne nadda?

isurutmv · Oct 19, 2017

tsomeone said:
oke uba click karana hama parama setupListView() run wena nisa hamawelema aluthen column hadenne nadda?

na mcn hama parama click karanne aluth invoice ekakne :yes:

sithija.h · Oct 19, 2017

isurutmv said:

mcn vb.net walin karapu project ekak thiyenawa eke invoice eka print wena eke invoice eke items pennanna listbox ekak dala thiyenne palleha thiyenne eke code eka bn eeth invoice eke data pennanne nane bn mokakda awula

PHP:

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim conp As OleDbConnection
        Dim drp As OleDbDataReader
        Dim comp As OleDbCommand
        setupListView()

        conp = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\ECMIS.accdb;Persist Security Info=True;Jet OLEDB:Database Password=l3nyora")

        conp.Open()
        If lblQ.Text = "YES" Then
            comp = New OleDbCommand("select ItemNumber,ItemName,ItemDescription,ItemPrice,ItemVAT,ItemDiscount,ItemQuantity,ItemTotal FROM tblQuotes WHERE QuoteNumber LIKE'%" & txtSearch.Text & "%'", conp)

          
            drp = comp.ExecuteReader

            If drp.HasRows Then
                While drp.Read

                    Dim newitem As New ListViewItem
                    newitem.Text = drp.GetValue(0) '1 column
                    newitem.SubItems.Add(drp.GetValue(1)) '2 column
                    newitem.SubItems.Add(drp.GetValue(2)) '3 column
                    newitem.SubItems.Add(drp.GetValue(3)) '4 column
                    newitem.SubItems.Add(drp.GetValue(4)) '5 column
                    newitem.SubItems.Add(drp.GetValue(5)) '6 column
                    newitem.SubItems.Add(drp.GetValue(6)) '7 column
                    newitem.SubItems.Add(drp.GetValue(7)) '8 column



                    ListView1.Items.Add(newitem)

                End While


            End If
        Else

            comp = New OleDbCommand("select ItemNumber,ItemName,ItemDescription,ItemPrice,ItemVAT,ItemDiscount,ItemQuantity,ItemTotal FROM tblSales WHERE SalesNumber LIKE'%" & txtSearch.Text & "%'", conp)


            drp = comp.ExecuteReader

            If drp.HasRows Then
                While drp.Read

                    Dim newitem As New ListViewItem
                    newitem.Text = drp.GetValue(0) '1 column
                    newitem.SubItems.Add(drp.GetValue(1)) '2 column
                    newitem.SubItems.Add(drp.GetValue(2)) '3 column
                    newitem.SubItems.Add(drp.GetValue(3)) '4 column
                    newitem.SubItems.Add(drp.GetValue(4)) '5 column
                    newitem.SubItems.Add(drp.GetValue(5)) '6 column
                    newitem.SubItems.Add(drp.GetValue(6)) '7 column
                    newitem.SubItems.Add(drp.GetValue(7)) '8 column



                    ListView1.Items.Add(newitem)

                End While

            End If
        End If
    End Sub

    Sub setupListView()
        'aad columns to listview
        ListView1.Columns.Add("ICode", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Item Name", 150, HorizontalAlignment.Left)
        ListView1.Columns.Add("Item Description", 305, HorizontalAlignment.Left)
        ListView1.Columns.Add("Price", 100, HorizontalAlignment.Right)
        ListView1.Columns.Add("Vat", 80, HorizontalAlignment.Right)
        ListView1.Columns.Add("Disc", 80, HorizontalAlignment.Right)
        ListView1.Columns.Add("Qty", 60, HorizontalAlignment.Center)
        ListView1.Columns.Add("Total", 100, HorizontalAlignment.Right)
        ListView1.FullRowSelect = True
        ListView1.GridLines = True
        'changing column header
        ListView1.HeaderStyle = ColumnHeaderStyle.Nonclickable

       
    End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim conp As OleDbConnection
Dim drp As OleDbDataReader
Dim comp As OleDbCommand
setupListView()

conp = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\ECMIS.accdb;Persist Security Info=True;Jet OLEDB

atabase Password=l3nyora")

conp.Open()
If lblQ.Text = "YES" Then
comp = New OleDbCommand("select ItemNumber,ItemName,ItemDescription,ItemPrice,ItemVAT,ItemDiscount,ItemQuantity,ItemTotal FROM tblQuotes WHERE QuoteNumber LIKE'%" & txtSearch.Text & "%'", conp)

drp = comp.ExecuteReader

If drp.HasRows Then
While drp.Read

Dim newitem As New ListViewItem
newitem.Text = drp.GetValue(0) '1 column
newitem.SubItems.Add(drp.GetValue(1)) '2 column
newitem.SubItems.Add(drp.GetValue(2)) '3 column
newitem.SubItems.Add(drp.GetValue(3)) '4 column
newitem.SubItems.Add(drp.GetValue(4)) '5 column
newitem.SubItems.Add(drp.GetValue(5)) '6 column
newitem.SubItems.Add(drp.GetValue(6)) '7 column
newitem.SubItems.Add(drp.GetValue(7)) '8 column

ListView1.Items.Add(newitem)

End While

End If
Else

comp = New OleDbCommand("select ItemNumber,ItemName,ItemDescription,ItemPrice,ItemVAT,ItemDiscount,ItemQuantity,ItemTotal FROM tblSales WHERE SalesNumber LIKE'%" & txtSearch.Text & "%'", conp)

drp = comp.ExecuteReader

If drp.HasRows Then
While drp.Read

Dim newitem As New ListViewItem
newitem.Text = drp.GetValue(0) '1 column
newitem.SubItems.Add(drp.GetValue(1)) '2 column
newitem.SubItems.Add(drp.GetValue(2)) '3 column
newitem.SubItems.Add(drp.GetValue(3)) '4 column
newitem.SubItems.Add(drp.GetValue(4)) '5 column
newitem.SubItems.Add(drp.GetValue(5)) '6 column
newitem.SubItems.Add(drp.GetValue(6)) '7 column
newitem.SubItems.Add(drp.GetValue(7)) '8 column

ListView1.Items.Add(newitem)

End While

End If
End If
End Sub

Sub setupListView()
'aad columns to listview
ListView1.Columns.Add("ICode", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("Item Name", 150, HorizontalAlignment.Left)
ListView1.Columns.Add("Item Description", 305, HorizontalAlignment.Left)
ListView1.Columns.Add("Price", 100, HorizontalAlignment.Right)
ListView1.Columns.Add("Vat", 80, HorizontalAlignment.Right)
ListView1.Columns.Add("Disc", 80, HorizontalAlignment.Right)
ListView1.Columns.Add("Qty", 60, HorizontalAlignment.Center)
ListView1.Columns.Add("Total", 100, HorizontalAlignment.Right)
ListView1.FullRowSelect = True
ListView1.GridLines = True
'changing column header
ListView1.HeaderStyle = ColumnHeaderStyle.Nonclickable

End Sub

Mama oya orange color welin udama highlight kale normally programming weladi buttons welata namak dapan, piliwelakata wade karanna ona, eta passe red color highlight kale mata poddak saka hithena than tikak, unba ewata DEBUG point dala run karala balapan, dannawa neh debug point danna? dala ethana cursor una gaman F10 press kara kara step over karapan ethakota balapan ara LOOP eka aththatama iterate wenawada kiyala, eta passe meke reply ekak dapanko,

thawa deyak bn DataReader ekak aragathhtoth eka aniwa close karapan, Access DB wela nam awlak na but MySQL,SQL wela nam error ekak yanawa,

ah unba ara data fill karanna kalin populate method eka run karanawa neda bn?

thinking_guy · Oct 19, 2017

Umbe code eke awla tiyenne umba listview1 ekata add karana sub items list view control eka athule pennanne nathi ekada?

rangana26 · Oct 19, 2017

try this
ListView1.Items.Add(newitem.SubItems)

instead of

ListView1.Items.Add(newitem)

Scattered123 · Oct 19, 2017

listview eke Refresh() call karla blnn pddk

nalinsen · Oct 19, 2017

Scattered123 said:
etkta bill eke print wenne nathi ekada aula? blpn print function ekata uba hariyta data feed krnwd kyl

බිල් එක සේව් වෙන නෙවේද ඉන්වොයිස් ප්‍රින්ට් වෙන්නේ.

isurutmv · Oct 19, 2017

Thanks mcn help karapu hamotama eka hada gatta :yes:

isurutmv · Oct 19, 2017

dan print karanakota thawa prashnayak thiyenawa mcn print wenne bill eke yatama theeruwa witharayi :eek:

PHP:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
        PrintDocument1.Print()
        Me.Close()
    End Sub




  

 
 

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim bm As New Bitmap(Me.Width, Me.Height)

        Panel2.DrawToBitmap(bm, New Rectangle(0, 0, Me.Width, Me.Height))

        e.Graphics.DrawImage(bm, 0, 0)
        Dim aPS As New PageSetupDialog
        aPS.Document = PrintDocument1
    End Sub

VB.Net අවුලක්

Well-known member

Well-known member

Well-known member

Well-known member

Well-known member

Well-known member

Well-known member

Well-known member

Well-known member

Well-known member

Well-known member

Well-known member

Well-known member

Well-known member

Well-known member

Well-known member

Well-known member

Member

Well-known member

Well-known member