الاول هل بالامكان ان اضع في زر البحث تظهر رسالة فيها بيان او حقل انبت فيه سبب الحذف للفاتورة او المنتج
والثاني اريد اعمل شاشة لعمليات الحذف الي قام فيها فقط الحذف لكل شي في البرنامج يظهر في هذه الشاشة يظهر مثلا
فراس دخل الساعة كذا التاريخ كذا حذف الفاتورة رقم كذا والسبب كذا
بانتظاركم يا ابطال
(( لا أحد يمكن له ان يحدد متى يموت ولكن هو من يقدر ان يحدد كيف يعيش بعد الموت فالحياة والمماة بيد الله لكن حياتك بعد الموت بيدك فلا تندم على شيء فاتك في الدنيا لربما يرزقك الله خير منه في الاخرة او لربما دفع الله عنك به شيأ اعظم ... تلك هي مشيئة الله عز وجل ))
17-11-18, 01:56 AM (آخر تعديل لهذه المشاركة : 17-11-18, 02:17 AM {2} بواسطة asemshahen5.)
هذا كود تستدعيه بعد كود الحذف .
بالنسبة لاسم المستخدم و رقم المستخدم يأخذ من شاشة تسجيل الدخول و يوضع بمتغير من نوع String,Integer يعرف في مديول البرنامج لتستطيع استدعائه من أي نافذة و الباقي مشروح .
كود :
'CREATE TABLE [dbo].[USERS_LOGON](ID int Null,USER_NAME nvarchar Null,LOGON_DATE nvarchar Null,LOGON_TIME nvarchar Null,COMPUTER_NAME nvarchar Null,PROSES_DOING nvarchar Null,PROSES_NUM nvarchar Null,PROSES_TYPE nvarchar Null,NOTE nvarchar Null) ON [PRIMARY]'سكربت عمل الجدول
Public Sub SaveData(USERNAMEID As Integer, USERNAME As String, Txt_Acc_Name As String, PROSES_Num As Integer, PROSES_DOING As String)
Dim DT As New DataTable
Dim DateXT As Date = Now.Date.ToString("yyyy,MM,dd")
'PROSES_DOING = "حذف حساب "
'PROSES_Num = 3
'Txt_Acc_Name = اسم الحساب المحدوف
'PROSES_TYPE = جذر الشجرة
'----------------------------------------------------------
Dim sqladd0 As String = "INSERT INTO USERS_LOGON (ID,USER_NAME,LOGON_DATE,LOGON_TIME,COMPUTER_NAME,PROSES_DOING,PROSES_NUM,PROSES_TYPE" & _
",NOTE) VALUES (N'" & USERNAMEID & "',N'" & USERNAME & _
"',N'" & DateXT & "',N'" & DateAndTime.TimeSerial(Now.Hour, Now.Minute, Now.Second) & "',N'" & My.Computer.Name & "',N'" & PROSES_DOING & "',N'" & PROSES_Num & "',N'" & 0 & "',N'" & "إسم الحساب : " & Txt_Acc_Name & "')"
Dim con As New SqlClient.SqlConnection("Data Source=(Local);Initial Catalog=ALASEM0;Integrated Security=True")
If con.State = ConnectionState.Closed Then con.Open()
Dim DAdapter As New SqlClient.SqlDataAdapter(sqladd0, con)
DAdapter.Fill(DT)
'----------------------------------------------------------
End Sub
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
(17-11-18, 01:56 AM)asemshahen5 كتب : هذا كود تستدعيه بعد كود الحذف .
بالنسبة لاسم المستخدم و رقم المستخدم يأخذ من شاشة تسجيل الدخول و يوضع بمتغير من نوع String,Integer يعرف في مديول البرنامج لتستطيع استدعائه من أي نافذة و الباقي مشروح .
كود :
'CREATE TABLE [dbo].[USERS_LOGON](ID int Null,USER_NAME nvarchar Null,LOGON_DATE nvarchar Null,LOGON_TIME nvarchar Null,COMPUTER_NAME nvarchar Null,PROSES_DOING nvarchar Null,PROSES_NUM nvarchar Null,PROSES_TYPE nvarchar Null,NOTE nvarchar Null) ON [PRIMARY]'سكربت عمل الجدول
Public Sub SaveData(USERNAMEID As Integer, USERNAME As String, Txt_Acc_Name As String, PROSES_Num As Integer, PROSES_DOING As String)
Dim DT As New DataTable
Dim DateXT As Date = Now.Date.ToString("yyyy,MM,dd")
'PROSES_DOING = "حذف حساب "
'PROSES_Num = 3
'Txt_Acc_Name = اسم الحساب المحدوف
'PROSES_TYPE = جذر الشجرة
'----------------------------------------------------------
Dim sqladd0 As String = "INSERT INTO USERS_LOGON (ID,USER_NAME,LOGON_DATE,LOGON_TIME,COMPUTER_NAME,PROSES_DOING,PROSES_NUM,PROSES_TYPE" & _
",NOTE) VALUES (N'" & USERNAMEID & "',N'" & USERNAME & _
"',N'" & DateXT & "',N'" & DateAndTime.TimeSerial(Now.Hour, Now.Minute, Now.Second) & "',N'" & My.Computer.Name & "',N'" & PROSES_DOING & "',N'" & PROSES_Num & "',N'" & 0 & "',N'" & "إسم الحساب : " & Txt_Acc_Name & "')"
Dim con As New SqlClient.SqlConnection("Data Source=(Local);Initial Catalog=ALASEM0;Integrated Security=True")
If con.State = ConnectionState.Closed Then con.Open()
Dim DAdapter As New SqlClient.SqlDataAdapter(sqladd0, con)
DAdapter.Fill(DT)
'----------------------------------------------------------
End Sub
السلام عليكم
اشكرك اخي العزيز لكني عندي بعض الاسئلة اتمنى منك السماح لي بطرحها
اولا انا قمت باضافة الجدول المطلوب بمن خلال السكربت المرفق وتمام تمت الاضافة
ثانيا انت تقول ان اضع هذا البوببلك في زر الحذف كيف يكون بوبك بداخل زر برايفت بيطلع خطا ولما قمت باضافة قبل واخذت الدالة بتاعته ايضا بيظهر خطا ممكن توضح الفكرة جزاك الله حير
ثالثا بالنسبة للصور المرفقة يكون الاستعلام عنها من خلال الجدولالجديد الي قمت باضافة ولا انا غلطان اتمنى منك الاجابة وفقك الله
واشكرك مجددا
(( لا أحد يمكن له ان يحدد متى يموت ولكن هو من يقدر ان يحدد كيف يعيش بعد الموت فالحياة والمماة بيد الله لكن حياتك بعد الموت بيدك فلا تندم على شيء فاتك في الدنيا لربما يرزقك الله خير منه في الاخرة او لربما دفع الله عنك به شيأ اعظم ... تلك هي مشيئة الله عز وجل ))
(( لا أحد يمكن له ان يحدد متى يموت ولكن هو من يقدر ان يحدد كيف يعيش بعد الموت فالحياة والمماة بيد الله لكن حياتك بعد الموت بيدك فلا تندم على شيء فاتك في الدنيا لربما يرزقك الله خير منه في الاخرة او لربما دفع الله عنك به شيأ اعظم ... تلك هي مشيئة الله عز وجل ))
قبل رسالة نجاح الحذف ضع فقط SaveData اما Public Sub SaveData كاملا فضعه في مديول لتستطيع استدعائه من أي نافذة في المشروع بالنسبة للصور المرفقة هي من استعلام على الجدول الذي تم بنائه هل عندك سؤال اخر .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
(19-11-18, 11:02 PM)asemshahen5 كتب : قبل رسالة نجاح الحذف ضع فقط SaveData اما Public Sub SaveData كاملا فضعه في مديول لتستطيع استدعائه من أي نافذة في المشروع بالنسبة للصور المرفقة هي من استعلام على الجدول الذي تم بنائه هل عندك سؤال اخر .
شكرا لك اخي تم تفصيخ الكود بالكامل واخذ كود الاستعلام فقط وتم تصميم الاجهة بنجاح والحمد لله تمت العملية بنجاح وفقك الله واشكرك اخي الحبيبي
(( لا أحد يمكن له ان يحدد متى يموت ولكن هو من يقدر ان يحدد كيف يعيش بعد الموت فالحياة والمماة بيد الله لكن حياتك بعد الموت بيدك فلا تندم على شيء فاتك في الدنيا لربما يرزقك الله خير منه في الاخرة او لربما دفع الله عنك به شيأ اعظم ... تلك هي مشيئة الله عز وجل ))