چک کردن یوزر و پسورد

[saeed25]

با دروود
2بانک داده ای بوسیله SQL داریم و حال می خواهیم با استفاده از 2 فرم،به این 2 بانک دسترسی داشته باشیم به گونه ای که در فرم شماره 1،تاریمانیکه نام کاربری و گذر واژه درستی را برابر با آنچه که پیشتر در بانک داده ای ما ذخیره شده است،وارد ننماییم،امکان دسترسی به فرم دوم نباشد!
حال برای بررسی درستی یا نادرستی نام کاربری و گذرواژه ،از کدام دستور ها باید استفاده کرد؟>
سپاس

[MOJTABAATEFEH]

دوست عزيز براي اين كار يا يك adoquery به جدول پسورد متصل كن و به صورت زير چك كن



if (adoquery.fieldbyname('username').asstring=edit1.t ext) and (adoquery.fieldbyname('Password').asstring=edit2.t ext) then
دستورات

يا

adoquery.sql.clear;
adoquery.sql.text:='select count(*) as taeid from table1 where username='+quotedstr(edit1.text)+' and password='+quotedstr(edit2.text);
adoquery.open;

if adoquery.filedbyname('taeid').asinteger>0 then
دستورات



موفق باشي
كد دلفي :
http://www.mojtabaie.persianblog.ir

[saeed25]

با دروود
این کد هیچ کاری انجام نمی داد!!زمانی که این کد را در برنامه به کار بردم،هیچ رخدادی اتفاق نمی افتاد!!!

[master13111]

فرم1 كه براي كنترل يوزر پسورده، از يه طرف يه جدول هست كه كه يوزر و پسورد توشه، توي فرم1 دو تا اديت بذار، كه تو اوليش يوزر وارد ميشه تو دوميش پسورد. حالا وقتي طرف دكمه ورود رو ميزنه توي جدول دمبال اون يوزر بگرد با كد زير

mytable.open
mytable.locate('user';edit1.text;[])
حالا اگه يوزر رو پيدا نكرد كه هيچي ولي اگه پيدا كرد در واقع دستور ميشه اينجوري
if mytable.locate ('user';edit1.text;[]) then
if mytable.fieldbyname('pass').value=edit2.text then
form2.show

[drstrike]

حالا اگه یوزر رو پیدا نکرد که هیچی ولی اگه پیدا کرد در واقع دستور میشه اینجوری
if mytable.locate ('user';edit1.text;[]) then
if mytable.fieldbyname('pass').value=edit2.text then
form2.show
دوست عزیز این هم درست کار نمکینه!
خط اول توی فیلد یوزرها دنبال یوزر میگرده ،اگه پیدا کرد میاد خط بعد
توی خط دوم فقط اولین فیلد پسورد بررسی میشه! در صورتی که باید دنبال فیلد متناظر با یوزر پیدا شده باشه.
کسی میتونه با ADOtable این کد رو بنویسه؟ اصلا با ADOTable شدنیه یا باید با ADOQuery نوشت؟
اگه دوستان با ADOTable بلدن، ما رو هم بی بهره نذارن.(خیلی تو سایت سرچ کردم ولی پیدا نکردم).