Wellcome

برنامه فاکتور دهی و مدیریت کالا و کار

امکانات برنامه:

-امکان ثبت، ویرایش و حذف کالا با جزئیات

-امکان ثبت، ویرایش و حذف درآمد ها با جزئیات

-امکان ثبت، ویرایش و حذف خرجکرد کاربران با جزئیات

-امکان فاکتور دهی با امکانات زیاد با محیط کاری ساده و زیبا

-امکان مشاهده و ویرایش کالاهای درون فاکتور های صادر شده

-امکان کار با حالت چند کاربر

-امکان محاسبه درآمد ها و خرجکرد در بازه های زمانی مختلف و دلخواه و بدست آوردن صود خالص

-امکان ارسال آسان ایمیل به همراه ضمیمه

-و...

(امکان سفارشی نموده برنامه به سلیقه شما)

ایمیل : Taram8757@Gmail.com

همراه : 09381558757

عکس هایی از محیط برنامه در ادامه مطلب:

ادامه مطلب ...

پیمان جمعه 4 آذر‌ماه سال 1390 ساعت 08:27 ب.ظ

0 نظر

ارسال ایمیل در Visual Basic 2010

با کد زیر میتونید از طریق smtp گوگل یک ایمیل همراه با اتچ(ضمیمه) ارسال کنید:

Dim FROM1 As New MailAddress("hellas2012@yahoo.com")
        Dim RECIVER As New MailAddress("novincontrol@gmail.com")
        Dim MY_EMAIL As New MailMessage(FROM1, RECIVER)
        MY_EMAIL.Subject = "THIS IS A TEST 4"
        MY_EMAIL.Body = " HI, This Email Sent With VB.NET 2005"
        Dim MY_ATTACH As New Attachment("c:\gg.txt")
        MY_EMAIL.Attachments.Add(MY_ATTACH)
        Dim SmtpMail As New SmtpClient
        SmtpMail.Host = "smtp.gmail.com"
        SmtpMail.EnableSsl = True
        Dim theCredential As New System.Net.NetworkCredential("novincontrol@gmail.com", "pass")
        SmtpMail.Credentials = theCredential
        SmtpMail.Send(MY_EMAIL)

پیمان یکشنبه 29 آبان‌ماه سال 1390 ساعت 07:26 ق.ظ

0 نظر

برقراری ارتباط با بانک داده اکسس در ویژوال بیسیک

در این مثال شما یک جدول به نام Table1 دارید و بانک اکسس با اکسس 2007 تولید شده ابتدا جدول ما را پر میکند و بعد فیلد سوم رکورد اول را به ما به صورت پیغام گزارش میدهد :

Dim aa As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Database2.accdb;Persist Security Info=False")

        Dim hhh As String = "select * from Table1"
        Dim ds As New DataSet
        Dim bb As New OleDb.OleDbDataAdapter(hhh, aa)
        Dim ff As New OleDb.OleDbCommand(hhh, aa) 'For MSG
        bb.Fill(ds, "Table1")
        aa.Open()
        Dim ccc As OleDb.OleDbDataReader 'For MSG
        ccc = ff.ExecuteReader() 'For MSG
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "Table1"
        ccc.Read() 'For MSG
        MsgBox(ccc(2))