تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] طلب : كود استدعاء module في فورم معين
#1
كود       استدعاء module في فورم معين

هذا هو كود الموديول اريد استدعاؤه في فورم1




Public Sub user_IMG()
    dim db as database
dim rs2 as recordset

Set db = OpenDatabase("data.mdb")

Set rs2 = db.OpenRecordset("users")


    rs2.Index = ("username")
    rs2.Seek "=", frmLogin.lblUsername.Caption
    '-----------------------------------------------------------------------------------------

    If rs2("add") = 0 Then cmdAdd.Enabled = False: add.Enabled = False
    
    If rs2("edit") = 0 Then cmdEdit.Enabled = False: edi.Enabled = False

    If rs2("delete") = 0 Then cmdDelete.Enabled = False: del.Enabled = False

    If rs2("save") = 0 Then cmdGridView.Enabled = False: sav.Enabled = False
 
   If rs2("search") = 0 Then cmdSearCode.Enabled = False: sear.Enabled = False
   
    If rs2("explore") = 0 Then cmdPrint.Enabled = False: printisal.Enabled = False: isal.Enabled = False
    
If frmAdmin.lblAdmin.Caption = "123" Then
lblUsername.Caption = "Administrator"
ImageUser.Picture = LoadPicture(App.Path & "\images\hamada.jpg")
Else

    lblUsername.Caption = frmLogin.lblUsername.Caption
    '==================================
    ImageUser.Picture = LoadPicture(App.Path & "\images\" & (frmLogin.lblUsername.Caption) & ".jpg")
End If
Exit Sub

End Sub
Huh Huh Huh Huh Huh Huh Huh Huh Huh Huh Huh Huh 
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم
في حدث الفورم لود
Call user_IMG
الرد }}}
تم الشكر بواسطة: hamada salah90 , Ahmed_Mansoor , rnmr
#3
(22-09-15, 09:47 PM)Amir_alzubidy كتب : السلام عليكم
في حدث الفورم لود
Call user_IMG
استاذ امير وحشتنا والله

lblUsername.Caption = frmLogin.lblUsername.Caption

اريد جعل متغير في هذا الكود
وهذا المتغير X يعبر عن اسم الفورم
فيصبح
X.lblUsername.Caption = frmLogin.lblUsername.Caption

حيث ان X = "frmMain"
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة:
#4
أهلا أخي الكريم , إذا كان المتغير X دائماً تكون قيمتة frmMain فلا داعي له تستطيع وضع إسم الفورم frmMain بدلاً عنه , أما إذا كانت قيمته متغيره يعني ممكن تكون قيمته إسم فورم آخر , فعليك بإضافة باراميتر للإجراء بهذا الشكل :
كود :
Public Sub user_IMG(X as Form)
   dim db as database
dim rs2 as recordset

Set db = OpenDatabase("data.mdb")

Set rs2 = db.OpenRecordset("users")


   rs2.Index = ("username")
   rs2.Seek "=", frmLogin.lblUsername.Caption
   '-----------------------------------------------------------------------------------------

   If rs2("add") = 0 Then cmdAdd.Enabled = False: add.Enabled = False
   
   If rs2("edit") = 0 Then cmdEdit.Enabled = False: edi.Enabled = False

   If rs2("delete") = 0 Then cmdDelete.Enabled = False: del.Enabled = False

   If rs2("save") = 0 Then cmdGridView.Enabled = False: sav.Enabled = False

  If rs2("search") = 0 Then cmdSearCode.Enabled = False: sear.Enabled = False
 
   If rs2("explore") = 0 Then cmdPrint.Enabled = False: printisal.Enabled = False: isal.Enabled = False
   
If frmAdmin.lblAdmin.Caption = "123" Then
lblUsername.Caption = "Administrator"
ImageUser.Picture = LoadPicture(App.Path & "\images\hamada.jpg")
Else

   X.lblUsername.Caption = frmLogin.lblUsername.Caption
   '==================================
   ImageUser.Picture = LoadPicture(App.Path & "\images\" & (frmLogin.lblUsername.Caption) & ".jpg")
End If
Exit Sub

End Sub
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , hamada salah90
#5
(23-09-15, 12:13 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم , إذا كان المتغير X دائماً تكون قيمتة frmMain فلا داعي له تستطيع وضع إسم الفورم frmMain بدلاً عنه , أما إذا كانت قيمته متغيره يعني ممكن تكون قيمته إسم فورم آخر , فعليك بإضافة باراميتر للإجراء بهذا الشكل :
كود :
Public Sub user_IMG(X as Form)
   dim db as database
dim rs2 as recordset

Set db = OpenDatabase("data.mdb")

Set rs2 = db.OpenRecordset("users")


   rs2.Index = ("username")
   rs2.Seek "=", frmLogin.lblUsername.Caption
   '-----------------------------------------------------------------------------------------

   If rs2("add") = 0 Then cmdAdd.Enabled = False: add.Enabled = False
   
   If rs2("edit") = 0 Then cmdEdit.Enabled = False: edi.Enabled = False

   If rs2("delete") = 0 Then cmdDelete.Enabled = False: del.Enabled = False

   If rs2("save") = 0 Then cmdGridView.Enabled = False: sav.Enabled = False

  If rs2("search") = 0 Then cmdSearCode.Enabled = False: sear.Enabled = False
 
   If rs2("explore") = 0 Then cmdPrint.Enabled = False: printisal.Enabled = False: isal.Enabled = False
   
If frmAdmin.lblAdmin.Caption = "123" Then
lblUsername.Caption = "Administrator"
ImageUser.Picture = LoadPicture(App.Path & "\images\hamada.jpg")
Else

   X.lblUsername.Caption = frmLogin.lblUsername.Caption
   '==================================
   ImageUser.Picture = LoadPicture(App.Path & "\images\" & (frmLogin.lblUsername.Caption) & ".jpg")
End If
Exit Sub

End Sub

شكراااااااااااااااااااااااااااااا

شكراااااااااااااا
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] طلب : كود عرض نص معين من قاعدة البيانات وعرضه في label في داتا ريبورت hamada salah90 3 1,561 26-07-21, 06:43 PM
آخر رد: hamada salah90
Lightbulb [سؤال] كيفية إيجاد (رقم معين) بعد عدة فواصل محددة أبو خالد الشكري 2 1,529 04-02-21, 02:23 AM
آخر رد: أبو خالد الشكري
  حظر حذف رمز معين داخل مربع النص text hannileo 3 1,964 20-04-20, 01:04 AM
آخر رد: مصمم هاوي
  الطباعة حسب مقاس معين الحزين اوى 2 1,841 05-02-20, 01:30 PM
آخر رد: الحزين اوى
  تصدير عمود معين حامد محمد 3 2,314 06-03-19, 01:17 AM
آخر رد: Amir_Alzubidy
  [vb6.0] كيفية اختيار حقول معينة من جدول معين ووضعها في الفلكس قريد من خلال تحكم المستخدم في ا mustafa mohamed 17 6,474 31-10-18, 12:54 AM
آخر رد: ابن دوعن
  معالج MDB Code Wizard v1.0.1 لتحويل قاعدة بيانات إلى Module Mohamad Anan 1 1,645 19-10-17, 10:37 PM
آخر رد: Amir_Alzubidy
  [سؤال] فورم 3 amer2000 20 6,560 07-06-16, 02:59 AM
آخر رد: عمور2016
  كيف يتم جمع وقت بترتيب معين ؟ gedo 5 2,743 04-06-16, 01:54 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] ارجو المساعدة في كود طباعة موظف معين صهيب محمد 5 3,131 19-12-15, 03:30 AM
آخر رد: awidan76

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم