PDA

View Full Version : سوال: ارتباط Textboxهای چند فرم با هم



Zeinab_liver
چهارشنبه 10 تیر 1388, 21:22 عصر
سلام
من چند تا فرم دارم که textboxهای همشون به Access وصله!
مخوام اگه کاربر تو فرم1 یوزر و پسوردشو وارد کنه و وارد بشه در بقیه فرم ها اطلاعات مربوط به اون کاربر در بعضی از textboxها نمایش داده بشه!
میشه کمکم کنید لطفا؟

saeedr22
چهارشنبه 10 تیر 1388, 21:56 عصر
دوست عزیز
اگر فرض کنیم که اسم فرم لوگین login هستش و می خواهیم که اطلاعاتشو تو mianform نشون بدیم باید به صورت زیر عمل کنیم

تو formload -----mainform کد پاین رو بنویس

label1.text=login.textbox1.text

Zeinab_liver
چهارشنبه 10 تیر 1388, 22:17 عصر
دوست عزیز
اگر فرض کنیم که اسم فرم لوگین login هستش و می خواهیم که اطلاعاتشو تو mianform نشون بدیم باید به صورت زیر عمل کنیم

تو formload -----mainform کد پاین رو بنویس

label1.text=login.textbox1.text

مرسی دوستم!
اما من می خوام با بانک اطلاعاتی کار کنم و اگه کاربر وارد سیستم بشه بقیه اطلاعاتش مثه اسم و فامیل و... در Main form داخل textbox ها نشون داده بشه!
میشه در این مورد راهنماییم کنی؟

saeedr22
چهارشنبه 10 تیر 1388, 22:46 عصر
ببینید ما معمولاً این کارو میکنیم که اول یه select انجام میدیم و نتیجه رو تویه یه datatable میریزیم و با اون چک می کنیم به این صورت که میگیم
if mydatatable.rows.count<>0 then
یعنی اینکه جستجوی ما نتیجه داره

مثلاً اگه فرض کنیم که جدول مربوط به useR چهار تا فیلد داره به نام های
Ulastname,Ufamily,uname,upass
اول
select *from usertbl where uname=textbox1.text and upasss =textbox2.text
بعد اینو با adapter فیل میکنیم تو datatable
یعنی اگه کاربری با اون پسورد باشه datatable ما مقدار داره
با if mydatatable.rows.count<>0 then معلوم میشه
بعد
4 تا متغیر تعریف می کنیم .
dim flastname as string
dim ffamily as string
dim funame as string
dim fpass as string



flastname=mydatable.rows(0).item(0)
ffamily=mydatable.rows(0).item(1)
funame=mydatable.rows(0).item(2)
fpass=mydatable.rows(0).item(3)



بعد اینا رو با همون روش اول که تو پاسخ قبلی گفتم پاس میدی به فرم های دیگه.