تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] ما معنى هذه الرساله
#1
السلام عليكم

في مربع الأخطاء تظهر لي الرسالة التاليه:
Unused local variable: 'cmd'.

ما معناها
الرد }}}}
تم الشكر بواسطة:
#2
معناه انه لديك متغير ما ......تم تعريفه و هو غير مستخدم من خلال الكود المكتوب....عموما يمكنك حذفه
الرد }}}}
تم الشكر بواسطة: Sajad
#3
بالعكس انا استخدمه وهو معلن عنه
الرد }}}}
تم الشكر بواسطة:
#4
ما هو نوع المتغير نصي .. كائن .. رقمي ؟
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#5
هذا هو

Dim cmd As New OleDbCommand
الرد }}}}
تم الشكر بواسطة:
#6
ممكن تعرض لنا الكود كاملا ؟
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#7
PHP كود :
Imports System.Data
Imports System
.Data.OleDb
Public Class frmAddNew

    
Public Sub ClearTextBox(ByVal root As Control)
        For 
Each ctrl As Control In root.Controls
            ClearTextBox
(ctrl)
            If 
TypeOf ctrl Is TextBox Then
                CType
(ctrlTextBox).Text String.Empty
            
End If
        
Next (ctrl)
    
End Sub
    
'Private Sub txtcrn_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles txtCRN.KeyPress
    '    
If e.KeyChar ControlChars.Cr Then
    
'        e.Handled = True
    '    
End If

    
'    If Not IsNumeric(e.KeyChar) And Not e.KeyChar = Chr(Keys.Enter) Then
    '        
e.Handled True

    
'        Dim Msg As String = "رقم السجل المدني يجب أن يكون عددا صحيحا"
    '        
MsgBox(MsgvbCritical vbMsgBoxRight vbMsgBoxRtlReading"نظام مواعيد الأعلاف")
    
'        txtCRN.Text = ""
    '        
Exit Sub
    
'    End If

    '    
If e.KeyChar Chr(Keys.Enter) And txtCRN.Text "" Then
    
'        Dim Msg As String = "يجب عليك ادخال السجل المدني"
    '        
MsgBox(MsgvbCritical vbMsgBoxRight vbMsgBoxRtlReading"نظام مواعيد الأعلاف")
    
'        txtCRN.Focus()
    '    
End If
    
'End Sub
    Private Sub btnSaveInfo_Click(sender As Object, e As EventArgs) Handles btnSaveInfo.Click
        ApoSYSconn.Close()
        ApoSYSconn.Open()

        Dim CMD As New OleDb.OleDbCommand("qNewCustomer", ApoSYSconn)
        CMD.CommandType = CommandType.StoredProcedure

        CMD.Parameters.Add(New OleDb.OleDbParameter("@CivilRegNum", txtCRN.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@Name1", txtName1.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@Name2", txtName2.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@Name3", txtName3.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@Name4", txtName4.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@MobileNum", txtMobileNo.Text))

        CMD.ExecuteNonQuery()

        ApoSYSconn.Close()
        Dim Msg2 As String = "تم حفظ السجل بنجاح"
        MsgBox(Msg2, vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
        ClearTextBox(Me)
        txtCRN.Focus()

        Exit Sub
        ClearTextBox(Me)

    End Sub
    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        Close()
    End Sub
    Private Sub btnSaveAll_Click(sender As Object, e As EventArgs) Handles btnSaveAll.Click
        If txtCRN.Text = "" Then
            Dim Msg1 As String = "يجب عليك ادخال رقم السجل المدني"
            MsgBox(Msg1, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
            txtCRN.Focus()
            Exit Sub
        End If
        ApoSYSconn.Close()
        ApoSYSconn.Open()

        Dim CMD As New OleDb.OleDbCommand("qNewCustomer", ApoSYSconn)
        CMD.CommandType = CommandType.StoredProcedure

        CMD.Parameters.Add(New OleDb.OleDbParameter("@CivilRegNum", txtCRN.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@Name1", txtName1.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@Name2", txtName2.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@Name3", txtName3.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@Name4", txtName4.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@MobileNum", txtMobileNo.Text))

        CMD.ExecuteNonQuery()

        Dim CMD1 As New OleDb.OleDbCommand("qNewBarwah", ApoSYSconn)
        CMD1.CommandType = CommandType.StoredProcedure

        CMD1.Parameters.Add(New OleDb.OleDbParameter("@Customer", txtCRN.Text))
        CMD1.Parameters.Add(New OleDb.OleDbParameter("@BarwahNum", txtBarwahNo.Text))
        CMD1.Parameters.Add(New OleDb.OleDbParameter("@Notes", txtNotes.Text))

        CMD1.ExecuteNonQuery()

        Dim CMD2 As New OleDb.OleDbCommand("qNewDate", ApoSYSconn)
        CMD2.CommandType = CommandType.StoredProcedure

        CMD2.Parameters.Add(New OleDb.OleDbParameter("@BawahNum", txtBarwahNo.Text))
        CMD2.Parameters.Add(New OleDb.OleDbParameter("@DateReg", txtDateReg.Text))
        CMD2.Parameters.Add(New OleDb.OleDbParameter("@DateReceipt", txtDateRecipt.Text))

        CMD2.ExecuteNonQuery()

        ApoSYSconn.Close()

        Dim Msg As String = "تم حفظ السجل بنجاح"
        MsgBox(Msg, vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
        Exit Sub
        ClearTextBox(Me)

    End Sub
    Private Sub txtCRN_KeyDown(sender As Object, e As KeyEventArgs) Handles txtCRN.KeyDown
        If e.KeyCode = Keys.Enter Then
            '  
SendKeys.Send("{tab}")
            
'e.SuppressKeyPress = True
            txtName1.Focus()
        End If

    End Sub
    Private Sub txtBarwahNo_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtBarwahNo.KeyPress
        If e.KeyChar = ControlChars.Cr Then
            e.Handled = True
        End If

        If Not IsNumeric(e.KeyChar) And Not e.KeyChar = Chr(Keys.Enter) Then
            e.Handled = True

            Dim Msg As String = "رقم البروه يجب أن يكون عددا صحيحا"
            MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
            txtBarwahNo.Text = ""
            Exit Sub
        End If

        If e.KeyChar = Chr(Keys.Enter) And txtBarwahNo.Text = "" Then
            Dim Msg As String = "يجب عليك ادخال رقم البروه"
            MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
            txtBarwahNo.Focus()
        End If
    End Sub
    Private Sub txtBarwahNo_KeyDown(sender As Object, e As KeyEventArgs) Handles txtBarwahNo.KeyDown
        If e.KeyCode = Keys.Enter Then
            txtDateRecipt.Focus()
        End If
    End Sub
    Private Sub txtName1_KeyDown(sender As Object, e As KeyEventArgs) Handles txtName1.KeyDown
        If e.KeyCode = Keys.Enter Then
            txtName2.Focus()
        End If
    End Sub
    Private Sub txtName2_KeyDown(sender As Object, e As KeyEventArgs) Handles txtName2.KeyDown
        If e.KeyCode = Keys.Enter Then
            txtName3.Focus()
        End If
    End Sub
    Private Sub txtName3_KeyDown(sender As Object, e As KeyEventArgs) Handles txtName3.KeyDown
        If e.KeyCode = Keys.Enter Then
            txtName4.Focus()
        End If
    End Sub
    Private Sub txtName4_KeyDown(sender As Object, e As KeyEventArgs) Handles txtName4.KeyDown
        If e.KeyCode = Keys.Enter Then
            txtMobileNo.Focus()
        End If
    End Sub
    Private Sub txtMobileNo_KeyDown(sender As Object, e As KeyEventArgs) Handles txtMobileNo.KeyDown
        If e.KeyCode = Keys.Enter Then
            txtBarwahNo.Focus()
        End If
    End Sub
    Private Sub btnSaveAll_KeyDown(sender As Object, e As KeyEventArgs) Handles btnSaveAll.KeyDown
        If e.KeyCode = Keys.Enter Then
            btnCancel.Focus()
        End If
    End Sub
    Private Sub frmAddNew_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If txtCRN.Text = "" And txtBarwahNo.Text = "" Then
            btnSaveAll.Enabled = False
        Else
            btnSaveAll.Enabled = True
        End If
        If txtCRN.Text = "" Then
            btnSaveInfo.Enabled = False
        Else
            btnSaveInfo.Enabled = True
        End If
    End Sub
    Private Sub txtName1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtName1.KeyPress
        If e.KeyChar = ControlChars.Cr Then
            e.Handled = True
        End If

        If IsNumeric(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub
    Private Sub txtName2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtName2.KeyPress
        If e.KeyChar = ControlChars.Cr Then
            e.Handled = True
        End If

        If IsNumeric(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub
    Private Sub txtName3_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtName3.KeyPress
        If e.KeyChar = ControlChars.Cr Then
            e.Handled = True
        End If

        If IsNumeric(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub
    Private Sub txtName4_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtName4.KeyPress
        If e.KeyChar = ControlChars.Cr Then
            e.Handled = True
        End If

        If IsNumeric(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub
    Private Sub txtMobileNo_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtMobileNo.KeyPress
        If e.KeyChar = ControlChars.Cr Then
            e.Handled = True
        End If

        If Not IsNumeric(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub
    Private Sub txtCRN_Validated(sender As Object, e As EventArgs) Handles txtCRN.Validated
        If txtCRN.Text = "" Then
            Dim Msg As String = "يجب عليك ادخال السجل المدني"
            MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
            txtCRN.Focus()
            txtCRN.SelectionStart = 0
            Return
        End If

        '
كود التحقق من المدخل عدد صحيح
        
If IsNumeric(txtCRN.TextThen
            
Exit Sub
        
Else
            
Dim Msg As String "رقم السجل المدني يجب أن يكون عددا صحيحا"
            
MsgBox(MsgvbCritical vbMsgBoxRight vbMsgBoxRtlReading"نظام مواعيد الأعلاف")
            
txtCRN.Text ""
            
txtCRN.Focus()
            
txtCRN.SelectionStart 0
            
Return
            Exit 
Sub
        End 
If

        
Dim cmd As New OleDbCommand
        ApoSYSconn
.Close()
        
cmd.Connection ApoSYSconn
        ApoSYSconn
.Open()
        
cmd.CommandText "Select * from tblCustomers where CivilRegNum=@n"
        
cmd.Parameters.Add("@n"OleDbType.VarChar).Value txtCRN.Text.ToString
        Dim dr 
As OleDbDataReader cmd.ExecuteReader()
        If 
dr.HasRows True Then
            MessageBox
.Show("هذا السجل موجود""تحذير"MessageBoxButtons.OKMessageBoxIcon.Warning)
            
txtCRN.Text ""
            
txtCRN.Focus()
            
txtCRN.SelectionStart 0
            ApoSYSconn
.Close()
        
End If
    
End Sub
    
Private Sub txtBarwahNo_Validated(sender As ObjectAs EventArgsHandles txtBarwahNo.Validated
        Dim cmd 
As New OleDbCommand
        ApoSYSconn
.Close()
        
cmd.Connection ApoSYSconn
        ApoSYSconn
.Open()
        
cmd.CommandText "Select * from tblBarwah where BarwahNum=@n"
        
cmd.Parameters.Add("@n"OleDbType.VarChar).Value txtBarwahNo.Text.ToString

        Dim dr 
As OleDbDataReader cmd.ExecuteReader()
        If 
dr.HasRows True Then
            MessageBox
.Show("هذا السجل موجود""تحذير"MessageBoxButtons.OKMessageBoxIcon.Warning)
            
txtBarwahNo.Text ""
            
txtBarwahNo.Focus()
            
txtBarwahNo.SelectionStart 0
            ApoSYSconn
.Close()

        
End If
    
End Sub
    
Private Sub txtCRN_TextChanged(sender As ObjectAs EventArgsHandles txtCRN.TextChanged
        
If txtCRN.Text "" Then
            btnSaveInfo
.Enabled False
        
Else
            
btnSaveInfo.Enabled True
        End 
If

    
End Sub
    
Private Sub txtBarwahNo_TextChanged(sender As ObjectAs EventArgsHandles txtBarwahNo.TextChanged
        
If txtBarwahNo.Text "" Then
            btnSaveAll
.Enabled False
        
Else
            
btnSaveAll.Enabled True
        End 
If
    
End Sub
    
Private Sub txtDateReg_KeyDown(sender As ObjectAs KeyEventArgs)
        If 
e.KeyCode Keys.Enter Then
            txtDateRecipt
.Focus()
        
End If
    
End Sub
    
Private Sub txtDateRecipt_KeyDown(sender As ObjectAs KeyEventArgs)
        If 
e.KeyCode Keys.Enter Then
            txtNotes
.Focus()
        
End If
    
End Sub
    
Private Sub txtDateRecipt_KeyDown_1(sender As ObjectAs KeyEventArgsHandles txtDateRecipt.KeyDown
        
If e.KeyCode Keys.Enter Then
            txtNotes
.Focus()
        
End If
    
End Sub
    
Private Sub btnSaveInfo_KeyPress(sender As ObjectAs KeyPressEventArgsHandles btnSaveInfo.KeyPress
        
If e.KeyChar ControlChars.Cr Then
            e
.Handled True
        End 
If

    
End Sub
    
Private Sub txtDateReg_KeyPress(sender As ObjectAs KeyPressEventArgsHandles txtDateReg.KeyPress
        
If e.KeyChar ControlChars.Cr Then
            e
.Handled True
        End 
If

    
End Sub
    
Private Sub txtDateRecipt_KeyPress(sender As ObjectAs KeyPressEventArgsHandles txtDateRecipt.KeyPress
        
If e.KeyChar ControlChars.Cr Then
            e
.Handled True
        End 
If
    
End Sub
End 
Class 
الرد }}}}
تم الشكر بواسطة:
#8
لا ارى أي سبب في الكود لكي يظهر ذلك الخطأ .. ربما يراه غيري
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#9
وما الحل
المشكله تكمن في هذه الجزئيه
PHP كود :
Dim cmd As New OleDbCommand
        ApoSYSconn
.Close()
        
cmd.Connection ApoSYSconn
        ApoSYSconn
.Open()
        
cmd.CommandText "Select * from tblCustomers where CivilRegNum=@n"
        
cmd.Parameters.Add("@n"OleDbType.VarChar).Value txtCRN.Text.ToString
        Dim dr 
As OleDbDataReader cmd.ExecuteReader()
        If 
dr.HasRows True Then
            MessageBox
.Show("هذا السجل موجود""تحذير"MessageBoxButtons.OKMessageBoxIcon.Warning)
            
txtCRN.Text ""
            
txtCRN.Focus()
            
txtCRN.SelectionStart 0
            ApoSYSconn
.Close() 
هل بالإمكان تعديل الكود
الرد }}}}
تم الشكر بواسطة:
#10
PHP كود :
cmd.Connection ApoSYSconn
        ApoSYSconn
.Open()
        
cmd.CommandText "Select * from tblCustomers where CivilRegNum="txtCRN.Text.ToString "
     
        Dim dr As OleDbDataReader = cmd.ExecuteReader()
        If dr.HasRows = True Then
            MessageBox.Show("
هذا السجل موجود", "تحذير", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            txtCRN.Text = ""
            txtCRN.Focus()
            txtCRN.SelectionStart = 0
            ApoSYSconn.Close() 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] معنى هذا الخظا rabeh.ram 3 27 منذ 26 دقيقة مضت
آخر رد: ابراهيم النعيمي
  [سؤال] شباب نظهر الرساله دى عند تشغيل البرنامج احمد عبد الحكيم 3 291 29-05-16, 04:22 PM
آخر رد: CLARO
  ماسبب ظهور هذه الرساله عند تثبيت برنامجي ببعض الاجهزة رهف العريفي 9 346 06-05-16, 03:55 AM
آخر رد: أسامة
  برجاء المساعدة وتوضيح معنى الرسالة loverhac 7 205 19-03-16, 07:35 PM
آخر رد: hassan
Information [سؤال] ما معنى الصيغه التاليه << في الفيجول بيسك myalsailamy 2 260 04-03-16, 03:12 PM
آخر رد: myalsailamy
  [سؤال] ظهر هذه الرساله عند عمل UPDATE احمد عبد الحكيم 0 124 08-02-16, 06:48 PM
آخر رد: احمد عبد الحكيم
  [سؤال] عند الحفظ تظهر لى هذه الرساله او عند الخذف ايضا ما حل هذه المشكلة احمد عبد الحكيم 1 137 28-01-16, 08:24 PM
آخر رد: abdhassan
  [VB.NET] شبابا ظهرت لى هذه الرساله عند الحفظ فما هى المشكلة احمد عبد الحكيم 2 430 08-07-15, 10:28 PM
آخر رد: Crazy_Vb.NeT
  [VB.NET] شباب عند تغير بزرار الانتقال الى الامام او الخلف تظهر لى هذه الرساله احمد عبد الحكيم 3 389 05-07-15, 03:04 PM
آخر رد: sphinx
  [سؤال] ما مشكلة هذه الرساله يا شباب احمد عبد الحكيم 1 316 23-03-15, 05:18 PM
آخر رد: احمد عبد الحكيم

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


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