ایجاد فرم ورود به صفحه اصلی کتابخانه

[MINAMINAMINAM]

سلــــآم

من یه راهنمایی میخواستم ...

میشه بهم بگید که چجوری میتونم در اکسس 2010 یه فرمی بسازم که کاربر با وارد کردن نام کاربری و رمز ، بتونه وارد صفحه ی اصلی کتابخانه بشه؟

خواهش میکنم راهنماییم کنید ، برای پروژه ی دانشگاهم میخوام :ناراحت::ناراحت:

[mahdytaherian]

از نمونه زير ميتوني استفاده كني

[MINAMINAMINAM]

ممنون از مثالی که گذاشتید. ولی میشه یه توضیح در موردش بدید؟؟ آخه من تجربه ای در کد نویسی اکسس ندارم...

[mahdytaherian]

با سلام
در نمونه فوق يك جدول داريم كه اطلاعات يوزر و پسورد را نگه ميدارد و در فرم ورود با گرفتن يك يوزر و پسورد آن را با جدول مربوطه چك ميكند
Dim Rs2 As Recordset
Dim db2 As Database
Dim Rs1 As Recordset

Set Rs1 = Me.Recordset.Clone
Rs1.FindFirst "[user1] = '" & Me![Text1] & "'"
If Not Rs1.EOF Then
Me.Bookmark = Rs1.Bookmark
End If

در صورت صحت اطلاعات وارده عمليات ورود را در يك جدول ديگه ثبت ميكند

[If Rs1![user1] = Text1 And Rs1![Pass] = Text2 Then

Set db2 = CurrentDb
Set Rs2 = db2.OpenRecordset("TbHistory")
Rs2.AddNew
Rs2.Fields("user1").Value = Me.Text1
Rs2.Fields("time").Value = Now()
Rs2.Fields("date").Value = f_date(Now())
Rs2.Fields("action").Value = "ورود با موفقيت"
Rs2.Update]

بعد از اين مرحله در صورتيكه كد ورود برابر 111 باشد پيامي صادر مي شود

"رمزي كه وارد كرده ايد رمز موقت شماست لطفا پس از ورود رمز خود را عوض كنيد"

در پايان فرم رمز بسته شده و فرم اصلي باز مي شود

[DoCmd.Close acForm, "Login"
DoCmd.OpenForm "home1"]

در فرم اصلي دو تا تكس باكس وجود دارد به نام هاي Check و user1 كه يكي برابر نام يوزر user1 و يكي برابر شماره رديف يوزر در جدول يوزر و پسورد قرار ميگيرد Check و شما با ورود به صفحه اصلي نام كاربر را در زير صفحه مي بينيد
[Forms![Home1]![Check] = Rs1![Check]
Forms![Home1]![user1] = Rs1![user1]]
در صورتي كه اطلاعات يوزر و پسورد وارده اشتباه باشند پيامي بر اشتباه بودن اطلاعات صادر مي شود.

در اين نمونه فرم ورود به نام home1 ميباشد شما يا همين فرم را ويرايش كنيد يا در كد بالا نام فرم اصلي خود تان را قرار دهيد.
كد هاي فوق در دكمه ورود فرم Login مي باشد .
با نگه داشتن دكمه شيفت وارد برنامه بشويد.

[MINAMINAMINAM]

توضیحاتتون کامل بود ولی جواب نداد!

عکس زیر محیط سیستمی ست که درست کردم. با توجه به این عکس کسی می تونه برام کدش رو بنویسه؟؟

98344

[MINAMINAMINAM]

لطفــــــــــــــــــــــ ـــــا ! :گریه:

[bemilove]

اين يك نمونه است.براي آفيس 2007 .... ولي براي 2010 امتحان نكردم!!
1- رمز مدير 123 است
2- مي توني كاربر و يوزر پسورد براش تعريف كني
3- تاريخچه ورود كاربران در تيبلي (t_userlogin) ذخيره ميشه.
4- شما بايد در كد بجاي (f_main) .... نام فرم اصلي كتابخانه قرار دهيد

[MINAMINAMINAM]

ممنونم :لبخندساده:

[mahdytaherian]

با سلام
ببخشيد كه دير جواب ميدم
جهت اينكه هميشه بتوانيد خودتان براي برنامه هاتان همچنين فرم هايي بسازيد مثال ساده اي را مطرح ميكنم كه نياز به كد نويسي زيادي ندارد و فقط يك رمز ورود و يك
يوزرنم نياز دارد البته اگه نخواهيد سطح دسترسي ايجاد كنيد.
با اين حساب
1_ يك جدول با دوفيلد يوزرنم و پسورد ايجاد كنيد(داده از نوع text باشد)
2_فرمي از اين جدول ايجاد كنيد
3_در اين فرم علاوه بر تكس باكس هاي موجود 2 تكس باكس خودتان ايجاد كنيد
4_دو دكمه با عنوان هاي ورود و انصراف نيز ايجاد كنيد
5_كد هاي زير را براي دكمه ورود در خاصيت on click آن بنويسيد
[If Me.Text4.Value = Me.user.Value And Me.Text6.Value = Me.pass.Value Then
DoCmd.Close
DoCmd.OpenForm "frmbook"
Else
MsgBox "نام كاربري يا رمز اشتباه ميباشد لطفا نام كاربري يا رمزتان را برسي كنيد", vbExclamation + vbMsgBoxRight, "خطا"
Me.Text4.SetFocus
End If]
اين كد مقادي تكس باكس ها را با يوزر و رمزتان مطابقت ميدهد در صورت صحت وارد فرم frmbook ميشود
6_ خاصيت visible دو تكس user و pass را no قرار دهيد(راست كليك properties در تب format )
7_ براي دكمه انصراف نيز كد زيرا بنويسيد
DoCmd.Quit

اين نمونه كوچك براي شروع مناسب ميباشد ميتوانيد فقط يك فيلد داشته باشيد كه رمز ورود بخواهد
در صورت تكامل بهتر برنامه يا اشنايي بيشتر كد نويسي ميتوني از نمونه با لا استفاده كنيد
نمونه زير مطابق مراحل فوق تهيه شده
اميدوارم مفيد باشد
user=mahdy
pass=123