سورس یک برنامه چاپ فاکتور

[alifa135]

سلام دوستان من یه برنامه دارم می نویسم که یک فاکتور با شماره فاکتور و نام مشتری و اقلامی که خریده رو چاپ کنه . دیتا بیس شو طراحی کردم ...
منتها تو وی بی چند تا مشکل دارم
1. تو پیمایش رکوردها (از ADO استفاده کردم)
2.هنگامی که new می زنم می خوام شماره فاکتور یکی اضافه بشه

فعلا تا اینجا هنگ کردم ...
کسی هست که یه سورس واسم معرفی کنه یا بهم ایمیل کنه (alifa135@gmail.com) ممنون

[hrj1981]

هنگامي كه دستور ايجاد ركورد جديد مي دهي اول به ADO بگو به آخرين ركورد برود و سپس يك ركورد ايجاد كن.
شرط 1 - فيلد شماره ركورد شما از نوع عددي باشد.
شرط 2-ADO شما بر اساس همين فيلد سورت شده باشد.

[alifa135]

می خوام وقتی تو ADO یه رکورد جدید تعریف کنم باتون Pervious یا Next رو که می زنی DEBUG Error میده !
چه راه حلی پیشنهاد می کنید ؟؟؟:متفکر:

[hrj1981]

من براي برنامه هاي خودم يك كلاس نوشته ام كه مسئوليت نويگيتور ركوردها را به برعهده مي گيره (البته براي كنترل ADODC) اگر به كارتان مي آيد اعلام بفرماييد تا ضميمه كنم

[alifa135]

جناب Hrj خیلی خیلی ممنون می شم اگه بهم برسونی ...

[hrj1981]

شرمنده كمي دير شد،اينترنتم قطع شده بود.
اينم class مورد نظر
هر جا خواستي به خواص كلاس دسترسي پيدا كنيد ابتدا يك متغيير از كلاس تعريف نماييد

Dim ADC As New Navi


سپس رويداد ADC متغيير را به كنترل ADODC مورد نظر خود SET نماييد

Set ADC.ADC = Adodc1


اكنون براي مديريت ركوردهاي خود مي توانيد 5 كليد بر روي فرم قرار دهيد و در رويداد كليك آنها
خواص كلاس را فراخواني نماييد.
براي ارجاع به اولين ركورد : ADC.RC_First
براي ارجاع به ركورد بعدي : ADC.RC_Next
براي ارجاع به ركورد قبلي : ADC.RC_Prv
براي ارجاع به آخرين ركورد :ADC.RC_END
براي به روز رساني ADODC : ADC.RC_REF

ضمنا اين كلاس OpenSource بوده و هم مي توانيد به آن قابليتهاي جديد اضافه كنيد و يا نام رويدادهاي آن را تغيير دهيد.

موفق باشيد

[alifa135]

ممنون از این کلاس ولی من بیشتر مدنظرم متدهای addnew و Save بود و اینکه یه سری کد استاندارد باشه که از امکان بروز ارور تو برنامه جلوگیری کنه ... مثلا ما addnew رو می زنیم (قبل از ورود داده)اگه تو این هنگام دوباره addnew یا save یا next رو بزنیم با debug مواجه می شیم .
دوستان لطفا راهنمایی بفرمایید
ممنون می شم