تسجيل الدخول المستخدم وكود مسح الText

مغلق

بدأه ENTMET في 13 مايو 2006 · 9 رد · 850 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#113 مايو 2006 في 04:54 صاحب الموضوع

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

اخواني لو سمحتم عندي مشكلة ومشروعي لازم اسلمه يوم الاربعاء القادم تعبت والله من البحث عن الحل واطلب مساعدتكم الله لا يحرمك الأجر ولكم مني الدعاء

المشكلة :

انا رابط الفجوال بقاعدة الاكسس عن طريق Data Envinonment

وعندي زر بحث في الفورم الاول بحيث اني ادخل رقم هوية لشخص بتكست بوكس

وبعد الضغط على زر بحث يعرض لي النتائج على مجموعة من تكست بوكس عددها 13

طبعا ماعندي مشكلة حتى الان يبحث ويعرض النتائج

بس المشكلةعند تنفيذ البرنامج بعد الضغط على F5 يطلع عندي في الـ 13 تكست بوكس بيانات السجل الاول من قاعدة البيانات وانا اريد اذا نفذت البرنامج تظهر جميع 13 تكست بوكس فارغة تماماً بحيث ماتظهر البيانات الا بعد ادخال رقم هوية الشخص في Text1 واضغط على زر بحث

استخدمت كود يقوم بمسح التكست ووضعته في حدث الفورم بحيث بعد تنفيذ البرنامج يقوم بمسح جميع التكست بوكس فعلا يقوم بذالك بس المشكلة انه يقوم بمسح البيانات من التكست و يقوم ايضاً بمسح بعض الحقول من قاعدة البيانات خصوصاً الحقول النصية ام الرقمية فيبقيها يعني البيانات خلاص تطير من نفس قاعدة الاكسس والكود هو :

Private Sub Form_Load()

Txt1.Text = ""

Txt2.Text = ""

Txt3.Text = ""

Txt4.Text = ""

Txt5.Text = ""

Txt6.Text = ""

Txt8.Text = ""

Txt9.Text = ""

Txt10.Text = ""

Txt11.Text = ""

End Sub

اعتقد انه كود لينفع

اخواني الله يجزاكم خير ارجوا ان تجدوا لي حل التقييم النهائي على المشروع الاسبوع القادم

السؤال الثاني لو سمحتم

عندي فورم مصمم لتسجيل الدخول المستخدم بحيث انه ليمكن من تشغيل البرنامج الا باسم مستخدم وكلمة مرور ويوجد جدول بقاعدة البيانات موجود به اسماء المستخدمين وكلمات المرور

الفورم عبارة عن 2 Text box و 2 Command

الاول اسم المستخدم والثاني كلمة مرور

command1 (بحث) command2 ( انهاء )

المطلوب اخواني انه بعد ادخال اسم المستخدم وكلمة المرور يذهب ويتأكد من صحة المدخلات في قاعدة البيانات

اسم قاعدة البيانات :traffic_db

اسم الجدول : users

الحقول داخل الجدول : ( user_name) و ( passworsd )

الله لا يحرمكم الأجر

#213 مايو 2006 في 05:02

السلام عليكم ورحمة الله

اخي الكريم

عند ربط التكست بوكس بالداتا طبيعي سيقوم بأظهار اول سجل...لا يمكن تغيير هذا المبدأ

اما بالنسبة لكبف حل هذه المشكلة فيمكن على عدة اوجه

اما بعمل صناديق نصية غير تلك التي سوف تعرض البيانات بحيث تكون الحالية مخفية وعند البحث يقوم بنسخ من المخفية الى الظاهرة ...

او...

ممكن ايضا عدم ربط صناديق النص بالداتا حتى يتم ايجاد البيانات

Datasource تستخدمها ثم تقوم بإزالتها بمعنى

عند ما يقوم المدخل بأدخال البيانات نقوم بالربط

Set Text1.Datasource = objRS

وبعد الأنتهاء من العرض يمكن ايضا ابقائها حتى البحث التالي..ويمكن إزالة الربط

Set Text1.Datasource=Nothing

شارك معنا في (عمل مشاريع برمجيه بمشاركة جميع الأعضاء هنا, مشاريع برمجية كاملة)

من سجن عكا وطلعــت جنـازة...

محمد جمجوم و فؤاد حجـازي

جازي عليهم يا شعبــي جازي...المندوب السامي وربعه عموما

محمد جمجوم ومع عطا الزير...فؤاد حجـــــــــازي عز الذخيـره

فلـسطـين

#313 مايو 2006 في 05:22

meynot كتب:
السلام عليكم ورحمة الله
اخي الكريم
عند ربط التكست بوكس بالداتا طبيعي سيقوم بأظهار اول سجل...لا يمكن تغيير هذا المبدأ
اما بالنسبة لكبف حل هذه المشكلة فيمكن على عدة اوجه
اما بعمل صناديق نصية غير تلك التي سوف تعرض البيانات بحيث تكون الحالية مخفية وعند البحث يقوم بنسخ من المخفية الى الظاهرة ...
او...
ممكن ايضا عدم ربط صناديق النص بالداتا حتى يتم ايجاد البيانات
Datasource تستخدمها ثم تقوم بإزالتها بمعنى
عند ما يقوم المدخل بأدخال البيانات نقوم بالربط
Set Text1.Datasource = objRS
وبعد الأنتهاء من العرض يمكن ايضا ابقائها حتى البحث التالي..ويمكن إزالة الربط
Set Text1.Datasource=Nothing
شارك معنا في (عمل مشاريع برمجيه بمشاركة جميع الأعضاء هنا, مشاريع برمجية كاملة)

اخوي اشكرك على ردك

ممكن تشرح لي بالتفصيل انا والله مبتدء في الفجوال

#413 مايو 2006 في 05:27

قم بإرفاق المشروع الخاص بك و سوف يتم التعديل عليه إن شاء الله أسهل من الشرح بهذه الطريقة

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBox	مكتبة الأكواد	تحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6	أكواد × أكواد	دروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورت	تحميل برنامج Activ Skin 4.3	جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيك	موقع كويس للأيقونات	مرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب	شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment	علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADO	إضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6	حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء	السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP	مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل	خواص الاداة Winsock لربط الاجهزة عن طريق الانترنت	كيف يتم عمل تقارير بإستخدام HTML

#513 مايو 2006 في 05:49

اقتباس
قم بإرفاق المشروع الخاص بك و سوف يتم التعديل عليه إن شاء الله أسهل من الشرح بهذه الطريقة

من سجن عكا وطلعــت جنـازة...

محمد جمجوم و فؤاد حجـازي

جازي عليهم يا شعبــي جازي...المندوب السامي وربعه عموما

محمد جمجوم ومع عطا الزير...فؤاد حجـــــــــازي عز الذخيـره

فلـسطـين

#613 مايو 2006 في 06:36

شكرا لكم ياخوان

هذا هو المشروع بالمرفق

ولكن يجب نقل الملف على القرص C مسار قاعدة البيانات على C

الصارحة ماعرفت كيف طريقة ربطها مع البرنامج بحيث وين مكان موقع قاعدة البيانات يعمل

_____.rar

#713 مايو 2006 في 08:16

السلام عليكم ورحمة الله

اخي الكريم في البداية انت اضفت OLE في FORM1 وهذا خطأ يجب ان تكون Picture وليس ذلك الكائن المرتبط حيث بعد تكرارا الضغط عليه سيوجهك الى MS WORD ..

في FORM4 أعتقد وجود المشكلة التي تود حلها

Private Sub Form_Load()
ShowData False
End Sub

Private Sub ShowData(pBoolean As Boolean)
	Txt1.Visible = pBoolean
	Label2.Visible = pBoolean
	Label3.Visible = pBoolean
	Label4.Visible = pBoolean
	Label5.Visible = pBoolean
	Label6.Visible = pBoolean
	Label7.Visible = pBoolean
	Label8.Visible = pBoolean
	Label9.Visible = pBoolean
	Label10.Visible = pBoolean
	Label11.Visible = pBoolean
	Txt2.Visible = pBoolean
	Txt3.Visible = pBoolean
	Txt4.Visible = pBoolean
	Txt5.Visible = pBoolean
	Txt6.Visible = pBoolean
	Txt8.Visible = pBoolean
	Txt9.Visible = pBoolean
	Txt10.Visible = pBoolean
	Txt11.Visible = pBoolean
End Sub

وبعد البحث استخدم

ShowData True

وتابعنا اخي الكريم لكي تقوم بتطوير ذلك المشروع بالشكل الصحيح..

شارك معنا في (عمل مشاريع برمجيه بمشاركة جميع الأعضاء هنا, مشاريع برمجية كاملة)

من سجن عكا وطلعــت جنـازة...

محمد جمجوم و فؤاد حجـازي

جازي عليهم يا شعبــي جازي...المندوب السامي وربعه عموما

محمد جمجوم ومع عطا الزير...فؤاد حجـــــــــازي عز الذخيـره

فلـسطـين

#814 مايو 2006 في 12:12

الله يعطيك الف اخوي meynot هذا الكود المناسب

باقي الله لا يهينك المشكلة الثانية اسم المستخدم وكلمة المرور كيف اربطها قاعدة البيانات

بحيث اذا دخلت اسم المستخدم وكلمة المرور يتاكد من صحتها في قاعدة البيانات

#914 مايو 2006 في 12:40

السلام عليكم ورحمة الله

اخي الكريم ..

اولا يجب عدم ربط صندوق النص بقاعدة البيانات..

المستخدم يدخل الأسم وكلمة المرور... ثم تعمل لووب Loop مثل

Private Sub Cmd_login_Click()
Do
	If Trim(Txt_name) = tr_db.RS("Name") And Trim(txt_Password) = tr_db.RS("password") Then
		'// أسم المستخدم وكلمة السر مقبولة
		Exit Sub
	End If
	tr_db.RS.MoveNext
Loop While Not tr_db.RS.EOF
End Sub

تم تعديل هذه المشاركة بواسطة meynot في 14 مايو 2006 في 12:43

من سجن عكا وطلعــت جنـازة...

محمد جمجوم و فؤاد حجـازي

جازي عليهم يا شعبــي جازي...المندوب السامي وربعه عموما

محمد جمجوم ومع عطا الزير...فؤاد حجـــــــــازي عز الذخيـره

فلـسطـين

#1015 مايو 2006 في 02:45

meynot اخوي الكود يعطيني خطأ لا يقبل

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

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

كيف امنع مستخدم من تسجيل الدخول على الشبكة باستخدام جهاز مستخدم آخر5 رد · 19 مارس 2008
مطلوب كود التنبيه عن حقل فرغ وعدم تسجيل الدخول عند دخول المستخدم1 رد · 11 ديسمبر 2012
[مخالف - لم يستخدم البحث :]طريقة تسجيل مستخدم جديد و تسجيل دخول وخروج1 رد · 5 أبريل 2012
كيف يمكن مسح المستخدم ( مسؤول ) ؟2 رد · 29 سبتمبر 2001
تسجيل الدخول للمستخدم مرة واحدة فقط1 رد · 4 يناير 2015
برنامج تسجيل دخول2 رد · 2 أكتوبر 2010