السلام عليكم ورحمة الله
تحية طيبة
إخواني الكرام حفظكم الله
ما هي طريقة الادخال اليدوي في الداتا جريد فيو وحفظ المعلومات المدخلة بمجرد ضغط Enter والانتقال للصف الثاني... وكذلك عند التعديل...
بمعنى:
عندي بيانات أريد ادخالها متكونة من عدة صفوف كل ما أدخل معلومة واضغط Enter ينتقل للصف الثاني ويحفظ الصف الذي قبله وهكذا...
ولكم جزيل الشكر
(07-03-22, 05:55 AM)SaedAmer كتب : [ -> ] (06-03-22, 06:59 PM)safralfahd كتب : [ -> ]السلام عليكم ورحمة الله
تحية طيبة
إخواني الكرام حفظكم الله
ما هي طريقة الادخال اليدوي في الداتا جريد فيو وحفظ المعلومات المدخلة بمجرد ضغط Enter والانتقال للصف الثاني... وكذلك عند التعديل...
بمعنى:
عندي بيانات أريد ادخالها متكونة من عدة صفوف كل ما أدخل معلومة واضغط Enter ينتقل للصف الثاني ويحفظ الصف الذي قبله وهكذا...
ولكم جزيل الشكر
ممكن توضيح اكتر لطلبك
عندي أسماء طلاب واريد ادخل لهم درجة الامتحانات عن طريق الادخال المباشر في الداتا جريد فيو …
(07-03-22, 08:55 PM)safralfahd كتب : [ -> ] (07-03-22, 05:55 AM)SaedAmer كتب : [ -> ] (06-03-22, 06:59 PM)safralfahd كتب : [ -> ]السلام عليكم ورحمة الله
تحية طيبة
إخواني الكرام حفظكم الله
ما هي طريقة الادخال اليدوي في الداتا جريد فيو وحفظ المعلومات المدخلة بمجرد ضغط Enter والانتقال للصف الثاني... وكذلك عند التعديل...
بمعنى:
عندي بيانات أريد ادخالها متكونة من عدة صفوف كل ما أدخل معلومة واضغط Enter ينتقل للصف الثاني ويحفظ الصف الذي قبله وهكذا...
ولكم جزيل الشكر
ممكن توضيح اكتر لطلبك
عندي أسماء طلاب واريد ادخل لهم درجة الامتحانات عن طريق الادخال المباشر في الداتا جريد فيو …
لستُ خبيراً في الدوت نت ولكن حسب ما أعرفه في الفيجوال بيسك 6 والذي طبقته هو:
أولاً: استدعاء الطبــة إلى الداتا قريدفيو حسب الصف وإن كان يوجد شعبة أو قسم
ثانياً: إختيار المادة المراد رصد درجاتها
((((بهذه الطريقة تختار الصف والشعبة فيتم استدعاء الطلبة في الداتا قريدفيو ثم تختار المادة وترصد درجاتها)))
وعند تصميم المثال سيتكفل الأساتذة الكرام بالتعديل على المثال المرفق .ومساعدتك
أما بهذا الطريقة فلن تجد أحداً يصنع لك كلَّ شيء
هذا عن تجربة ابدأ .... ثم اطلب المساعدة إن عجزت عن تنفيذ أمرٍ ما
(07-03-22, 10:59 PM)مصمم هاوي كتب : [ -> ]لستُ خبيراً في الدوت نت ولكن حسب ما أعرفه في الفيجوال بيسك 6 والذي طبقته هو:
أولاً: استدعاء الطبــة إلى الداتا قريدفيو حسب الصف وإن كان يوجد شعبة أو قسم
ثانياً: إختيار المادة المراد رصد درجاتها
((((بهذه الطريقة تختار الصف والشعبة فيتم استدعاء الطلبة في الداتا قريدفيو ثم تختار المادة وترصد درجاتها)))
وعند تصميم المثال سيتكفل الأساتذة الكرام بالتعديل على المثال المرفق .ومساعدتك
أما بهذا الطريقة فلن تجد أحداً يصنع لك كلَّ شيء
هذا عن تجربة ابدأ .... ثم اطلب المساعدة إن عجزت عن تنفيذ أمرٍ ما
ربي يحفظك عندي مشروع لكن أسأل عن امكانية ذلك أو كيفية القيام بها..
وأشكر ردك والله يجزيك خيراً
وعليكم السلام ورحمة الله وبركاته
إن كنت تظن بأن الادخال عبر الداتاجريد هو أسرع من الادخال من التكس بوكس (كما في الاكسل) فأنت مخطأ
الطريقة الاسرع للادخال هي عبر الـ (TextBox) و (ComboBox) وأسرع مما هي في الاكسل وذلك للاسباب :
1 - الادخال عبر الداتا جريد فيو ليس بالحل المناسب : لأنه بالامكان التعديل على أي خانة في أي سطر :
- فأي تعديل خاطئ في خلية ما في سطر ما سيتسبب لك بتغيير البيانات في سجل ماا دون أن تشعر بذلك..
- مع كل سطر جديد أو إدخال جديد سيقوم البرنامج بالتحقق من كل البيانات المدخلة من اول خلية في أول سطر إلى آخر خلية في آخر سطر
وسيقوم بتعديل الموجود وادخال جديد لغير الموجود، مما سيتسبب لك ببطئ الادخال مع كل سطر ..
- .. إلخ ..
2 - تستطيع تخصيص برمجياً كل مربع من (TextBox) أو (ComboBox) للقيم التي تريد رقمية أو نصية، عربية أو عجمية.
3 - منع الادخال الخاطئ بحيث لو أدخلت كلام عربي في خانة عجمية أو رقمية أو خانة تاريخ سيعطيك البرنامج تنبيه لتصحح الادخال قبل وقوعه.
4 - يمكنك ادخال قيم افتراضية ضمن مربع (ComboBox) فتصبح لاختيار القيم بدون إدخالها كل مرة ويمنع الخطأ الاملائي نتيجة السرعة في الادخال.
5 - ما كنت تتخليه عن سهولة الادخال عبر الداتاجريد بامكانك توفيره بطريقة مربعات التكست بوكس والانتقال بين كل مربع وآخر عبر الـ (TAB) والادخال والحفظ بـ ضغطة (Enter).
6 - والمزيد من الميزات ستكتشفها بعد تنفيذك للبرنامج لإمكانية التعديل وتطوير البرنامج وقت تشاء و كما تشاء.
..
السلام عليكم ورحمة الله
تحية طيبة
إخواني الكرام حفظكم الله
ما هي طريقة الادخال اليدوي في الداتا جريد فيو وحفظ المعلومات المدخلة بمجرد ضغط Enter والانتقال للصف الثاني... وكذلك عند التعديل...
بمعنى:
عندي بيانات أريد ادخالها متكونة من عدة صفوف كل ما أدخل معلومة واضغط Enter ينتقل للصف الثاني ويحفظ الصف الذي قبله وهكذا...
ولكم جزيل الشكر
..........................................................................................................................
اخواني الكرام
لمن عنده معرفة فليبين لي
فإنما هي معلومات ندخرها ونتعلمها ولا يشترط تطبيقها...
اتفضل الكود ي غالى
مطلوب داتا جريد فيو1 بالفروم رقم 1
ومديول
انسخ هذا الكود
كود :
Imports System.Data.OleDb
Public Class Form1
Dim dt_cust As New DataTable
Dim da As OleDbDataAdapter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
da = New OleDbDataAdapter("select * from mm", con)
da.Fill(dt_cust)
DataGridView1.DataSource = dt_cust
End Sub
Private Sub DataGridView1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
'e.SuppressKeyPress = False
Dim iCol = DataGridView1.CurrentCell.ColumnIndex
Dim iRow = DataGridView1.CurrentCell.RowIndex
If iCol = DataGridView1.Columns.Count - 1 Then
If iRow < DataGridView1.Rows.Count - 1 Then
DataGridView1.CurrentCell = DataGridView1(0, iRow + 1)
End If
Else
DataGridView1.CurrentCell = DataGridView1(iCol + 1, iRow)
End If
Dim cmd As New OleDbCommandBuilder(da)
Try
da.Update(dt_cust)
con.Close()
MsgBox("تمت التعديل بنجاح")
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
End If
End Sub
(11-03-22, 07:05 AM)حسين ادريس كتب : [ -> ]اتفضل الكود ي غالى
مطلوب داتا جريد فيو1 بالفروم رقم 1
ومديول
انسخ هذا الكود
كود :
Imports System.Data.OleDb
Public Class Form1
Dim dt_cust As New DataTable
Dim da As OleDbDataAdapter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
da = New OleDbDataAdapter("select * from mm", con)
da.Fill(dt_cust)
DataGridView1.DataSource = dt_cust
End Sub
Private Sub DataGridView1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
'e.SuppressKeyPress = False
Dim iCol = DataGridView1.CurrentCell.ColumnIndex
Dim iRow = DataGridView1.CurrentCell.RowIndex
If iCol = DataGridView1.Columns.Count - 1 Then
If iRow < DataGridView1.Rows.Count - 1 Then
DataGridView1.CurrentCell = DataGridView1(0, iRow + 1)
End If
Else
DataGridView1.CurrentCell = DataGridView1(iCol + 1, iRow)
End If
Dim cmd As New OleDbCommandBuilder(da)
Try
da.Update(dt_cust)
con.Close()
MsgBox("تمت التعديل بنجاح")
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
End If
End Sub
جزاك الله خير الجزاء
ممكن تعمل نموذج بهذا الكود لو سمحت