إضافة الى تطبيقية تسيير شؤون العمال الإصدار الأول المطور جزئيا

[MOURADIYAT]

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

أحبتي في الله لقد حاولت اليوم أن أضفي على البرنامج الجديد الخاص بتسيير شؤون العمال المطور سابقا وجزئيا بعض اللمسات والمتمثلة في كلمة الدخول

والفورم الخاص بتدوين بيانات مستخدم جديد إلا انني لم أفلح في جعله شغال 100/100

والمطلوب هنا مايلي:

01- تعديل الفورم الخاص بكلمة الدخول كما طلبت سابقا

02- جعل الفورم الخاص بتدوين المعطيات لمستخدم جديد فعالة وشغالة حيث أنه وبمجرد تدوينك للمعلومات تسجل تلقائيا في الشيت المخصص لذلك الغرض

03- انشاء زر أو فورم خاص بتعديل البيانات والبحث في نفس الوقت نظرا لحدوث المتغيرات للموضف بصفة دائمة

04- باب الإجتهاد مفتوح للأحبة المبدعين للتطوير والتحسين وأجرهم على الله وعملهم مخلد لإذنه تعالى

تطبيقية تسيير شؤون العمال الإصدار 0.01.rar

[طارق محمود]

السلام عليكم

أخي مراد

طلباتك طويلة وتحتاج وقت

تعال خطوة بخطوة

أولا

تعديل الفورم الخاص بكلمة الدخول او السر لأنها غير مأمنة 100/100 حيث أنه يمكنك الدخول للبرنامج بمجرد الضغط على زر (x) الكلاوز في الفورم

وجدت لك كود منقول من أعمال أحد الإخوة في المنتدي لاأذكر من بالتحديد

تفضل

في محرر الفيجوال بيزيك

إضغط علي الفورم welcom

واستبدل أكوادها بالتالي

الجزء الأول تعريفات لمتغيرات ودوال سيتم استخدامها بالفورم

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

Const GWL_STYLE = -16

Const WS_CAPTION = &HC00000

Const WS_SYSMENU = &H80000

Private Const GWL_EXSTYLE = (-20)

Private Const WS_EX_LAYERED = &H80000

Private Const LWA_ALPHA = &H2

Dim hWnd As Long





Private Sub CommandButton1_Click()

If TextBox1.Value = 123 Then Unload Me: Exit Sub

TextBox1.Value = ""

TextBox1.SetFocus

End Sub





Private Sub UserForm_Initialize()

 TextBox1.SetFocus

	Dim lngWindow As Long, lFrmHdl As Long

	lFrmHdl = FindWindow(vbNullString, Me.Caption)

	lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)

	lngWindow = lngWindow And (Not WS_CAPTION)

	Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)

	Call DrawMenuBar(lFrmHdl)

End Sub

تم تعديل ديسمبر 13, 2010 بواسطه TareQ M

[MOURADIYAT]

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

أسعد الله مسائك ـخي الكريم

شكرا على إهتمامك وردك وأنا آسف على إزعاجك بطلباتي الكثيرة والمملة

لقد قمت بتجريب هذا الكود ولكنه لم يفلح

أرجو الإفادة وشكرا

[طارق محمود]

السلام عليكم

أخي الكريم

لاإزعاج ولاشيء

مرفق الملف وبه الكود شغال

لظروف سأكون ولمدة شهر قادم قليل جدا في الدخول عالإنترنت

معذرة

أرجو أن يتابع احد الإخوة الموضوع معك

تطبيقية تسيير شؤون العمال 2.rar

[MOURADIYAT]

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

أسعد الله مساء أخي الكريم المبدع ومساء كل الأحبة متتبعي ومنتسبي هذا الموقع والفضاء المميز الذي حقا يستحق الشكر والثناء

أحببت أن أتقدم بتشكراتي الخالصة على مجهودك الجبار وتميزك وانشغالك بحل معضلات المحتاجين

أدامك الله لأهلك وننتظر عودتك المحمودة بإذن الله تعالى

شكرا لك