[ تمت الإجابة ]اضافة اسم المستخدم و اسم الكمبيوتر تلقائيا فى قاعدة البيانات

بسم الله الرحمن الرحيم

بارك الله فيك اخي الكريم

استخدم البحث ستجد ما تريد وزيادة

sx1 كتب:

بسم الله الرحمن الرحيم

بارك الله فيك اخي الكريم

استخدم البحث ستجد ما تريد وزيادة

اخي الكريم

شكرا على ردك

لكن

خانني البحث

أخى العضو

إليك هذا المرفق إن شاء الله يعجبك

سلام

UserLog.rar

جارى التحميل و قبل اى شيء شكرا على مشاركتك

hongylover كتب:

أخى العضو

إليك هذا المرفق إن شاء الله يعجبك

سلام

السلام عليكم

تم تجربة ويعمل بشكل ممتاز

يعطيك العافية

عنده سوال

اذا كان على الشبكة

هل نستطيع انعرف من الموجود على البرنامج

السموحه على التدخل

اخر الكريم الف شكر اولا ولكن!!!!

اريد ان يتم اضافتة فى قاعدة البيانات و ياريت احد الاخوة يساعدني فى الملف المرفق

و الف شكر مقدما على المساعدة

جارى الانتظار

الاخوة الاعزاء

هل الموضوع ما زال لا يوجد له حل " لقد وضعت الموضع على المنتديات ولا يوجد له حل حتى الان هل الاخت زهرة له راى اخر

و الف شكر مسبقا

أخي الغالي

لو استخدمت خاصية البحث لوجدت الكثير

عموماً تفضل هذا الرابط ان شاء الله يكون فيه الفائدة Click Here

تفضل اخي الكريم

برنامجك بعد التعديل

UserName_ComputerName.rar

انا مش عارف اقول اية بمجرد ما رايت ان الاخت زهرة هي اخر من حرر المشاركة عرفة ان المشلكة اتلحت

ربنا يحميكي و يحفظك و يرضى عنك و عنا و جميع اعضاء المنتدي و كل المسلمين

و جارى التحميل

بارك الله فيك وجزاك الله خير اختنا الفاضله زهره

ونفع الله بعلمك

الله يعطيك الصحة والعافيه

بارك الله فيكي يا اختنا الغالية زهرة دائما نتعلم منك

ايضا اخي الغالي يمكنك اظهار اسم المستخدم الحالي من خلال هذا السطر البسيط في حدث الحالي

Private Sub Form_Current()
Me.username = Environ("UserName")
End Sub

هل يوجد كود بسيط مثل هذا الكود اعلاه يقوم بجلب اسم الكمبيوتر بدلاً من الوحدة النمطية ؟

أختي الغالية زهرة

من خلال الوحدة النمطية هذه والموجوده في مشاركتك التي ارفقتها بالمشاركة رقم 10

احتاج لبعض الاستفسارات وهي كلتالي

Private Declare Function apiGetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function fOSMachineName() As String

'Returns the computername
	Dim lngLen As Long, lngX As Long
	Dim strCompName As String
	lngLen = 16
	strCompName = String$(lngLen, 0)
	lngX = apiGetComputerName(strCompName, lngLen)
	If lngX <> 0 Then
		fOSMachineName = Left$(strCompName, lngLen)
	Else
		fOSMachineName = ""
	End If
End Function

lngLen = 16

لماذا الرقم 16

strCompName = String$(lngLen, 0)

ما فائدة $

والداله Lib اعتقد انها مخصصة لجلب المكتبات

Dim lngLen As Long, lngX As Long

و long

و آسف علي الاطالة

بارك الله فيكي يا اختنا الغالية زهرة دائما نتعلم منك

اخي الفاضل محمد فؤاد

Private Sub Form_Current()
Me.username = Environ("UserName")
End Sub

بالنسبة لهذا الكود فهو مخصص اساسا للعمل على الشبكه NetWork ولا يمنع استخدامه على جهاز واحد شخصي

بخصوص استفساراتك عن بعض المصطلحات في الكود السابق فهي كالتالي :

lngLen = 16

قمنا بتخصيص 16 حرف او Char لما يسمى Buffer حيث العدد الأقصى للحروف هو 32 فقط

اما بالنسبة لهذه العبارة

strCompName = String$(lngLen, 0)

فأنت تلاحظ ان اسم الكمبيوتر هو عبارة عن اسم اي حروف String ولا يمكن ان يكون اسم الكمبيوتر ارقام Long لهذا فإننا نستخدم الحرف او علامة الدولار $ مع القيم التي يجب ان تكون حروف لتعود لنا الدالة بالحروف المطلوبه وايضا لو تلاحظ الدالة $Left انها يجب ان تعطينا حروف اذا نفهم من هذا ان الدالة $Left تختلف عن الدالة Left واقول لك بكل تاكيد حيث ان الأولى ومعها علامة الدولار $ يجب ان يكون ما بين القوسين هو قيمة نصيه

Left$(strCompName)

حيث لا نريد ان تعود لنا الدالة بقيمة فارغة او Null فيما لو استخدمنا الدالة Left بدون المعامل $

حاول تراجع الفرق بين الدالتين او اي دوال متشابهه الأولى لها المعامل $ والثانية بدون المعامل $ وهي موجوده كلها في تعليمات الأكسيس

اما ما يخص التعبير Lib فهو مخصص للربط مع مكتبات النظام وخاصة kernel32 او win32

واما ما يخص التعبير Long فهو مخصص ان القيمه المراد التصريح عنها انها عدد صحيح

الله يبارك فيكي يا ام عهود بذلك قد اتضحت لي امور كثيرة

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

Private Sub Form_Current()

Me.username = Environ("UserName")

End Sub

بالنسبة اذا كان المتواجدين 6 اشخاص كيف اعرف انه هذا 6 متواجدون الحاليون بالعذا الكود

وكيف الطريقة؟

جزاكى الله خير يا أم عهود