سورس کدهای ویژوال بیسیک - بانک اطلاعاتی-7

سلام به همه ی دوستانی که تا اینجا مطالب ما را دنبال کرده اند.در جلسات قبل طریقه ی ایجاد فرم های والد و فرزند و فرم افزودن ؛ فرم نمایش را یاد گرفتیم در این جلسه یاد میگیریم که چطور مطالب بانک اطلاعاتی را ویرایش و ذخیره کنیم.

یک فرم با مشخصات زیر به برنامه بیافزائید:

Name: FrmEditShop

BorderStyle: 3-Fixed Dialog

ControlBox: False

MDI Child: True

Right To Left: True

اکنون 9 جعبه متن (Textbox) تحت نام txtEditShop با ایندکس های متفاوت بر روی فرم قرار دهید(شرح آن گذشت) . خاصیت Locked همه ی جعبه متن ها را True کنید.

یک کنترل Data بر روی فرم قرار دهید و به طریقی که قبلا یاد گرفتید آن را با بانک اطلاعاتی و سپس جدول Shop مرتبط کنید. خاصیت DataSource تمامی جعبه متن ها را Data1 قرار دهید و هر جعبه متن را به طور جداگانه با فیلدهای جدول مرتبط کنید. به طور مثال برای مرتبط کردن txtEditShop(0) با فیلد Name جدول Shop کافی است پس از تنظیم DataSource خاصیت DataField را انتخاب و از منوی کشوئی آن Name را انتخاب کنید. برای هر جعبه متن یک LABEL با عنوان مرتبط قرار دهید. حال گزینه ای در MDI Main قرار دهید تا با کلیک آن فرم FrmEditShop نمایش داده شود.

سه دکمه بر روی فرم قرار دهید در رویداد Click دکمه یCommand3 بنویسید: Unload me

اگر یادتان باشد در فرم FrmHomeView گزینه هایی برای پیمایش جدول قرار دادیم. مانند همان را برای این فرم طراحی کنید. حال می خواهیم وقتی دکمه ی Command1 کلیک شد Locked همه ی جعبه متن ها False شود و فرم در حالت ویرایش قرار گیرد. در رویداد دکمه ی Command1 بنویسید:

For i=0 to 8

txtEditShop(i).Locked=False

Next i

Data1.recordset.Edit

به همین راحتی جدول Shop در حالت Edit قرار گرفت حال برای دکمه ی Command2 قرار دهید:

For i=0 to 8

txtEditShop(i).Locked=True

Next i

Data1.Recordset.Update

Unload Me

و به همین راحتی نیز فرم ما به روز رسانی شد.با دکمه های پیمایش به رکورد خاص بروید روی دکمه ی Command1 کلیک کنید مقادیر جعبه متن ها را تغییر دهید و روی دکمه ی Command2 کلیک کنید.راستی یادتان باشد جدول Shop بدون مقدار نباشد تا بتوانید مقادیر را ویرایش کنید.راستی اگر ابتدا روی دکمه ی 2 کلیک کنیم خطا رخ خواهد داد!!!! پست قبل یادتان هست؟؟؟ پس دست به کار شوید.

فرم های دیگر را هم همینگونه طراحی کنید. زیبائی برنامه شما دیگر به من ارتباط ندارد بلکه بستگی به سلیقه ی شما دارد.