سورس کدهای ویژوال بیسیک - فرم MDI و نوار وضعیت (بانک اطلاعاتی-4)

سلام به همه ی دوستانی که مباحث بانک اطلاعاتی را تا به اینجا دنبال کرده اند.مباحث مقدماتی در رابطه با طراحی بانک اطلاعاتی به طور کامل شرح داده شد.چون پروژه ی نسبتاَ سنگینی خواهد شد از این به بعد مباحث پست طولانی تر خواهد شد.(افراد مشتاق مسلماَ خسته نخواهند شد)

ویژوال بیسیک را اجرا و گزینه ی Project>Add MDI Form را انتخاب کنید.این فرم اصلی برنامه ی ما هست و مانند ظرفی بزرگ تمامی فرم ها را داخل خود جای می دهد.

خصوصیات فرم MDI:

Name: MdiFrmMain (حتما همین نام باشد)

Caption: نرم افزار مشاور املاک 1.0

Icon: برنامه بدون آیکان برای هیچ کاربری جذاب نیست؛پس دست به کارشوید.

Picture: عکس پس زمینه برنامه (می توانید از این عکس استفاده کنید. لینک عکس)

Window State: 2-Maximized (برنامه تمام صفحه اجرا شود)

می خواهیم برنامه دارای Statusbar(نوار وضعیت) ؛Toolbar(نوار ابزار) و همچنین Tabstrip (تب های چند گانه در تنظیمات برنامه) باشد.

ابتدا CTRL+T را فشار دهید تا کادر Component ظاهر شود حال گزینه ی Microsoft Common Control 6.0 را انتخاب و OK کنید.9 کنترل به برنامه افزوده خواهد شد.کنترل Statusbar را به برنامه بیافزائید و خاصیت Name آن را به stbMDI تغییر دهید.

کنترل را انتخاب کنید و در قسمت Properties روی دکمه ی سمت راست خاصیت Custom کلیک کنید تا کادر Property Pages ظاهر شود به برگه ی Panels بروید در قسمت Text وارد کنید:

جهت کمک و پشتیبانی دکمه ی F1 را بزنید و خاصیت Autosize در همین کادر را به 1-sbrSpring تغییر دهید تا پانل جاری کل نوار وضعیت را بپوشاند.به برگه ی Font بروید و نوع فونت را در قسمت Font به Arial(Arabic) تغییر دهید و Apply را فشار دهید تا متن را در قسمت نوار وضعیت مشاهده کنید.

در همین کادر در برگه ی Panels روی دکمه ی Insert Panel کلیک کنید یک پانل دیگر با اندیس 2 افزوده خواهد شد.در قسمت Index عدد 2 را تایپ کنید و در جعبه متنی دیگر کلیک کنید تا به پانل 2 بروید.خاصیت Autosize را به 1-sbrContent تغییر دهید و OK کنید.اکنون نوار وضعیت به دو بخش تقسیم شده است.می خواهیم در پانل سمت راست ساعت به نمایش در بیاید. اکنون یک Timer با نام TmrClock و Interval=1000 به برنامه بیافزائید.روی تایمر دو بار کلیک کنید تا حالت کدنویسی بیایدخط زیر را به برنامه بیافزائید:

stbMDI.Panels(2).Text=Time

حال در رویداد Load فرم اصلی (MDI Form) بنویسید:

Call TmrClock_Timer

*تابع Time: زمان جاری سیستم را برمی گرداند.

نکته مهم: اگر تابع را فراخوانی نکنید باز هم کار خواهد کرد ولی با 1 ثانیه تأخیر (امتحان کنید.)

پیشنهاد: اگر فونت ریز نوار وضعیت توی ذوق می زند در قسمت Custom نوار وضعیت وارد شوید و در برگه ی Font سایز مورد نظر را وارد کنید. (خصوصیات Bold,Italic,Underline و ...)

حال نیاز به یک فرم داریم تا در داخل آن بتوانیم قسمت: خانه؛باغ و ... را انتخاب کنیم. یک فرم با خصوصیات زیر طراحی کنید:

Name:frmTools

Borderstyle: 1-Fixed Single

Caption: مدیریت بخش ها

*MDI Child: True (اگر True نکنید در داخل پنجره ی MdiFrmMain باز نخواهد شد.)

ShowInTaskbar: False (عدم نمایش در نوار وظیفه)

Height: ارتفاع فرم را به 4380 تغییر دهید.(بر حسب Twips)

Width: پهنای فرم را به 2085 تغییر دهید.

جهت نمایش FrmTools در فرم اصلی برنامه کافی است در رویداد Load فرم MdiFrmMain بنویسید:

FrmTools.Show

در فرم FrmTools یک دکمه با نام CmdManage بیافزائید حال آن را کپی کنید و بر روی فرم Paste کنید از شما خواهد پرسید که آیا می خواهید آرایه ای از کنترل ها ایجاد کنید؟ در جواب بر روی Yes کلیک کنید و اینگونه دو دکمه دیگر بیافزائید. (جمعاَ 4 دکمه تحت یک نام با اندیس های متفاوت به برنامه افزوده شد.)

هر چهار دکمه را با هم انتخاب کنید و در قسمت Properties خاصیت Style را به Graphical-1 تغییر دهید. دکمه ها را از حالت انتخاب خارج کنید؛ حال Caption تمامی دکمه ها را خالی کنید تا بدون عنوان شوند. عکس های زیر را در رایانه تان ذخیره کنید. سپس در خاصیت Picture هر کدام از دکمه ها به ترتیب عکس های زیر راقرار دهید:

CmdChange(0): عکس خانه

CmdChange(1): عکس مغازه

CmdChange(2): عکس زمین

CmdChange(3): عکس باغ

نمای کلی برنامه