نرم افزار مدیریت فروشگاه شخصی

امکانات نرم افزار مديريت فروشگاه شخصي

1. ثبت ، جستجو ، گزارشگيري  و چاپ فاکتور

2. گزارشگيري  درآمد و هزينه

3. ثبت ، گزارشگيري از کالاهاي موجود در انبار (انبار داری)

4. ثبت و گزارشگيري هزينه ها

۵.گزارش صندوق بر اساس تاریخ سال یا ماه  یا روز
۶.مشاهده مانده صندوق در هر زمان

۷. ثبت و جستجو کد کالا براي سهولت در نوشتن فاکتور

۸. داراي رمز عبور

۹.ثبت و جستجو شماره تلفن , موبايل ، فکس ، آدرس , ايميل

۱۰. روش استفاده از امکانات کاملاً ساده - نرم افزاري قدرتمند و پيشرفته و بدون اشکال

۱۱.پشتیبانی و گارانتی دائم

قیمت : ۴۵.۰۰۰ تومان

توجه : فعلاً فقط در شهرستان مشهد ارئه می گردد .

روش خرید: می توانید برای خرید با شماره موبایل [phone] تماس حاصل فرمایید.

کتاب آموزش جامع و کاربردی ویژوال بیسیک 6

•         کتاب آموزش جامع و کاربردی ویژوال بیسیک 6

•         نویسنده : محمد جواد شخصی خدابخش

•         تعداد صفحه ها : 125

•         قیمت کتاب + هزینه چاپ + CD  پروِژه های کتاب : 12000 تومان ( بدون هزینه پست )

مبلغ 12000 تومان را به شماره حساب : 0002383003  بانک : مسکن  شعبه : احمد آباد مشهد 001846   واریز نمایید .

فهرست کتاب :

آشنایی با محیط ویژوال بیسیک 6 - وظایف کنترلها - پنجره peropertise - کد نویسی – رویدادها - متدهای فرم - کنترل textbox - کنترل Label - کنترل CommandButton - دادها ،در ویژوال بیسیک 6 - چگونه یک متغیر تعریف کنیم - چگونه به یک متغیر مقدار بدهیم - عملیات بر روی داده ها - توابع عددی ، مثلثاتی و تبدیل رشته - دستور Print - تعریف متغیر به صورت عمومی - عملگرهای منطقی - دستورIf   - دستور select Case - پروژه ماشین حساب - تابع InputBox حلقه های Do - حلقه For - عنصر CheckBox - عنصر  - ImageBoxتابع MsgBox - کار با فایل ها - دستور open - حالتهای باز شدن فایل - محدود کردن دسترسی به فایل - قفل کردن فایل - چگونه شماره فایل را تشخیص دهیم - بستن فایلها - نوشتن در فایلهای ترتیبی - عنصر RichTextBox - نوشتن در فایلهای ترتیبی قسمت دوم با دستور  - Write#خواندن از فایل های ترتیبی - برنامه های مدیریت فایل و پوشه - تعریف رکورد - باز کردن ، خواندن و نوشتن در فایلهای تصادفی - مقابله با خطاهای کار با فایل –دستور seek و کار با صفحه کلید - جعبه گفتگو CommonDialog - کنترلهای Toolbar و ImageList - پروژه ماژول تاریخ میلادی به شمسی - تعریف کلی از پایگاه اکسس  - ایجاد پایگاه اکسس  - ایجاد ارتباط بین کنترل Data و فایل پایگاه داده  - خواص کنترل Data  - برقراری ارتباط بین (ActiveX Data Object) یا کنترل Adodc و فایل پایگاه داده اکسس  - خواص  (ActiveX Data Object) کنترل داده Adodc  - پروژه مدیریت کلوپ کرایه CD  -  ثبت اطلاعات با استفاده از کنترل Adodc

 (ActiveX Data Object) - جستجو اطلاعات با استفاده از کنترل Adodc  (ActiveX Data Object) -

برقراری ارتباط بین DataEnvironment و فایل پایگاه داده اکسس  - ذخیره اطلاعات با استفاده از DataEnvironment - نمایش اطلاعات ذخیره شده در یک Tabel با استفاده از DataGride - مثال مهم کد جستجو اطلاعات - مثال مهم کد جستجو با استفاده از دستورات SQL  - آموزش جامع زبان SQL گزارشگیری از پایگاه داده با استفاده از DataReport - پروژه فروشگاه  - کار با چاپگر - کنترل Timer - ساخت Setup برای برنامه ٪

 •         روش اول سفارش محصول : یک نظر برای ما بفرستید و اطلاعات زیر را در متن پیامتان بنویسید :

•         نام و نام خانوادگی + شماره تلفن / موبایل + آدرس کامل+ کد پستی + نام محصول درخواستی

•         روش دوم سفارش محصول : برای خرید این کتاب  روی لینک زیر کلیک کنید :

سفارش محصول

یا می توانید برای خرید با شماره تلفن [phone] تماس حاصل فرمایید.

موضوع : پخش افکتهاي صوتی در برنامه هاي مالتي مديا

آموزش DirectXAudio - بخش 1
موضوع : پخش افکتهاي صوتی در برنامه هاي مالتي مديا 

مقدمه : در سلسله مباحث DirectXAudio شما تکنيکهاي لازم براي اضافه کردن موزيک و افکتهاي صوتي سريع و ديناميک را به بازيها و برنامه هاي مالتي مديا خواهيد آموخت . DirectXAudio جايگزيني براي بخشهاي DirectSound ، DirectSound3D و DirectMusic موجود در DirectX 7 مي باشد و داراي امکانات بهتر و سريعتری بوده و برنامه نويسي آن نيز ساده تر است . 
در اولين درس از DirectXAudio چگونگي پخش افکتهاي صوتي را در برنامه هايتان خواهيد آموخت . 

برای دیدن ادامه مطلب بر روی لینک ادامه مطلب کلیک کنید

ادامه مطلب

آموزش گزارشگیری از پایگاه داده با DataReport

آموزش DataReport

آموزش گزارشگیری از پایگاه داده با DataReport

نویسنده : محمد جواد شخصی خدابخش

نام کتاب : بخشی از کتاب خودآموز جامع و کاربردی ویژوال بیسیک 6

فرمت : PDF

 

آموزش CrystalReport 10

آموزش CrystalReport 10

آموزش CrystalReport 10

گزارشگیری از پایگاه داده با استفاده از crystalReport 10

نوشته : علی انگوتی

فرمت : PDF

خواص کنترل داده Data - ذخیره اطلاعات با کنترل Data

ذخیره اطلاعات با کنترل Data

خواص کنترل داده Data

با استفاده از خواص کنترل Dataمی توان اطلاعاتی را که کاربر در کنترلهای ورودی داده مانند (textbox) می نویسد در بانک اطلاعاتی اکسس ویا بانک های اطلاعاتی دیگر ذخیره کند .

حجم : 921kb

فرمت :PDF

نویسنده : محمد جواد شخصی خدابخش 

برای دیدن این کتاب باید نرم افزار AdobeAcrobatReader بر روی رایانه شما نصب باشد.

آموزشADO یا ActiveX Data Object - ذخیره اطلاعات با ActiveX Data Object

آموزش ActiveX Data Object

خواص ActiveX Data Object /  کنترل Adodc

با استفاده از خواص کنترل ActiveX Data Object یا Adodc می توان اطلاعاتی را که کاربر در کنترلهای ورودی داده مانند (textbox) می نویسد ذخیره کند .

حجم : 921kb

فرمت   PDF:

نویسنده : محمد جواد شخصی خدابخش

برای دیدن این کتاب باید نرم افزار AdobeAcrobatReader بر روی رایانه شما نصب باشد.

ماژول تبدیل تاریخ میلادی به شمسی

نام نویسنده : محمد جواد شخصی خدابخش

عنوان کتاب :ماژول تبدیل تاریخ میلادی به شمسی

حجم : ۲۰۶ k

خواص كنترل داده Data

خواص كنترل داده Data :

همانطور كه مي دانيد پردازش اطلاعات و داده ها در پايگاه داده عبارت است از ايجاد ركورد جديد براي ثبت اطلاعات جديد، حذف ركورد اطلاعاتي ، ويرايش اطلاعات و داده ها و كارهاي ديگر . علاوه بر اين خصوصياتي براي ايجاد ارتباط با پايگاه داده دارد، خاصيتي به نام ركوردست دارد كه بيشترين متدها براي پردازش اطلاعات را دارد.

متدهاي مهم RecordSet :

Move: با استفاده از اين متد ما مي توانيم به ركورد مورد نظر حركت كنيم . روش استفاده آن به صورت زير است:

Data1.recordset.move (شماره ركورد)

Movefirst : با استفاده از اين متد مي توانيم به اول ليست يا جدول تغيير مكان دهيم . روش استفاده آن به صورت زير است:

Data1.recordset.movefirst

MoveLast : اين متد هم رفتن ما را به آخر جدول فراهم مي كنم و روش استفاده آن بصورت زير است:

Data1.recordset.movelast

MoveNext : از اين متد براي رفتن به ركورد بعدي استفاده مي شود و روش استفاده آن بصورت زير است:

Data1.recordset.MoveNext

MovePreivous :از اين متد براي برگشت به ركورد قبلي استفاده مي شود و روش استفاده آن به صورت زير است :

Data1.recordset. MovePreivous

EOF :اين متد مشخص مي كند  آيا اشاره گر در ركورد آخر  آخر قرار دارد ، يا خير . كه در صورتي كه در ركورد آخر قرار داشته باشد مقدار True و در غير اين صورت مقدار False خواهد گرفت .

A= Data1.recordset.EOF

 BOF: قرار داشتن اشاره گر در ابتداي ليست را مشخص مي كند.

A= Data1.recordset.BOF

 

Fields : براي پردازش يك فيلد

Data1.recordset.fields("نام فيلد")

AddNew : از اين متد براي ايجاد يك ركورد جديد استفاده مي شود

Data1.Recordset.AddNew

Update : براي ذخيره كردن ركورد ايجاد شده و يا ويرايش شده البته بايد قبل آن بايد از يكي از متدهاي AddNew يا Edit استفاده شود

Data1.Recordset.Update

Delete : از اين متد براي حذف يك ركورد استفاده مي شود

Data1.Recordset.Delete

RecordCount : اين متد مشخص مي كند كه Tabel ما داراي چند ركورد است .

A= Data1.recordset. RecordCount

FindFirst : از اين متد براي جستجو اولين ركورد كه با ضابطه ما مطابقت دارد استفاده مي شود. براي مثال اگر ما در ليست دنبال شخصي با نام javad باشيم براي جستجو آن بايد از كد زير استفاده كنيم:

Data1.Recordset. FindFirst("مورد نظر نام فيلد ="javad")

FindLast : اين متد براي پيدا كردن آخرين ركورد موجود در ليست كه با ظابطه و شرط ما هم خواني دارد استفاده مي شود و طرقه استفاده ار آن مانن متد FindFirst است:

Data1.Recordset. FindLast("مورد نظر نام فيلد ="كلمه مورد جستجو")

FindNext : اين متد براي يافتن ركورد بعدي استفاده مي شود . بايد توجه داشت كه براي استفاده از اين متد حتماً بايد قبل از آن متد FindFirst استفاده كرده باشد:

Data1.recordset. FindNext("مورد نظر نام فيلد ="كلمه مورد جستجو")

FindPrevious : از اين متد براي يافتن ركورد قبلي استفاده مي شود:

Data1.recordset. FindPrevious ("مورد نظر نام فيلد ="كلمه مورد جستجو")

NoMatch : اين متد مشخص مي كند كه جستجوي ما چه حاصلي در بر داشته است. اگر جستجوي ما به نتيجه نرسيده باشد مقدار آن True خواهد بود و در غير اينصورت False خواهد شد. براي مثال :

Data1.recordset. FindFirst ("نام فيلد"="    ")

If data1.recordset.NoMatch Then

MsgBox("جستجو نتيجه اي نداشت")

Else

MsgBox("اطلاعات مورد نظر يافت شد")

End If

برنامه براي باز و بسته كردن CD ROM

براي باز و بسته كردن CD ROM اين تابع از دستوري با ورودي متني (رشته) استفاده مي كند. با اين تابع كارهاي زيادي مي توان انجام داد.

كد هاي تابع را در يك ماژول تعريف مي كنيد:

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal

lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long,

ByVal hwndCallback As Long) As Long

براي باز شدن CD ROM اين كد زير را بنويسيد:

Private Sub OpenCD_Click(&)

mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&

End Sub

براي بسته شدن CD ROM اين كد را بنويسييد:

Private Sub CloseCD_Click()

mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&

End Sub

 

برنامه جستجوي يك فايل با استفاده از تابع API

جستجوي يك فايل با استفاده از تابع API :

 

تعريف تابع در ماژول:

 

Public Declare Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As String, ByVal

InputPathName As String, ByVal OutputPathBuffer As String) As Long

Public Const MAX_PATH = 260

RootPath:مسير محلي كه بايد جستجو شود. مثل "C:\"

InputPathName:اسم فايل با پسوند . مثل "Javad.txt"

OutputPathBuffer: بافر مسير خروجي.

ثابت MAX_PATH هم كه حداكثر بافر مورد جستجو را مشخص مي كند.

كد اصلي در Form_Load برنامه:

Private Sub Form_Load()

Dim TempStr As String

Dim Result As Long

TempStr = String(MAX_PATH, 0)

Result = SearchTreeForFile("C:\", "Ali.txt", TempStr)

If Result <> 0 Then

MsgBox "Located file at " + Left$(TempStr, InStr(1, TempStr, Chr$(0)) – 1)

Else

MsgBox " File not found "

End If

End Sub

 .براي مقدار دهي به بافر خروجي استفاده شده استTempStr .از متغير 

 

خروجي تابع عددي خواهد شد كه در متغير Result قرار خواهد گرفت. اگر Result=0 باشد بيانگر اين است كه فايل مورد نظر يافت نشده و اگر Result عددي غير صفر باشد .يعني فايل مورد نظر پيدا شده است.

برنامه باز كردن يك مسير مشخص با استفاده از تابع API

باز كردن يك مسير مشخص با استفاده از تابع API  :

تعريف تابع داخل ماژول :

Public Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow

As Long) As Long

 

كد نمونه :

Private Sub Form_Load()

WinExec "Explorer.exe C:\Windows", 10

End Sub

برنامه كپي گرفتن از يك فايل با استفاده از تابع API:

كپي گرفتن از يك فايل با استفاده از تابع API:

 

تابع را در يك ماژول به صورت زير تعريف مي كنيم:

 

Public Declare Function CopyFileA Lib "kernel32.dll" (ByVal lpExistingFileName As String,

ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

 

lpExistingFileName:آدرس فايل مبدا مثل "C:\vb.txt"

lpNewFileName: آدرس فايل مقصد مثل "D:\vb.text"

bFailIfExist: اين متغيير مشخصي مي كند كه در صورت وجود فايل عمليات كپي ادامه يابد يا خير . اگر صفر باشد عمل كپي انجام و اگر يك باشد انجام نمي شود.

 

 

   تعريف مي كنيد و به صورت زير استفاده مي كنيد:long نحوه استفاده :يك كتغير از نوع 

Dim A as Long

Private Sub Command1_Click()

A=CopyFileA( "C:\VB6.txt","D:\VB6.txt", 0)

End Sub

 

اگر تابع درست كار كند عدد A عددي غير صفر است ، در غير اين صورت A=0 خواهد بود . البته مي توانيد نام فايل مقصد را هم عوض كنيد.

برنامه محاسبه زمان سپري شده از روشن شدن سيستم با استفاده از تابع API برحسب ميلي ثانيه :

محاسبه زمان سپري شده از روشن شدن سيستم با استفاده از تابع API برحسب ميلي ثانيه :

تعريف تابع داخل يك ماژول:

Public Declare Function timeGetTime Lib "winmm.dll" () As Long

اين تابع فقط يك خروجي دارد كه زمان سپري شده سيستم است.

نحوه استفاده: مانندتابع قبل يك متغيير از نوع Long تعريف مي كنيد و به صورت زير استفاده مي كنيد:

Dim A as Long

Private Sub Command1_Click()

A = timeGetTime

Text1.Text = A

End Sub

اگر تابع درست كار كند، A برابر با زمان سپري شده و در غير اينصورت A=0 خواهد بود.

برنامه زیر شبیه سازی به زمین افتادن یک توپ

 

در برنامه زیر شبیه سازی به زمین افتادن یک توپ را می توانید ببینید

کافی است در فرمتون یک آبجکت Shape1 و یک دکمه ایجاد کنید و کدهای زبر را به قسمت General کپی کنید

 

Private Sub Command1_Click()
h = Form1.Height
For i = 1 To 1800
For j = 1 To 200000
Next
r = i * 3.14 / 180
t = h - Abs(h * Sin(r) * Exp(-i / 800)) - 1200
Shape1.Top = t
Shape1.Left = i * 2
Form1.PSet (i * 2, t)
Next
End Sub

Private Sub Form_Load()
Shape1.Shape = 3
Shape1.BackColor = vbYellow
Shape1.BackStyle = 1
End Sub