أرجوكم رجاء خاص الرجاء المساعدة يا أخوان

السلام عليكم

في البداية اعتذر لان في الوقت الحالي لا استطيع ان اجيبك الا عن السؤال الأول

با فترض ان لديك جدولان الأول وهو مثلا PATIENTS يحتوي على جميع بيانات المرضى بما فيها حقل GENDERID وهي 0 للذكر و 1

للانثى والجدول الأخروهو مثلا GENDER يحتوي على حقلان وهي GENDERID و الحقل الثاني GENDERNAME والذي يحتوي

على كلمتي الذكر و الأنثى الذي تقابل 0و1 و الأن لكي تعرض جميع بيانات الجدول الأول مع استبدال حقل GENDERID بقيمته في الجدول الثاني بحقل GENDERNAME نعمل الأستعلام التالي

select -- list all PATIENTS colums name

, g.GenderName

from PATIENTS P left JOIN gender g ON P.GenderID = g.GenderID

حيث list all PATIENTS colums name هي ذكر كل الحقول في جدول PATIENTS مع عدم ذكر حقلGENDERID لان سيتم ذكر

عوضا عنه حقل GenderName

ارجو ان اكون قد اجبت عن ما تريده

السلام عليكم

الموضوع بسيط جدا

افتح formula fields

واختار جديد اكتب اى اسم على سبيل المثال sex

سوف يظر لك شاشة

formual editore

اكتب الكود التالى

  if {tbl_1.sex}=TRUE Then 'ذكر'
Else
'انثى'

حيث ان tbl_1 دة اسم الجدول و sex دة اسم الحقل

وبعد كدة قم بمسح الحقل القديم وضيف formula الجديدة مكانها وان شاء الله هتشتغل معاك

السلام عليكم

لم انتبة لى اجابة الاخ B5CSE

بلنسبة للسؤال الثانى

    Dim Frm As New Form2
        Dim cr As New CrystalReport1
        Me.DataSet11.Clear()
        Me.SqlDataAdapter1.SelectCommand.CommandText = "SELECT * From tbl  Where id='" & Me.TextBox1.Text.Trim & "'"
        SqlDataAdapter1.Fill(Me.DataSet11, "tbl")
        cr.Database.Tables(0).SetDataSource(DataSet11)
        Frm.CrystalReportViewer1.ReportSource = cr
        Frm.Show()

بسم الله

السلام عليكم

معذرة إخواني الكرام ، على مداخلتي ، ولكن أخي الكريم ، وليد ، حفظك الله ورعاك ، أعتقد أن الكود الذي أرسلته ، يمكن المستخدم من الإستعلام عن بيانات المريض ، في حالة كتابة الإسم كاملا ، لا كتابته حرفا حرفا ، لأن الكود ينقصه بعد التكست بوكس ، المعامل * ، لكي يقوم بخاصية الإكمال التلقائي ، فحرف أ على سبيل المثال ، بالإضافة للنجمة ، يأتي بكل الأسماء التي تبدأ بحرف الألف ، وهكذا ، أرجو منك مطالعة الكود المرفق مع هذه المداخلة ، وفيه نموذج يحتوي على تكستين ، وداتا جريد ، في التكست الأول يقوم المستخدم بكتابة اسم سيارة ، وليكن "مرسيدس" ، ثم الضغط على مفتاح انتر ، وهو داخل التكست ، فتظهر بيانات كل السيارات المرسيدس ، وهذا ما يتطابق مع كودك تماما ، وفي التكست الثاني ، يقوم المستخدم بكتابة أول حرف من اسم السيارة (بالعربي) ، وليكن (الحرف باء) وبمجرد رفع اصبعه (في الحدث كي أب) ، تظهر بيانات كل السيارات التي يبدأ اسمها بحرف الباء ، والمشكلة هنا ، أن العرض يتم خلال داتا جريد ، وحبذا لو تكرمت أخي ، بتنسيق هذا الكود ليعمل على ريبورت ، لأنه من الواضح من مشاركاتك ، أنك متمرس في صناعة التقارير ، مع إرفاق التمرين مع ردك ، وعدم الإكتفاء بالكود فقط ، وجزاك الله خيرا ، وهل بإمكان المبرمج أن يعرف أكثر من داتا سيت على نفس الريبورت ، لجلب البيانات من أكثر من جدول ، وسوف أبعث لك ، إن شاء الله نموذجا ، يوضح لك الفكرة ، أكثر ، وإن كان عندك حل لهذه المشكلة ، فلتتكرم به علي أخي الكريم ، وجزاك الله خيرا

وأخيرا ، عندما أقوم بالتسجيل في قسم التوظيف ، يطلب مني username والباسوورد ، فأكتبهما له ، فتظهر لي الرسالة

Invalide User Name or Password Or You Don't Activate You Account Yet Please Check Your e-Mail

مع العلم أنني متأكد من كلمة المرور والبريد الإلكتروني ، فما حل هذه المشكلة ، إخواني

إستعلام بالحرف.rar

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

بلنسبة لموضوع البحث انظر الى التوقيع الخاص بى

انا فى الردالسابق كنت بكتب البحث عن الكود يعنى مش محتاج اكتب like او اى حاجة على اساس ان الكود دة رقم ثابت

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

        Dim sql As String = "select * from Cars where CarModel like '" & TextBox1.Text.Trim & "%'"
        Dim da As New OleDb.OleDbDataAdapter(sql, Connection)
        Dim ds As New DataSet
        Dim Frm As New Form2
        Dim cr As New CrystalReport2
        ds.Clear()
        da.Fill(ds, "Cars")
        cr.Database.Tables(0).SetDataSource(ds)
        Frm.CrystalReportViewer1.ReportSource = cr
        Frm.Show()

WindowsApplication1.rar

waleedhm كتب:

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

بلنسبة لموضوع البحث انظر الى التوقيع الخاص بى

انا فى الردالسابق كنت بكتب البحث عن الكود يعنى مش محتاج اكتب like او اى حاجة على اساس ان الكود دة رقم ثابت

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

        Dim sql As String = "select * from Cars where CarModel like '" & TextBox1.Text.Trim & "%'"
        Dim da As New OleDb.OleDbDataAdapter(sql, Connection)
        Dim ds As New DataSet
        Dim Frm As New Form2
        Dim cr As New CrystalReport2
        ds.Clear()
        da.Fill(ds, "Cars")
        cr.Database.Tables(0).SetDataSource(ds)
        Frm.CrystalReportViewer1.ReportSource = cr
        Frm.Show()

←

???????????????????