الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عمل رقم الموظف عشوائي

مغلق
بدأه رزان في 26 أبريل 2005 · 5 رد · 1,119 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اريد ان اعمل رقم رقم للموظف عشوائي ولكن لا يتكرر

كيف ممكن اعمل ذلك

بارك الله فيكم

علما بأن الرقم العشوائي من خمس خانات

الرجاء المساعدة

#2

اختى / رزان

تسطيعى عمل هذا الرقم العشوائى بسهولة

حيث لو افترضنا الاتى :

1 - اسم جدول الموظفين employee

2 - اسم حقل رقم الموظف emp_id

3 - حقل رقم الموظف لابد ان يكون من نوع text (لانه قد يحتوى على اصفار على الشمال)

وبالتالى اذا سجل كرقم سوف تضيع الاصفار و يصبح رقم الموظف اقل من خمس خانات

يكون الكود كالتالى

1- دالة تولد رقم عشوائى

2 - دالة اخرى تتحقق ان الرقم لم يستخدم من قبل

اذا ارجعت true اذا الرقم فريد و تستطيعى استخدامه و اذا ارجعت false اذا الرقم موجود نبغى

تنفيذ الخطوات 1 و 2 مرة اخرى حتى يتم توليد رقم عشوائى فريد من نوعه

و اليك الكود' دالة تولد رقم عشوائى و ترجعه فى متغير نصى
Private Function MakeRandomId() As String
' متغير يحمل رقم عشوائى
Dim Rand_id As Long
'متغير يحمل الرقم فى صورة نص حتى لا تضيع الاصفار
Dim Id_text As String
'طول الرقم
Dim Num_lenth As Integer

'دالة تعمل على تفعيل الارقام العشوائية
Randomize
'نولد رقم عشوائى أقصاه 99999
Rand_id = Fix(Rnd * 99999)
'نضع الرقم فى المتغير النصى
Id_text = Trim(Str(Rand_id))
'نحضر طول الرقم
Num_lenth = Len(Id_text)
'اذا كان اقل من خمسة ارقام
If Num_lenth < 5 Then
'نضيف اصفار من الشمال حتى يصل الى خمس ارقام
For n = 1 To 5 - Num_lenth
Id_text = "0" + Id_text
Next n


End If

'ارجاع الرقم المولد
MakeRandomId = Id_text
End Function

' دالة ترجع صح اذا كان الرقم لم يستخدم من قبل فى قاعدة البيانات
Private Function CHK_Unique_Id(ByVal ID As String) As Boolean
Dim rs As Recordset
'استقسار عن الرقم
sql = "select * from employee where emp_id = '" + ID + "'"
'فتح السجل
rs.open sql, con_string
'اذا كان السجل خالى
If rs.RecordCount <= 0 Then
'اذا الرقم غير موجود من قبل وبذلك نستطيع استخدامه
CHK_Unique_Id = True
Else
'اذا كان السجل ممتلئ اذا الرقم موجود و ينبغى توليد رقم أخر
CHK_Unique_Id = False
End If
End Function

وارجو ان اكون اوفيت

مع خالص تمنياتى بالتقدم

1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول

2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت

3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه

4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته

5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام

6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد

7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك

8 - الابتسامة كلمة طيبة بغير حروف

9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها

10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا

طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها

من مواضيعى :

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

دروس تعلم كيف تصحح أخطائك بنفسك

برنامج الحائط النارى العربى ---- جديد

برنامج ساعة بالعقارب ------ جديد

لعبة سناك الشهيرة مع الكود

غير نظرتك لل picturebox وانظر ماذا فعلت بها

حمل ملف فلاش على الفورم بكل سهولة

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة

برنامج المترجم العربى لترجمة الافلام

#3

كلمة الشكر قليلة على امثال أفضالك

بارك الله فيك

وجزاك الله كل الخير

وهذا ما اريد بالضبط

جعلها الله هذا الرد في ميزان اعمالك

#4

اختى رزان

ربنا يقدرنى واعرف اساعد كل طالب علم

وربنا يقدر كل من يساعدنى اذا انا طلبت العلم

و لا شكر على واجب

1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول

2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت

3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه

4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته

5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام

6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد

7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك

8 - الابتسامة كلمة طيبة بغير حروف

9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها

10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا

طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها

من مواضيعى :

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

دروس تعلم كيف تصحح أخطائك بنفسك

برنامج الحائط النارى العربى ---- جديد

برنامج ساعة بالعقارب ------ جديد

لعبة سناك الشهيرة مع الكود

غير نظرتك لل picturebox وانظر ماذا فعلت بها

حمل ملف فلاش على الفورم بكل سهولة

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة

برنامج المترجم العربى لترجمة الافلام

#5

شرح رائع أخي VB6-Rocket

بارك الله فيك وشكرا

#6

انتم على الرحب و السعة دائما :lol:

1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول

2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت

3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه

4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته

5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام

6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد

7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك

8 - الابتسامة كلمة طيبة بغير حروف

9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها

10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا

طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها

من مواضيعى :

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

دروس تعلم كيف تصحح أخطائك بنفسك

برنامج الحائط النارى العربى ---- جديد

برنامج ساعة بالعقارب ------ جديد

لعبة سناك الشهيرة مع الكود

غير نظرتك لل picturebox وانظر ماذا فعلت بها

حمل ملف فلاش على الفورم بكل سهولة

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة

برنامج المترجم العربى لترجمة الافلام

هذا الموضوع مغلق.

مواضيع مشابهة