هذا كود تستدعيه بعد كود الحذف .
بالنسبة لاسم المستخدم و رقم المستخدم يأخذ من شاشة تسجيل الدخول و يوضع بمتغير من نوع 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