چگونه ميتوان براي كاربران Online در برنامه (شبكه) پيغام فرستاد؟

[مهدی قربانی]

سلام
دوستان عزيز مدتي روي اين نمونه كه قبلاً در اين تاپيك ارائه شد كاركردم و مطابق با موضوع بحث اين تاپيك تغييرات و اضافاتي رو روش اعمال كردم .
توضيحات :
1 . در زمان اجراي فايل ، اطلاعات كاربر وارد شده شامل : آدرس IP ، نام كاربري User Name يا Account Name و Computer Name در 2 جدول مشابه يعني tb_log_users ( كه در اصل اين اطلاعات رو بطور موقت ذخيره مي كنه و بعد از خروج كاربر اين ركورد ثبت شده حذف ميشه ) و tb_arc ذخيره ميشه ، جدول دوم همون جدوليه كه قراره براي ارسال پيام به كاربران استفاده بشه يعني علاوه بر فيلدهاي فوق الذكر داراي 2 فيلد Msg_Title عنوان پيام و Msg_Txt متن پيام هست .
2 . بعد از ورود كاربر اطلاعات ا طريق رخداد On Load فرم startup در هر دو جدول ذخيره ميشه ( با ماهيت ذكر شده در بند 1 ) البته در صورتي كه اطلاعات جاري قبلاً در جدول arc ثبت شده باشه از ثبت مجددش جلوگيري ميشه
3 . براي ارسال پيام كامند باتوني روي فرم تعبيه شده كه فرم Frm_msg رو باز ميكنه
4 . در فرم Frm_mg كه Unbound هست يك كامبو كه نقشش انتخاب كاربره و 2 تسكست باكس كه يكي براي ثبت عنوان و دومي براي ثبت متن پيام در نظر گرفته شده و همينطور يك Fream مخصوص دو Option Box كه نقش اين دو تعيين ارسال پيام براي يك كاربر خاص و يا براي همه كاربران هست و نهايتاً يك كامند باتون كه عمليات ارسال پيام رو انجام ميده .
5 . در رخداد On Timer‌ فرم startup هم با Interval 1000 ميلي ثانيه با استفاده از ركوردست متصل به كد SQL بررسي ميشه در صورتيكه كاربري پيامي داشته باشه اين پيام رو براي اون كاربر نمايش مي ده و بعد از پاسخ كاربر به پيام ، فيلدهاي عنوان و متن پيام اون كاربر در جدول arc حذف ميشن .
6 . در تمام عملياتها عمدتاً از ابزارهايي مثل ركوردست DAO ، كدهاي SQL استفاده شده .


لازم به ذكر هست كه نمونه حاضر داراي اشكالي بود كه در پست شماره 30 همين تاپيك نسخه اصلاح شده تقديم شده .