ohdsati
پنج شنبه 06 خرداد 1395, 19:24 عصر
سلام.
من می خوام یک برنامه بنویسم که در پنجره اول باید ورود کنی و در تنظیمات هم بتوان نام کاربری و کلمه عبور رو تغییر داد.
حالا من دو فیلد با نام های usernames و passwords در تنظیمات و دو فیلد با نام های usernamel و passwordl در پنجره لوگین ساختم. نام پنجره لوگین Lts و پنجره تنظیمات sett هست. یک فیلد هم ساختم در صفحه لوگین که پشت عناصر گذاشتمش به نام Ltse. دو دکمه هم در صفحه لوگین گذاشتم به نام ورود و خروج.
حالا روش کارم اینه که :
با کلیک روی دکمه ورود:
1- اگر متن فیلد usernamel مطابق متن فیلد usernames بود مقدار متن Ltse را دو کن.
در غیر این صورت مقدار متن Ltse را یک کن
2- اگر متن فیلد passwordl مطابق متن فیلد passwords بود مقدار متن Ltse را به اضافه خودش کن. (دوبرابر کن)
در غیر این صورت مقدار متن Ltse را یک کن
3- اگر مقدار متن Ltse عدد 4 بود این پنجره را پنهان و پنجره تنظیمات را نشان بده.
در غیر این صورت مقدار متن usernamel و مقدار متن passwordl را پاک کن.
حالا قطعه کد مرحله 1 مگه قطعه زیر نیست؟ چون وقتی واردش می کنم ارور می دهد. و میگوید کلمه then اشتباه است!!!
if usernamel.Text := sett.usernames.Text then ltse.Text := '2'
else ltse.Text := '1'
من می خوام یک برنامه بنویسم که در پنجره اول باید ورود کنی و در تنظیمات هم بتوان نام کاربری و کلمه عبور رو تغییر داد.
حالا من دو فیلد با نام های usernames و passwords در تنظیمات و دو فیلد با نام های usernamel و passwordl در پنجره لوگین ساختم. نام پنجره لوگین Lts و پنجره تنظیمات sett هست. یک فیلد هم ساختم در صفحه لوگین که پشت عناصر گذاشتمش به نام Ltse. دو دکمه هم در صفحه لوگین گذاشتم به نام ورود و خروج.
حالا روش کارم اینه که :
با کلیک روی دکمه ورود:
1- اگر متن فیلد usernamel مطابق متن فیلد usernames بود مقدار متن Ltse را دو کن.
در غیر این صورت مقدار متن Ltse را یک کن
2- اگر متن فیلد passwordl مطابق متن فیلد passwords بود مقدار متن Ltse را به اضافه خودش کن. (دوبرابر کن)
در غیر این صورت مقدار متن Ltse را یک کن
3- اگر مقدار متن Ltse عدد 4 بود این پنجره را پنهان و پنجره تنظیمات را نشان بده.
در غیر این صورت مقدار متن usernamel و مقدار متن passwordl را پاک کن.
حالا قطعه کد مرحله 1 مگه قطعه زیر نیست؟ چون وقتی واردش می کنم ارور می دهد. و میگوید کلمه then اشتباه است!!!
if usernamel.Text := sett.usernames.Text then ltse.Text := '2'
else ltse.Text := '1'