• الإعلانات

    • فيصل الحربي

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

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

البحث في المنتدى

Showing results for tags 'server 2008 r2'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 60 نتيجة

  1. SQL PIVOT TABLE  FILTER  WHERE DATE BETWEEN  START DATE AND END DATE   
  2. السلام عليكم ورحمة الله وبركاته  لو تكرمتم عندي مشكلة في السيرفر  وهي عندما اقوم بتنصيب مكافح فيروسات  كاسبر تظهر عندي رسالة بأن السيرفر محتاج ملف pak 1 وما قدرت اركب المكافح  لو في حد عنده فكرة ياريت يفيدني  [email protected] 
  3. السلام عليكم و رحمة الله وبركاته الأخوة الأعزاء من ذوي الخبرة و التجربة أرجو مساعدتي بأفضل و أسرع طريقة  مشكورين  عندي برنامج VB6 وأريد أن يكون قاعدة بياناته SQL Server : أريد  1- ما هو أفضل إصدرا لهذا الغرض وأريد رابط تحميلة لكي أحمله و أستعمله 2- أريد طريقة ربط البرنامج مع قاعدة البيانات Connection String 3- وأخيرا بعد تنزيله الSQL Server  على السيرفر كيف طريقة تشغيل البرنامج من أجهزة المستخدمين بيحيث يتصل بالقاعدة البيانات (ربط أجهز الكلينت بـSQL Server الموجود على السيرفر) شكرا و لكم فائق الإحترام و التقدير
  4. السلام عليكم و رحمة الله وبركاته الأخوة الأعزاء من ذوي الخبرة و التجربة أرجو مساعدتي بأفضل و أسرع طريقة  مشكورين  عندي برنامج VB6 وأريد أن يكون قاعدة بياناته SQL Server : أريد  1- ما هو أفضل إصدرا لهذا الغرض وأريد رابط تحميلة لكي أحمله و أستعمله 2- أريد طريقة ربط البرنامج مع قاعدة البيانات Connection String 3- وأخيرا بعد تنزيله الSQL Server  على السيرفر كيف طريقة تشغيل البرنامج من أجهزة المستخدمين بيحيث يتصل بالقاعدة البيانات (ربط أجهز الكلينت بـSQL Server الموجود على السيرفر) شكرا و لكم فائق الإحترام و التقدير
  5. لسلام غليكمانا عملت عدد من المستخدمين في sql server وكذلك عملت ربط بين ms access و sql server وعندما عملت واجهة login في اكسس واردت دخول الى النماذج او الى قاعدة بيانات اكسس عن طريق مستخدمين في sql server (حيث اعطيت مستخدم صلاحية دخول وتعديل في البيانات القاعدة)ولكن في حالة مستخدم موجود ولديه الصلاحية يمكنني الدخول...اما في حالة ادخال مستخدم خطأ او ليس لديه الصلاحية يظهر لي رسالة خطأRuntime Error - 2147217843 80040e4dتفاصيل اكثر في المرفقاتوشكرا للجميع   errors.rar
  6. في البداية شكرا الى جميع الاعضاء والى الاخ محمد امين الذي ساعدني في برنامج الاجازات ولكن لدي مشكله بعد تكبير قاعده البيانات وربطها مع سيرفر sql server  ظهرت لدي مشكله علما ان النموذج يعمل ولكن نموذج تحديث الاجازات تظهر هذه المشكله مرفقه الصور هل هناك تعديل للكود او اضافة كود الربط مع sql او odbc ليعمل النموذج التحديث وهذا هو الكود كاملا  Option Compare Database Private Sub Form_Load() Dim Udate1 As Variant Dim Udate2 As Variant Dim Uyear1 As Variant Dim Uyear2 As Variant Udate1 = DLookup("tmonth", "tblmonth") Udate2 = Format(Now(), "MM") Uyear1 = DLookup("tyear", "tblmonth") Uyear2 = Format(Now(), "yyyy") Dim db As DAO.Database Dim rs As DAO.Recordset2 Set db = CurrentDb Set rs = db.OpenRecordset("الاسماء", dbOpenTable) If Udate1 <> Udate2 Then With rs .MoveFirst Do While rs.EOF = False .Edit .Fields(7) = .Fields(7) + 3 .Update .MoveNext Loop End With DoCmd.RunSQL ("update tblmonth set tblmonth.tmonth='" & Udate2 & "'") MsgBox "تم اضافة رصيد" End If If Uyear1 <> Uyear2 Then With rs .MoveFirst Do While rs.EOF = False .Edit .Fields(7) = .Fields(7) + 36 .Update .MoveNext Loop End With DoCmd.RunSQL ("update tblmonth set tblmonth.tyear='" & Uyear2 & "'") MsgBox "تم اضافة رصيد" End If Me.T1 = "التحديث لغاية 1/" & Udate1 + 1 & "/" & Uyear2 End Sub
  7. مشكلة تظهرعنداضافة قاعدة بيانات للسيكوال error attach database عندما تريد عمل attach لقاعده بيانات على جهازك الى برنامج مايكروسوفت سيكوال سيرفر تظهر رساله Spoiler Attach database failed for Server    ولحل هذه المشكله اذا كانت الداتا بيز تم انشائها على نفس الاصدار  قم بتشغبل البرنامج كمسؤل    
  8. كورس برمجة كامل كما في شركات البرمجة     كورس تعلم البرمجة كما في شركات البرمجة 6 مستويات تدريبية المستوي الاول والثاني مجانا وبهم حوالي 25 فيديو تعليمي لتعليم البرمجة المستويات الاربعة المحترفة الاخري مصممة خصيصا لتأهيل مبرمجين محترفين و بها المشاريع الاتية   زيارة الموقع لمزيد من المعلومات اكتب في جوجل موقع تعلم البرمجة كما في شركات البرمجة http://www.citystarit.com   بعض المشاريع التي تتعلمها في الدورة : 1.تعلم  برمجة  مشروع موقع تواصل اجتماعي الفايس بوك 2- تعلم برمجة  مشروع محرك البحث جوجل 3- تعلم برمجة  مشروع بريد الياهو  4- تعلم برمجة  مشروع موقع تسوق الكتروني كامل بدء من الجاليري ومرحلة سلة التسوق وانتهاء بمرحلة دفع النقود واستلامها عبر وسائل الدفع   5. تعلم برمجة  مشروع الامتحانات اونلاين 6. تعلم برمجة  موقع متعدد اللغات بشكل متقدم كما في الشركات البرمجية الكبري 7. تعلم برمجة  مشروع برنامج مخازن اونلاين             لغات وتقنيات وقواعد بيانات الدورة باختصار Visual Studio,Asp.net ,C# ,sql server Database , ajax, OOP,jquery,Reports and more   افضل موقع في تعليم البرمجة كما في شركات البرمجة حيث تتعلم خبرة عمل حقيقية ومشاريع كثيرة وكبيرة   الرد الفوري : هشام بكر من داخل مصر             01110908853 01022004626   من خارج مصر     00201022004626 00201110908853   زيارة الموقع لمزيد من المعلومات اكتب في جوجل موقع تعلم البرمجة كما في شركات البرمجة http://www.citystarit.com   كلمات مفتاحية : asp.net,C#,visual,studio,sql,server,access,ajax,jquery,oop,objected,oriented, programming,برمجة  ,اس كيو ال سيرفر,تعلم البرمجة كما في شركات البرمجة ,كورس,دورة,سي شارب,تعلم asp.net,شرح, asp.net بالعربي, تعليم asp.net بالعربي, asp.net, دورات asp.net, تصميم مواقع asp.net,
  9. السلام عليكم  انجزت برنامج لى بالفيجوال بيسك دوت نت 2005 وقاعدة البيانات بالسيكوال سيرفر 2000  وعند تثبيت البرنامج على اجهزة العملاء يظهر هذه الرسالة الموجودة فى الملف المرفق والتى نصها  " A network-related or instance-specific error occurred while establishing a connection to SQL Server, the server was not found or was not accessible, Verify that the instance name is correct and that SQL Server is configured to allow remote connections , (provider: Named Pipes Provider , error :40 -Could not open a connection to SQL Server ). "  الرسالة ده بتظهر حتى بعد تثتيب سيكوال سيرفر ايكبرس 2005 على جهاز العميل  مع العلم انى السيكوال كونكشن عبارة عن  "Data Source=" + server + _ ";Initial Catalog=" + dbn + ";Integrated Security=False;user ID=" + _  user + "; Password=" + psw + ";Pooling=False")   طبعا كلمة server , dbn , user , psw ده عبارة عن متغيرات محفوظة فى السيتنج ممكن اغيرها من داخل البرنامج  متهيالى المشكلة فى تثتيب برنامج السيكول سيرفر عند العميل افيدونى جزاكم الله خيرا    dderoo.docx
  10. أريد عمل دالة أو طريقة لكيفية توزيع المبلغ المدفوع على أقساط شهرية في قاعدة البيانات فمثلا لنقل أن الدفعة الشهرية هي 200 ريال وقام الشخص بدفع مبلغ 3000 ريال ثم أدخلت المبلغ في textbox كاملا كيف أقوم بتوزيع هذا المبلغ على الأشهر في السنة والمبلغ الإضافي يتم إضافته للأشهر من السنة التي تليه في قاعدة البيانات؟ حيث أن كل شهر يأخذ صف من الجدول المدفوعات وهكذا
  11. اخوانى الاعزاء السلام عليكم ورحمه الله وبركاته ماهى طريقه اخذ باك اب من سيكول سيرفر 2012 وعمل ريستور لنفس الداتا على سيكول سيرفر 2008 اذا تم اخد بالك اب من سيكول سيرفر 2012 لا يتم عمل ريستور الا على نفس الفيرجن او فيرجن اعلى المطلوب ازاى يتعمل ريستور لفيرجن اقل من 2012 يا ريت الكلام يكون موضح لسيادتكم مع الشكر
  12. السلام عليكم مني إلى مقارعي الخطوب أي خطوب نظم المعلومات لقد أضفت VS 2008 ثم أزلته و بعد وقت طويل أضفت VS 2010 ثم VS 2012 ثم VS 2012 Express for desktop ثم عدت الآن و أضفت VS 2008 و لكن عند خلق مشروع يعطي الرسالة The type initializer for '<Module>' threw an exception لكنه يخلق مجلد المشروع إلا انه لا يكمل شيئا أكثر من ذلك أما عند فتح مشوع سابق كنت قد أنجزته في VS 2008 من قبل ، يعطي الرسالة Unable to read the project file x.csproj The type initiali....exception أي نفس الرسالة السابقة في البقية أخبرتكم هذا التسلسل بهذا الوصف لظني أن له علاقة ما بالمشكلة فهل مَن قارَعَ هذا الخطب يعلّمنا علّمه الله
  13. السلام عليكم و رحمة الله و بركاته  ،،،  قبل فتره قريبه فيه موضوع شد انتباهي وهو ملفات  Log  الخاصه بقواعد البيانات  و ما فائدتها  ، حيث تتميز بحجمها الكبيره و الذي يتضخم بشكل اكبر من قاعدة البيانات نفسها  ،، بالمختصر هو ملف يحوي على Actions الذي حدثت على قاعدة البيانات خلال فترة تشغيل النظام المرتبط على قاعدة البيانات  ،  طبعا غرضي من هذا الموضوع ليس لنقاش فكرة ملفات LOG او كيف تقليل حجمها  او كيفية اخذ نسخه احتياطية منها  و لكن  ما جذب انتباهي i, ! ، لو حذفت بالخطأ بيانات  او تم تعديلها بالخطأ او او او ! لأي سبب كان  هنا تأتي فائدة ملف Log  بحيث نسترجع البيانات المفقوده  او المعدله و من قام بتنفيذ الاجراء عليها  و لكن تبقى مشكله وهي ان البيانات التي تحاول استخراجها من اي Action  تكون  Hex  و منظمه بشكل معين  (و هي سبب وضعي للموضوع للنقاش و المساعده) ،  على العموم  فيه موضوع اعجبني على احدى المدونات و يكاد يكون الوحيد الذي استطاع استرجاع البيانات ،  و رابط الصفحتين هي :http://raresql.com/2011/10/22/how-to-rec...sql-sever/http://raresql.com/2012/02/01/how-to-recover-modified-records-from-sql-server-part-1/في الرابط الاول يتحدث بالتفصيل  عن الطريقة التي استخدمها  في فك تشفير  Hex   و لكن  لم استطع فهم ما يرمي اليه من بداية الخطوه رقم  (2)  ،  طبعا انا لا اتحدث عن  تنفيذ   Stored Procedure ، و لكن أستفسر عن الاسلوب الذي اتبعه في فك البيانات ،،  طبعا هو قال فيه تفاصيل بكتاب ، اي مرجع قد افاده بطريقة فك التشفير  ، و لقيته على الانترنت   و لكن كلام كثير و يبغى له قعده فحبيت اضع الموضوع هنا لعلى احد عنده فكره عن الموضوع هذا او يشاركني في عملية دراسته . هنا موضوع اخر على مدونه اخرى فيه شيء من التفصيل  http://sqlfascination.com/2010/02/05/how...og-part-2/
  14. عند ادخال بيانات نص يحتوي حروف وارقام يتم اعادة ترتيب الحروف في البداية ثم الارقام مثال 1/  a/5 انا اريد  الحرف في الوسط ارجو المساعدة
  15. مطلوب مبرمج محترف VB.NET و SAP Crystal Reports و Sql Server لإكمال مشروع احصائي النظام جاهز فقط يحتاج الجلوس مع العميل لتصميم وبرمجه تقارير إحصائية ذكيه  للتواصل. 0558878900 0553955007 [email protected]
  16. السلام عليكم لم أفهم لماذا يلجأ معظم مبرمجي اس كيو إل سيرفو لحذف برنامج vb studio .nrt من الكومبيوتر قبل تنصيب SQL Server ممكن حدا يشرحلي والسلام عليكم
  17. السلام عليكم ورحمة الله   يمكننا بسهولة انشاء Group جديدة في ال Active Dirctory بالطريقة العادية ولكن كيف يمكننا فعل ذلك باستخادم ال CMD، الصورة التالية توضح كيف نفعل ذلك ..انقر علي الصورة لتراها بحجمها الاصلي   منقول من مدونة كيف المصورة ..من هنا http://kaif00.blogspot.com/2014/07/group-cmd.html     منقول من مدونة كيف المصورة ..من هنا http://kaif00.blogspot.com/2014/07/group-cmd.html
  18. السلام عليكم    نرجوا الافاده حول الاصدار الجديد من SQL SERVER 2014   هل يمكنني التعامل معه والاتصال به عن طريق الفيجوال بيسك و هل يمكن اعداده على السيرفر 2008 r2      وهل هذا سوف يعمل مع الموقع التى تدعم sql  سيرفر ولا سوف تكون هناك مشكلة    وما الجديد فيه    تحياتي 
  19. سلام عليكم انا ظبط اعدادات sql server 2005 بحيث انه  allow Remote connection وشغال تمام علي الشبكه local بعد كده حجزت static ip وعايز access  لل sql server عن طريق الانترنت بعد ما حجزت static ip ياريت اتللي يعرف سبب عدم ظهور ال sql server  لما ببقي علي لانترنت يبلغني وجزاكم الله خير
  20. كود ابرنامج: Imports System.Threading ' Imports System.Globalization ' ' Public Class Form1 'Private moveTo As Point Private mPrevPos As New Point Dim hours As Integer = DateTime.Now.Hour   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Dim Today_Date As Date 'Dim Month_Nam As String 'Dim Month_Num As String Me.ControlBox = False Me.MaximizeBox = False Me.MinimizeBox = False Me.Text = "" Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None TransparencyKey = Color.White 'Button1.BackColor = Color.White 'PictureBox1.BackColor = Color.White Me.BackColor = Color.White End Sub Private Sub PictureBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.DoubleClick Me.Close() End Sub Private Sub PictureBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.DoubleClick Me.Close() End Sub Private Sub PictureBox3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox3.DoubleClick Me.Close() End Sub Private Sub PictureBox4_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox4.DoubleClick Me.Close() End Sub Private Sub PictureBox5_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox5.DoubleClick Me.Close() End Sub Private Sub PictureBox6_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox6.DoubleClick Me.Close() End Sub Private Sub PictureBox7_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox7.DoubleClick Me.Close() End Sub Private Sub PictureBox8_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox8.DoubleClick Me.Close() End Sub Private Sub PictureBox9_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox9.DoubleClick Me.Close() End Sub Private Sub PictureBox10_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox10.DoubleClick Me.Close() End Sub Private Sub PictureBox11_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox11.DoubleClick Me.Close() End Sub Private Sub PictureBox12_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox12.DoubleClick Me.Close() End Sub Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox3_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox4_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox5_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox6_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox7_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox8_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox9_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox10_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox11_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox12_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub Label3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label3.DoubleClick Me.Close() End Sub Private Sub Label3_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label3.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub Label3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label3.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then 'ContextMenuStrip1.Show(Me, e.Location) ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub Label2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.DoubleClick Me.Close() End Sub Private Sub Label2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub Label2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub Label1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.DoubleClick Me.Close() End Sub Private Sub Label1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then 'ContextMenuStrip1.Show(Me, e.Location) ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub   Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox4_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox5_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox6_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox7_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox8_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox9_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox10_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox11_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox12_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click MsgBox("3D Hijri Program Ver 1.0 " & Chr(10) & "Programmed by:" & Chr(10) & "Ayman Khoshouey 2013" & Chr(10) & "E-Mail: [email protected]" & Chr(10) & "Mobile: (+2010)-1800-2225" & Chr(10) & "Cairo-Egypt") End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim Today_Date As Date Dim Month_Nam As String Dim Month_Num As String 'Dim Info_Label As String Dim Ar As CultureInfo = New CultureInfo("AR-SA") Thread.CurrentThread.CurrentCulture = Ar Ar.DateTimeFormat.Calendar = New HijriCalendar Ar.NumberFormat.DigitSubstitution = DigitShapes.Context 'Label1.Text = Format(Date.Now, " dddd,d MMM yyyy") Label1.Text = Format(Date.Now, "yyyy") Label2.Text = Format(Date.Now, "dddd") Today_Date = Format(Date.Now, " dddd,d MMM yyyy") Month_Nam = Format(Date.Now, "MM") Month_Num = Format(Date.Now, "dd") Ar.DateTimeFormat.Calendar = New GregorianCalendar Ar.NumberFormat.DigitSubstitution = DigitShapes.Context Label3.Text = Format(Date.Now, "dddd,d MMM yyyy") 'Label2.Text = Month_Nam 'Label3.Text = Month_Num 'PictureBox12.Visible = True 'Month_Nam = " " Select Case Month_Nam Case "01" PictureBox1.Visible = True Case "02" PictureBox2.Visible = True Case "03" PictureBox3.Visible = True Case "04" PictureBox4.Visible = True Case "05" PictureBox5.Visible = True Case "06" PictureBox6.Visible = True Case "07" PictureBox7.Visible = True Case "08" PictureBox8.Visible = True Case "09" PictureBox9.Visible = True Case "10" PictureBox10.Visible = True Case "11" PictureBox11.Visible = True Case "12" PictureBox12.Visible = True End Select Select Case Month_Num Case "01" NumBox1.Visible = True Case "02" NumBox2.Visible = True Case "03" NumBox3.Visible = True Case "04" NumBox4.Visible = True Case "05" NumBox5.Visible = True Case "06" NumBox6.Visible = True Case "07" NumBox7.Visible = True Case "08" NumBox8.Visible = True Case "09" NumBox9.Visible = True Case "10" NumBox10.Visible = True Case "11" NumBox11.Visible = True Case "12" NumBox12.Visible = True Case "13" NumBox13.Visible = True Case "14" NumBox14.Visible = True Case "15" NumBox15.Visible = True Case "16" NumBox16.Visible = True Case "17" NumBox17.Visible = True Case "18" NumBox18.Visible = True Case "19" NumBox19.Visible = True Case "20" NumBox20.Visible = True Case "21" NumBox21.Visible = True Case "22" NumBox22.Visible = True Case "23" NumBox23.Visible = True Case "24" NumBox24.Visible = True Case "25" NumBox25.Visible = True Case "26" NumBox26.Visible = True Case "27" NumBox27.Visible = True Case "28" NumBox28.Visible = True Case "29" NumBox29.Visible = True Case "30" NumBox30.Visible = True End Select 'Month_Nam = "" 'Month_Num = "01" If Month_Nam = "01" And Month_Num = "01" Then 'InfoLabel2.Visible = True 'InfoLabel1.Visible = False InfoTextBox2.Visible = True InfoTextBox1.Visible = False 'InfoLabel2.Text = InfoLabel2.Text.Substring(3) & InfoLabel2.Text.Substring(0, 3) InfoTextBox2.Text = InfoTextBox2.Text.Substring(3) & InfoTextBox2.Text.Substring(0, 3) Else 'InfoTextBox1.Text = InfoTextBox1.Text.Substring(3) & InfoTextBox1.Text.Substring(0, 3) InfoTextBox1.Text = InfoTextBox1.Text.Substring(3) & InfoTextBox1.Text.Substring(0, 3) End If If Month_Nam = "01" And Month_Num = "10" Then 'InfoLabel1.Text = " " InfoTextBox3.Visible = True InfoTextBox1.Visible = False InfoTextBox3.Text = InfoTextBox3.Text.Substring(3) & InfoTextBox3.Text.Substring(0, 3) End If If Month_Nam = "03" And Month_Num = "12" Then 'InfoLabel1.Text = " " InfoTextBox4.Visible = True InfoTextBox1.Visible = False InfoTextBox4.Text = InfoTextBox4.Text.Substring(3) & InfoTextBox4.Text.Substring(0, 3) End If If Month_Nam = "08" And Month_Num = "15" Then InfoTextBox5.Visible = True InfoTextBox1.Visible = False InfoTextBox5.Text = InfoTextBox5.Text.Substring(3) & InfoTextBox5.Text.Substring(0, 3) 'InfoLabel1.Text = " " End If If Month_Nam = "10" And Month_Num = "01" Then InfoTextBox6.Visible = True InfoTextBox1.Visible = False InfoTextBox6.Text = InfoTextBox6.Text.Substring(3) & InfoTextBox6.Text.Substring(0, 3) 'InfoLabel1.Text = " " End If If Month_Nam = "12" And Month_Num = "10" Then 'InfoLabel1.Text = " " InfoTextBox7.Visible = True InfoTextBox1.Visible = False InfoTextBox7.Text = InfoTextBox7.Text.Substring(3) & InfoTextBox7.Text.Substring(0, 3) End If 'InfoLabel1.Text = InfoLabel1.Text.Substring(3) & InfoLabel1.Text.Substring(0, 3) Select Case hours ' Case Is < 12 'Label1.Text = " " 'ElseIf hours < 17 Then ' Str = "Afternoon" 'ElseIf hours >= 12 Then 'Str = "Evening" Case Is >= 18 'Label1.Text = " " 'Process.Start("C:\Users\khoshoueyae\Documents\3D Hijri Arabic.exe") Me.Close() Case Else Exit Sub 'End If End Select End Sub Private Sub InfoTextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox1.DoubleClick Me.Close() End Sub Private Sub InfoTextBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox2.DoubleClick Me.Close() End Sub Private Sub InfoTextBox3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox3.DoubleClick Me.Close() End Sub Private Sub InfoTextBox4_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox4.DoubleClick Me.Close() End Sub Private Sub InfoTextBox5_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox5.DoubleClick Me.Close() End Sub Private Sub InfoTextBox6_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox6.DoubleClick Me.Close() End Sub Private Sub InfoTextBox7_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox7.DoubleClick Me.Close() End Sub   Private Sub YesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YesToolStripMenuItem.Click Me.TopMost = True End Sub Private Sub NoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoToolStripMenuItem.Click Me.TopMost = False End Sub Private Sub CalendarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalendarToolStripMenuItem.Click FormCalendar.Show() End Sub 'Private Sub Label1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseHover ' Label1.ForeColor = Color.Cyan 'End Sub Private Sub ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem.Click MsgBox("..........." & Chr(10) & " / " & Chr(10) & " ") End Sub End Class   يمكن رفع الصور المتحركة للبرنامج اذا رغب احد فى ذلك حيث لم اتمكن من رفعها فى الموقع
  21. بسم الله الرحمن الرحيم السلام عليكم سؤال :         1- كيف يمكن أن أضع قاعدة بيانات متكونة من اكسس وفيجوال بيسك على ويندوز سيرفير 2003 و 2008            وكيف يمكن السيطرة عليه من حيث الصلاحية         2- ما هي لغات البرمجة التي يمكن وضعها على Application Server
  22. طلب شرح لانشاء او تثبيت  SQL Server على جهاز وبيطة بالاكسس عن طريق النت ولايس شبكة داخليه بس اتمنا يكون شرح موضح في البرامج المطلوبة 
  23. السلام عليكم أصدقائي أحاول أن أقوم بتنصيب برنامج sql server2008 لكن أداة الأنتربرايس مانيجر لا أجدها الرجاء ممن يعرف سبب المشكلة أعلامي بها لأقوم بتصحيحها وشكرا لكم
  24. معني الرسالة server eror in application

    اشتركت في موقع مجاني ولكن عند عرض الصفحة المرتبطة بقاعدة البيانات تظهر الرسالة المرفقة ولكن مش فاهم معناها www.tahamha.somee.com عند الضغط علي صفحة الشكاوي والمقترحات تظهر الرسالة بالمرفق   Server Error in '/' Application. Runtime Error
  25. السلام عليكم ورحمة الله وبركاته ان شاء الله مستعد علي تنفيذ اي مشروع ويب بسعر مناسب في الوقت المحدد     Technical  Skills DatabaseMicrosoft SQL Server 2000/2005/2008 .ADO.NET .LINQ - Entity FrameworkOracle SQL 10G .MYSQL.Microsoft Access .  Web LanguageHtml5. CSS3.JavaScript-JQuery-AjaxWeb Services.ASP.Net 2 , 3.5 , 4 .ASP.NET MVC4 Php  Programming LanguageMicrosoft Visual Studio 2003/2005/2008/2010Microsoft C#.Net 2 , 3.5 .Microsoft VB.NET.      Certifications University Certificate  . Deutsch A1 , A2 Certificate . Microsoft .NET Framework 2.0 - Web-based Client Development          Mastering PHP & MySQL  جزاكم الله كل خير للتواصل Email: [email protected] Mobile : +201008265792 Khaled Abd El Azeem Harby