[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