logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
abdelmoniem ismail لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة توزيع المعلمين في جدول الحصص حسب النصاب بشروط اكسيل مشاريع جاهزه



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





29-08-2017 12:35 مساءً
بسم الله الرحمن الرحيم
اليوم سنشرح عمل شاشة دخول ولكن
باسم مستخدم وكلمة مرور
بسم الله نبدأ
بالشكل الموضح يوجد
المشار لهم بالسهم الأخضر 7 label
السهم الأحمر 1 textbox
السهم الأسود 1 combobox
وزر دخول وزر خروج
وطبعا اتنين image لشعار الشركة
MTI1NTIzMQ92921
بعد تصميم نفس الشكل السابق
نقوم بعمل شيت جديد اسمه users
MTkxNzAx2
ODgzNDYx3
كما بالصورة
بعد تسمية الشيت وخصوصا برمجيا مثل التحديد الأحمر
نضيف البيانات كالأتي
MTQyNDkyMQ444
نيجي بقي للاكواد
اولا كما تعلمنا في الدرس السابق نقوم بوضع هذه الاكواد في اليوزرفورم


في general))
[p]
CODE
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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
</pre>


في حدث تهيئة الفورم

[p]
CODE
Private Sub UserForm_Initialize()
&nbsp; &nbsp; Dim lngWindow As Long, lFrmHdl As Long
&nbsp; &nbsp; lFrmHdl = FindWindow(vbNullString, Me.Caption)
&nbsp; &nbsp; lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
&nbsp; &nbsp; lngWindow = lngWindow And (Not WS_CAPTION)
&nbsp; &nbsp; Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
&nbsp; &nbsp; Call DrawMenuBar(lFrmHdl)
End Sub
</pre>
في حدث الاغلاق

[p]
CODE
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If unloadmode = vbFormControlMenu Then
Cancel = True
MsgBox &quot;غير مسموح&quot;
End If
End Sub
</pre>


اما في حدث تنشيط الفورم فنقوم باضافة اكواد ربط الليبل الخاصة ببيانات الشركة بالخلايا التي تحتوي علي البيانات

[p]
CODE
Private Sub UserForm_Activate()
Application.WindowState = xlMaximized
Application.Visible = False
Label1.Caption = users.[e1]
Label2.Caption = users.[e2]
Label3.Caption = users.[e3]
&nbsp; With Me
&nbsp;.Height = Application.Height
&nbsp;.Width = Application.Width
&nbsp;.Left = Application.Left
&nbsp;.Top = Application.Top
&nbsp;End With
End Sub
</pre>


وفي زر الخروج

[p]
CODE
Private Sub CommandButton2_Click()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
</pre>
تبقي لنا الكود الاهم
وهو زر الادخال

[p]
CODE
Private Sub CommandButton1_Click()
On Error GoTo 86
If Application.WorksheetFunction.VLookup(ComboBox1.Value, users.Range("a2:l0"), 2, 0) = TextBox1.Text Then
Me.Hide
Application.Visible = True
MsgBox ComboBox1.Value & " مرحبا بك/   ", , "elmalak_elhazen_yasser@yahoo.com"
 Else
86
Label7= Label7+ 1
MsgBox " لقد استخدمت  " & Label7 & " محاولة من اصل  5  محاولات" ,vbCritical, "elmalak_elhazen_yasser@yahoo.com"
If Label7= 5 Then
MsgBox "لقد استنفذت جميع المحاولات"
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End If
End Sub
</pre>
استخدمنا هنا دالة vlookup للبحث والمقارنة عن المستخدم وكلمة المرور
ان لم يحقق الشرط يتم التحويل الى عدد المحاولات ومنها الى اغلاق البرنامج

وطبعا زي كل مره ننسى نحط كود في حدث فتح الملف

[p]
CODE
Private Sub Workbook_Open()
 Userform1.Show   
End Sub
</pre>


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

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

المرفقات بها شاشة الدخول مع صلاحيات بأكتر من شكل
attachصلاحيات.rar
attachصلاحيات - Copy.rar
 
 
  صلاحيات.rar   تحميل rar مرات التحميل :(202)
الحجم :(43.313) KB
  صلاحيات - Copy.rar   تحميل rar مرات التحميل :(142)
الحجم :(55.2) KB




توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
  29-08-2017 02:48 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس :
الدعوات : 21
قوة السمعة : 20034
الاعجاب : 12
موقعي : زيارة موقعي

رائع يا عربى
تسلم على الموضوع الجميل ده




توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
  29-08-2017 03:25 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
بارك الله فيك وجزاك الله خيراً أخي الغالي ياسر العربي




look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
  29-08-2017 03:32 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
حبايبي الغاليين
حسام باشا 121 ياسر بيه

تحياتي لكم
11358113



توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
  07-09-2017 07:58 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 229
المشاركات : 36
الجنس :
تاريخ الميلاد : 1-1-1988
قوة السمعة : 46
الاعجاب : 0
السلام عليكم
كثير ما أجدك تستخدم هذه الأكواد
( <code>Private Declare Function FindWindow Lib </code><code>"User32"</code> <code>Alias </code><code>"FindWindowA"</code> <code>(ByVal lpClassName As String, ByVal lpWindowName As String) As Long</code>
<code>Private Declare Function GetWindowLong Lib </code><code>"User32"</code> <code>Alias </code><code>"GetWindowLongA"</code> <code>(ByVal hWnd As Long, ByVal nIndex As Long) As Long</code>
<code>Private Declare Function SetWindowLong Lib </code><code>"User32"</code> <code>Alias </code><code>"SetWindowLongA"</code> <code>(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long</code>
<code>Private Declare Function DrawMenuBar Lib </code><code>"User32"</code> <code>(ByVal hWnd As Long) As Long</code>
<code>Const GWL_STYLE = -16</code>
<code>Const WS_CAPTION = &HC00000</code>
<code>Const WS_SYSMENU = &H80000</code>
<code>ولكن لا أعرف ما هي الفائدة منها فما هي فائدته ؟
بعض الأسطر تظر بالون الأحمر داخل محرر الأكواد دليل على ان بها خطأ فما هو ؟
وجزاكم الله خيرا </code>




look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
  07-09-2017 08:17 صباحاً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
أخي الكريم أحمد سيف
أهلاً بك في المنتدى
هذه الأسطر عبارة عن أكواد API وهنا يتم استخدامها لتكبير الفورم على سبيل المثال ليملأ الشاشة ويزيل شريط العنوان الخاص بالفورم
وطالما ظهرت باللون الأحمر فمعنى ذلك أنك تستخدم أوفيس 64 بت وليس 32 بت لذا لابد من تحويل هذه الأسطر لتعمل على 64 بت وهذا يحتاج لجهاز منصب عليه 64 بت للتجربة




look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
  10-12-2018 12:53 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-11-2018
رقم العضوية : 9298
المشاركات : 119
الجنس :
تاريخ الميلاد : 27-6-1985
قوة السمعة : 110
الاعجاب : 0
بارك الله فيك




look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
  31-12-2018 01:34 صباحاً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 31-12-2018
رقم العضوية : 10685
المشاركات : 12
الجنس :
تاريخ الميلاد : 9-12-1974
قوة السمعة : 10
الاعجاب : 0
جميل جدا بارك الله فيك يا أخي




look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
  31-12-2018 07:00 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-12-2018
رقم العضوية : 10505
المشاركات : 18
الجنس :
تاريخ الميلاد : 14-1-1970
قوة السمعة : 21
الاعجاب : 0
عمل رائع




look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
  02-01-2019 02:37 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 02-01-2019
رقم العضوية : 10762
المشاركات : 9
الجنس :
تاريخ الميلاد : 1-1-1984
قوة السمعة : 18
الاعجاب : 0
بارك الله فيك




look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
  07-01-2019 06:35 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 07-01-2019
رقم العضوية : 10866
المشاركات : 6
الجنس :
تاريخ الميلاد : 18-3-1987
قوة السمعة : 12
الاعجاب : 0

رائع يا عربى
تسلم على الموضوع الجميل ده





look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
  08-01-2019 12:19 صباحاً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-04-2018
رقم العضوية : 5680
المشاركات : 9
الجنس :
تاريخ الميلاد : 17-5-1977
قوة السمعة : 14
الاعجاب : 0
1111111111111111111111111111شكرا 1111111111111111111111111111




look/images/icons/i1.gif عمل شاشة دخول باسم مستخدم وكلمة مرور
  12-01-2019 05:19 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 31-12-2018
رقم العضوية : 10704
المشاركات : 182
الجنس :
تاريخ الميلاد : 3-3-1987
الإنذارات : 1
قوة السمعة : 78
الاعجاب : 0
رائع ماشاء الله




اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 3 < 1 2 3 >




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
برنامج شاشة الدخول مع صلاحيات حسين الحمادي
5 341 حسين الحمادي
اعمل شاشة دخول برنامجك بنفسك Yasser Elaraby
13 4494 حسين الحمادي
شرح كيفية عمل شاشة دخول للاكسل بصورة جمالية مجدى يونس
2 1285 مجدى يونس
ضبط كود شاشة دخول بعدة مستخدمين مهند محسن
7 2157 YasserKhalil
طلب عمل شاشة دخول بكلمة المرور اباالياس
5 1663 اباالياس

الكلمات الدلالية
شاشة ، دخول ، باسم ، مستخدم ، وكلمة ، مرور ،









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

الساعة الآن 04:29 PM