• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

h_k007

اعضاء جدد
  • عدد المشاركات

    14
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن h_k007

  • الرتبة
    عضو جديد
  1. هيا بنا نتعلم برمجة برامج تجاريةول

    السلام عليكم ورحمة الله وبركاته    اود في البداية ان اشكرك علي هذه الفكرة ...وانا ان شا الله من ضمن الفريق معكم ... في انشاء مشروع مخازن ..وخطوة خطوة ...فنرجو من الاعضاء الجاوب والبداية فعلياً في آلية للبدء في العمل ونطلب المساعدة من المشرفين وذوي الخبرة ....  
  2. السلام عليكم ورحمة الله وبركاته انا في بداية مشروع لمنظومة شئون الموظفين وعملت التحليلات والفورم ولدي بعض الافكار وقد رائيت المشاريع اغلبها مربوط بالاكسس وليس ب SQL علما بان دليل او الادلة هيا مربوط بي كومبو بوكس في الملف الشخصي والادلة تمشل كمثال : دليل الادارت ودليل المؤهلات العلمية دليل الجنسيات اود منكم مساعدتي في كود برمجي للازرار السجل الامام والخلف والسجل الاول والاخير بنفس النسق الكود الحالي في الاتصال ولكم جزيل الشكر ..علما بإني اقف عند بعض النقاط وارجو منكم التكفل بمساعدتي ووضعي علي الطريق الصحيح وشكراً الملف الخاص بلجزء المطلوب الا وهو الادلة والتي تتكون معلومات : معلومات الفورم : الرقم =txtmag_no الادارة: txtmag_name مدير الادارة:txtmag_boss صفته: txtmag_sgin الداتا بيز :index_mangment mangment_no ,mangment ,boss ,sign HSR_1.rar كود التعديل في دليل الادارات Private Sub Btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnedit.Click If txtmag_no.Text = "" Then MsgBox(" هل انت متأكد من عملية التعديل ", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ عملية الحدف") txtmag_no.Focus() ElseIf Not IsNumeric(txtmag_no.Text) Then MsgBox("لايمكنك ادخال قيمة غير عددية للاسم", MsgBoxStyle.MsgBoxRtlReading, "ادخال خاطئ") txtmag_no.Text = "" txtmag_no.Focus() Else If MessageBox.Show("هل انت متأكد من تعديل سجل الموظف الحالي", "حدف سجل موظف", MessageBoxButtons.YesNo, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign) = Windows.Forms.DialogResult.Yes Then Try CON.Open() 'Dim sq As String = "update index_mangment set magment='" + txtmag_name.Text + "',boss =" + txtmag_boss.Text + ",sign ='" + txtmag_sgin.Text + "' where magment_no=" + txtmag_no.Text + "" Dim sq As String = "UPDATE index_mangment SET magment = '" & txtmag_name.Text & "' , boss = '" & txtmag_boss.Text & "' , sign= '" & txtmag_sgin.Text & "' WHERE magment_no ='" & txtmag_no.Text & "'" Dim cmd As New SqlCommand(sq, CON) cmd.ExecuteNonQuery() MsgBox("تمت عملية التعديل البيانات بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ اجراء الحدف") txtmag_no.Text = "" Catch ex As Exception MsgBox(ex.Message) Finally CON.Close() End Try Else MsgBox("تم الغاء عملية التعديل بناء على رغبتك", MsgBoxStyle.MsgBoxRtlReading, "الغاء عملية التعديل") End If End If End Sub والسلام عليكم ورحمة الله وبركاته
  3. اخي محمد نجحت في تعديل زر التعديل .. اريد فقط كود زر السجل للامام وللخلف واول السجل واخره وتحياتي لك
  4. اخي محمد بعد اريد شرط معين الا وهو بعد ضغط علي زر الحفظ تظهر مسج انه تم حفظ البيانات وهيا موجوة ولكن اريد ان يتم مسح جميع المحتويات في الديكست بوكس كلهم ... كنوع من شرط
  5. السلام عليكم ورحمة الله وبركاته اخي محمد اود منك مساعدتي في اصلاح الكود لااعرف مالخطئ ولكن عند تفعيله يعطي invalid cloumn .'ali' الاسم بالعربي طبعا : علي الخطئ الذي يقصده هو في boss - المدير في خانة النموذج الكود هو كالتالي Private Sub Btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnedit.Click If txtmag_no.Text = "" Then MsgBox(" هل انت متأكد من عملية التعديل ", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ عملية الحدف") txtmag_no.Focus() ElseIf Not IsNumeric(txtmag_no.Text) Then MsgBox("لايمكنك ادخال قيمة غير عددية للاسم", MsgBoxStyle.MsgBoxRtlReading, "ادخال خاطئ") txtmag_no.Text = "" txtmag_no.Focus() Else If MessageBox.Show("هل انت متأكد من تعديل سجل الموظف الحالي", "حدف سجل موظف", MessageBoxButtons.YesNo, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign) = Windows.Forms.DialogResult.Yes Then Try CON.Open() Dim sq As String = "update index_mangment set magment='" + txtmag_name.Text + "',boss =" + txtmag_boss.Text + ",sign ='" + txtmag_sgin.Text + "' where magment_no=" + txtmag_no.Text + "" Dim cmd As New SqlCommand(sq, CON) cmd.ExecuteNonQuery() MsgBox("تمت عملية التعديل البيانات بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ اجراء الحدف") txtmag_no.Text = "" Catch ex As Exception MsgBox(ex.Message) Finally CON.Close() End Try Else MsgBox("تم الغاء عملية التعديل بناء على رغبتك", MsgBoxStyle.MsgBoxRtlReading, "الغاء عملية التعديل") End If End If End Sub ايضا اخي محمد اود تعديل علي الكود Dim sq As String = "update index_mangment set magment='" + txtmag_name.Text + "',boss =" + txtmag_boss.Text + ",sign ='" + txtmag_sgin.Text + "' where magment_no=" + txtmag_no.Text + "" بحث علي الطريقة ولكن لم اجد مثها اود منك شرح هذا الكود علما بانني قراءت وبحث كثيرا ووجدت ان الكود السابق واقل برمجيا مقارنة بالدي قراءته اود ايضا التعديل بفس الكود .. مع اضافة شروط ... اضافة عليه ازرار السجل السابق والسجل الاول والاخير فنرجو منك مساعدتي وشرحله لي وشكراً المطلوب : تصليح التعديل اكواد ازرار السجل التالي والاخر والسابق ايضا عند عدم وصول الي نهاية يعطيك مسج بانه اخر السجل او اوله شرط: عند ضغط زر اضافة سجل جديد ::: يمسح كل التكست بوكس وعند اضافة رقم موجود يعطيك رسالة بان الرقم موجود اخي محمد اعرف انه ياخد من وقتك ولكني بدايتي في منظومة لذا نرجو التواصل معي ومساعدتي وشكرا وبارك الله فيك اخي واود دائما لما تشرح ليا ان ترفق لي الكود ومثال بفورم وشكراً form+code.rar
  6. شكراً اخي الفاضل محمد وبارك الله فيك لا اعرف كيف اخطئت في كتابة الاسم .. شكرا لك علي ايجاد الخطأ وتوجيهي .. بارك الله فيك واود منك مساعدتي دائما خصوصا انني في بداية الانشاء لو لم اعرف شيئا سوف اطرحه عليك ,,, تحياتي ....
  7. الملف الذي طلبته في المرفقات اود فقط اود ان يتم تصليح الكود الذي كتبته او الطريقة الموجودة عندي برمجيا وشكرا HSR1.rar
  8. شكراً اخ محمد علي اجابتك ومساعدتي ولكن اخي الكريم انا عامل فورم وبوتن في الفروم واود وضع الكود برمجياً ... بمعني اخر اني عندي كود واود تعديله في خطئ ولا اعرف ما هو لو تحاول تساعدني في التصليح وسوف اعرض عليك الكود كله في الجينزال والببلك وفي بوتن الحفظ .... genelal:::: Imports System.Data.SqlClient Imports System.Data Public Class index_magmt Dim CON As New SqlConnection("Data Source=KNAN\SQLEXPRESS;Initial Catalog=index;Integrated Security=True;Pooling=False") 'Public conn As New SqlConnection("Server =.\SqlExpress; Database = index; Trusted_Connection = yes; TimeOut = 10 ") 'Public DS As New DataSet 'Public SQLstr As String = "SELECT * FROM index_mangment " 'Inherits System.Windows.Forms.Form 'Dim ds As New DataSet 'Dim da As New SqlClient.SqlDataAdapter("Select * from Tele_index", sqlcon) Btnsave 'If txtmag_no.Text = "" Then ' MsgBox("الرجاء ادخال رقم الادارة", MsgBoxStyle.MsgBoxRtlReading, "بيانات غير موجودة") 'ElseIf Not IsNumeric(txtmag_no.Text) Then ' MsgBox("الرجاء ادخال قيمة عددية ", MsgBoxStyle.MsgBoxRtlReading, "ادخال خاطئ") 'End If Try If txtmag_no.Text = "" Then MsgBox("ادخل اسم العميل") txtmag_no.Focus() Catch ex As Exception End Try Exit Sub End If Try CON.Open() Dim sq As String = "insert into index_mangment(mangment_no,mangment,boss,sign)values('" & txtmag_no.Text & "','" & txtmag_name.Text & "','" + txtmag_boss.Text & "','" & txtmag_sgin.Text & "')" Dim cmd As New SqlCommand(sq, CON) cmd.ExecuteNonQuery() MsgBox("تمت عملية حفظ البيانات بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ اجراء حفظ") Catch ex As Exception MsgBox(ex.Message) 'MsgBox("تأكد من ادخال جميع البيانات وبالصورة الصحيحة", MsgBoxStyle.MsgBoxRtlReading, "ادخال خاطئ او غير مكتمل") Finally CON.Close() End Try عندي اخطاء واود تعديلها من قبلك ولك جزيل الشكر اخي معلومات الفورم : الرقم =txtmag_no الادارة: txtmag_name مدير الادارة:txtmag_boss صفته: txtmag_sgin الداتا بيز :index_mangment mangment_no ,mangment ,boss ,sign اود اخي الكريم ان يتم تعديل الكود الخاص بالحفظ والتعديل بالطريقة التي موجود امامك ,وايضاً بوتن السجل اول سجل واخر سجل الموجودة في الفورم بالصورة بالكود ..وشكراً index.rar
  9. السلام عليكم ورحمة الله وبركاته نرجو منكم مساعدتي ويجزكم الله الف خير انا مبتدء في البرمجة بلغة الفيجول بيسك.نت واستخدم 2008 . واود منكم مساعدتي المشكلة بالضبط ::: يوجد لدي دليل واريد التالي لانه الفكرة واحده ... دليل الادارات :: الرقم - الادارة ----- مدير الادارة ---صفته اود عمل قاعدة بيانات للادلة السابقة وعمل فورم فيه الازرار التالية :: عرض -----اضافة --- تعديل ----- حفظ ----- حذف----- ايضا الازرار الاخري كاول السجل والاخر طبعا يتم الربط بالداتا بيز ... علما لااريد الربط عن طريق الادوات وانما اريد برمجيا عن طريق الاكواد ايضاً نرجو عمل للفورم المعروض الاكواد التوضيحية..... كمثال كامل وشكرا ومن لديه المراجع النقاط التي ارديها فل يدلني علي ذلك .. علما باني اقف عند نقطة معينة دائما كخطئ عندي فلهذا اريد مثال كامل وشكراً المطلوب : اكواد اللازار مرتبطة بقاعدة البيانات index ---- في خانة الرقم ( عدم كتابة اسم فقط ارقام وظهور رسالة تحذير بذلك) ---- عند الاضافة يتم مسح جميع الحقول التي تمت تعبئتها في التكست بوكس ---- وبارك الله فيكم علي مساعدتي
  10. السلام عليكم ورحمة الله وبركاته عندي منظومة اجازات مرضيه وفيها صوره عن التقارير المشكله عندي هيا كالاتي ::::::::::: 1- اريد اخذ صوره من السكانر عن طريق الفورم بكود معين 2- اريد تصغير الصوره علي حسب حجم الفورم الخاص بالصوره للعلم انا اصور صوره من الراحة الطبية قبل وبعدين ادخل علي المنظومة واخذ الصوره من المجلد علي اساس memo لكن واجهتني مشكله انه الصوره كبيرة جداً فارجو منكم مساعدتي علي الاقل كود تصغير الصوره حسب حجم فورم الصوره,,,, وبارك الله فيكم.............
  11. السلام عليكم ورحمة الله وبركاته اريد حفط ملفات القوقل ارث علي الجهاز بعد الفورمات ارجو المساعدة ............................. في البرنامج مخزن الصور اريدها ان تبقي
  12. السلام عليكم ورحمة الله وبركاته اريد منكم تغير شكل الفورم الي ويندوز اكس بي علي ماعتقد عم طريف ملف يتم ادراجه في فيجول اسمه او الاحقة ...dll علما باني استخدم فيجول بيسيك .نت 2005
  13. رايد تعريف Index of /Huawei ETS1001Fixed Wireless Terminal وكيفية ربط الجهاز بالكمبيوتر والدخول الي النت علما بانني من ليبيا وعندي جهاز ريفي او ما يعرف عندنا بهاتف ارضي اريد طريقة تعريف مودم الجهاز