نویسنده : admin

براي هر عملي که ميخواهيم کاربر در برنامه ما انجام دهد مي بايست در هر رويداد کد خاصي را بنويسيم تا نسبت به رفتار خاصي پاسخگو باشيم اين رويدادها تعيين ميکنند که برنامه ما نسبت به چه اعمالي حساس باشد کليک کردن يا فشردن دکمه اي خاص .
عمل کليک : تو مثالهاي قبلي وقتي رو Command1 کليک ميکرديم يه عملي انجام ميشد چون ما تو رويداد کليک Command1 اون کدمون رو نوشتيم حالا اگه بخواهيم رويدادهاي ديگه اي هم هستن مثلا KeyDown ويا MouseMove و ... همه اينها بسته به نوعشون در مقابل رفتار کاربر عمل بخصوصي رو انجام ميدن حالا چند تا کد مينويسيم که با رويدادهاي مختلف آشنا بشيم :

- Mouse Move : زماني که ماوس رو باتن حرکت کنه Caption باتن عوض ميشه. . . .

برای مشاهده ادامه مطلب روی لینک زیر کلیک کنید :

ادامه مطلب

تشكرها از اين پست :

نویسنده : ara

سلام خسته نباشید افشین جان کارت حرف نداره سوال دارم
چطور به پایگاه داده من اتصال برقرار کنم و اطلاعات بفرستم و ادیت کنم ?
ممنون

تشكرها از اين پست :

نویسنده : admin

نقل قول از ara : سلام خسته نباشید افشین جان کارت حرف نداره سوال دارم چطور به پایگاه داده من اتصال برقرار کنم و اطلاعات بفرستم و ادیت کنم ? ممنون

سلام .
برای ارتباط با پایگاه داده در ویژوال بیسیک می توانیم از اشیائ مختلفی مانند ADODC ، Data و ... استفاده کنیم که به نظر من استفاده از شی Data آسان ترین روش است . ابتدا یک شی Data از جعبه ابزار اضافه کرده و سپس خاصیت DatabaseName آن را برابر آدرس بانک اطلاعاتی مورد نظر قرار می دهیم . البته چنانکه می خواهید بانک اطلاعاتی در همان پوشه قرار گیرد مسیر بانک اطلاعاتی لازم نیست و فقط نام و پسوند آن کافی است به عنوان مثال : mybank.mdb که یک بانک اطلاعاتی Access می باشد و در داخل پوشه برنامه قرار دارد .
حال خاصیت Recordsource شی Data را برابر نام جدول مورد نظر قرار داده و اتصال با جدول بانک اطلاعاتی برقرار می شود .
حال برای هر فیلد بنابر مورد استفاده یک شی مانند TextBox قرار داده و چنانکه خاصیت Datasource آن را برابر شی Data قرار داده و DataField را به فیلد مورد نظر تغیر دهیم اطلاعات موجود در آن فیلد بانک اطلاعاتی در هنگام اجرای برنامه در داخل Textbox قرار می گیرد . شما می توانید برای تمامی فیلدها یک TextBox قرار داده یا بنابر نوع فیلد می توانید از Radio Button و ... استفاده کنید .
برای اضافه کردن یک رکورد جدید به بانک اطلاعاتی از دستور زیر استفاده می کنیم :

Data1.Recordset.Addnew

که به این ترتیب TextBox خالی شده و آماده دریافت اطلاعات موجود به رکورد جدیدی که می خواهید استفاده کنید می باشد . حال اطلاعات را وارد کرده و با دستور زیر بانک اطلاعاتی به روز رسانی یا Update می شود :

Data1.Recordset.Update

امیدوارم که توضیحات داده شده کافی باشد . موفق باشید .

تشكرها از اين پست :

نویسنده : ara

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

تشكرها از اين پست :

نویسنده : admin

نقل قول از ara : اتصال به اکسس از طریق کد هم دیدم من می شه بعد اگر بر روی پایگاه داده پسورد بگذاریم باز هم می شه متصل شد یا که ... سوال بعدی اینکه اگر ما یه تکست باکس را خالی بگذاریم به ما ارور ندهد منظورم اینکه شرط نگذاریم که خالی نباشه فقط بیاد تکست باکس رنگ زد شود این کد رو لازم دارم واقعا ممنون

سلام .
امیدوارم جوابهایی که میدم نیازتون رو رفع کنه :

سوال اول :
ارتباط با بانک اطلاعاتی از طریق کد هم تا اونجایی که من اطلاع دارم میشه ، البته کار نسبتا سخت تریه و فکر نکنم لزوم داشته باشه از آن استفاده کنیم . اگر مایلید این روش را یاد بگیرید می توانید از کتاب زیر استفاده کنید :
آموزش گام به گام ویژوال بیسیک
تالیف : مهندس عین الله جعفر نژاد قمی و مهندس رمضان عباس نژاد
انتشارات علوم رایانه

سوال دوم :
در مورد پسورد گذاشتن روی بانک اطلاعاتی باید بگم با شی Data هیچوقت امتحان نکردم که اتصال برقرار میشه یا نه ولی با شی ADODC وقتی بر روی بانک اطلاعاتی پسورد گذاشته باشیم می تونیم همون پسورد را در خاصیت Password مربوط به شی ADODC بنویسیم . به این ترتیب اتصال با بانک اطلاعاتی برقرار میشه .

سوال سوم :
برای اینکه این کار را انجام دهیم می توانیم از رویداد Change مربوط به تکست باکسها استفاده کنیم . مثلا می توانیم به طور پیش فرض Backcolor تکست باکسها را زرد رنگ بگذاریم و در رویداد Change هر یک ازتکست باکسها دستورات زیر را بنویسیم :

Private Sub Text1_Change() If Len(Text1.Text) > 0 Then Text1.BackColor = vbWhite Else Text1.BackColor = vbYellow End If End Sub
به این ترتیب اگر در داخل تکست باکس چیزی نوشته باشیم رنگ زمینه آن سفید و اگر خالی باشد رنگ زمینه آن زرد می شود . امیدوارم منظور شما را درست فهمیده باشم .

تشكرها از اين پست :