سورس برنامه مدیریت پیام های ارسالی کاربران به بانک انلاین(معرفی + php + b4a)

[shahab.es 5,429]

سلام دوستان

این سورس رو چند روز پیش برای یکی از دوستان گلم نوشتم

گفتم قرارش بدم همه استفاده کنیم

 

کار سورس اینه:

توی بعضی از برنامه ها، شما نیاز دارید که کاربرا محتوا ارسال کنن، مثه برنامه های جک یا هر نوع برنامه ای، و میخواین قبل  از تایید شدن ، برای همه نمایان نشه این محتوا

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

 

ممکنه قسمت اول و دوم این اموزش هم نیازتون بشه دوستان

http://answercenter.ir/topic/9817-اپدیت-دیتابیس-افلایناز-طریق-بانک-انلاین/

 

 

دانلود فایل فشرده از پیکو فایل

محتوای فایل فشرده: 

فایل های php (هم برای برنامه اصلی ، هم برای برنامه مدیریتی)

سورس کد بیسیک(هم برنامه اصلی هم برنامه مدیریتی)

 

رمز فایل فشرده : www.answercenter.ir

 

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

[arastooms 1,046]

دکمه تشکر برای تشکر هست 
ولی وقتی عزیز مثل شما و دیگر دوستان با زحمت ویدیویی رو برای آموزش تهیه میکنند که محتوای علمی انجمن رو بالا میبره 
وظیقه خودم میدونم که با نوشتن یه پست از شما تشکر کنم 
مرسی شهاب عزیز بابت آموزش رایگان و بی دریغت
       

 

 

-----------------

خواهش میکنم ارسطو عزیزم

کاری نکردم 

[حاج حسین 2,098]

تشکر فراوان 

بعضی وقت ها دکمه تشکر کمه

 

-------------

 

استاد بیات شرمنده ام میکنید، کاری نکردم

[حاج حسین 2,098]

 

استاد بیات شرمنده ام میکنید، کاری نکردم

من میدنم آخر من به کشتن میدی با این استاد گفتنت یا به جرم قتلت تو میرم بالای دار 

به پیر به پیغمبر من استاد نیستم (یعنی تو زمینه کدنویسی, البته اگر 3 سال دیگه ورزشو ادامه میدادم میتونستم مربی بشم هـــــــــــــِی )

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

[shahab.es 5,429]

من میدنم آخر من به کشتن میدی با این استاد گفتنت یا به جرم قتلت تو میرم بالای دار 

به پیر به پیغمبر من استاد نیستم (یعنی تو زمینه کدنویسی, البته اگر 3 سال دیگه ورزشو ادامه میدادم میتونستم مربی بشم هـــــــــــــِی )

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

دیگه ویرایش جواب نمیده، احتمالا دکتر ایزدی میاد و برا این اسپم جریمه ام میکنه

منم رکم استاد بیات، شما استاد من هستید و بودید، واقعا اگر چیزی بلدم با کمک دوستان بوده(که با توجه به شواهد چیزی هم بلد نیستم )

منم رکم و دوستان و خودتون میدونید، اما واقعا برای من استادید، هم شما هم همه بجه ها

[مجید آرتا 5,874]

خسته نباشی شهاب جان 3>

وری نایس :دی ( به یاد قدیما )

[ProGamerMafia 43]

گل کاشتی استاد.

شب یلدای شما هم مبارک.

به امید موفقیت های روز به روز در زندگیت

[mre 14]

شب یلدای شما هم مبارک.                          

[shahab.es 5,429]

خسته نباشی شهاب جان 3>

وری نایس :دی ( به یاد قدیما )

فداتم اقا مجیدَم ♥♥

 

گل کاشتی استاد.

شب یلدای شما هم مبارک.

به امید موفقیت های روز به روز در زندگیت

مرسی دلاور، انشاالله در کنار هم

 

شب یلدای شما هم مبارک.                          

مرسییی عزیزم

[امین شاهدی 5,773]

شهاب عالی بود ، مرسی از زحماتی که بدون چشم داشت واسه همه انجام میدی شیرمرد :دی 

 

----------------------------

 

مخلصم استاد شاهدی

به پای شما نمیرسیم ♥

[مهدی ایزدی 9,203]

شهاب جان ان شاءالله خودم عروسیت میام هم بندری میرقصم هم به خانواده عروس مباحث مالی و حسابداری و حسابرسی یاد میدم 

[shahab.es 5,429]

شهاب جان ان شاءالله خودم عروسیت میام هم بندری میرقصم هم به خانواده عروس مباحث مالی و حسابداری و حسابرسی یاد میدم 

سلام دکتر مخلصم

مرسی

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

بابت ارتقا هم ممنون دکتر

[discoversh 54]

سلام دکتر مخلصم

مرسی

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

بابت ارتقا هم ممنون دکتر

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

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

[shahab.es 5,429]

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

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

سلام عزیزم

خواهش میکنم، کاری نکردم

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

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

درباره اش خیلی بحث شده تو انجمن، یه سرچ بزنید هست

[mirsedali 99]

سلام جناب اسکندری

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

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

توی برنامه ادمینی که شما نوشتی، اگه ادمین بخواد از یه دیتابیس آفلاینی که مثلا 10 رکورد داره، دیتابیس main رو آپدیت کنه، اون موقع باید چیکار کنه؟

[shahab.es 5,429]

سلام هموطن

شما لطف دارید

دیدم تاپیکتون رو 

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

توی کدهای زیر من اومدم برای هر بار اجرا حلقه، یه بار اینیشیالایز کردم جاب رو و در اخر حلقه هم جاب رو ازاد کردم

کدهای زیر رو تست کنید

ببینید نتیجه میده بهتون یا نه

	Dim offTOon As HttpJob
  cur=sql3.ExecQuery("SELECT * FROM khtr"&code.Text)
	             For i=0 To     cur.RowCount-1
				 	offTOon.Initialize("writekhtr",Me)
                    cur.Position=i
                    post="code="&code.Text&"&id="&cur.GetString("id")&"&titr="&cur.GetString("title")&"&matn="&cur.GetString("matn")&"&mozoo="&cur.GetString("mozoo")
                    Log(post)
                    offTOon_writekhtr.PostString("http://rahrovanevesal.ir/App/Rahrovan/plt/khtrWrite.php",post)
					http.Release
                Next

فقط این قضیه به ذهنم میرسه، از نظر منطقی کدهاتون کاملا درستن......

[mirsedali 99]

سلام هموطن

شما لطف دارید

دیدم تاپیکتون رو 

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

توی کدهای زیر من اومدم برای هر بار اجرا حلقه، یه بار اینیشیالایز کردم جاب رو و در اخر حلقه هم جاب رو ازاد کردم

کدهای زیر رو تست کنید

ببینید نتیجه میده بهتون یا نه

	Dim offTOon As HttpJob
  cur=sql3.ExecQuery("SELECT * FROM khtr"&code.Text)
	             For i=0 To     cur.RowCount-1
				 	offTOon.Initialize("writekhtr",Me)
                    cur.Position=i
                    post="code="&code.Text&"&id="&cur.GetString("id")&"&titr="&cur.GetString("title")&"&matn="&cur.GetString("matn")&"&mozoo="&cur.GetString("mozoo")
                    Log(post)
                    offTOon_writekhtr.PostString("http://rahrovanevesal.ir/App/Rahrovan/plt/khtrWrite.php",post)
					http.Release
                Next

فقط این قضیه به ذهنم میرسه، از نظر منطقی کدهاتون کاملا درستن......

تشکر

ولی توی اون تاپیک هم خدمتتون عرض کردم

فکرکنم منظورتون job.release که اون رو هم انجام دادم، همینطور اینیشیالایز داخل حلقه رو، ولی فایده نداشت و فرقی نکرد!!

[shahab.es 5,429]

یه مسیج باکسی چیزی بذارید قبل از قسمت postString و چک کنید متنی که هر بار پست میشه چیه

شاید مشکل از دیتابیس افلاین باشه و مطالب به شکلی دیگه ارسال میشن ، شاید مورد از حلقه اس

یه چک بکنید ببینید چه میشود !!

[mirsedali 99]

یه مسیج باکسی چیزی بذارید قبل از قسمت postString و چک کنید متنی که هر بار پست میشه چیه

شاید مشکل از دیتابیس افلاین باشه و مطالب به شکلی دیگه ارسال میشن ، شاید مورد از حلقه اس

یه چک بکنید ببینید چه میشود !!

اتفاقا log گذاشتم(توی کدای بالا هم مشخصه: log(post)) و یکی یکی خطوط خوانده میشه و مشکلی نیست(توی اون تاپیک چون طولانی میشد قسمت های اول log رو نگذاشتم)

ولی از اون نظر مشکلی نیست ظاهرا!

[shahab.es 5,429]

خیلی عجیبه و جالب

ببین 2 تا چیز اینجا پیش میاد ، یکی اینکه فقط یه بار پست میشه که که بعد از انجا حلقه اس که اشتباه

2 اینکه حلقه کامل انجام میشه و بعد به تعداد حلقه، متغیر پست رو پست میکنه که متغیر پست اخرین فیلد رو داره

به جای پست بیا و دونه دونه ایتم هارو بده به پست استرینگ

واقعا جالبه

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