• الإعلانات

    • فيصل الحربي

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

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

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

Showing results for tags 'open source'.

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

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

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

  1. السلام عليكم انشات قاعدة بيانات Access 2013 فيها حقل اسم واشياء اخرى وعند الانتهاء من كتابة الاسم يتم انشاء مجلد (folder) بالاسم الجديد في مجلد اسمه files بنفس مسار القاعدة  ولكن عندما انقل جميع الملفات الى حاسبة اخرى يتغيير المسار ولاتعمل بصورة صحيحة هل عبارة برمجية استخدمها حتى يتم العمل في مجلد (files) اينما نقلت الملفات وكيف انشئ زر عند ضغطه يفتح لي الفولدر بالاسم الحالي  base.rar
  2. السلام عليكم ورحمة الله وبركاته بعض البرامج فيها خاصية التعديل على شكل المخرجات في التقرير بحسب الشكل الذي يختاره المستخدم -دون استخدام البرمجة- عن طريق السحب والإفلات واضافة أو حذف حقول معينة من التقرير  وتحديد اللوان الترويسة وخصائص الصفحة وهوامشها بحيث يكون الشكل الذي يختاره المستخدم هو الشكل المعتمد في البرنامج  وهذه التقنية تسمى فيما أظن (Open Reports)   السؤال : هل هذه التقنية لها أدوات Tools  تضاف على البرامج أم أنها اجتهاد للمبرمجين ؟ وهل هذه التقنية موجودة في Active Report أو Crystal Report أو أي برنامج متخصص في إنشاء التقارير؟    
  3. مجموعة من البرامج مبرمجة بلغة C# وقواعد بيانات SQL Server و SQLite   أولا : برنامج إدارة معامل التحاليل الطبية السلام عليكم آلان برنامج جادو لاب لإدارة معامل التحاليل الطبية... يعد برنامج جادو لاب من أقوي التطبيقات في إدارة معامل التحاليل الطبية حيث يتميز بالمميزات الآتية :- 1-وجود ميزة Multiaccount وهي تسمح لك بإضافة حسابات دخول في التطبيق مع اختلاف الصلاحيات لكل مستخدم علي حدة. 2-وجود ميزة Backup & Restore لإنشاء نسخة من قاعدة بيانات التطبيق واستعادتها مرة أخري لمنعها من التلف. 3-وجود نظام كامل لإدارة المرضي ووجود أكثر من 400 نوع تحليل مضافين مع النتائج الطبيعية Normal Values والعينة المطلوبة Required Specimen طبقاً لكتيب التحاليل الطبية الصادر عن معامل العصافرة 2013 . يمكنك أيضاً إضافة التحاليل الطبية أو حذفها وإنشاء مجموعات تحاليل طبية ليس لها أي دلالة علمية ولكن فقط لسهولة تنظيم الوصول للتحاليل. 4-إنشاء تعاقدات المعمل وحساب سعر التحاليل المطلوبة تلقائياً واستيراد الخصم المطلوب وحساب المبلغ النهائي المطلوب تلقائياً. 5-سهولة البحث والاستعلام عن أي شئ في التطبيق (مرضي-أطباء-تحاليل-تعاقدات). 6-وجود نظام لحساب الإيرادات أو الديون هذا اليوم أو الشهر أو العام أو المدة المطلوبة أيضاً يمكن معرفة أكثر التحاليل المطلوبة. 7-وجود نظام طباعة التقارير بكل سهولة (تقرير زيارة-نتائج للمعمل-نتائج للمريض برسوم بيانية لتوضيح حالة المريض للطبيب المعالج -الإيرادات-التعاقدات) وأنواع أخري كثيرة ويمكن تصميم التقارير علي حسب رغبة المستخدم. 8-إمكانية الربط بين الأجهزة بشبكة محلية أو ويب ومشاركة قاعدة البيانات فيما بينهم وتحديثها أول بأول فيما بينهم تلقائياً. 9-إمكانية ربط جهاز معملي بالتطبيق بكل سهولة لاستيراد النتائج تلقائياً وتسجيلها للمريض 10-تصدير التقارير علي هيئة ملفات وورد اكسل وPDF.     فيديو من البرنامج : نسخة تجريبية مجانية : https://www.mediafire.com/?piwzw6uh6dgaxxh السعر : 50 دولار سعر السورس كود : 250 دولار   ثانياً: برنامج إدارة الصيدليات   واحد من أفضل البرامج لإدارة الصيدليات حيث يتميز بالآتي :- 1-تعدد حسابات المستخدمين باللإضافة للصلاحيات المختلفة. 2-إمكانية بيع الأدوية وتفريطها بكل سهولة من خلال الباركود (يقوم البرنامج بتصفية الأدوية حيث يمنع بيع الأدوية المنتهية وتنبيهك للأدوية ذات الكميات القليلة) بالإضافة لطباعة الفواتير 3-تسجيل الأدوية في صيدلتك والمخزن وتسهيل عملية النقل فيما بينهما وطباعة تقارير بذلك. 4-إضافة الطلبيات والمشتريات وتسديد مديوناتها بكل سهولة. 5-إضافة الموردين بكل سهولة وتعديلهم. 6-إمكانية إضافة تعاقدات أفراد وشركات ومراكز ووجود نظام لإدارة التسديدات الآجلة. 7-إدارة العاملين في الصيدلية بكل سهولة. 8-طباعة تقرير شهري بأرباح الصيدلية ومرتبات العاملين والمصروفات وتحديد نسبة مكسب أو خسارة الصيدلية. 9-إمكانية نسخ البيانات واستعادتها لمنعها من الضياع أو التلف. 10-مراقبة كاملة للنظام (تسجيل دخول وخروج - التعديل - البيع - الإضافة).   فيديو من البرنامج : نسخة تجريبية مجانية : http://www.mediafire.com/download/95he8reubt6b231/AlwatanyiaPharma.rar السعر : 40 دولار سعر السورس كود : 200 دولار   ثالثاً : برنامج إدارة شركات فواتير الإنترنت   فيديو من البرنامج : السعر : 30 دولار سعر السورس كود : 150 دولار   رابعاً: برنامج إدارة العيادات والمراكز الطبية   السعر : 30 دولار سعر السورس كود : 150 دولار شركة GSoft لتصميم البرمجيات الحديثة رقم هاتف : +201208980438 بريد إلكتروني : mohammed_abdelgwa[email protected] حساب فيس بوك (مفضل) : https://www.facebook.com/scimohammed.gado?ref=tn_tnmn      
  4. صلي هو برنامج مجاني و مفتوح المصدر لحساب اوقات الصلاة الاسلامية لمعظم دول العالم   الموقع الرسمى للبرنامج هو : http://sallyproject.altervista.org                 صلي هو برنامج مجاني و مفتوح المصدر و يحق لكل شخص استعماله و نشره, فقط لا تنسونا من خالص دعائكم
  5. السلام عليكم , انا احمد من كردستان العراق , انا طالب جامعي المرحلة الاخيرة (الرابعة ) علوم الحاسبات , عندي مشروع لازم اسويه , ولكن لا اعرف كيف اقوم بذالك , المطلوب مني ان اركب ويب كام على نضارات نكدر نشوف العين , و نربطة ويا ال سي شارب , حتي نسوي ( اي رايتر ) eye writer < ف شفت بعض الفيديوهات تستعمل ال opencv < ولكن انا بس من قبل اسبوعين سمعت بيها , ف ممكن مساعدة باي شكل من الاشكال ؟؟؟و شكرا ... :)
  6. بسم الله والحمد لله     هذا كلام مقتضب أكتبه على عجالة من أمري فكانت كلماته قليلة ولكن مغزاه كبير ولكل أحد أن يحكم بما شاء وإنما نبدي نحن عن بنات أفكارنا   البرمجيات الحرة والمصادر المفتوحة لها فضل كبير في نشأة المبرمج أيا كان مشربه وأيا كان مذهبه ، لا يجوز بحال إنكار فضلها على تعلمه وتطوره   كانت ولا تزال المصادر المفتوحة أصل العلوم ولبابها ولولاها ما وصلت البرامج ولا المبرمجون إلى ما وصلوا إليه     هذا أمر كان يقع في نفسي كلما سمعت أحدا يعيب المصادر المفتوحة وينقم عليها ويزعم ظلما وجورا أنها تهدم العلم وتحبط الهمة وتنكس النفس عن طلب المعالي وبلوغ المرام   ألم يعلم بأن اللغات الأولى لو بقيت مغلقة على أصحابها ما وصلت إلينا ، أم لم يعلم بأن اللغات الأشهر كالسي والسي ++ والجافا والباسكال مفتوحة المصدر   قد ينكر هذا الكلام  ناكر  ثم ما يلبث أن يضرب بإصبعه على لوحة مفاتيحه ليبحث عن كود لاتصال بقاعدة بيانات كذا وكذا ، أو عن كود استبدال كلمة بكلمة ، أو عن خوارزمية الترتيب الأسرع ، أو عن كود لبرمجة لعبة أو إنشاء نظام للموظفين     أفلا يرجع إلى نفسه ثم يسألها أليست هذا الأكواد المبثوثة في الشبكات والمخطوطة في الكتب والمشروحة في الفيديوهات أليست مصادر مفتوحة ، فإن كان ما يراه من شرها الأكبر حقا فلا يستفد منها  ولا يبحث عن كود أبدا ولا يسأل أستاذا عن كيف يفعل كذا وكذا لأن ذلك علم مفتوح
  7. ااسلام عليكم انا عندي واحب في computer Graphic using vc++ open gl وهذي اللغه جديده عليه فاتمنى تساعدوني في حلها Write a program that animates whirling hexagons• Requirement: The animation is generated by continuous zoom-in and zoom-out. Starting from the initial configuration of the hexagons, keep zooming in until you reach the smallest hexagon at the center covering the entire screen window, then reverse gear and start zooming out. Once you come back to the initial configuration, start zooming in again. This process is infinitely repeated until the user presses ‘q’ key to exit program. Make sure to slow down the speed of animation so the zooming process can be comfortably viewed. Also, make sure there is no flickering artifact during animation. . Write a program that draws a rosette • Requirement: Everytime the program runs, a random n-rosette must be generated and dis- played. n ranges in [5,17]. Write a program that draws the fifth-generation Koch snowflake ,
  8. أعلنت CIPS أن الحكومة الصينية سوف تعتمد نظام التشغيل Linux كنظام موحد للبلاد، وبالتحديد سيتم استخدام التوزيعة الصينية "أوبونتو كيلين" ('Ubuntu Kylin') وهي أحد النكهات الرسميّة لتوزيعة أوبونتو المشهورة. "أوبونتو كيلين" هي توزيعة صينية تمت إضافتها مؤخرا إلى عائلة أوبونتو باعتبارها نكهة رسمية، وسيتم إطلاق اﻹصدار اﻷول من التوزيعة في 25 أبريل جنبًا إلى جنب مع غيرها من نكهات أوبونتو الرسمية. وقال مارك شتلوورث مؤسس شركة كانونيكال المطوّرة ﻷوبونتو : " مع أوبونتو كيلين فإن الصين أصبح لديها نظام تشغيل خاص بها، آمن ومستقر، إنه قد أنتج بفضل المجتمع العالمي ﻷوبونتو، إن أوبونتو تجمع بين التكنولوجيا التامة والنظام اﻹيكولوجي الناضج ومصنّعي المعدات اﻷصليين والشركاء الذي نتعاون معهم، إن تلك المبادرة تحقق نقاط قوة للصين عبر مجموعة متكاملة من المنصات : (سطح المكتب، السيرفرات، الهواتف، اللوحيات، التخزين السحابي) " .   المصدر : لينكس اليوم
  9.   السلام عليكم ورحمة الله وبركاته   بغيت استفسر عن مفهوم Open-Source Software و Proprietary Software   من ناحية Policy, Methodology, Target Users, Spread      عندي بريزنتيشن مقارنه بينهم ومش فاهمه الموضوع وما لقيت مقالات كثيرة تفصل فيه..   ياليت توضحوا لي الموضوع او اذا فيه مقاللات عنه..       مشكورين وجزاكم الله خير..
  10. السلام عليكم ورحمة الله وبركاته أقدم لكم مشروع مضاد فيروسات ب net. مفتوح المصدر open source التحميل
  11. السلام عليكم ورحمة الله تعالى وبركاته   أود أولاً أن أشكر كافة طاقم الإدارة وأعضاء هذا المنتدى على جهودهم الجبارة   بينما كنت أتصفح منتدنا الحبيب, رأيت كثرة المواضيع التي تخص قواعد البيانات فكان ذلك الروتين قاتلا (وكأننا نريد صنع صاروخ بSQL) ففكرت لماذا لا أبدع فكرت من أفكاري الغبية ؟   فصنعت برنامجا لتشفير النصوص طبعا لكي تحفظوا أسراركم   :P   طبعاً البرنامج مفتوح المصدر (Open source) ويجب أن يكون لديك برنامج Visual Basic 2010.Net لكي تتمكن من التعديل (جرب الإصدارات السابقة وشوف حظك ^^)   البرنامج (معلومات بسيطة):   https://sourceforge.net/projects/encryptedtexts   لتحميله: https://sourceforge.net/projects/encryptedtexts/files/latest/download   ولتحميل السورس كود:   https://sourceforge.net/projects/encryptedtexts/files/Source%20Codes.rar/download?_test=updater&utm_expid=65835818-0   صور البرنامج:   واجهة الترحيب (جد جد بسيطة وبإمكانكم التعديل عليها من البروجيكت):   عملية التشفير:   عملية فك التشفير (يا أخي قَطِع قَطِع):     أرجو أن ينال البرنامج إعجابكم   وإنتظروانا في الإصدار 2 قريباً بمميزات جديدة ^^   تعليقاتكم تهمني كثييير   :rolleyes:   سلام
  12. برنامج ساعة الحائط - لسطح مكتب الويندوز بالسورس كود !   السورس كود Option Explicit'==================================================='Analog Clock'--------------------------------------------------'Creates a round(circle) shaped form'and draws H, M, S indicators'I made it easy to understand for VB6.0 beginers'--------------------------------------------------'Author: Evry1falls'Date: 2013'Visit : http://vb6access2003.blogspot.com'All lines of code are explained in the Blog, Visit :'http://vb6access2003.blogspot.com/2013/02/VB6-Analog-Clock.html'--------------------------------------------------'Reference:'Larry Serflaten, Dipak Auddy'Everything'Google : evry1falls'==================================================='API to create windowless formPrivate Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, _ByVal hRgn As Long, _ByVal bRedraw As Boolean) As LongPrivate Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, _ByVal Y1 As Long, _ByVal X2 As Long, _ByVal Y2 As Long) As LongPrivate Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long 'API to move windowless formPrivate Const HTCAPTION As Long = 2Private Const WM_NCLBUTTONDOWN As Long = &HA1Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _ByVal wMsg As Long, _ByVal wParam As Long, _lParam As Any) As LongPrivate Declare Function ReleaseCapture Lib "user32" () As Long 'The length of H,M,S indicators...Private Const hWidth As Long = 1100Private Const mWidth As Long = 1400Private Const sWidth As Long = 1500 'Globals to store canvas(Picture Object)'s'center co-ord.Private X As SinglePrivate Y As SinglePrivate PI2 As DoublePrivate Sub Form_Load()Dim RGN As Long' PI / 2PI2 = Atn(1) * 2With Me.BackColor = vbWhite.Width = Me.Width.Height = Me.Height'Let's save the points...X = .Width / 2Y = .Height / 2End With 'meLabel1.Caption = "Evry1falls" & vbCrLf & "@evry1falls.freevar.com"'Make a round windowless! form...RGN = CreateEllipticRgn(0, 0, 310, 310)Call SetWindowRgn(Me.hwnd, RGN, True)Call DeleteObject(RGN)End SubPrivate Sub Form_MouseDown(Button As Integer, _Shift As Integer, _X As Single, _Y As Single)'Moving the form using mouse button from any location on the form held with mouseIf Button = 1 ThenReleaseCaptureSendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, ByVal 0&End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)'Stop the timerTimer1.Enabled = FalseEnd SubPrivate Sub Label1_MouseDown(Button As Integer, _Shift As Integer, _X As Single, _Y As Single)'Move form when drag the labelForm_MouseDown Button, Shift, X, YEnd SubPrivate Sub lblClose_Click()'Exit App.Unload MeEnd SubPrivate Sub Timer1_Timer()Dim Angle, PX, PY, OX, OY, WX, WYMe.Cls'Get Hr Angle...Angle = (180 - (Hour(Now) * 6) * 5 - (Minute(Now) * 6) / 12) * 3.1415 / 180'Hr. pointPX = X + (hWidth * Sin(Angle))PY = Y + (hWidth * Cos(Angle))'Opposite sideOX = X - (Sin(Angle) * 100)OY = Y - (Cos(Angle) * 100)'Hand widthWX = Sin(Angle + PI2) * 90WY = Cos(Angle + PI2) * 90'Draw Hr. hand...Me.Line (OX, OY)-(PX, PY), vbYellow ' From opposite side to pointerMe.Line -(OX + WX, OY + WY), vbBlue ' To one opposite sideMe.Line -(OX - WX, OY - WY), vbBlue ' To other opposite sideMe.Line -(PX, PY), vbBlue ' Back to pointerMe.Circle (X, Y), 50, vbYellow'Get Min Angle...Angle = (180 - (Minute(Now) * 6)) * 3.1415 / 180'Min pointPX = X + (mWidth * Sin(Angle))PY = Y + (mWidth * Cos(Angle))'Opposite sideOX = X - (Sin(Angle) * 100)OY = Y - (Cos(Angle) * 100)'Hand widthWX = Sin(Angle + PI2) * 90WY = Cos(Angle + PI2) * 90'Draw Min. hand...Me.Line (OX, OY)-(PX, PY), vbYellow ' From opposite side to pointerMe.Line -(OX + WX, OY + WY), vbMagenta ' To one opposite sideMe.Line -(OX - WX, OY - WY), vbMagenta ' To other opposite sideMe.Line -(PX, PY), vbMagenta ' Back to pointerMe.Circle (X, Y), 50, vbYellow'Get Sec Angle...Angle = (180 - (Second(Now) * 6)) * 3.1415 / 180'Draw Sec. hand...Me.Line (X, Y)-(X + (sWidth * Sin(Angle)), Y + (sWidth * Cos(Angle))), vbRedEnd Subالشرح + السورس كود من هنا
  13. لدينا قاعدة بيانات متصلة بمشروع فيجوال بيزك 2010 به DataGrodView و نريد أن نجعل عمليات الحفظ و الحذف و التعديل و التنقل بين السجلات أسها باستخدام مفاتيح الكايبورد :   شكل الفورم :   الأكواد :   Imports System.Data.OleDbPublic Class Form1 '============================Visit Me==============================' ' You may use this Application for any purpose, as you wish . ' Don't forget to build your database as instructed at the tutorial ' link here : http://adonetaccess2003.blogspot.com/2011/11/datagridview-add-edit-delete-into.html'>http://adonetaccess2003.blogspot.com/2011/11/datagridview-add-edit-delete-into.html ' For any help using MS VB.Net along with any DB Engine, please ' Feel free to visit me here : http://adonetaccess2003.blogspot.com ' Or just : Google me ( Evry1falls - Your Issues ) ' ' Thanx again for using Evry1falls Solutions ' '==================================================================' Public CN As New OleDb.OleDbConnection Public RD As OleDbDataReader Public DBS As New DataSet Public Ckind As New OleDbCommand Public Akind As New OleDbDataAdapter Public CmDB As New OleDbCommandBuilder Public DkindS As New DataTable Public Rec As DataRow Public Frec() As DataRow Public N, I, CntRs, CntC As Integer Public SqlStr, xC As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim connectionString As String = "Provider=Microsoft.Ace.OleDB.12.0 ; Data Source = " & Application.StartupPath & "\MyDB.accdb" Dim sql As String = "SELECT * FROM Kinds" Dim connection As New OleDbConnection(connectionString) Dim dataadapter As New OleDbDataAdapter(sql, connection) Dim ds As New DataSet() connection.Open() dataadapter.Fill(ds, "Kinds") connection.Close() DG1.DataSource = ds DG1.DataMember = "Kinds" DG1.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single DG1.CellBorderStyle = DataGridViewCellBorderStyle.Single DG1.Columns("Kind").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill DG1.Columns("kind").HeaderCell.Value = "Sort Of Items" Rec = Nothing Frec = Nothing PictureBox1.Hide() Label1.Text = "" End Sub Private Sub DG1_CellBeginEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles DG1.CellBeginEdit If CN.State = ConnectionState.Open Then CN.Close() CN.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0 ; Data Source = " & Application.StartupPath & "\MyDB.accdb" CN.Open() PictureBox1.Show() Label1.Text = "" PictureBox1.Image = My.Resources.loading SqlStr = "Select * from Kinds" Ckind.Connection = CN Ckind.CommandText = SqlStr With Akind .SelectCommand = Ckind .Fill(DBS, "Kinds") End With DkindS = DBS.Tables("Kinds") CntC = DG1.Rows.Count If DG1.Rows(DG1.CurrentCell.RowIndex).IsNewRow = False Then xC = DG1.CurrentCell.Value.ToString Else xC = Nothing End If End Sub Private Sub DG1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DG1.CellEndEdit If DG1.Rows.Count = CntC Then Frec = DkindS.Select("Kind = '" & xC & "'") If Frec.Length = 0 Then Exit Sub End If Rec = Frec(0) Rec.BeginEdit() Rec!Kind = DG1.Columns(0).DataGridView(0, DG1.CurrentCell.RowIndex).Value Rec.EndEdit() If DBS.HasChanges = True Then CmDB.DataAdapter = Akind Akind.Update(DBS, "Kinds") Label1.Text = "Editted Successfully" PictureBox1.Hide() End If Exit Sub End If SqlStr = "Select * from Kinds" Ckind.Connection = CN Ckind.CommandType = CommandType.Text Ckind.CommandText = SqlStr With Akind .SelectCommand = Ckind .Fill(DBS, "Kinds") End With DkindS = DBS.Tables("Kinds") If DG1.Columns(0).DataGridView(0, DG1.CurrentCell.RowIndex).Value Is DBNull.Value Then PictureBox1.Hide() Label1.Text = "لا يمكن اضافة نوع فارغ" Exit Sub End If PictureBox1.Show() Rec = DkindS.NewRow Rec!KIND = DG1.Columns(0).DataGridView(0, DG1.CurrentCell.RowIndex).Value DkindS.Rows.Add(Rec) If DBS.HasChanges = True Then CmDB.DataAdapter = Akind Akind.Update(DBS, "Kinds") Label1.Text = "تم التحديث" PictureBox1.Hide() End If End Sub Private Sub DG1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DG1.KeyDown If CN.State = ConnectionState.Open Then CN.Close() CN.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0 ; Data Source = " & Application.StartupPath & "\MyDB.accdb" CN.Open() If e.KeyCode = Keys.Delete Then If DG1.Rows.GetRowCount(DataGridViewElementStates.Visible) = 1 Then Label1.Text = "No Data Available" Exit Sub End If If DG1.Rows(DG1.CurrentRow.Index).IsNewRow = True Then Label1.Text = "Violation - Selected Couldn't be Deleted" Exit Sub End If Dim xc As String xc = DG1.Columns(0).DataGridView(0, DG1.CurrentCell.RowIndex).Value.ToString MsgBox(xc) SqlStr = "Delete From Kinds where (Kind) = '" & xc & "'" Ckind.Connection = CN Ckind.CommandText = SqlStr CntRs = Ckind.ExecuteNonQuery Label1.Text = (CntRs & " Record(S) Deleted Successfully") DG1.Rows.Remove(DG1.CurrentCell.OwningRow) DG1.Refresh() End If End SubEnd Class  المصدر الأصلى
  14. يمكنكم تحميل الشيفرة المصدرية Source Code لمكتبات دوت نت فريم وورك Dot Net Framework باصداراتها المختلفة من رابط مايكروسوفت التالي : http://referencesource.microsoft.com/netframework.aspx حجم مكتبة 4.5 حوالي 133 MB للعلم هو مكتوب بلغة السي شارب C# كما يحتوي على ملفات الرموز Symbols من أجل دخول المنقح إلى داخل مناهج وخصائص وأصناف تلك المكتبات لمزيد عن كيفية تفعيل خاصية التنقيح الداخلي http://blogs.msdn.com/b/dotnet/archive/2012/08/15/announcing-the-release-of-net-framework-4-5-rtm-product-and-source-code.aspx لاستكشاف فئة ما يمكن البحث عنها ضمن المجلد باسمها كمثال String.cs أو DateTime.cs بالطبع ستظهر نتيجتين أو ثلاثة لأنها موجودة في مكتبات الـ ndp أو clr أو WPF وستجدون أن الملف يحتوي الشيفرة مكررة (لا أدري ما السبب) تجدون في المرفقات مثال عن شيفرة نوع المعطيات DateTime DateTime.rar