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

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


راستي در مورد پرسش اولم كه مربوط به ايجاد فيلتر در زمان ورود/توليد كالا در گزارش توليد/ورود كالا به انبار؟ (آخرين گزارش در منوي گزارشات) فكري نكردي ؟؟؟:متفکر:


در پايان آخرين تغييراتي رو كه با اجازتون در برنامه تون دادم رو براي شما گذاشتم

منظورم از ايجاد فيلتر به صورت زير است : https://barnamenevis.org/c:%5Creport_menu.jpg

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


راستي در مورد پرسش اولم كه مربوط به ايجاد فيلتر در زمان ورود/توليد كالا در گزارش توليد/ورود كالا به انبار؟ (آخرين گزارش در منوي گزارشات) فكري نكردي ؟؟؟:متفکر:


در پايان آخرين تغييراتي رو كه با اجازتون در برنامه تون دادم رو براي شما گذاشتم

نقل قول:

---

نوشته شده توسط fedoracore1

با سلام مجدد خدمت id عزيز
من در يك شركت بزرگ كار ميكنم كه برنامه انبارش از نرم افزارهاي همكاران سيستم هستش و فول !!!
كاري كه ميخوام با اين برنامه تو كارخانمون راه بندازم فقط جهت ورود كالا به انبار و جهت خروج كالا از انباره .
ميخوام جدال مربوط به Forosh رو كه تو برنامه هست رو جهت خروج كالا و كپي اون رو جهت ورود كالا به انبار استفاده كنم.
راستي در مورد پرسش اولم كه مربوط به ايجاد فيلتر در زمان ورود/توليد كالا در گزارش توليد/ورود كالا به انبار؟ (آخرين گزارش در منوي گزارشات) فكري نكردي ؟؟؟:متفکر:
در پايان آخرين تغييراتي رو كه با اجازتون در برنامه تون دادم رو براي شما گذاشتم

---

با سلام
دوست عزیز برنامه حسابداری همکاران سیستم دارای انبار کامل هست و شما نیازی به این برنامه ندارید. ولی اگر باز هم خواستید از این برنامه استفاده کند باید کمی اونو customize تا به اون نتیجه دلخواهتون برسید. از اونجا که معلومه شما نیاز به آخرین مانده و یا ورود و خروج ندارید بلکه ممکنه نیاز داشته باشید تا در یک بازه زمانی خاص این عمل رو هم انجام دهید که باز هم میگم اگه کمی این برنامه رو شخصی سازی تر کنید می تونید کارایی بهتری ازش انتظار داشته باشید.
و در مورد سوال اولتون :
راستشو بخواهید من برنامه نویس نیستم یا حداقل نمی تونم بگم برنامه نویسم این برنامه رو هم برای کار خودم نوشته بودم و نیاز به همه ی کارایی هایی که توش داره داشتم پس یه برنامه شخصی بوده ولی برای استفاده دوستان آپش کرده بودم و چون دقیقاً آخرای برنامه به وقت امتحانات داشنگاه من خورد نتونستم برنامه رو تکمیل کنم و اون قسمت موند و چند قسمت نیمه تموم دیگه!
الانم کمی سرم شلوغه فعلاً نمی تونم تکمیلش کنم ولی ان شاالله در اولین فرصت برنامه رو به بهترین حالت ممکن ویرایش خواهم کرد شما می تونید قسمت زیر رو که بصورت کامنت در اومده در برنامه رو تغیر بدید تا به اون قسمت گزارش ورود و خروج در یک بازه زمانی خاص دست پیدا کنید.
نمونه نا تمامش به صورت زیر بوده است

Private Sub btn_submit_Click()

On Error GoTo errm

' Not checked the goods option

If IsTolid.Value = 0 Then

Select Case print_method.Value

Case Is = 2 ' Int and produc

DoCmd.OpenReport "tolid_kol", acViewPreview

Report_Zoom "tolid_kol", 138

Case Is = 1

DoCmd.OpenReport "tolid_prod", acViewPreview

Report_Zoom "tolid_prod", 138

Case Is = 0

DoCmd.OpenReport "tolid_int", acViewPreview

Report_Zoom "tolid_int", 138

End Select

End If



'Checked goods option '-------------------->

If IsTolid.Value <> 0 Then

If IsNull(Trim(txt_dasteh.Value)) Then

txt_dasteh.SetFocus

ElseIf IsNull(Trim(txt_kala.Value)) Then

txt_kala.SetFocus

Else

If print_method.Value < 1 Then

DoCmd.OpenReport "tolidbyname2", acViewPreview

Report_Zoom "tolidbyname2", 138

Else

DoCmd.OpenReport "tolidbyname", acViewPreview

Report_Zoom "tolidbyname", 138

End If

End If

End If















'If print_method.Value < 0 Then ' Int and produc

'Select Case Isvorood2.Value

'Case Is = 0 ' only from kala

'only kala

'swith to a method

'If print_method.Value = 2 Then ' Int and produc

'DoCmd.OpenReport "tolid_both", acViewPreview

'Report_Zoom "tolid_both", 138

'ElseIf print_method.Value = 1 Then ' only produc

'DoCmd.OpenReport "tolid_prod", acViewPreview

'Report_Zoom "tolid_prod", 138

'ElseIf print_method.Value = 0 Then ' only int

'DoCmd.OpenReport "tolid_int", acViewPreview

'Report_Zoom "tolid_int", 138



'Case Is < 1 ' from kala and from date to date

'Dim d1() As String

'Dim d2() As String

'Dim d3() As String



'If IsNull(Trim(txt_date)) Then

'txt_date.SetFocus

'Exit Sub

'ElseIf IsNull(Trim(txt_date2)) Then

'txt_date2.SetFocus



'End Select

'Exit Sub

'End If

'

'd1() = Split(txt_date, "/")

'il1.Value = d1(0)

'ay1.Value = d1(1)

'g1.Value = d1(2)

'd2() = Split(txt_date2, "/")

'il2.Value = d2(0)

'ay2.Value = d2(1)

'g2.Value = d2(2)

'

'If print_method.Value = 2 Then ' Int and produc

'DoCmd.OpenReport "tolid_YMD_b", acViewPreview

'Report_Zoom "tolid_YMD_b", 138

'ElseIf print_method.Value = 1 Then ' only produc

'DoCmd.OpenReport "tolid_YMD_pr", acViewPreview

'Report_Zoom "tolid_YMD_pr", 138

'ElseIf print_method.Value = 0 Then ' only int

'DoCmd.OpenReport "tolid_YMD_int", acViewPreview

'Report_Zoom "tolid_YMD_int", 138

'End If

'

'

'End If

Exit Sub

errm:

MsgBoxFa "اين قسمت در دست طراحي مي باشد "

End Sub

شما باید این قسمت رو تکمیل کنید کار زیاد سختی هم نیست ;)


موفق باشید.

با سلام مجدد خدمت ما id عزيز
درست مي فرمائيد من ميخوام از اين برنامه فقط جهت اجراي سيستم mis در كارخانمون استفاده كنم و اصلا زياد با انبارداري مرتبط نيست مثل ثبت خروج كالا از كارخانه ، ثبت ورود مواد اوليه به كارخانه كه از طريق باسكولهاي وزن كشي ميشن و استفاده از اين برنامه جهت برگشت كالاهايي كه از لحاظ فني رد مي شوند.
منم اصلا برنامه نويسي بلد نيستم و حتي كامنتي رو كه دادي نميتونم ويرايش كنم.
دارم دنبال يك نفر ميگردم كه اين كار رو برام انجام بده :ناراحت:
بازم ممنون از لطفي كه داري:چشمک:

دانلود کنيد vb

دانلود

با سلام
با تشكر از لطفي كه دارين
در حال حاضر امكان ارسال پيام خصوصي نيست ولي
اگر وقت داريد ممنون ميشم كمك كنيد.
1- فيلتر تاريخ را در گزارش توليد/ورود كالا به انبار رو فعال كنيد.
2- يك مجموعه كپي شده از جداول ، گزارشات و فرمهاي مربوط به فروش كالا رو جهت خروج كالا ايجاد كنيد.

با سلام
دوست عزیز تونستید گزارش رو تکمیل کنید یا نه ؟

سلام ممنون از برنامه

id1385
عزیز از برنامتون کمک گرفتم الان یه مشکل دارم توی تاریخ و ریپورت از موجودی کل از هر سند جدا می تونی برنامه رو ببینی و اشکال کارم رو بگی یا بی زحمت درستش کنید بازم ممنون

سلام سلام سلام و باز هم سلام!
بععععله ! :لبخند::لبخند::لبخند:
آقا کمککککککککککککککککککککککک کک:افسرده:
چی ؟
هیچی همینطوری!
آخه به قول اون آقاهه : سیگار گذاشتی کیبریت نذاشتی! :بامزه:
برنامتو گذاشتی رمزو نذاشتی !
بعدشم آقا من دیگه متاهل شدم سرم به سنگ خورده {شطرنجی کنید} پیغام واسه جوونا:
مجردی خوبه فقط وقتشو زیاد کنید. :متعجب::متعجب::متعجب:

دوست عزیز شما رمزتو بذار چشم وقت شد حتماً بروی چشم.
برای خوشبختی جوونا {مخصوصاً سفارشیا:خجالت:} تو این ماه رمضونی دعا کنیم.

قربون همتون.


موفق باشید.

بازم ممنون دوست عزیز رمز برنامه 1111 است منتظرم

سلام id عزيز
براي من كاري نكردي :گریه::ناراحت::افسرده:

سلام دوستان من برنامه انبارداری رو دانلود کردم واقعا عالی بود فقط کسی هست در مورد اون نوار ابزاری که اول رو صفحه میاد و گزینه هاش هم فارسی هست توضیح بده که چطور میشه این کارو کرد؟
ممنون میشم.

id عزیز چی شد برنامه رو دیدی

با سلام
یک سری تغییرات در برنامه داده ام که باعث اجرای بهتر برنامه میشه بزودی میذارم تو سایت.
موفق باشید

سلام
دوستان یک سری تغییرات در برنامه ایجاد کردم که میذارمش برای دانلود
البته به مرور زمان کاملترش خواهم کرد.

رمز همه کاربرها 123 می باشد

لطفاً هر دو فایل را باهم در یک دایرکتوری ذخیره نمایید و سپس پارت 1 را استخراج کنید.

موفق باشید

سلام دوست عزيز؛
ببخشيد شما ميتونيد فايل accdb اين برنامه رو براي كسايي كه ميخوان تازه شروع كنن بذاريد. چون ميخوام روابط اين ديتا بيس رو ببينم.
با تشكر

سلام id1385؛
اگه براتون امكان داره ايميلتون رو به آدرس زير بفرستيد:
behravesh_m@yahoo.com
يه سري سوال دارم كه ممنون ميشم راهنماييم كنيد.

با سلام
دوست عزیز این برنامه رابطه خاصی نداره اونایی هم که هست توی برنامه استفاده نمی شه این برنامه فقط با کلیدهای تعریف شده هستش که کار می کنه.

ایمیل من : http://www.mytabligh.com/mailimgs/ma...odmJ5NWpiMjA9;


موفق باشید

سلام ، واقعا خسته نباشید برنامه خیلی جالبی اما كلید "حذف" در قسمت پیش فاكتور كار نمی‌كنه كه موجب دردسر می‌شه
اگه می‌شه اینو درست كنید كه واقعا مشكل ایجاد كرده

سلام برنامه رو دیدم واقعا عالیه
خب از اکسس بیشتر از این هم نمیشه انتظار داشت ولی خدائیش این برنامه رو نمیتونه کسی که داره برای اولین بار برنامه نویسی میکنه بنویسه

نقل قول:

---

نوشته شده توسط alipoor123@gmail.com

سلام ، واقعا خسته نباشید برنامه خیلی جالبی اما كلید "حذف" در قسمت پیش فاكتور كار نمی‌كنه كه موجب دردسر می‌شه
اگه می‌شه اینو درست كنید كه واقعا مشكل ایجاد كرده

---

با سلام و تشکر
عید قربان بر همه مبارکباد
دوست عزیز قسمت پیش فاکتور فعلاً ناقصه هنوز کامل نشده است بزودی کاملش می کنم (البته فصل امتحانا داره می رسه)

با تشکر

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

با سلام به دوست عزیز askar

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

DoCmd.OpenForm "frmcalendar", acNormal, , , , acDialog

If strDate <> Empty Then

txt_date.Value = strDate

End If

فرم و دو ماژول همراه آن را در برنامه خود کپی و یا درگ (drag & drop)کنید

موفق باشید

با سلام خدمت Id 1385
فرم تقويمو در برنامه ام كپي كردم به همراه دو ماژول آن ولي هنگام بازكردن فرم اررور ميده اشكال از چيه؟

نقل قول:

---

نوشته شده توسط Fatollah_ghazi

با سلام خدمت Id 1385
فرم تقويمو در برنامه ام كپي كردم به همراه دو ماژول آن ولي هنگام بازكردن فرم اررور ميده اشكال از چيه؟

---

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

موفق باشد.

سلام
با تشكر فراوان از نرم افزار عالي تان
من هم دوست دارم برنامه نويسي را در محيط اكسس ياد بگيريم و تا كنون 5 كتاب در اين زمينه خريده ام ولي هيچ كدام حل مشكل نبوده اند
مشكل من در مورد دستور نويسي و ماكرو نويسي است .
چه كار كنم ؟ منبع يا سايتي هست كه تمام دستورات رو به فارسي توضيح داده باشه . يا اصلا نحوه دستور نويسي در محيط اكسس رو ياد داده باشه ؟
حتي cd آموزشي هم گرفته ام ولي ان چيزي كه خودم مي دونستم تكرار مكررات شد برام
حال اگر راه حلي داريد لطفا راهنمايي بفرمائيد ممنون مي شم.

نقل قول:

---

نوشته شده توسط id1385

سلام

اول اینکه: آقا / خانم من کشته مرده تشکر نیستم فقط این تایپیکو زدم ببینم بازم پست من حذف می شه یا نه ؟ اگه نتونستم منظورمو برسونم معذرت خواهی !
بعدش : آقای قربانی من از شما معذرت می خوام

و اما :
برنامه رو برای دانلود گذاشتم توی دو تا پارت
اینم لینک دانلود مستقیم.
اول بگم که من این اولین برنامه بود که با اکسس نوشتم و چون ازش چیزی نمی دونستم خیلی خیلی مبتدیانه نوشته شده پس خرده نگیرین !
بعدش امکانات برنامه :

• قابلیت تعریف کاربر
• قابلیت تعریف مشتری
• قابلیت تعریف دسته و گروه برای کالا
• تعریف کالا و اختصاص به گروه خاص
• قابلیت پیش فاکتور (تکمیل نشده ولی طراحی شده است)
• ثبت فروش خیلی راحت و سریع
• لیست فروش

» قابلیت چاپ صدور ثبت شده

» ویرایش صدور (با حفظ انبار)
» حذف صدور

• گزارش

» موجودی انبار

» تفکیک فروش (فروشهای انجام شده)
» گزارش تولید
» گزارش ورود کالا به انبار
» گزارش کالای خاص (تکمیل نشده)
» گزارش سفارشی (تکمیل نشده)

• ثبت تولید و ورود کالا به انبار
• ویراش و یا حذف کالای تولید شده و یا ورودی به انبار (ناقص)

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

انگار خیلی شد ببخشید ولی بازم می گم این برنامه رو یک مبتدی نوشته پس خرده مورده در کار نباشه لطفاً!!!
فعلاً که دارم به امتحاناتم فکر میکنم چون خیلی نزدیک شده بعد از امتحانات اگه خدا بخواد یک برنامه کاملتری با کدنویسی خیلی کم خواهم نوشت.
فقط دوستان اگه کسی برنامه رو تکمیلتر کرد بازم بذاره برا دانلود.
برای مشاهده دیتابیس و فرمها،گزارشات،... از پنجره + f11 استفاده کنید.

تشکر از همه ی دوستان بالاخص دوستانی که تا اینجا رو خوندن :بامزه:

لطفاً هر دو فایل ضمیمه را دانلود نمایید.و یا از لینک زیر استفاده کنید.

کد HTML:

---

[right]http://www.mytabligh.com/anbar-89.zip
حجم : 844.61 کیلوبایت
[/right]

---

---

سلام من خیلی به دردم خورد دمتون بخاری برقی:قلب::قلب::قلب::قلب::قلب::� �لب::قلب::قلب::قلب::قلب::قلب::ق� �ب::قلب::قلب::قلب:

سلام و خسته نباشید
من این ورژن DEZH-CO-ANB.part01.rar و 02 را دان کردن ولی رمز کار نمیکنه (برای هیچکدام از کاربران) انگار فراموش کردید برای دکمه OK کدی نسبت بدید !:بامزه: ضمنا این دو فایل همنام هستند چطور باید در یک دایرکتوری قرار بگیرند؟ و دیگه اینکه اجرای هردو یک نتیجه داره و به صفحه اولیه Log in میرسند؟!!!!!!!!!!!!!!!!!!!!!!!!!!!
با تشکر

نقل قول:

---

نوشته شده توسط AmirMomtaz

سلام و خسته نباشید
من این ورژن DEZH-CO-ANB.part01.rar و 02 را دان کردن ولی رمز کار نمیکنه (برای هیچکدام از کاربران) انگار فراموش کردید برای دکمه OK کدی نسبت بدید !:بامزه: ضمنا این دو فایل همنام هستند چطور باید در یک دایرکتوری قرار بگیرند؟ و دیگه اینکه اجرای هردو یک نتیجه داره و به صفحه اولیه Log in میرسند؟!!!!!!!!!!!!!!!!!!!!!!!!!!!
با تشکر

---

این برنامه فرمت اکسس 2003 هست ولی نمیدونم روی 2007 چطوری کار می کنه.
رمزرو گذاشته بودم 123 می باشند همه سطحهای کاربری.
دستورها کامل هستند و کار می کنند.
دو فایل در اصل یک فایل هستند که به دو جزء تقسیم شده اند برای کم کردن حجم برنامه، پارت یک رو شما اجرا کنید خودش بقیه اش رو از پارت دو فراخوانی می کنه و استخراج می کنه پس در اصل یک فایل شما دان کرده اید.
نه همنام نیستند دو فایل با دو اسم DEZH-CO-ANB.part01.rar - DEZH-CO-ANB.part02.rar


موفق باشید

سلام عزیزم خوبی

میشه رابطه جداول های را به من بگویید

از گزینه تولزtool\relationships هم استفاده می کنم ولی خط های ان پیدا نیست.ولی جداول پیدا هستند و من نمی دونم کدام جدول با کدامیک ارتباط دارند.

با تشکر فراوان

با سلام
دوست عزیز قبلاً هم گفتم رابطه ای توی این برنامه نیست و رابطه های موجود هم اصلی نقشی در برنامه ندارند فقط کلیدهای تعریف شده برای هر کالا و یا دسته و یا خریدار و هر فاکتور هست که برنامه از آنها استفاده می کنه اینطوری منطقی تر!

موفق باشید

دوست عزیز id1365 با سلام ؛
حق با شما بود برنامه در اکسس 2003 اجرا شد پس معلوم شد تو 2007 از همان ابتدا کلیدهای ورود و انصراف کار نمیکنند!:لبخند:
آقا با این برنامه میشه موجودی کالای مغازه را انجام داد؟ (فقط خرید و فروش)
[ گویا شما دسته بندی کالا را محدود کردید چون وقتی تو فرم صدور کالای جدید، تو اولین کنترل (drop dawn دسته بندی) اسم جدیدی وارد کردم از خودش Visual Basic Runtime Error درکرد! (وهمچنین ابزار دیگر منوی اصلی برنامه) تا راه اندازی مجدد.
اگه راهنمایی کنید خیلی ممنون میشم
راستی میخواستم تأهلت رو تبریک بگم :تشویق: ولی بنده خدا اگر زودتر گفته بودی چنان نصیحتی بهت میکردم که تا آخر عمر دعام میکردی:متعجب:

سلام
دوست عزیز از بابت اون تشکره مرسی ولی حیف نیومدم پیشت مشاوره!!! :عصبانی++:

اون خطایی که می گید توی نسخه های قبلی وجود داره چون بجای dmax از dlast استفاده شده بخاطر همین چینش به هم میخوره و آخرین عدد رو که میتونه بزرگترین عدد هم نباشه رو میگیره و بعلاوه یک می کنه و برمیگردونه که بعضی وقتا خطا می ده نسخه اصلاح شده اش رو تو کارخونه دارم براتون آپ میکنم.
بله دوست عزیز میشه از این برنامه برای موجودی مغازه استفاده کرد منتها توی مغازه باید سرعت زدن یک فاکتور با چند حرکت انجام بشه چون اینو برای کارهای صنعتی طراحی کرده بودم ممکنه کمی وقت گیر باشه که درنهایت موجب دلسردی و طرد برنامه میشه.تو فکر یه برنامه ام که با بارکدخوان کار کنه هستم ولی خودت می دونی که (کسی نیست؟ آروم!) زن و زندگی و کار و ..... و نقطه های × N :افسرده:


موف باشید.

آقا باز نکرد :گریه:

آقا مرسي از برنامتون

با سلام به id عزيز
لطفا كد نويسي مربوط به گزارش توليد روزانه /ورودي به انبار رو درست كنيد .

نقل قول:

---

نوشته شده توسط tanha1364325

آقا باز نکرد :گریه:

---

لطفاً ورژن آخر برنامه رو بصورت کامل دانلود کنید سپس استخراج کنید چون شاید در دوپارت بوده و شما یک پارت اونو استخراج کرده اید.
حتماً دو پارتش رو در یک جا (در یک پوشه) ذخیره کنید و سپس فایل شماره یک رو part001.zip استخراج کنید.
تمام :بامزه:

موفق باشید.

سلام دستتون درد نكنه
ميشه كد تقويم شمسي تون رو هم بذاريد بي زحمت :خجالت:
من يه تقويم دارم ولي مال شما خيلي جالب تره
متشكرم

فایل های ضمیمه

• https://barnamenevis.org/images/attach/zip.gif FarsiCal_with_sample_Form.zip‏ (72.3 کیلوبایت, 73 دیدار)

https://barnamenevis.org/showthread.p...=1#post1158852

سلام خدمت استاد عزیز آقای ID این برنامه ای که نوشتی به جرات می گم که یه شاهکار در زمینه اکسس است.اما در مورد خود اکسس من 2 سال با اکسس کار کردم اکسس این قابلیت رو داره که بشه اونو به Db Sql متصل کرد و تعداد کاربرانش بر روی شبکه رو زیاد کرد.من توی اداره خودمون برنامه ای با اکسس نوشتم و به sql متصل کردم الان بدون عیب و نقص داره کار می کنه و کاربران زیادی هم داره. البته من پست اول رو خوندم و بعد اومدم صفحه آخر اما تو صفحه اول از اکسس دلخور بودی ولی اینو هم بگم که توی کشور کانادا توی یه شرکت بزرگ برنامه اطلاعات پرسنلی دارن که با اکسس نوشته شده و میدونم که تا 1 ساله پیش هم از همین استفاده می کردن اون شرکت بیش از 7000 پرسنل داره. مرسی مرسی مرسی از برنامت من در حال نوشتن یه برنامه انبارداری هستم اما با VB .

با سلام
دوستان با توجه به حجم کار و درس و زندگی و:عصبانی++::عصبانی++::عصبانی++: .... برخی از ایرادات برنامه رو گرفته ام ولی هنوز زیاد روش کار نکردم امیدوارم خوشتون بیاد.


موفق باشید

آقا واقعا کمک خیلی بزرگی کردی با این برنامه ت. ممنونم ازت

آقا من یک ایمیل بهت فرستادم. لطفا چک کن چون بعضی از جاهای این برنامه رو به مشکل خوردم. ممنون میشم اگه راهنماییم کنی

سلام دوست عزیز

پیشاپیش عید نوروز را تبریک می گویییم

لطفا طریقه ساخت تولبار رو در اکسس توضیح دهید

با تشکر فراوان

سلام ID

خيلي ها شايد اينجوري سوال كرده باشند كه چه جوري زمان رود اطلاعات به فرم ها اونها رو كد ميكني و زمان فراخواني هم كد اونها رو ميشكني
كه اين كار موجب بالا بردن امنيت در برنامه ميشه

كلام آخر:
اگه لطف كني و يه توضيح كامل بذاري كه اين كد مخصوص رو كجا بايد گذاشت و چه جوري ميشه فراخواني كرد خيلي خيلي خيلي ممنون ميشم.

يا علي

درياي فضل تو را آب بحر كافي نيست | كه تركنم سر انگشت و صفحه بشمارم

با سلام خدمت دوستان عزیز
در پاسخهای قبلی اشاره کرده بودم ولی روش کلی به این صورت است.

• فانکشن زیر رو در یک ماژول قرار بدید.
• کد داخل ماژول بسته به میل خود شماست که چگونه قرار بدید.
• در هر کجا از برنامه می توانید این کد را فراخوانی کنید.
• یک رشته معمولی را به کد تبدیل کنید
• یک رشته کد شده رو دیکد کنید.

Step 1 : Add code to Module

Public Function CODE_DECODE(DataString As String) As String 'code and decode strings

Dim Code As String, temp As String

Dim i As Integer

Dim Location As Integer

Code = "18933216581310565"

temp$ = ""

For i% = 1 To Len(DataString$)

Location% = (i% Mod Len(Code$)) + 1

temp$ = temp$ + Chr$(Asc(mid$(DataString$, i%, 1)) Xor _

Asc(mid$(Code$, Location%, 1)))

Next i%

CODE_DECODE = temp$

End Function

Step 2 : call function - Normal String's

Private Sub Command2_Click()

Text1.Text = CODE_DECODE("Your String Goes Here")

'Return = aVFAbBGQ_TWZSFP\AV

End Sub

Step 3 : Call coded string

Text1.Text = CODE_DECODE("aVFAbBGQ_TWZSFP\AV")

'Return = aVFAbBGQ_TWZSFP\AV

نقل قول:

---

نوشته شده توسط id1385

http://www.mytabligh.com/acpi/1.PNG


نام کاربری : عطا امینی - پشتیبانی
رمز ورود : 123

---

دوست عزیز لینکت که فیلتر شده بود یه لینک دیگه بزار:افسرده:

نقل قول:

---

aminaltavista

نقل قول: نمونه برنامه انبارداری کامل
https://barnamenevis.org/images/misc/quote_icon.png نوشته شده توسط id1385

http://www.mytabligh.com/acpi/1.PNG


نام کاربری : عطا امینی - پشتیبانی
رمز ورود : 123

دوست عزیز لینکت که فیلتر شده بود یه لینک دیگه بزار:افسرده:

---

دوست عزیز من آخرین تغییراتی که انجام دادم بعد برنامه رو گذاشتم تو همین برنامه نویس خودمون، اون وبسایت شخصیم بود ولی دیگه اکسپایر شده.


موفق باشد