PDA

View Full Version : سورس نرم افزار فاکتور فروش



farhad_swh
پنج شنبه 18 شهریور 1389, 18:40 عصر
سلام بر دوستان و اساتید گرامی.
امروز من سورس یه برنامه خیلی ساده فاکتور فروش رو قرار بدم تا دوستان دانلود کنند و مرا در تکمیل این برنامه کمک کنن
من خودم مبتدی هستم و می خواهم اساتید درباره برنامه ، کد های نوشته شده ، بانک اطلاعاتی و طریق اتصال به بانک اطلاعاتی نظر بدن.
از همه شما پیشاپیش تشکر می کنم.
این برنامه 3 قسمت اصلی داره:
1- درج اطلاعات کالاها (جدید - ویرایش - حذف)
2- درج مشخصات مشتری(جدید - ویرایش - حذف)
3- درج فاکتور

گزارش این برنامه با کریستال ربپورت 8.5 هستش



سورس رو دوباره آپ کردم
بعد از دانلود همه قسمت ها هر سه رو در یک فولدر قرار داده و به وسیله
win rar اکسترکت کنید.

بعد از اکسترکت فایل install.bat رو اجرا سپس سورس رو باز کنید

farhad_swh
پنج شنبه 18 شهریور 1389, 22:03 عصر
کسی دانلود نکرد ؟ نظری ندارین؟
:افسرده::افسرده:

ali190
پنج شنبه 18 شهریور 1389, 22:18 عصر
نرم افزارت هنگام کمپایل شدن ارورهای زیادی میده
مثلاً بعضی از DLL هارو نذاشتی مثل CRVIEWR.DLL
یک سری ارور دیگه هم میده که من ازش سر درنیاوردم
اگر میشه ارورهارو رفع کن.
یک سری از فرمهای عملیاتی برنامه هم اصلاً وجود نداره
مثل فرم LOGIN و چندتای دیگه
ممنون

farhad_swh
جمعه 19 شهریور 1389, 00:35 صبح
اگه کریستال ریپورت تو سیستمتون باشه
مشکلی پیش نمی یاد
ولی چند تا کامپوننت کریستال ریپورت رو آپ کردم

farhad_swh
جمعه 19 شهریور 1389, 12:09 عصر
منو نا امید کردین .
من امیدم به شما بود .:متفکر:

returnx
جمعه 19 شهریور 1389, 14:09 عصر
شما برنامه رو یکجا upload کن.

ali190
جمعه 19 شهریور 1389, 17:45 عصر
عزیر دلم
زحمت کشیدی برنامتو آپ کردی دستت درد نکنه
از بچه ها هم میخوای برنامتو نقد کنند ، اشکالات رو بگن ، و احیاناً اصلاح و تکمیلش کنن
ولی شیر بی یال دم اشکم که دید ************* چنین شیری خدا کی آفرید

فرم لوگین
فرم تنظیمات
فرم گزارشگیری
فرم سال مالی
شما از یه طرف میگی گزارشات برنامه با کریستال ریپورتر هست
من میزنم تو سر دگمه گزارش به من خطا میده:
object required
خطای شماره 424 ، که اصلاً همچین فرمی در برنامه وجود نداره
من متوجه نشدم
از بچه ها میخوای این قسمتها رو برات درست کنند تا نه و در برنامه ات وجود داشته و برنامه رو یه جورایی محدود کردی و در اینجا اپ کردی؟
میشه واضحتر بگی
یاعلی

farhad_swh
جمعه 19 شهریور 1389, 17:55 عصر
مرسی از راهنمایی تون مثل اینکه مشکل از منه :خجالت:
درست آپلود نکردم ؟
از همه دوستان عذر می خوام :خجالت:
حتما درستش می کنم و اطلاع می دم

farhad_swh
شنبه 20 شهریور 1389, 17:08 عصر
سورس برنامه رو دوباره آپلود کردم تو پست اوله
برای راهتی دوستان نیز کل فایل یکجا تو 4shared آپ کردم از لینک زیر می تونید دانلود کنین.
http://www.4shared.com/file/aJsR40Ui/Foroosh.html
در ضمن
اگه باز هم با مشکل مواجه شدین منو ببخشین چون من تازه واردم و این اولین برنامه ای بود که من آپلود می کنم از ali190 هم تشکر می کنم

همچنین من کل فولدری که برنامه تو سیستم خودم هست آپلود کردنم حتی فایل های آیکونش هم گذاشتم .
باز هم از همه دوستان و اساتید تشکر می کنم

ali190
شنبه 20 شهریور 1389, 17:37 عصر
سلام
فرهاد عزیز کارت خیلی کالیه
محیط کاربری چشم نوازه
کاربر پسنده
فرم FrmRanande در برنامه باز وجود نداره
در فرم FrmFactorlist خطای زیر رخ میده:

Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
On Error Resume Next
If Adodc1.Recordset.RecordCount > 0 Then
Adodc3.RecordSource = "SELECT Sum(Fact_jamkolkol) AS SS,count(Fact_no) AS TT FROM FactorList"
Adodc3.Refresh
End If
End Sub
ماژول یا dll تاریخ شمسی استفاده شده هم اشکال داره
ضمناً بازهم کریستال ریپورت مشکل داره
من اینجا ازت یه سئوال دارم(چون خودم تابحال با کریستال ریپورت گزارش نساختم)
من که روسیستم کریستال ریپورتر نصب نیست آیا با این کامپننت ها کارم راه میوفته و میتونم گزارشاتت رو ببینم؟
من این کامپننتها رو رجیستر کردم ولی باز موفق نشد
مطمئنی همه کامپوننتهارو فرستادی؟
یاعلی

farhad_swh
شنبه 20 شهریور 1389, 18:16 عصر
سلام
فرهاد عزیز کارت خیلی کالیه
محیط کاربری چشم نوازه
کاربر پسنده

مرسی

فرم FrmRanande در برنامه باز وجود نداره
این قسمت از برنامه تکمیل نشده .(اگر تونستم می نویسم)


در فرم FrmFactorlist خطای زیر رخ میده:

کد:
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) On Error Resume Next If Adodc1.Recordset.RecordCount > 0 Then Adodc3.RecordSource = "SELECT Sum(Fact_jamkolkol) AS SS,count(Fact_no) AS TT FROM FactorList" Adodc3.Refresh End IfEnd Sub


نمی دونم توسیستم من که درست کار می کنه شاید از ویژوال بیسیکتون باشه
سرویس پک 6 نصب کردین؟


ماژول یا dll تاریخ شمسی استفاده شده هم اشکال داره

این dll رو از همین سایت برداشتم


ضمناً بازهم کریستال ریپورت مشکل داره
من اینجا ازت یه سئوال دارم(چون خودم تابحال با کریستال ریپورت گزارش نساختم)
من که روسیستم کریستال ریپورتر نصب نیست آیا با این کامپننت ها کارم راه میوفته و میتونم گزارشاتت رو ببینم؟
من این کامپننتها رو رجیستر کردم ولی باز موفق نشد
مطمئنی همه کامپوننتهارو فرستادی؟


1-اگه کریستال ریپورت نصب کنی درست می شه
2- نه همه کامپوننت های کریستال ریپورت آپلود نکردم
کریستال ریپورت زیاد کامپوننت داره نمی تونم همشو آپ کنم

باز هم از شما تشکر می کنم به خاطر اینکه زحمت کشیدین و برنامه رو تست کردین