دسته بندی محصولات

بخش همکاران

بلوک کد اختصاصی

پایان نامه بانک اطلاعاتی

دسته: کامپیوتر و IT
بازدید: 124 بار
فرمت فایل: doc
حجم فایل: 1139 کیلوبایت
تعداد صفحات فایل: 52

پایان نامه بانک اطلاعاتی دادِگان (پایگاه داده‌ها یا بانک اطلاعاتی) به مجموعه‌ای از اطلاعات با ساختار منظم و سامـانمند گـفته می‌شود این پایگاه‌های اطلاعاتی معمولاً در قالبی که برای دستگاه‌ها و رایانه‌ها قابل خواندن و قابل دسترسـی باشند ذخیــــره می‌شوند البته چنین شیوه ذخیره‌سازی اطلاعات تنها روش موجود نیست و شیوه‌هـای دیگری مانند ذخیره‌ســازی ساد

قیمت فایل فقط 2,600 تومان

بخش 1 : مقدمه

1-1 مقدمه ای بر بانک اطلاعاتی

دادِگان (پایگاه داده‌ها یا بانک اطلاعاتی) به مجموعه‌ای از اطلاعات با ساختار منظم و سامـانمند گـفته می‌شود. این پایگاه‌های اطلاعاتی معمولاً در قالبی که برای دستگاه‌ها و رایانه‌ها قابل خواندن و قابل دسترسـی باشند ذخیــــره می‌شوند. البته چنین شیوه ذخیره‌سازی اطلاعات تنها روش موجود نیست و شیوه‌هـای دیگری مانند ذخیره‌ســازی ساده در پرونده‌ها نیز استفاده می‌گردد. مسئله‌ای که ذخیره‌سازی داده‌هـا در دادگــان را موثر می‌ســازد وجود یک ساختار مفهومی است برای ذخیره‌سازی و روابط بین داده‌هااست.

پایگاه داده در اصل مجموعه‌ای سازمان یافته از اطلاعات است.این واژه از دانش رایانه سرچشمه می‌‌گیرد ،اما کاربر وسیع و عمومی نیز دارد، این وسعت به اندازه‌ای است که مرکز اروپایی پایگاه داده (که تعاریف خردمندانه‌ای برای پایگاه داده ایجاد می‌‌کند) شامل تعاریف غیر الکترونیکـی برای پایگاه داده می‌‌باشـد. در این نوشـتار به کاربرد های تکنیکی برای این اصطلاح محدود می‌‌شود.

یک تعریف ممکـن این اسـت کـه: پایگـاه داده مجموعـه‌ای از رکورد هـای ذخیره شـده در رایـانه بـا یک روش سیستماتیک (اصولی) مثل یک برنامه رایانه‌ای است که می‌‌تواند به سوالات کاربر پاسخ دهد. برای ذخیره و بازیابی بهتر، هر رکورد معمولا به صـورت مجموعه‌ای از اجـزای داده‌ای یا رویداد هـا سازماندهـی مـی‌‌گردد. بخش های بازیابی شده در هر پرسش به اطلاعاتی تبدیل می‌‌شود که برای اتخاذ یک تصمیـم کاربرد دارد. برنامـه رایانه‌ای که برای مدیریت و پرسش و پاسخ بین پایگاه‌های داده‌ای استفاده می‌‌شود را مدیـر سیستم پایگاه داده‌ای یا به اختصار (DBMS) می‌‌نامیم. خصوصیات و طراحی سیستم های پایگاه داده‌ای در علم اطلاعات مطالعه می‌‌شود.

مفهوم اصلی پایگاه داده این است که پایگاه داده مجموعه‌ای از رکورد ها یا تکه هایی از یک شناخت است.نوعا در یک پایگـاه داده توصیـف ساخـت یافته‌ای برای موجـودیت هـای نگـه داری شده در پایـگاه داده وجود دارد: این توصیف با یک الگو یا مدل شناخته می‌‌شود. مدل توصیفی، اشیا پایگاه‌های داده و ارتباط بین آنها را نشـان می‌‌دهد. روش های متفاوتی برای سازماندهی این مدل ها وجود دارد که به آنها مدل های پایگـاه داده گوییم. پرکاربرد‌ترین مدلی که امروزه بسیار استفاده می‌‌شود، مدل رابطه‌ای است که به طـور عـام به صورت زیر تعریف می‌‌شود: نمایش تمام اطلاعاتی که به فرم جداول مرتبط که هریک از سطـر ها و ستونـها تشکیـل شده است (تعریف حقیقی آن در علم ریاضیات برسی می‌‌شود). در این مدل وابستگی ها بـه کمـک مقادیر مشترک در بیش از یک جدول نشان داده می‌‌شود. مدل های دیگری مثل مدل سلسلـه مراتب و مدل شبکه‌ای به طور صریح تری ارتباط ها را نشان می‌‌دهند.
در مباحث تخصصی تر اصتلاح دادگان یا پایگاه داده به صورت مجموعـه‌ای از رکـورد هـای مرتبط با هم تعریف می‌‌شود. بسیاری از حرفه‌ای ها مجموعه‌ای از داده هایی با خصوصیات یکسان به منظـور ایجـاد یک پایگاه داده‌ای یکتا استفاده می‌‌کنند.

معمولا DBMS ها بر اساس مدل هایی که استفاده می‌‌کنند تقسیم بنـدی می‌‌شونـد: ارتباطی،شی گـرا، شبکـه‌ای و امثال آن. مدل هـای داده‌ای به تعیین زبانهای دسترسـی بـه پایگاه‌های داده علاقه مند هستند. بخش قابل توجهی از مهندسـی DBMS مستقـل از مـدل های می‌‌باشد و به فـاکتور هایی همچون اجرا، همزمانی،جامعیت و بازیافت از خطاهای سخت افزاری وابسطه است.در این سطح تفاوت های بسیاری بین محصولات وجود دارد.

موارد زیر به صورت خلاصه شرح داده می شود:
2-1 تاریخچه پایگاه داده
3-1 انواع دادگان ها
4-1 مدل های پایگاه داده
1-4-1 مدل تخت
2-4-1 مدل شبکه ای(Network)
3-4-1 مدل رابطه ای
4-4-1 پایگاه داده‌های چند بعدی
5-4-1 پایگاه داده‌های شیء
5-1 ویژگی‌های سیستم مدیریت پایگاه داده‌ها
6-1 فهرست سیستم‌های متداول مدیریت دادگان

2-1 تاریخچه پایگاه داده

اولیـن کاربردهـای اصطـلاح پایـگـاه داده بـه June 1963 بـاز مـی‌گردد، یعنـی زمـانی کــه شرکـت System Development Corporation مسئولیـت اجـرایـی یـک طـرح به نـام "توسعه و مدیریت محاسباتی یک پایگاه داده‌ای مرکزی" را بر عهده گرفت. پایگاه داده به عنوان یک واژه واحد در اوایل دهـه 70 در اروپا و در اواخر دهه 70 در خبر نامه‌های معتبر آمریکایی به کار رفـت.(بانـک داده‌ای یا Databank در اوایـل سـال 1966 در روزنامه واشنگتن کار رفت).

تصویر:اولین سیستم مدیریت پایگاه داده در دهه 60 گسترش یافت. از پیشگامـان این شاخه چارلز باخمن می‌‌باشد. مقالات باخمـن ایـن را نشـان داد که فرضیـات او کاربرد بسیار موثرتری برای دسترسی به وسایل ذخیره سازی را مهیـا می‌‌کنـد. در آن زمانهـا پردازش داده بر پایـه کـارت های منگنه و نوار هـای مغناطیسی بود که پردازش سری اطلاعات را مهیا می‌‌کند. دو نوع مدل داده‌ای در آن زمانهـا ایـجاد شـد:CODASYL موجب توسـعه مدل شبکه‌ای شدکه ریشه در نظریات باخـمن داشت و مدل سلسله مراتبی که توسط North American Rockwell ایجاد شد و بعدا با اقباس از آن شرکت IBM محصولIMS را تولید نمود.

مدل رابطـه‌ای توسـط E. F. Codd در سـال 1970 ارائه شد.او مدل های موجود را مـورد انتقاد قرار می‌‌داد. برای مدتـی نسبتا طـولانـی این مدل در مجـامع علـمی مـورد تایید بود. اولیـن محصـول موفق برای میکرو کامپیوتر ها dBASE بودکـه برای سیستـم عامـل هـایCP/M و PC-DOS/MS-DOS ساختـه شـد. در جـریان سال 1980 پژوهـش بر روی مـدل توزیع شده (distributed database) و ماشین های دادگانی (database machines) متمرکـز شد، امـا تاثیر کمـی بر بازار گـذاشت. در سال 1990 توجهات به طرف مدل شی گرا(object-oriented databases) جلـب شـد. این مـدل جـهت کنترل داده‌هـای مرکب لازم بود و به سادگی بر روی پایگاه داده‌های خاص، مهندسی داده(شامل مهندسی نرم افزار منابع) و داده‌های چند رسانه‌ای کار می‌‌کرد.

در سال 2000 نوآوری تـازه‌ای رخ داد و دادگـان اکس‌ام‌ال (XML) به وجـود آمد. هـدف ایـن مـدل از بین بردن تفاوت بین مستندات و داده هـا اسـت و کمـک می‌‌کند که منابع اطلاعاتی چه ساخت یافته باشند یا نه در کنار هم قرار گیرند

3-1 انواع دادگان ها
دادگان‌ها از نظر ساختار مفهومی و شیوه‌ای رفتار با داده‌ها بر دو نوع هستند :
1.دادگان رابطه‌ای
2.دادگان شی‌گرا

4-1 مدل های پایگاه داده
شگـرد هـای مختلفـی برای مدل های داده‌ای وجود دارد. بیشتر سیستم های پایگاه داده‌ای هر چند که طور معمول بیشتر از یک مـدل را مورد حمایت قرار می‌‌دهند، حول یک مدل مشخص ایجاد شده اند. برای هر یک از الگوهای های منطقی (logical model) اجـراهای فیزیکی مختلفی قابل پیاده شدن است و سطوح کنترل مختلفی در انطباق فیزیکی برای کاربران محیا می‌‌کند. یک انتخـاب مـناسب تـاثیر مـثری بر اجرا دارد.مثـالی از موارد الگوی رابطه‌ای (relational model) است: همـه رویـدادهای مهـم در مـدل رابطـه‌ای امکان ایجاد نمایه‌هایی که دسترسی سریع به سطرها در جدول را می‌‌دهد،فراهم می‌‌شود.

یک مـدل داده‌ای تنهـا شیـوه سـاختمان بـندی داده ها نیست بلکه معمولا به صورت مجموعه‌ای از عملیات ها که می‌‌توانـد روی داده هـا اجـرا شـود تعریـف مـی‌‌شوند. برای مثـال در مـدل رابطـه‌ای عملیـاتی هـمچون گـزینش (selection)، طرح ریزی (projection) و اتصال (join) تعریف می‌‌گردد.

1-4-1 مدل تخت
مدل تخت یا جدولی (flat (or table) model ) تشـکیل شده اسـت از یـک آرایـه دو بعدی با عناصر داده‌ای که همه اجزای یک ستون به صورت داده‌های مشابه فرض می‌‌شود و هـمه عناصـر یک سطـر با هم در ارتباط هستند. برای نمونه در ستون هایی که برای نام کـاربـری و رمـز عبور در جـزئی از سیستم های پایگاه داده‌ای امنیتی مورد استفاده قرار می‌‌گیرد هر سطر شـامل رمـز عبـوری اسـت که مخصوص یک کاربر خاص است. ستون های جدول که با آن در ارتباط هستند به صورت داده کاراکتری، اطـلاعات زمانـی، عـدد صـحیح یـا اعداد ممیز شناور تعریف می‌‌شوند. این مدل پایه برنامه‌های محاسباتی(spreadsheet) است.

پایـگاه داده هـا با فایـل هـای تـخت به سـادگی توسط فایل های متنی تعریف می‌‌شوند. هر رکورد یک خط است و فیلد ها به کمک جدا کننده هایی از هم مجزا می‌‌شوند. فرضا به مثال زیر دقت کنید:
id name team
1 Amy Blues
2 Bob Reds
3 Chuck Blues
4 Dick Blues
5 Ethel Reds
6 Fred Blues
7 Gilly Blues
8 Hank Reds
داده‌های هر ستون مشابه هـم اسـت ما بـه این ستونهـا فیلـد ها (fields) گوییم. و هر خط را غیر از خط اول یک رکـورد(record) مـی‌‌نامیم. خـط اول را که برخـی پـایگاه‌هـای داده‌ای آنرا ندارند رکورد برچسب(field labels) گوییم. هر مقدار داده‌ای اندازه خاص خود را دارد که اگـر به آن اندازه نـرسـد مـی‌‌توان از کاراکنر فاصله برای این منظور استفاده کرد اما این مسئله مخصوصا زمانی که بخواهیـم اطلاعـات را بـر روی کـارت های منگنه قرار دهیم مشکل ساز خواهد شد. امروزه معمولا از نویسه TAB برای جـداسـازی فیلـد ها و کـاراکتر خـط بعد برای رکورد بعدی استفاده می‌‌کنیم. البته شیوه‌های دیگری هم وجود دارد مثلا به مثال زیر دقت کنید:
"1","Amy","Blues"
"2","Bob","Reds"
"3","Chuck","Blues"
"4","Dick","Blues"
"5","Ethel","Reds"
"6","Fred","Blues"
"7","Gilly","Blues"
"8","Hank","Reds"
این مثال از جدا کننده کاما استفاده می‌‌کند.در این نوع مدل تنها قابلیت حذف،اضافه،دیدن و ویرایش وجود دارد که ممکن است کافی نباشد.Microsoft Excel این مدل را پیاده سازی می‌کند.

2-4-1 مدل شبکه ای(Network)
در سال 1969 و در کنفرانس زبانهای سیستم هـای داده‌ای (CODASYL) توسطCharles Bachman ارائه شد. در سال 1971 مجددا مطـرح شـد و اسـاس کار پایگاه داده‌ای قرار گرفت و در اوایل دهه 80 با ثبت آن درسازمان بین المللی استانداردهای جهانی یا ISO به اوج رسید.

مدل شبکه‌ای (database model) بر پایه دو سازه مهم یعنی مجموعه ها و رکورد ها ساخته می‌‌شود و برخلاف روش سلسله مراتبی که از درخت استفاده می‌‌کند، گـراف را به کار می‌‌گیرد. مزیت این روش بر سلسله مراتبی این است که مدل های ارتباطی طبیعی بیشتری را بین موجـودیت هـا فراهـم می‌‌کند. الی رغم این مزیت ها به دو دلیل اساسی این مدل با شکست مواجه شد: اول اینکه شرکت IBM بـا تولید محصـولات IMS و DL/I که بر پایه مدل سلسله مراتبی است این مدل را نادیده گرفت. دوم اینکه سرانجام مدل رابطه‌ای (relational model) جای آن را گرفت چون سطح بالاتر و واضح تر بود. تا اوایل دهـه 80 بـه علـت کـارایی رابـط هـای سطح پایین مدل سلسله مراتبی و شبکه‌ای پیشنهاد می‌‌شد که بسیاری از نیاز های آن زمان را برطـرف می‌‌کـرد. اما با سـریعتر شـدن سخت افزار به علت قابلیت انعطاف و سودمندی بیشتر سیستم های رابطه‌ای به پیروزی رسیدند.

رکورد ها در این مدل شامل فیلد هایی است (ممکـن اسـت همچـون زبـان کوبول (COBOL) به صورت سلسله مراتب اولویتی باشد). مجموعه ها با ارتباط یـک بـه چنـد بیـن رکورد ها تعریف می‌‌شود:یـک مالک و چند عضو عملیات های مدل شبکه‌ای از نوع هدایت کننده است: یک برنامه در موقعیت جـاری خـود باقـی می‌‌ماند و از یک رکورد به رکورد دیگر می‌‌رود هر گاه که ارتباطی بین آنها وجود داشته باشد. معمولا از اشاره‌گرها(pointers) برای آدرس دهی مستقیم به یک رکورد در دیسک استفاده می‌‌شود. با این تکنیـک کارایـی بـازیابی اضـافه مـی‌‌شـود هر چند در نمایش ظاهری این مدل ضروری نیست .

3-4-1 مدل رابطه ای
مدل رابطـه ای (relational model) در یـک مقـاله تحصیلـی توسـط E. F. Codd در سـال 1970 ارائه گشت. این مدل یک مدل ریاضیاتی است که با مفاهیمی چون مستندات منطقی (predicate logic) و تئوری مجموعه ها (set theory) در ارتباط اسـت. محصـولاتی همچون اینگرس،اراکل، DB2 وسرور اس‌کیوال (SQL Server) بر این پایه ایجاد شده است. ساختار داده ها در این محصولات به صورت جدول است با این تفاوت که می‌‌تواند چند سطر داشته باشد.به عبـارت دیگر دارای جداول چـند گانه است که به طور صریح ارتباطات بین آنها بیان نمی‌شود و در عوض کلید هایی به منظور تطبیق سطر ها در جداول مختلف استفاده می‌‌شود. به عنوان مثال جدول کارمندان ممکن است ستونی به نام "موقعیت" داشته باشد که کلید جدول موقعیت را با هم تطبیق می‌‌دهد.

4-4-1 پایگاه داده‌های چند بعدی
پایگاه داده‌هـای رابطـه‌ای توانسـت به سرعت بازار را تسخیر كند، هرچند كارهایی نیز وجود داشت كه این پایگاه داده‌ها نمی‌توانست به خوبی انجام دهد. به ویژه به كارگیری كلیدها در چند ركورد مرتبط به هم و د ر چند پایگـاه داده مشترك، كندی سیستم را موجب می‌شد. برای نمونه برای یافتن نشانی كاربری با نام دیویـد، سیستـم رابطه‌ای باید نام وی را در جدول كاربر جستجو كند و كلید اصـلی (primary key ) را بیابد و سپس در جدول نشانـی‌ها، دنبال آن كلید بگردد. اگر چه این وضعیت از نظر كاربر، فقط یـك عملیـات محسوب، امـا به جستجـو درجـداول نیازمند است كه این كار پیچیده و زمان بر خواهد بود. راه كار ایـن مشكـل ایـن اسـت كـه پایگاه داده‌ها اطلاعات صریح درباره ارتباط بین داده‌ها را ذخیره نماید. مـی‌توان بـه جای یافتن نشانی دیوید با جستجو ی كلید در جدول نشانی، اشاره‌گر به داده‌ها را ذخـیره نمـود. در واقـع، اگـر ركـورد اصـلی، مالك داده باشد، در همان مكان فیزیكی ذخیره خواهد شد و از سوی دیگر سرعت دسترسی افزایش خواهد یافت.چنین سیستمـی را پایگـاه داده‌هـای چند بعدی می‌نامند. این سیستم در هنگامی كه از مجموعه داده‌های بزرگ استفاده می‌شود، بسیار سودمند خواهد بود. از آنجاییكه این سیستم برای مجموعه داده‌های بزرگ به كار می‌رود،هیچگاه در بازار به طور مستقیم عمومیت خواهد یافت.

5-4-1 پایگاه داده‌های شیء
اگر چه سیستم‌های چند بعدی نتوانستند بازار را تسخـیر نمـایند، امـا به توسعـه سیستم‌های شیء منجر شدند. این سیستم‌ها كه مبتنی بر ساختار و مفاهیم سیستم‌های چند بعدی هستند،بـه كاربر امكان می‌دهـند تـا اشیاء را به طور مستقیـم در پایگـاه داده‌هـا ذخیـره نمـاید. بدیـن ترتیب سـاختار برنامه نویسی شیء گرا (object oriented ) را می‌توان به طور مستقیم و بدون تبدیل نمودن به سایر فرمت‌ها، در پایگاه داده‌ها مورد استفاده قرار داد. این وضعیت به دلیل مفاهیم مالكیـت (ownership) در سیستـم چند بعدی، رخ می‌دهد. در برنامه شیء گرا (OO)، یك شیء خاص "مالك " سایر اشیاء در حافظـه اسـت، مثلا دیوید مالك نشانی خود می‌باشد. در صورتی كه مفهوم مالكیت در پایگاه داده‌های رابطه‌ای وجود ندارد.

5-1 ویژگی‌های سیستم مدیریت پایگاه داده‌ها
پس از این مقدمه به توصـیف سیستـ مدیریت پایگاه داده‌ها می‌پردازیم. سیستم مدیریت پایگاه داده‌ها، مـجموعه‌ای پیچیده از برنامه‌های نرم‌افزاری است كه ذخیره سازی و بازیابی داده‌های (فیلدها، ركوردها و فایل‌ها) سازمان را در پایگاه داده‌ها، كنترل مـی‌كند. این سیستم، كنترل امنیت و صحت پایگاه داده‌ها را نیز بر عهده دارد. سیستم مدیریت پایگاه داده‌ها، درخواست‌هـای داده را از برنـامـه مـی‌پذیرد و به سیستم عامل دستور می‌دهد تا داده‌ها ی مناسب را انتقال دهد. هنگامی كه چنین سیستمی مورد استفـاده قـرار می‌گیرد، اگر نیازمندیهای اطلاعاتی سپازمانی تغییر یابد، سیستـم‌های اطلاعاتی نیز آسانتر تغییر خواهند یافت. سیستم مذكور از صحت پایگاه داده‌ها پشتیبانی می‌كند . بدین ترتیب كه اجازه نمی‌دهد بیش از یك كاربر در هر لحظه، یك ركورد را به روز رسانی كند . این سیستم ركوردهای تكراری را در خارج پایگاه داده‌ها نگاه می‌دارد. برای مثال ، هیچ دو مشترك با یك شمـاره مشتـری ، نمی‌توانند در پایگاه داده‌ها وارد شوند. این سیستم روشی برای ورود و بـه روز رسـانی تعامـلی پـایگـاه داده‌هـا فراهم می‌آورد. یك سیسـتم اطلاعـات كسـب و كـار از موضوعاتی نظیر (مشتریان، كارمندان، فروشندگان و غیره) و فعالیت‌هایی چون (سفارشات، پرداخت‌ها، خریدها و غیره) تشكیـل شـده اـست.

طراحی پایگاه داده‌ها، فرایند تصمیم گیری درباره نحوه سـازماندهی این داده‌ها در انواع ركوردها و برقراری ارتباط بیـن ركـوردهاست.سیستـم مـدیریت پـایگاه داده‌هـا می‌تواند ساختار داده‌ها و ارتباط آنها را در سازمان به طور اثر بخش نشان دهد. سه نوع مدل متداول سازمانی عبارتند از: سلسله مراتبی، شبكه‌ای و رابطه‌ای. یك سیستم مدیریت پایگاه داده‌ها ممكن است یك، دو یا هر سه روش را فراهم آورد. سرورهای پایگاه داده‌ها ، كامپیوترهایی هستند كه پایگـاه داده‌هـای واقعـی را نگـاه مـی‌دارنـد و فقـط سیستـم مدیریــت پایگـاه داده‌هـا و نرم‌افزار مربـوطه را اجرا می‌كنند. معمولا این سرورها رایانه‌های چند پردازنده‌ای با آرایه‌های دیسك RAID برای ذخیره سازی می‌باشند.

6-1 فهرست سیستم‌های متداول مدیریت دادگان
معروف‌ترین این نرم‌افزارهای مدیریت دادگان‌ها می‌توان به چند نمونه زیر اشاره کرد:

1.Oracle
2.Microsoft SQL Server
3.MySQL
4.PostregSQL
5.DB2
6.Microsoft Access
که پروژه ای که در ادامـه مـورد بررسـی قرار می گیرد بـا استفـاده از بـانک اطلاعاتـی Microsoft Access تهیه شده است.

بخش 2: معرفی پروژه

1-2 عنوان پروژه:

بانک اطلاعاتی تجهیزات آزمایشگاه کنترل نیروگاه طوس

آزمایشگـاه کنتـرل نیروگـاه طـوس وظـیفه تسـت ،تـعمیـر و نـگهداری از تجهیزات کنترلی بکار رفته در قسمت های مختلـف نیروگـاه طـوس را به عـهده دارد؛ دردوره تعـیرات اساسی واحد های نیروگاه این آزمایشگاه وظیفه بررسی و تنظیم این تجهیزات را بر اسـاس جـزوات مدونی کـه نحـوه تنظیـم هرتجهیز را مشخص نموده است بر عهده دارد.

نحـوه عمـلکرد بدیـن صـورت است که هر دستگاهی دارای کد خاصـی است که تنظیم آن در جزوه دستورالعمل با توجه به کد آن مشخص شده است؛ که فرد باید با توجه به کد دستگاه در جزوه نحوه تنظیم آن را بیابد و مـورد استفاد قرار بدهد. طبیعتاً این روش دستیابی به اطلاعات تجهیزات را در طـی مدت تعمیرات اساسی کـند می کـند

و متعاقباً روند تعمیرات اساسی را با مشکل مواجه می سازد.

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

2-2 مفاهیم اولیه بکار رفته در پروژه

1-2-2 تجهیز :

هر دستگاهی که در آزمایشگاه تست وبررسی و تنظیم میشود،یک تجهیز خاص است.

2-2-2 کد Aks :

شماره مشخصه هر تجهیز که با توجه به آن اطلاعات مورد بازیابی قرار می گیرد.

3-2-2 لیست Mkb :

لیستـی کـه در آن تنظیمـات پیـش فرض هـر تجهیز آورده شده است و هر تجهیز با توجـه بـه شمـاره Aks خود دارای ردیف خاصی در لیست می باشد.

بخش3 : تحلیل ساختار بانک اطلاعاتی

در این بخش ساختار بانک اطلاعاتی از جمله : جداول، ارتباط بین آنها،فرمهای بکار رفته ،query های مورد

استفاده و کدهای Visual basic بکار رفته در بانک مورد بررسی قرار می گیرد.

1-3 ساختار جداول:

1-1-3 جدول Grp

این جدول به منظور تعیین رده های تجهیز طراحی شده،از جمله این رده ها می توان از ترانسمیترها،سوئیچها و

نام برد.(شکل1-3)

شکل 1-3

Properties

DateCreated: 2006/10/22 07:19:16 ق.ظ DefaultView: Datasheet

NameMap: Long binary data OrderByOn: False

Orientation: Left-to-Right RecordCount: 5

Updatable: True

Columns

Name Type Size

grpID Long Integer 4

grpname Text 50

Relationships

grpInstrument

grp Instrument

grpID 1 ¥ groupID

صفات: Enforced; Cascade Updates; Cascade Deletes

نوع ارتباط: One-To-Many

grpsubgrpname

grp subgrpname

grpID 1 ¥ grp

صفات: Enforced; Cascade Updates; Cascade Deletes

نوع ارتباط: One-To-Many

2-1-3 جدول Instrument

از این جدو.ل برای نگهداری مشخصات تجهیز استفاده می شود.(شکل 2-3)

شکل 2-3

Properties

DateCreated: 2006/10/22 07:19:16 ق.ظ DefaultView: Datasheet

NameMap: Long binary data OrderByOn: True

Orientation: Left-to-Right RecordCount: 17

Updatable: True

Columns

Name Type Size

InsID Long Integer 4

groupID Long Integer 4

subgrpID Long Integer 4

Ins_name Text 50

Aks_code Text 50

tech_spcification Memo -

local_code Text 50

existance Long Integer 4

details Anchor -

offering_comp Text 50

filepath Text 250

Relationships

grpInstrument

grp Instrument

grpID 1 ¥ groupID

صفات: Enforced; Cascade Updates; Cascade Deletes

نوع ارتباط: One-To-Many

subgrpnameInstrument

subgrpname Instrument

subgrpID 1 ¥ subgrpID

صفات: Enforced; Cascade Updates; Cascade Deletes

نوع ارتباط: One-To-Many

3-1-3 جدول List

این جدول حاوی بخشی از اطلاعات لیست Mkb برای هر تجهیز میباشد و هر تجهیز در این جدول دارای ردیف خاصی است.(شکل 3-3)

شکل 3-3

Properties

DateCreated: 2006/10/23 08:34:35 ق.ظ DefaultView: Datasheet

NameMap: Long binary data OrderByOn: False

Orientation: Left-to-Right RecordCount: 2316

Updatable: True

Columns

Name Type Size

ردیف Text 255

نام دستگاه Text 255

مشخصات فنی Text 255

کاربرد Text 255

AKS کد شناسائی Text 255

اندازه گیری باره Text 255

دامنه تنظیم Text 255

نقطه تنظیم Text 255

نوع دستگاه/شرکت سازنده Text 255

4-1-3 جدول 'Sheet1 (ELC

این جدول حاوی بخش دیگر از اطلاعات لیست Mkb برای هر تجهیز میباشد و هر تجهیز در این جدول دارای ردیف خاصی است.(شکل 4-3)

شکل 4-3

Properties

DateCreated: 2006/10/23 12:19:09 ب.ظ DefaultView: Datasheet

NameMap: Long binary data OrderByOn: False

Orientation: Left-to-Right RecordCount: 864

Updatable: True

Columns

Name Type Size

ردیف Double 8

كُد ابزار Text 255

محل كارت Text 255

شماره كارت Text 255

كاربرد كارت Text 255

مقدار ورودی Text 255

سیگنال ورودی Text 255

تریشولد ورودی Text 255

مقدار خروجی Text 255

سیگنال خروجی Text 255

تریشولد خروجی Text 255

5-1-3 جدول Subgrpname

این جدول به منظور تعییـن زیـر رده هـای تجهیـز طراحـی شده و بـرای هـر ردیف در جدول Grp زیر رده های خاصی وجود دارد.(شکل 5-3)

شکل 5-3

Properties

DateCreated: 2006/10/22 07:19:16 ق.ظ DefaultView: Datasheet

NameMap: Long binary data OrderByOn: False

Orientation: Left-to-Right RecordCount: 7

Updatable: True

Columns

Name Type Size

subgrpID Long Integer 4

grp Long Integer 4

subgrpname Text 50

Relationships

subgrpnameInstrument

subgrpname Instrument

subgrpID 1 ¥ subgrpID

صفات: Enforced; Cascade Updates; Cascade Deletes

نوع ارتباط: One-To-Many

grpsubgrpname

grp subgrpname

grpID 1 ¥ grp

صفات: Enforced; Cascade Updates; Cascade Deletes

نوع ارتباط: One-To-Many

6-1-3 جدول tblDatabases

این جدول نام و مسیر بانک اطلاعاتی را جهت استفاده ماژول Backup نگهداری می کند.(شکل 6-3)

شکل 6-3

Properties

DateCreated: 2006/10/22 07:19:17 ق.ظ

LastUpdated: 2006/10/22 11:45:16 ق.ظ OrderByOn: False

RecordCount: 14 Updatable: True

Columns

Name Type Size

DBId Long Integer 4

DatabaseName Text 50

FolderPath Text 255

7-1-3 جدول tblObjects

این جدول اطلاعاتی راجع عملیت پشتیبان گیری از جمله اجزایی که عملیات پشتیبان گیری از آنها انجام شده یا

اجزایی که باید از آنها پشتیبان گرفته شود و همچنین تاریخ آخرین عملیات را نگهداری میکند.(شکل 7-3)

شکل 7-3

Properties

DateCreated: 2006/10/22 07:19:17 ق.ظ

LastUpdated: 2006/10/22 11:45:16 ق.ظ OrderByOn: False

RecordCount: 1703 Updatable: True

Columns

Name Type Size

objectID Long Integer 4

DBId Long Integer 4

ObjectType Long Integer 4

ObjectName Text 100

RevisionNumber Integer 2

LastBackupTimeStamp Date/Time 8

BackupRecommended Yes/No 1

LastUpdated Date/Time 8

2-3 نحوه ارتباط بین جداول

شکل 8-3 نحوه ارتباط بین جداول را در بانک اطلاعاتی مشخص می کند.

شکل 8-3

3-3 فرمها

1-3-3 Switchboard

فرم اصلی که به عنوان صفحه کلید بانک عمل می کند.(شکل 9-3)

شکل 9-3

2-3-3 Data Entry

بخش ورود اطلاعات به 3 قسمت تقسیم می شود :

1- اطلاعات تجهیز

2- اطلاعات رده تجهیز

3- اطلاعات زیر رده تجهیز

1-2-3-3 ورود اطلاعات تجهیز

برای ورود و ثبت اطلاعات تجهیز از این فرم استفاده می شود.(شکلهای10-3،11-3،12-3و13-3)

شکل 10-3

شکل 11-3

شکل 12-3

شکل 13-3

2-2-3-3 ورود اطلاعات رده تجهیز

برای ورود و ثبت اطلاعات رده تجهیز از این فرم استفاده می شود.(شکل 14-3)

شکل 14-3

3-2-3-3 ورود اطلاعات زیررده تجهیز

برای ورود و ثبت اطلاعات زیررده تجهیز از این فرم استفاده می شود.(شکل 15-3)

شکل 15-3

3-3-3 گزارشات

1-3-3-3 لیست تجهیزات بر اساس گروه

برای گزارش گیری از تجهیزات موجود بر اساس یک رده خاص از این فرم استفاده میشود.(شکل 16-3)

شکل 16-3

نتیجه گزارش گیری از تجهیزات بر اساس رده (گروه) بصورت زیر نمایش داده میشود.(شکل 17-3)

شکل 17-3

2-3-3-3 لیست تجهیزات بر اساس نام و کد Aks :

از این فرم برای گزارش گیـری از تجهـیزات بر اسـاس تمـام یـا قسمتی از نام یا کد Aks تجهیز استفاده میشود.

(شکل 18-3)

شکل 18-3

نحوه نمایش جزئیات برای یک تجهیز خاص مورد جستجو بصورت زیر خواهد بود.(شکل 19-3)

شکل 19-3

4-3-3 فرم Back up

هنگام اجرا برای اولین بار اطلاع می دهد که تا به حال کاتالوگ اجزا برای این بانک ساخته نشده است و با تائید

کاربر این کاتالوگ ساخته می شود.(شکل 20-3)

شکل 20-3

بعد از این مرحله فرم پشتیبان گیری به شکل زیر ظاهر می گردد.(شکل 21-3)

شکل 21-3

که در آن اجزای که باید از آنها پشتیبان گرفته شود تیک خورده اند.

فایلهای پشتیبان بصورت یک فولدر که شامل چند فایل متنی است در شاخه پیش فرض ذخیره میشوند.

5-3-3 فرم Restore

برای استفـاده از فـایل های پشتیبان در مواقع لزوم کافی Restore tab را در فرم پشتیبان کلیک نموده و وارد

حالت Restore شویم.(شکل22-3)

شکل22-3

در این حالت کافی شی که میخواهیم آنرا بازیابی کنیم انتخاب نموده و گزینه Import را کلیک نماییم تا

شی مورد نظر بازیابی گردد.

4-3 ساختار Query های بکاررفته در گزارشات و فرمها

1-4-3 نام query : elecakssearch

این query با دریافت کد Aks مشخصات تجهیز مورد نظز را در جدول Mkb بر می گرداند.(شکل23-3)

شکل 23-3

SQL

SELECT ['Sheet1 (ELC].ردیف, ['Sheet1 (ELC].[كُد ابزار], ['Sheet1 (ELC].[محل كارت], ['Sheet1 (ELC].[شماره كارت], ['Sheet1 (ELC].[كاربرد

كارت], ['Sheet1 (ELC].[مقدار ورودی], ['Sheet1 (ELC].[سیگنال ورودی], ['Sheet1 (ELC].[تریشولد ورودی], ['Sheet1 (ELC].[مقدار خروجی],

['Sheet1 (ELC].[سیگنال خروجی], ['Sheet1 (ELC].[تریشولد خروجی]

FROM ['Sheet1 (ELC]

WHERE (((['Sheet1 (ELC].[كُد ابزار]) Like Forms!akssearchdetails!Text24));

Query Parameters

Name Type

Forms!akssearchdetails!Text24 Text

Columns

Name Type Size

ردیف Double 8

كُد ابزار Text 255

محل كارت Text 255

شماره كارت Text 255

كاربرد كارت Text 255

مقدار ورودی Text 255

سیگنال ورودی Text 255

تریشولد ورودی Text 255

مقدار خروجی Text 255

سیگنال خروجی Text 255

تریشولد خروجی Text 255

2-4-3 نام query : qry_ins_in_grp

این query برای فیلتر کردن فیلد زیر رده تجهیز با توجه به رده انتخاب شده در فرم ورود اطلاعات تجهیز بکار میرود(.شکل 24-3)

شکل 24-3

SQL

SELECT grp.grpname, subgrpname.subgrpname

FROM grp INNER JOIN subgrpname ON grp.grpID = subgrpname.grp

GROUP BY grp.grpname, subgrpname.subgrpname;

Columns

Name Type Size

grpname Text 50

subgrpname Text 50

3-4-3 نام query : Query1

این Query با توجه به کد aks کـه در فـرم جستجـو بر اسـاس Aks دریافت کـرده لیست تجهیزات را نمایش میدهد.(شکل 25-3)

شکل 25-3

SQL

SELECT Instrument.Ins_name, Instrument.Aks_code, subgrpname.subgrpname, grp.grpname

FROM subgrpname INNER JOIN (grp INNER JOIN Instrument ON grp.grpID=Instrument.groupID) ON

subgrpname.subgrpID=Instrument.subgrpID

WHERE (((Instrument.Aks_code) Like "*" & Forms!name_aks_search!Text0 & "*"))

ORDER BY Instrument.Aks_code;

Query Parameters

Name Type

Forms!name_aks_search!Text0 Text

Columns

Name Type Size

Ins_name Text 50

Aks_code Text 50

subgrpname Text 50

grpname Text 50

4-4-3 نام query : Query12

این Query با توجـه بـه نـامی کـه در فـرم جستجـو بر اسـاس نـام دریافت کـرده لیسـت تجهیـزات را نمایش میدهد.(شکل 26-3)

شکل 26-3

SQL

SELECT Instrument.Ins_name, Instrument.Aks_code, subgrpname.subgrpname, grp.grpname

FROM subgrpname INNER JOIN (grp INNER JOIN Instrument ON grp.grpID=Instrument.groupID) ON

(subgrpname.subgrpID=Instrument.subgrpID) AND (grp.grpID=subgrpname.grp)

WHERE (((Instrument.Ins_name) Like "*" & Forms!name_aks_search!Text4 & "*"))

ORDER BY Instrument.Aks_code;

Query Parameters

Name Type

Forms!name_aks_search!Text4 Text

Columns

Name Type Size

Ins_name Text 50

Aks_code Text 50

subgrpname Text 50

grpname Text 50

5-4-3 نام query : Query2

این query با توجه به رده انتخاب شده در فرم جستجـو بر اسـاس گروه ، لیسـت تجهیـزات را فیلتـر مـی کند.

شکل(27-3)

شکل 27-3

SQL

SELECT Instrument.Ins_name, Instrument.Aks_code, grp.grpname, subgrpname.subgrpname, Instrument.tech_spcification,

Instrument.local_code, Instrument.existance, Instrument.details, Instrument.offering_comp

FROM subgrpname INNER JOIN (grp INNER JOIN Instrument ON grp.grpID=Instrument.groupID) ON

(subgrpname.subgrpID=Instrument.subgrpID) AND (grp.grpID=subgrpname.grp)

WHERE (((grp.grpID)=forms!frmgrpsearch!combo0))

ORDER BY Instrument.Aks_code;

Query Parameters

Name Type

forms!frmgrpsearch!combo0 Text

Columns

Name Type Size

Ins_name Text 50

Aks_code Text 50

grpname Text 50

subgrpname Text 50

tech_spcification Memo N/A

local_code Text 50

existance Long Integer 4

details Replication ID N/A

offering_comp Text 50

6-4-3 نام query : Query3

این query جزئیات تجهیز خاص مورد نظر را از لیست تجهیزاتـی که در گزارش بر اساس یک رده خاص بدست آمده است را با توجه به کد Aks آن فیلتر می کند.(شکل 28-3)

شکل 28-3

SQL

SELECT Instrument.groupID, Instrument.subgrpID, Instrument.Ins_name, Instrument.Aks_code, Instrument.tech_spcification,

Instrument.local_code, Instrument.existance, Instrument.details, Instrument.offering_comp

FROM Instrument

WHERE (((Instrument.Aks_code)=forms!grpsearchresult!text34))

ORDER BY Instrument.Aks_code;

Query Parameters

Name Type

forms!grpsearchresult!text34 Text

Columns

Name Type Size

groupID Long Integer 4

subgrpID Long Integer 4

Ins_name Text 50

Aks_code Text 50

tech_spcification Memo N/A

local_code Text 50

existance Long Integer 4

details Replication ID N/A

offering_comp Text 50

6-4-3 نام query : Query4

این query جزئیات تجهیز خاص مورد نظر را از لیست تجهیزاتـی که در گزارش بر اساس تمام یا بخشی از کد Aks خاص بدست آمده است را با توجه به کد Aks آن فیلتر می کند.(شکل 29-3)

شکل 29-3

SQL

SELECT Instrument.groupID, Instrument.subgrpID, Instrument.Ins_name, Instrument.Aks_code, Instrument.tech_spcification,

Instrument.local_code, Instrument.existance, Instrument.details, Instrument.offering_comp

FROM Instrument

WHERE (((Instrument.Aks_code)=forms!akssearchresult!text23))

ORDER BY Instrument.Aks_code;

Query Parameters

Name Type

forms!akssearchresult!text23 Text

Columns

Name Type Size

groupID Long Integer 4

subgrpID Long Integer 4

Ins_name Text 50

Aks_code Text 50

tech_spcification Memo N/A

local_code Text 50

existance Long Integer 4

details Replication ID N/A

offering_comp Text 50

7-4-3 نام query : Query42

این query جزئیات تجهیز خاص مورد نظر را از لیست تجهیزاتـی که در گزارش بر اساس تمام یا بخشی از نام خاص بدست آمده است را با توجه به نام آن فیلتر می کند.(شکل 30-3)

شکل 30-3

SQL

SELECT Instrument.groupID, Instrument.subgrpID, Instrument.Ins_name, Instrument.Aks_code, Instrument.tech_spcification,

Instrument.local_code, Instrument.existance, Instrument.details, Instrument.offering_comp

FROM Instrument

WHERE (((Instrument.Ins_name)=forms!namesearchresult!text23))

ORDER BY Instrument.Aks_code;

Query Parameters

Name Type

forms!namesearchresult!text23 Text

Columns

Name Type Size

groupID Long Integer 4

subgrpID Long Integer 4

Ins_name Text 50

Aks_code Text 50

tech_spcification Memo N/A

local_code Text 50

existance Long Integer 4

details Replication ID N/A

offering_comp Text 50

8-4-3 نام query : Query43

این query جزئیات تجهیز خاص مورد نظر را از لیست تجهیزاتـی که در گزارش بر اساس تمام یا بخشی از نام خاص بدست آمده است را با توجه به کد Aks آن فیلتر می کند.(شکل 31-3)

شکل 31-3

SQL

SELECT Instrument.groupID, Instrument.subgrpID, Instrument.Ins_name, Instrument.Aks_code, Instrument.tech_spcification,

Instrument.local_code, Instrument.existance, Instrument.details, Instrument.offering_comp

FROM Instrument

WHERE (((Instrument.Aks_code)=forms!namesearchresult!text23))

ORDER BY Instrument.Aks_code;

Query Parameters

Name Type

forms!namesearchresult!text23 Text

Columns

Name Type Size

groupID Long Integer 4

subgrpID Long Integer 4

Ins_name Text 50

Aks_code Text 50

tech_spcification Memo N/A

local_code Text 50

existance Long Integer 4

details Replication ID N/A

offering_comp Text 50

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

Module: basBrowseFiles Page: 1

Properties

Container: Modules DateCreated: 2006/11/06 12:03:26 ب.ظ

LastUpdated: 2006/11/06 12:03:26 ب.ظ Owner: admin

UserName: admin

Code

1 Attribute VB_Name = "basBrowseFiles"

2 Option Compare Database

3 Option Explicit

6 '.=========================================================================

7 '.Browse Files Module

8 '

9 '

10 '

11 '.=========================================================================

12 ' DO NOT DELETE THE COMMENTS ABOVE. All other comments in this module

13 ' may be deleted from production code, but lines above must remain.

14 '--------------------------------------------------------------------------

15 '.Description : This module calls directly into comdlg32.dll to allow user

16 '. to select a filename using the Windows Common Dialog. The

17 '. user may browse for a file, or enter a file name directly.

18 '.

19 '.

20 '.Rev. History :

21 ' Comments : Normally, to use the Common Dialog you need to physically

22 ' place the ActiveX control onto a form and then use code

23 ' behind the form to implement its functionality. This

24 ' module allows you to incorporate the functionality of the

25 ' File Open/Save part of the Common Dialog without the

26 ' ActiveX control itself. This module is completely self-

27 ' contained. Simply copy it into your database to use it.

28 '.-------------------------------------------------------------------------

29 '.

30 ' ADDITIONAL NOTES:

31 '

32 ' This module only provides the Open/Save file dialog, not the other

33 ' CommonDialog interfaces (ColorChooser, Help, PrintDialog, etc.)

34 '

35 ' If you want your user to browse for folder names (paths) you must use

36 ' the module basBrowseFolders instead.

37 '

38 ' TO STREAMLINE this module for production programs, you should remove:

39 ' 1) Unnecessary comments

40 ' 2) Flag Constants which you do not intend to use.

41 ' 3) The test procedure tsGetFileFromUserTest

42 '

Module: basBrowseFiles Page: 2

43 '--------------------------------------------------------------------------

44 '

45 ' INSTRUCTIONS:

46 '

47 ' ( For a working example, open the Debug window )

48 ' ( and enter tsGetFileFromUserTest. )

49 '

50 '.All the arguments for the function are optional. You may call it with no

51 '.arguments whatsoever and simply assign its return value to a variable of

52 '.the Variant type. For example:

53 '.

54 '. varFileName = tsGetFileFromUser()

55 '.

56 '.The function will return:

57 '. the full path and filename selected or entered by the user, or

58 '. Null if an error occurs or if the user presses Cancel.

59 '.

60 '.Optional arguments may include any of the following:

61 '. rlngFlags : one or more of the tscFN* constants (declared below)

62 '. Combine multiple constants like this:

63 '. tscFNHideReadOnly Or tscFNFileMustExist

64 '. strInitialDir : the directory to display when dialog opens

65 '. strFilter : a string containing any filters you want to use. Each

66 '. part must be separated by the vbNullChar. -example below

67 '. lngFilterIndex: a 1-based index indicating which filter to start with.

68 '. strDefaultExt : Extension to use if user does not enter one.

69 '. strFileName : Default File to display in the File Name text box.

70 '. strDialogTitle: Caption to display in the dialog's title bar.

71 '. fOpenFile : Boolean-True for the Open dialog, False for Save dialog.

72 '

73 ' FILTER EXAMPLE: The filter must be a string containing two parts for each

74 ' filter. The first part is the Description, it is what the user will see

75 ' in the Files of Type box, e.g. "Text Files (*.txt)". The second part is

76 ' the actual filter, e.g. "*.txt". Each part and each filter must be

77 ' separated by the vbNullChar. For example, to provide two filters, one for

78 ' *.mdb files, and one for all files, use a statement like this:

79 '

80 ' strFilter = "Access (*.mdb)" & vbNullChar & "*.mdb" _

81 ' & vbNullChar & "All Files (*.*)" & vbNullChar & "*.*"

82 '

83 ' Then pass your strFilter variable as the strFilter argument for the call

84 ' to tsGetFileFromUser()

85 '

86 '.--------------------------------------------------------------------------

87 '.

89 Private Declare Function ts_apiGetOpenFileName Lib "comdlg32.dll" _

90 Alias "GetOpenFileNameA" (tsFN As tsFileName) As Boolean

92 Private Declare Function ts_apiGetSaveFileName Lib "comdlg32.dll" _

93 Alias "GetSaveFileNameA" (tsFN As tsFileName) As Boolean

95 Private Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long

Module: basBrowseFiles Page: 3

97 Private Type tsFileName

98 lStructSize As Long

99 hwndOwner As Long

100 hInstance As Long

101 strFilter As String

102 strCustomFilter As String

103 nMaxCustFilter As Long

104 nFilterIndex As Long

105 strFile As String

106 nMaxFile As Long

107 strFileTitle As String

108 nMaxFileTitle As Long

109 strInitialDir As String

110 strTitle As String

111 flags As Long

112 nFileOffset As Integer

113 nFileExtension As Integer

114 strDefExt As String

115 lCustData As Long

116 lpfnHook As Long

117 lpTemplateName As String

118 End Type

119

120 ' Flag Constants

121 Public Const tscFNAllowMultiSelect = &H200

122 Public Const tscFNCreatePrompt = &H2000

123 Public Const tscFNExplorer = &H80000

124 Public Const tscFNExtensionDifferent = &H400

125 Public Const tscFNFileMustExist = &H1000

126 Public Const tscFNPathMustExist = &H800

127 Public Const tscFNNoValidate = &H100

128 Public Const tscFNHelpButton = &H10

129 Public Const tscFNHideReadOnly = &H4

130 Public Const tscFNLongNames = &H200000

131 Public Const tscFNNoLongNames = &H40000

132 Public Const tscFNNoChangeDir = &H8

133 Public Const tscFNReadOnly = &H1

134 Public Const tscFNOverwritePrompt = &H2

135 Public Const tscFNShareAware = &H4000

136 Public Const tscFNNoReadOnlyReturn = &H8000

137 Public Const tscFNNoDereferenceLinks = &H100000

138

139 Public Function tsGetFileFromUser( _

140 Optional ByRef rlngflags As Long = 0&, _

141 Optional ByVal strInitialDir As String = "", _

142 Optional ByVal strFilter As String = "All Files (*.*)" & vbNullChar & "*.*", _

143 Optional ByVal lngFilterIndex As Long = 1, _

144 Optional ByVal strDefaultExt As String = "", _

145 Optional ByVal strFileName As String = "", _

146 Optional ByVal strDialogTitle As String = "", _

147 Optional ByVal fOpenFile As Boolean = True) As Variant

148

149 On Error GoTo tsGetFileFromUser_Err

150 Dim tsFN As tsFileName

Module: basBrowseFiles Page: 4

151 Dim strFileTitle As String

152 Dim fResult As Boolean

153

154 ' Allocate string space for the returned strings.

155 strFileName = Left(strFileName & String(256, 0), 256)

156 strFileTitle = String(256, 0)

157

158 ' Set up the data structure before you call the function

159 With tsFN

160 .lStructSize = Len(tsFN)

161 .hwndOwner = Application.hWndAccessApp

162 .strFilter = strFilter

163 .nFilterIndex = lngFilterIndex

164 .strFile = strFileName

165 .nMaxFile = Len(strFileName)

166 .strFileTitle = strFileTitle

167 .nMaxFileTitle = Len(strFileTitle)

168 .strTitle = strDialogTitle

169 .flags = rlngflags

170 .strDefExt = strDefaultExt

171 .strInitialDir = strInitialDir

172 .hInstance = 0

173 .strCustomFilter = String(255, 0)

174 .nMaxCustFilter = 255

175 .lpfnHook = 0

176 End With

177

178 ' Call the function in the windows API

179 If fOpenFile Then

180 fResult = ts_apiGetOpenFileName(tsFN)

181 Else

182 fResult = ts_apiGetSaveFileName(tsFN)

183 End If

184

185 ' If the function call was successful, return the FileName chosen

186 ' by the user. Otherwise return null. Note, the CancelError property

187 ' used by the ActiveX Common Dialog control is not needed. If the

188 ' user presses Cancel, this function will return Null.

189 If fResult Then

190 rlngflags = tsFN.flags

191 tsGetFileFromUser = tsTrimNull(tsFN.strFile)

192 Else

193 tsGetFileFromUser = Null

194 End If

195

196 tsGetFileFromUser_End:

197 On Error GoTo 0

198 Exit Function

199

200 tsGetFileFromUser_Err:

201 Beep

202 MsgBox Err.Description, , "Error: " & Err.Number _

203 & " in function basBrowseFiles.tsGetFileFromUser"

204 Resume tsGetFileFromUser_End

Module: basBrowseFiles Page: 5

205

206 End Function

207

208 ' Trim Nulls from a string returned by an API call.

209

210 Private Function tsTrimNull(ByVal strItem As String) As String

211

212 On Error GoTo tsTrimNull_Err

213 Dim I As Integer

214

215 I = InStr(strItem, vbNullChar)

216 If I > 0 Then

217 tsTrimNull = Left(strItem, I - 1)

218 Else

219 tsTrimNull = strItem

220 End If

221

222 tsTrimNull_End:

223 On Error GoTo 0

224 Exit Function

225

226 tsTrimNull_Err:

227 Beep

228 MsgBox Err.Description, , "Error: " & Err.Number _

229 & " in function basBrowseFiles.tsTrimNull"

230 Resume tsTrimNull_End

231

232 End Function

233

234

Module: cBackupRestore Page: 6

Properties

Container: Modules DateCreated: 2006/10/22 07:19:23 ق.ظ

LastUpdated: 2006/10/22 07:19:23 ق.ظ Owner: admin

UserName: admin

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "cBackupRestore"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = False

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11 Option Explicit

13 Private mintErrorTrap As Integer

15 Private mstrRootFolder As String

16 Private mstrDBName As String

18 Private Const mconTABLES = "tables"

19 Private Const mconQUERIES = "queries"

20 Private Const mconFORMS = "forms"

21 Private Const mconREPORTS = "reports"

22 Private Const mconMACROS = "macros"

23 Private Const mconMODULES = "modules"

24 Private Const mconBACKUP_FOLDER = "backups.wzb"

26 'Stores complete path to backup folders

27 Private mcolFolders As Collection

29 'the files in a specific backup folder

30 Private mcolFiles As Collection

32 Public Function GetFileNames(ObjectType As Integer) As String

33 'For a particular object type, return all the backup

34 'files present in a backup folder as a string

35 '

36 On Error GoTo ErrHandler

37 Dim colFiles As Collection

38 Dim strFile As String

39 Dim strFolder As String

40 Dim I As Integer

41 Dim strOut As String

43 'First, read the files present in object's backup folder

44 Call sInitCollection(ObjectType)

Module: cBackupRestore Page: 7

46 'Now return all the names read previously as formatted

47 'for a two column listbox, first col.=VersionNumber and

48 'SecondColumn=actual FileName w/o the version info

49 strOut = "Version;FileName;"

50 For I = 1 To mcolFiles.Count

51 strFile = mcolFiles.Item(I)

52 If (ObjectType = acTable) Then

53 strOut = strOut _

54 & Mid$(strFile, InStr(strFile, "_") + 1, InStr(strFile, ".") - InStr(strFile, "_") - 1) _

55 & ";" & Left$(strFile, InStr(strFile, "_") - 1) & ";"

56 Else

57 strOut = strOut _

58 & Right$(strFile, Len(strFile) - InStr(strFile, ".")) _

59 & ";" & Left$(strFile, InStr(strFile, ".") - 1) & ";"

60 End If

61 Next

62 strOut = Left$(strOut, Len(strOut) - 1)

63 GetFileNames = strOut

64 ExitHere:

65 Exit Function

66 ErrHandler:

67 GetFileNames = vbNullString

68 Resume ExitHere

69 End Function

71 Private Sub sInitCollection(intObjectType As Integer)

72 Dim strFile As String

73 Dim strFolder As String

75 'refresh folders collection

76 Call sCheckSubDir(False)

78 'Now get the files for this particular index

79 Set mcolFiles = New Collection

81 strFolder = mcolFolders(intObjectType & vbNullString) & "\"

82 strFile = Dir(strFolder, vbNormal)

83 Do While Not strFile = vbNullString

84 mcolFiles.Add Item:=strFile, key:=strFile

85 strFile = Dir

86 Loop

87 End Sub

89 Public Function ImportObject(ObjectType As Integer, VersionNumber As Integer, FileName As String) As

String

90 On Error GoTo ErrHandler

91 Dim strFilePath As String

92 Dim strNewObjectName As String

93 Dim strImportName As String

95 'First read all files for this object

96 Call sInitCollection(ObjectType)

Module: cBackupRestore Page: 8

98 'get teh complete path to the object folder being asked for

99 If (ObjectType = acTable) Then

100 strFilePath = mcolFolders(ObjectType & vbNullString) & "\" _

101 & FileName & "_" & VersionNumber & ".txt"

102 Else

103 strFilePath = mcolFolders(ObjectType & vbNullString) & "\" _

104 & FileName & "." & VersionNumber

105 End If

106

107 'Make sure we know under what name was the object imported

108 strNewObjectName = Application.Run("acwzmain.wlib_stUniqueDocName", _

109 FileName, ObjectType)

110

111 If Not strNewObjectName = FileName Then

112 strImportName = strNewObjectName

113 Else

114 strImportName = FileName

115 End If

116

117 If (ObjectType = acTable) Then

118 DoCmd.TransferText acImportDelim, , strImportName, strFilePath, True

119 Else

120 Application.LoadFromText ObjectType, _

121 strImportName, _

122 strFilePath

123 End If

124

125 ImportObject = strImportName

126 ExitHere:

127 Exit Function

128 ErrHandler:

129 MsgBox "Error: " & Err.Number & vbCrLf & Err.Description, vbOKOnly Or vbCritical

130 ImportObject = vbNullString

131 Resume ExitHere

132 End Function

133

134 Public Sub ExportObjects(rsDynaset As Recordset)

135 'SaveAsText all objects whose names are present

136 'in this recordset and update the revision number

137 '

138 On Error GoTo ErrHandler

139 Dim strDestination As String

140

141 'check for specific object folders underneath mconBACKUP_FOLDER

142 'Create any if need be

143 Call sCheckSubDir(True)

144

145 With rsDynaset

146 Do While Not .EOF

147

148 'Get the folder path

149 If (!ObjectType <> acTable) Then

150 strDestination = mcolFolders(!ObjectType & vbNullString) & "\" _

151 & !ObjectName & "." & !RevisionNumber

Module: cBackupRestore Page: 9

152 Else

153 strDestination = mcolFolders(!ObjectType & vbNullString) & "\" _

154 & !ObjectName & "_" & !RevisionNumber & ".txt"

155 End If

156

157 Call SysCmd(acSysCmdSetStatus, "Exporting " & pconQ & !ObjectName & pconQ & "....")

158 If !ObjectType = 0 Then

159 'If it's a table object, use TransferText instead.

160 DoCmd.TransferText acExportDelim, , !ObjectName, strDestination, True

161 Else

162 'Otherwise call the undocumented SaveAsText method

163 Call Application.SaveAsText(!ObjectType, !ObjectName, strDestination)

164 End If

165 'Now increment the RevisionNumber for

166 'the next time around.

167 .Edit

168 !RevisionNumber = !RevisionNumber + 1

169 !BackupRecommended = False

170 !LastBackupTimeStamp = Now()

171 .Update

172 .MoveNext

173 Loop

174 End With

175 ExitHere:

176 On Error Resume Next

177 Call SysCmd(acSysCmdClearStatus)

178 Exit Sub

179 ErrHandler:

180 Err.Raise pconERR_BASE + 4, "cBackupRestore::ExportObjects", _

181 "Specified object does not exist in source database."

182 Resume ExitHere

183 End Sub

184

185 Public Property Let FolderPath(Value As String)

186 'Where do we want to place all the exports?

187 '

188 'If the folder doesn't exist, return an error

189 If Dir(Value, vbDirectory) = vbNullString Then _

190 Err.Raise pconERR_BASE + 1, "cBackupRestore::FolderPath", _

191 "Invalid path specified"

192 mstrRootFolder = Value

193 If Not Right$(mstrRootFolder, 1) = "\" Then _

194 mstrRootFolder = mstrRootFolder & "\"

195 End Property

196

197 Private Sub sCheckSubDir(blnCreateSubFolders As Boolean)

198 On Error GoTo ErrHandler

199 Dim strPath As String

200 strPath = mstrRootFolder & mconBACKUP_FOLDER & "\"

201

202 'If the backup folder (mconBACKUP_FOLDER) doesn't exist

203 'under this folder, create it

204 If Dir(mstrRootFolder & mconBACKUP_FOLDER, vbDirectory) = vbNullString Then

205 If blnCreateSubFolders Then

Module: cBackupRestore Page: 10

206 Call MkDir(mstrRootFolder & mconBACKUP_FOLDER)

207 End If

208 End If

209

210 'If object specific folders don't exist under mconBACKUP_FOLDER

211 'Create them on the fly if needed (blnCreateSubFolders)

212 If Dir(strPath & mconTABLES, vbDirectory) = vbNullString Then

213 If blnCreateSubFolders Then

214 Call MkDir(strPath & mconTABLES)

215 End If

216 End If

217 mcolFolders.Add Item:=strPath & mconTABLES, key:=acTable & vbNullString

218

219 If Dir(strPath & mconQUERIES, vbDirectory) = vbNullString Then

220 If blnCreateSubFolders Then

221 Call MkDir(strPath & mconQUERIES)

222 End If

223 End If

224 mcolFolders.Add Item:=strPath & mconQUERIES, key:=acQuery & vbNullString

225

226 If Dir(strPath & mconFORMS, vbDirectory) = vbNullString Then

227 If blnCreateSubFolders Then

228 Call MkDir(strPath & mconFORMS)

229 End If

230 End If

231 mcolFolders.Add Item:=strPath & mconFORMS, key:=acForm & vbNullString

232

233 If Dir(strPath & mconREPORTS, vbDirectory) = vbNullString Then

234 If blnCreateSubFolders Then

235 Call MkDir(strPath & mconREPORTS)

236 End If

237 End If

238 mcolFolders.Add Item:=strPath & mconREPORTS, key:=acReport & vbNullString

239

240 If Dir(strPath & mconMACROS, vbDirectory) = vbNullString Then

241 If blnCreateSubFolders Then

242 Call MkDir(strPath & mconMACROS)

243 End If

244 End If

245 mcolFolders.Add Item:=strPath & mconMACROS, key:=acMacro & vbNullString

246

247 If Dir(strPath & mconMODULES, vbDirectory) = vbNullString Then

248 If blnCreateSubFolders Then

249 Call MkDir(strPath & mconMODULES)

250 End If

251 End If

252 mcolFolders.Add Item:=strPath & mconMODULES, key:=acModule & vbNullString

253

254 ExitHere:

255 Exit Sub

256 ErrHandler:

257 Err.Raise pconERR_BASE + 2, "cBackupRestore::sCreateSubDirs", _

258 "Error: " & Err.Description & "(" & Err.Number & ")"

259 Resume ExitHere

Module: cBackupRestore Page: 11

260 End Sub

261

262 Private Sub Class_Initialize()

263 mintErrorTrap = Application.GetOption("Error Trapping")

264 Call Application.SetOption("Error Trapping", 2)

265 Set mcolFolders = New Collection

266 End Sub

267

268 Private Sub Class_Terminate()

269 Call Application.SetOption("Error Trapping", mintErrorTrap)

270 Set mcolFolders = Nothing

271 End Sub

272

Module: Converted Macro- mcrdelete Page: 12

Properties

Container: Modules DateCreated: 2006/10/22 07:19:23 ق.ظ

LastUpdated: 2006/10/22 07:19:23 ق.ظ Owner: admin

UserName: admin

Code

1 Attribute VB_Name = "Converted Macro- mcrdelete"

2 Option Compare Database

4 '------------------------------------------------------------

5 ' mcrdelete

6 '

7 '------------------------------------------------------------

8 Function mcrdelete()

9 On Error GoTo mcrdelete_Err

11 DoCmd.SetWarnings False

12 DoCmd.RunCommand acCmdDeleteRecord

15 mcrdelete_Exit:

16 Exit Function

18 mcrdelete_Err:

19 MsgBox Error$

20 Resume mcrdelete_Exit

22 End Function

Module: Global Code Page: 13

Properties

Container: Modules DateCreated: 2006/10/22 07:19:23 ق.ظ

LastUpdated: 2006/10/22 07:19:23 ق.ظ Owner: admin

UserName: admin

Code

1 Attribute VB_Name = "Global Code"

2 Option Compare Database

3 Option Explicit

5 Function IsLoaded(ByVal strFormName As String) As Integer

6 ' Returns True if the specified form is open in Form view or Datasheet view.

8 Const conObjStateClosed = 0

9 Const conDesignView = 0

11 If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then

12 If Forms(strFormName).CurrentView <> conDesignView Then

13 IsLoaded = True

14 End If

15 End If

17 End Function

19 Function ShowMenuBar(Optional strSwitchboardTableName As String = "Switchboard Items")

20 Dim strProcName As String

21 Dim Marker As Integer

23 On Error GoTo Err_Section

24 strProcName = "ShowMenuBar"

25 Marker = 1

27 abs_CreateSwitchboardMenuBar strSwitchboardTableName

29 Exit_Section:

30 On Error Resume Next

31 On Error GoTo 0

32 Exit Function

33 Err_Section:

34 Beep

35 MsgBox "Error in " & strProcName & " (" & Marker & "): " & Err.Number & " - " & Err.Description

36 Err.Clear

37 Resume Exit_Section

38 End Function

39 Function GoToOrderHyperlink(strApp As String)

40 Dim strProcName As String

41 Dim Marker As Integer

43 On Error GoTo Err_Section

Module: Global Code Page: 14

44 strProcName = "GoToOrderHyperlink"

45 Marker = 1

47 Dim s As String

48 Dim strHyperlink As String

49 Dim strAppName As String

51 Select Case strApp

52 Case "abs"

53 'pddxxx

54 strAppName = "A Better Switchboard"

55 strHyperlink = "https://www.swreg.org/soft_shop/224/shopscr27.shtml"

56 Case Else

57 End Select

59 s = ""

60 s = s & "This menu option will open a browser window to a secure web site where you can order " &

strAppName & " with your credit card. "

61 s = s & vbCrLf & vbCrLf

62 s = s & "Do you wish to continue?"

63 Beep

64 If MsgBox(s, vbYesNo) = vbYes Then

65 Else

66 MsgBox "Action cancelled."

67 GoTo Exit_Section

68 End If

70 Application.FollowHyperlink strHyperlink, , True

72 Exit_Section:

73 On Error Resume Next

74 On Error GoTo 0

75 Exit Function

76 Err_Section:

77 Beep

78 MsgBox "Error in " & strProcName & " (" & Marker & "): " & Err.Number & " - " & Err.Description

79 Err.Clear

80 Resume Exit_Section

81 End Function

82 Function OpenSBDemo(Optional strSwitchboardFormName As String = "Switchboard Rect Highlight")

83 Dim Marker As Integer

85 On Error GoTo Err_Section

86 Marker = 1

88 If Screen.ActiveForm.Name <> strSwitchboardFormName Then

89 On Error Resume Next

90 DoCmd.Close acForm, Screen.ActiveForm.Name

91 Err.Clear

92 On Error GoTo Err_Section

94 DoCmd.OpenForm strSwitchboardFormName

95 End If

Module: Global Code Page: 15

97 Exit_Section:

98 On Error Resume Next

99 On Error GoTo 0

100 Exit Function

101 Err_Section:

102 Beep

103 MsgBox "Error in OpenSBDemo (" & Marker & "): " & Err.Number & " - " & Err.Description

104 Err.Clear

105 Resume Exit_Section

106 End Function

107

108

Module: modMain Page: 16

Properties

Container: Modules DateCreated: 2006/10/22 07:19:23 ق.ظ

LastUpdated: 2006/10/22 07:19:23 ق.ظ Owner: admin

UserName: admin

Code

1 Attribute VB_Name = "modMain"

2 Option Compare Database

3 Option Explicit

5 Private Type BROWSEINFO

6 hOwner As Long

7 pidlRoot As Long

8 pszDisplayName As String

9 lpszTitle As String

10 ulFlags As Long

11 lpfn As Long

12 lParam As Long

13 iImage As Long

14 End Type

16 Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _

17 "SHGetPathFromIDListA" (ByVal pidl As Long, _

18 ByVal pszPath As String) As Long

20 Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _

21 "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _

22 As Long

24 Private Const BIF_RETURNONLYFSDIRS = &H1

26 Public Const pconQ = """"

27 Public Const pconERR_BASE = vbObjectError + 5000

29 Sub sExportObjects(lngID As Long)

30 'Export out all objects to text format

31 'where BackupRecommended = true for a

32 'particular database

33 '

34 On Error GoTo ErrHandler

35 Dim clsBackup As cBackupRestore

36 Dim intRevNo As Integer

37 Dim rsCurr As Recordset

38 Dim dbCurr As Database

39 Dim dbRemote As Database

40 Dim strSQL As String

41 Dim strPath As String

43 Set clsBackup = New cBackupRestore

44 Set dbCurr = CodeDb

Module: modMain Page: 17

45 Set dbRemote = CurrentDb

47 'We only want the info pertaining to currentDB

48 strSQL = "Select DatabaseName, FolderPath from tblDatabases Where " _

49 & "dbID=" & lngID

50 Set rsCurr = dbCurr.OpenRecordset(strSQL, dbOpenSnapshot)

51 If rsCurr.RecordCount > 0 Then

52 'Get the path where the exports are supposed to be located

53 strPath = rsCurr!FolderPath

54 clsBackup.FolderPath = strPath

55 'Now get a list of all objects for CurrentDB which

56 'are recommended to be backed up

57 strSQL = "Select * from tblObjects where dbID=" & lngID _

58 & " And BackupRecommended=True"

59 Set rsCurr = dbCurr.OpenRecordset(strSQL, dbOpenDynaset)

60 'Export out all objects in this recordset

61 clsBackup.ExportObjects rsCurr

62 End If

64 'Reset BackupRecommended for next time around

65 strSQL = "UPDATE tblObjects SET BackupRecommended = False " _

66 & "WHERE (BackupRecommended=True) AND DBId=" & lngID

68 dbCurr.Execute strSQL, dbFailOnError

70 MsgBox "All selected objects were successfully saved in text format in the folder" _

71 & vbCrLf & pconQ & strPath & pconQ & ".", vbInformation, "Export successful."

72 ExitHere:

73 On Error Resume Next

74 Set rsCurr = Nothing

75 Set dbCurr = Nothing

76 Set dbRemote = Nothing

77 Set clsBackup = Nothing

78 Exit Sub

79 ErrHandler:

80 MsgBox "Error#: " & Err.Number & vbCrLf & Err.Description, vbCritical, "sExportObjects"

81 Resume ExitHere

82 End Sub

84 Sub sLogLastUpdateStamp(lngID As Long)

85 'DAO replacement for an Action query since

86 'functions in SQL statement generate an

87 'error from Add-ins

88 '

89 'Read the time all objects in CurrentDB were last updated

90 '

91 On Error GoTo ErrHandler

92 Dim strSQL As String

93 Dim dbCurr As Database

94 Dim rsCurr As Recordset

96 Set dbCurr = CodeDb

97 'Which objects we need to look up?

98 strSQL = "Select LastUpdated, ObjectType, ObjectName From " _

Module: modMain Page: 18

99 & "tblObjects Where DBID = " & lngID

100 Set rsCurr = dbCurr.OpenRecordset(strSQL, dbOpenDynaset)

101 With rsCurr

102 If .RecordCount > 0 Then

103 Do While Not .EOF

104 .Edit

105 'Get the LastUpdated stamp from the container

106 !LastUpdated = fGetLastUpdateStamp(!ObjectType, _

107 !ObjectName)

108 .Update

109 .MoveNext

110 Loop

111 End If

112 End With

113

114 ExitHere:

115 Set rsCurr = Nothing

116 Set dbCurr = Nothing

117 Exit Sub

118 ErrHandler:

119 MsgBox Err.Description & " (" & Err.Number & ")", vbCritical, "sLogLastUpdateStamp"

120 Resume ExitHere

121 End Sub

122

123 Sub sDetermineExportList(lngID As Long)

124 'DAO replacement for an Action query since

125 'functions in SQL statement generate an

126 'error from Add-ins

127 '

128 'Once we have the LastUpdated time for all objects

129 ' in the container, figure out which ones to

130 ' recommend to be backed up.

131 '

132 On Error GoTo ErrHandler

133 Dim strSQL As String

134 Dim dbCurr As Database

135 Dim rsCurr As Recordset

136

137 Set dbCurr = CodeDb

138 strSQL = "Select BackupRecommended, Lastupdated, DBID, LastBackupTimeStamp " _

139 & " From tblObjects Where DBID = " & lngID

140 Set rsCurr = dbCurr.OpenRecordset(strSQL, dbOpenDynaset)

141 With rsCurr

142 If .RecordCount > 0 Then

143 Do While Not .EOF

144 'only if the object has been modified since the

145 'last time we backed it up.

146 If !LastUpdated > Nz(!LastBackupTimeStamp) Then

147 .Edit

148 !BackupRecommended = True

149 .Update

150 End If

151 .MoveNext

152 Loop

Module: modMain Page: 19

153 End If

154 End With

155

156 ExitHere:

157 Set rsCurr = Nothing

158 Set dbCurr = Nothing

159 Exit Sub

160 ErrHandler:

161 MsgBox Err.Description & " (" & Err.Number & ")", vbCritical, "sDetermineExportList"

162 Resume ExitHere

163 End Sub

164

165 Function fGetLastUpdateStamp(intObjectType As Integer, strObjectName As String) As Variant

166 'Returns the LastUpdated property value of a database object

167 '

168 On Error GoTo ErrHandler

169 Dim db As Database

170 Dim datOut As Date

171

172 Set db = CurrentDb

173

174 Select Case intObjectType

175 Case acTable:

176 datOut = db.TableDefs(strObjectName).LastUpdated

177 Case acQuery:

178 datOut = db.QueryDefs(strObjectName).LastUpdated

179 Case acForm:

180 datOut = db.Containers("Forms").Documents(strObjectName).LastUpdated

181 Case acReport:

182 datOut = db.Containers("Reports").Documents(strObjectName).LastUpdated

183 Case acMacro:

184 datOut = db.Containers("Scripts").Documents(strObjectName).LastUpdated

185 Case acModule:

186 datOut = db.Containers("Modules").Documents(strObjectName).LastUpdated

187 End Select

188 fGetLastUpdateStamp = datOut

189 ExitHere:

190 Set db = Nothing

191 Exit Function

192 ErrHandler:

193 fGetLastUpdateStamp = Null

194 Resume ExitHere

195 End Function

196

197 Function fCreateCatalog(strDBName As String, strDBPath As String) As Boolean

198 'Create a new entry in tblDatabases for the CurrentDB

199 'and get a list of all objects from CurrentDB into tblObjects

200 '

201 On Error GoTo ErrHandler

202 Dim db As Database

203 Dim tdfRemote As TableDef

204 Dim qdfRemote As QueryDef

205 Dim docRemote As Document

206 Dim ctrRemote As Container

Module: modMain Page: 20

207 Dim dbRemote As Database

208 Dim rs As Recordset

209 Dim rsObj As Recordset

210 Dim lngID As Long

211

212 Set db = CodeDb

213 Set dbRemote = CurrentDb

214 Set rs = db.OpenRecordset("tblDatabases", dbOpenDynaset)

215 Set rsObj = db.OpenRecordset("tblObjects", dbOpenDynaset)

216 'Add the new database name

217 With rs

218 .AddNew

219 !DatabaseName = strDBName

220 !FolderPath = strDBPath

221 .Update

222 .Bookmark = .LastModified

223 'Which ID got assigned to it?

224 lngID = !DBId

225 End With

226

227 'All the tables

228 Call SysCmd(acSysCmdInitMeter, "Cataloging all tables...", dbRemote.TableDefs.Count)

229 For Each tdfRemote In dbRemote.TableDefs

230 'Don't read system or temp/deleted tables

231 If (tdfRemote.Attributes And dbSystemObject) = False _

232 And Not Left$(tdfRemote.Name, 1) = "~" Then

233 With rsObj

234 .AddNew

235 !DBId = lngID

236 !ObjectType = acTable

237 !ObjectName = tdfRemote.Name

238 .Update

239 End With

240 End If

241 Call SysCmd(acSysCmdUpdateMeter, 1)

242 Next

243

244 'All the queryDefs

245 Call SysCmd(acSysCmdInitMeter, "Cataloging all queries...", dbRemote.QueryDefs.Count)

246 For Each qdfRemote In dbRemote.QueryDefs

247 'Don't read temp/deleted queries

248 If Not Left$(qdfRemote.Name, 1) = "~" Then

249 With rsObj

250 .AddNew

251 !DBId = lngID

252 !ObjectType = acQuery

253 !ObjectName = qdfRemote.Name

254 .Update

255 End With

256 End If

257 Call SysCmd(acSysCmdUpdateMeter, 1)

258 Next

259

260 'All Forms

Module: modMain Page: 21

261 Set ctrRemote = dbRemote.Containers("Forms")

262 Call SysCmd(acSysCmdInitMeter, "Cataloging all forms...", ctrRemote.Documents.Count)

263 For Each docRemote In ctrRemote.Documents

264 'Don't read temp/deleted forms

265 If Not Left$(docRemote.Name, 1) = "~" Then

266 With rsObj

267 .AddNew

268 !DBId = lngID

269 !ObjectType = acForm

270 !ObjectName = docRemote.Name

271 .Update

272 End With

273 End If

274 Call SysCmd(acSysCmdUpdateMeter, 1)

275 Next

276

277 'All Reports

278 Set ctrRemote = dbRemote.Containers("Reports")

279 Call SysCmd(acSysCmdInitMeter, "Cataloging all reports...", ctrRemote.Documents.Count)

280 For Each docRemote In ctrRemote.Documents

281 'Don't read temp/deleted Reports

282 If Not Left$(docRemote.Name, 1) = "~" Then

283 With rsObj

284 .AddNew

285 !DBId = lngID

286 !ObjectType = acReport

287 !ObjectName = docRemote.Name

288 .Update

289 End With

290 End If

291 Call SysCmd(acSysCmdUpdateMeter, 1)

292 Next

293

294 'All Macros

295 Set ctrRemote = dbRemote.Containers("Scripts")

296 Call SysCmd(acSysCmdInitMeter, "Cataloging all macros...", ctrRemote.Documents.Count)

297 For Each docRemote In ctrRemote.Documents

298 'Don't read temp/deleted Macros

299 If Not Left$(docRemote.Name, 1) = "~" Then

300 With rsObj

301 .AddNew

302 !DBId = lngID

303 !ObjectType = acMacro

304 !ObjectName = docRemote.Name

305 .Update

306 End With

307 End If

308 Call SysCmd(acSysCmdUpdateMeter, 1)

309 Next

310

311 'All Modules

312 Set ctrRemote = dbRemote.Containers("Modules")

313 Call SysCmd(acSysCmdInitMeter, "Cataloging all modules...", ctrRemote.Documents.Count)

314 For Each docRemote In ctrRemote.Documents

Module: modMain Page: 22

315 'Don't read temp/deleted Modules

316 If Not Left$(docRemote.Name, 1) = "~" Then

317 With rsObj

318 .AddNew

319 !DBId = lngID

320 !ObjectType = acModule

321 !ObjectName = docRemote.Name

322 .Update

323 End With

324 End If

325 Call SysCmd(acSysCmdUpdateMeter, 1)

326 Next

327 fCreateCatalog = True

328 ExitHere:

329 On Error Resume Next

330 Set rs = Nothing

331 Set rsObj = Nothing

332 Set docRemote = Nothing

333 Set ctrRemote = Nothing

334 Set qdfRemote = Nothing

335 Set tdfRemote = Nothing

336 Set dbRemote = Nothing

337 Set db = Nothing

338 Call SysCmd(acSysCmdRemoveMeter)

339 Call SysCmd(acSysCmdClearStatus)

340 Exit Function

341 ErrHandler:

342 fCreateCatalog = False

343 Resume ExitHere

344 End Function

345

346 Public Function BrowseFolder(szDialogTitle As String) As String

347 'Bring up the BrowseFolder dialog so that

348 'the user may select a new location for all backups

349 '

350 Dim X As Long, bi As BROWSEINFO, dwIList As Long

351 Dim szPath As String, wPos As Integer

352

353 With bi

354 .hOwner = hWndAccessApp

355 .lpszTitle = szDialogTitle

356 .ulFlags = BIF_RETURNONLYFSDIRS

357 End With

358

359 dwIList = SHBrowseForFolder(bi)

360 szPath = Space$(512)

361 X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)

362

363 If X Then

364 wPos = InStr(szPath, Chr(0))

365 BrowseFolder = Left$(szPath, wPos - 1)

366 Else

367 BrowseFolder = ""

368 End If

Module: modMain Page: 23

369 End Function

370

371 Function CurrentDBDir() As String

372 'From an original idea by

373 'Ken Getz

374 '

375 Dim strDBPath As String

376 Dim strDBFile As String

377 strDBPath = CurrentDb.Name

378 strDBFile = Dir(strDBPath)

379 CurrentDBDir = Left(strDBPath, Len(strDBPath) - Len(strDBFile))

380 End Function

381

382 Function fWZ_Init()

383 'Entry point for the wizard

384 '

385 DoCmd.OpenForm "frmDatabases"

386 End Function

387

این متن فقط قسمتی از پایان نامه بانک اطلاعات می باشد

جهت دریافت کل متن ، لطفا آن را خریداری نمایید

قیمت فایل فقط 2,600 تومان

برچسب ها : اطلاعات , ذخیره سازی

نظرات کاربران در مورد این کالا

تا کنون هیچ نظری درباره این کالا ثبت نگردیده است.

ارسال نظر