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

سلام

این تأخیر من را بعد از امتحانات دانشگاه عفو کنید درگیر یک پروژه برای شرکت خدماتی در قزوین هستم و روی آن دارم کار می کنم در هر صورت بریم سراغ برنامه نویسی مشاور املاک.

ابتدا بیائید برای زمین برنامه نویسی کنیم یک فرم با نام FrmEarthAdd به برنامه اضافه کنید.

خصوصیات فرم:

Name: FrmEarthAdd

Border Style: 3-Fixed Dialog

افزودن اطلاعات زمین Caption:

MDIChild: True

حال روی دکمه ی CmdManage در برنامه اصلی کلیک کنید و کد زیر را وارد کنید:

Select Case Index

:Case 0

Load FrmEarthAdd

End Select

در رویداد Load فرم FrmEarthAdd کد زیر را برای قرار گیری فرم در وسط صفحه وارد کنید:

(Me.Top = (Screen.Height / 2) - (Me.Height / 2

(Me.Left = (Screen.Width / 2) - (Me.Width / 2

در فرم FrmEarthAdd یک شئ از عنصر Data بر روی فرم قرار دهید.

خصوصیات Data1:

مسیر بانک اطلاعاتیDataBase Name:

RecordSource: Earth

اکنون با جدول Earth از بانک اطلاعاتی اکسس ارتباط برقرار کردیم

یک جعبه متن با نام txtEarth بر روی فرم قرار دهید و خاصیت DataSource را Data1 و خاصیت DataField آن را یکی از فیلدهای جدول بکنید. به همین ترتیب برای هر فیلد جدول یک جعبه متن قرار دهید و مانند بالا عمل کنید (خاصیت DataField جعبه متن بعدی را فیلد بعدی جدول کنید.)

یک دکمه با Caption "افزودن" بر روی فرم قرار دهید و در رویداد کلیک آن کد زیر را وارد کنید:

data1.Recordset.AddNew

با این عمل یک رکورد جدید در جدول Earth ایجاد شده است. حال یک دکمه ی با Caption "به روز رسانی" بر روی فرم قرار بدهید.حال کد زیر را در رویداد کلیک دکمه قرار بدهید تا عملیات ثبت و بازسازی جدول قرار گیرد: Data1.recordset.Update

به همین راحتی...

برای تمامی جداول برنامه از قبیل خانه؛باغ؛مغازه همین کارها را انجام دهید.

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

مثلا یکی از خطاهای برنامه: اگر ابتدا روی دکمه ی "به روز رسانی" کلیک کنید خطای 3020 رخ خواهد داد برای جلوگیری از این مشکل خاصیتEnabled دکمه ی به روز رسانی را False کنید و زمانی که روی دکمه ی "افزودن" کلیک شد دکمه ی "به روزرسانی" فعال شود و دکمه ی "افزودن" غیرفعال شود.

مشکلی بود در خدمتیم....