انا عامل برنامج وحاب اعملة حمايه باسم مستخدم وكلمة مرور
بس يكون لعدة اشخاص وكل شخص له اسم المستخدم والرقم السري الخاص فيه
فا ضروري يتربط بالــ(Database)
وجالس ابحث عن الكود مش محصلة ليا 3 ايام
فا اللي عنده الكود يفيدني او برنامج شبيه له مفتوح المصدر وانا بطلع الاكواد
(13-11-15, 03:10 PM)mohammed bin ali كتب : السلام عليكم
كيف الحال ان شاء الله بخير
انا عامل برنامج وحاب اعملة حمايه باسم مستخدم وكلمة مرور
بس يكون لعدة اشخاص وكل شخص له اسم المستخدم والرقم السري الخاص فيه
فا ضروري يتربط بالــ(Database)
وجالس ابحث عن الكود مش محصلة ليا 3 ايام
فا اللي عنده الكود يفيدني او برنامج شبيه له مفتوح المصدر وانا بطلع الاكواد
وشاكر لكم مقدما
اخي العزيز
السلام عليكم ورحمة وبركاته
هذا مثال يمكن إضافة اكثر من مستخدم وكلمة ومرور
تحياتي
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
(13-11-15, 03:10 PM)mohammed bin ali كتب : السلام عليكم
كيف الحال ان شاء الله بخير
انا عامل برنامج وحاب اعملة حمايه باسم مستخدم وكلمة مرور
بس يكون لعدة اشخاص وكل شخص له اسم المستخدم والرقم السري الخاص فيه
فا ضروري يتربط بالــ(Database)
وجالس ابحث عن الكود مش محصلة ليا 3 ايام
فا اللي عنده الكود يفيدني او برنامج شبيه له مفتوح المصدر وانا بطلع الاكواد
وشاكر لكم مقدما
اخي العزيز
السلام عليكم ورحمة وبركاته
هذا مثال يمكن إضافة اكثر من مستخدم وكلمة ومرور
تحياتي
الله يعطيك العافيه اخي بس طلعتلي مشكله الي بالون الاحمر
Set DB = OpenDatabase(App.Path & "/a12.mdb", 2)
Set RS = DB.OpenRecordset("select * from jd1 Where Name='" & Trim(Text1.Text) & "' and password='" & Trim(Text2.Text) & "'", 2)
(13-11-15, 03:10 PM)mohammed bin ali كتب : السلام عليكم
كيف الحال ان شاء الله بخير
انا عامل برنامج وحاب اعملة حمايه باسم مستخدم وكلمة مرور
بس يكون لعدة اشخاص وكل شخص له اسم المستخدم والرقم السري الخاص فيه
فا ضروري يتربط بالــ(Database)
وجالس ابحث عن الكود مش محصلة ليا 3 ايام
فا اللي عنده الكود يفيدني او برنامج شبيه له مفتوح المصدر وانا بطلع الاكواد
وشاكر لكم مقدما
اخي العزيز
السلام عليكم ورحمة وبركاته
هذا مثال يمكن إضافة اكثر من مستخدم وكلمة ومرور
تحياتي
الله يعطيك العافيه اخي بس طلعتلي مشكله الي بالون الاحمر
Set DB = OpenDatabase(App.Path & "/a12.mdb", 2)
Set RS = DB.OpenRecordset("select * from jd1 Where Name='" & Trim(Text1.Text) & "' and password='" & Trim(Text2.Text) & "'", 2)