تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب بسيط من احبتى فى الله المتميزين وسهل تم الحل عن طريق (ابو انس +mrfenix93)
#1
السلام عليكم احبتى
اريد كود تحقق من اسم مريض مثلا فى عياده هل  له سجل او لا وان وجد يخرجلى رساله بانه موجود هل تريد المتابعه او الخروج وان وافقت على المتابعه يزودلى رقم الزيارات 1
لكم منى جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#2
كود :
تحديد جملة السلكت
Dim strSql As String = "SELECT * FROM  customer where name= name.text

تعليف الداتا تيبل
Dim dt As New DataTable

يتم هنا فتح الكونكشن و ملاء الداتا تيبل  يمكنك استخدام اكود لا يهم المهم ملئ ال داتا تيبل
Using cnn As New SqlConnection(connectionString)
 cnn.Open()
 Using dad As New SqlDataAdapter(strSql, cnn)
   dad.Fill(dt)
 End Using
 cnn.Close()
End Using


اذا كان عدد الحقول المستخرجة اكثر من 0 اي انه يوجد جقول بنفس اس
If dt.Rows.Count > 0 Then
                   MsgBox("...........", MsgBoxStyle.Critical)
                   Exit Sub
               End If



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

والأفضل رقم الهاتف لأنه من الصعب تسجيل الرقم القومي للمرضي
الرد }}}
تم الشكر بواسطة: ابو انس , خالد كامل1 , mmaalmesry
#3
(05-07-21, 12:06 AM)mrfenix93 كتب :
كود :
تحديد جملة السلكت
Dim strSql As String = "SELECT * FROM  customer where name= name.text

تعليف الداتا تيبل
Dim dt As New DataTable

يتم هنا فتح الكونكشن و ملاء الداتا تيبل  يمكنك استخدام اكود لا يهم المهم ملئ ال داتا تيبل
Using cnn As New SqlConnection(connectionString)
 cnn.Open()
 Using dad As New SqlDataAdapter(strSql, cnn)
   dad.Fill(dt)
 End Using
 cnn.Close()
End Using


اذا كان عدد الحقول المستخرجة اكثر من 0 اي انه يوجد جقول بنفس اس
If dt.Rows.Count > 0 Then
                   MsgBox("...........", MsgBoxStyle.Critical)
                   Exit Sub
               End If



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

والأفضل رقم الهاتف لأنه من الصعب تسجيل الرقم القومي للمرضي

بارك الله فيك اخى الكريم ولكن
ناقص شيء
اريد ان تخرج الرساله غيها خيارين yes or no ان اختر  no يخرج بدون ان يكمل اجراء الحفظ وان اخترت yes يكمل الاجراء اجراء الحفظ  وباترك الله فيك
الرد }}}
تم الشكر بواسطة:
#4
كود :
If MessageBox.Show("عنوان الرسالة", "نص لرسالة", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then
نكتب هنا ما نريد من اكواد سيتم تنفيذها عند الضغط على yes
else
نكتب هنا من اكواد نريد تنفيذها عن عدم الضغط على يس
end if
انتبه لموضوع اغلاق الرسالة بدون ياس ولا نو
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
#5
حياك الله اخى ابو انس الكريم الكود تمام ولكن ظهرت لى مشكله اخرى اربده ان وجد المريض فى جدول المرضى اريده ان يضيف 1 على عدد الزيارات  فاستعملت هذا الكود ولكن يعطينى البيانات غير متطابقه جعلت حقل عدد الزيارات مره نص ومره رقم ولكن المشكله قائمه

كود :
Sub add_kashf()
       Dim cmdmaden As New OleDbCommand

       Dim kashf_number_a As String = kashf_number.Text
       With cmdmaden
           .Connection = con
           .CommandType = CommandType.Text
           .CommandText = " Update sik_a set SIK_KASHF_NUMBER= SIK_KASHF_NUMBER +" & Val(kashf_number.Text) & "  where sik_phone =" & SIK_PHONE.Text & ""
       End With
       If con.State = 1 Then con.Close()
       con.Open()
       cmdmaden.ExecuteNonQuery()
       con.Close()

   End Sub
الرد }}}
تم الشكر بواسطة: ابو انس
#6
(05-07-21, 08:30 PM)خالد كامل1 كتب : حياك الله اخى ابو انس الكريم الكود تمام ولكن ظهرت لى مشكله اخرى اربده ان وجد المريض فى جدول المرضى اريده ان يضيف 1 على عدد الزيارات  فاستعملت هذا الكود ولكن يعطينى البيانات غير متطابقه جعلت حقل عدد الزيارات مره نص ومره رقم ولكن المشكله قائمه

كود :
Sub add_kashf()
       Dim cmdmaden As New OleDbCommand

       Dim kashf_number_a As String = kashf_number.Text
       With cmdmaden
           .Connection = con
           .CommandType = CommandType.Text
           .CommandText = " Update sik_a set SIK_KASHF_NUMBER= SIK_KASHF_NUMBER +" & Val(kashf_number.Text) & "  where sik_phone =" & SIK_PHONE.Text & ""
       End With
       If con.State = 1 Then con.Close()
       con.Open()
       cmdmaden.ExecuteNonQuery()
       con.Close()

   End S
حسب الكود الي انت كاتبه يجب ان يكون في قاعدة البياناات SIK_KASHF_NUMBER  رقم و SIK_PHONE نص
ولكن من وجهة نظري اجعل تيكس بوكس المسؤول عن عدد الزياراتkashf_number يظهر لنا عدد الزيارات ,وفي كود التحديث اجعله يحدث SIK_KASHF_NUMBER
SIK_KASHF_NUMBER=AA
حيث AA متغير رقمي قيمته تساوي kashf_number+1
طبعا هذا في حال ضغط المستخدم على زر التأكيد بأن المريض وصل له الدور

PHP كود :
 CON_MY.CON_TXT("update  ITEME set date= " date_ "  where GUID='" Guid "'"
هذا كود من برنامجي لتحديث تاريخ معين انا اتعامل مع سيكوال سيرفر ولم اتعامل من قبل مع اكسس ولا اعرف مدى الاختلاف بينهن من حيث هذه الاكواد
Guid متغير تم تعريفه من قبل 
date_ متغير تم تعريفه من قبل
---------------------------------------------
وبدك تعمل الغاء للزيارة او تراجع يعني مثلا المريض عندما ربما يتراجع في اخر لحظة ولا يدخل لعند الطبيب بجوز مثلا يفكر انو الاموال الي رح يدفعها للطبيب بيشتري فيها جاجة مشوية مع قنينة كولا وبتعشا هو المدام ...
ثم اني عندي ملاحظة بخصوص رقم الموبايل رقم الموبايل قابل للتغيير انا بشوف كثير ناس خصوصا الجيل الجديد من الشباب كل يوم بغيرو مية رقم 
امامك الكثير من العمل
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  التحقق من خلال محتوى خلية عن طريق textbox صالح عبدالله 2 222 24-01-24, 12:54 PM
آخر رد: صالح عبدالله
  سؤال بسيط يا احبتى فى الله خالد كامل1 4 314 07-01-24, 12:55 AM
آخر رد: Mujahef
Tongue استفسار بسيط عن كريستال ريبورت waataanys 1 311 30-11-23, 04:44 PM
آخر رد: Taha Okla
  تشغيل الماكرو عن طريق اكواد الفجوال نيمو 0 271 03-11-23, 11:14 AM
آخر رد: نيمو
  البرنامج لدي يعمل على ويندوز 11 والان لا يعمل على ويندوز 10 ماهو الحل moh61 1 280 01-09-23, 04:38 AM
آخر رد: اسامه الهرماوي
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 518 03-08-23, 03:41 PM
آخر رد: moh61
  من يعلم ما هذا الخطأ وكيف تصحيحه؟ جزاكم الله خيراً hazim1 2 370 14-07-23, 01:41 PM
آخر رد: hazim1
  [سؤال] تشغيل راديو عن طريق الانترنت أبوسعود 5 716 01-07-23, 10:34 PM
آخر رد: asmarsou

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم