دسته بندي: تحقیق و پروژه رایگان,پروژه و تحقیق رایگان,دانش آموزی,تحقیق دانشجویی,

تحقیق درباره نرم افزار foxpro

گاهی با توجه به پیشرفت علم و تکنولوژی در زمینه کامپیوتر و به بازار آمدن انواع نرم‌افزارهای جدید که سازگاری شدیدی با محیط ویندوز و تقریبا به هیچ کدام از آنها محیط و برنامه‌های تحت سیستم عامل را پشتیبانی نمی‌کنند ضرورت پیدا می‌کند که برای کنار گذاشتن برنامه‌هاایتحت Dos خود بتوانیم آنها را به طریقی تبدیل به انواع مختلف قابل شناسایی تحت ویندوز تبدیل کنیم.

یکی از موارد کاربرد آن در مواقعی است که به بانکهاب مختلف موجود در محیط بانک اطلاعاتی تحت Dos از حمله foxpro را بتوان به یک بانک تحت سیستم عامل win تبدیل کرد. خصوصا این که در کشورمان داده‌های این بانکها تقریبا تماما فارسی بوده و مار را برای ما مشکل می‌کند.

به همین جهت تصمیم گرفته شد که با تکیه به تجربه چندین ساله در زمینه برنامه‌نویسی‌های تحت Dos و Windows نرم‌افزاری فراهم آورده شود که نیازهای این گونه افراد را برآورده سازد.

در این جزوه سعی شده است که ضمن نشان دادن و توضیح کامل این نرم‌افزار تمام مطالب به صورت واضح و شفاف به همراه لیست و توضیح تمام دستورات به کار گرفته شده آورده شود تا استفاده کنندگان بتوانند درک بهتری از رابطه‌ی این دو سیستم عامل با هم داشته باشند. در عین حال به جنبه‌هایی از تئوری و مقدمات برنامه‌نویسی نیز توجه شده است.

در این جا لازم می‌دانم که از همکاری همه کسانی که تولید و آماده‌سازی این پروژه با کمک آنان میسر گشت تشکر کنم. در این میان از آقای نیک‌فرجام و آقای اخلاقی که در تمام مراحل انجام این پروژه نهایت همکاری را داشته‌اند سپسگذارم.

مهدی حسین زاده پاییز 85

نحوه پیاده‌سازی

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

همچنین شامل یک برنامه آسان شده به زبان Delphi است که در آن بانکهای تحت Dos که اطلاعات رکوردهای آن فقط شامل کد اسکی آن علائم و حروف است را تبدیل به کدهای معادل آن در محیط ویندوز و ایجاد یک بانک جدید تحت ویندوز می‌نماید.

در ذیل به جزئیات هر دو برنامه و تشریح عملکرد آنها می‌پردازیم:

تشریح برنامه تحت Dos

در ابتدا توسط تابع feount تعداد فیلدهای بانک را در متغیر c- field ریخته‌ایم و یک آرایه به طول تعداد فیلدهای بانک و به اندازه 4 برای نگهداری لیست فیلدها به همراه نوع و اندازه آنها تعریف کرده و آن را با مقادیر بانک پر می‌کننیم.

c-field = fcount()

Dimension array 1 (o- field,4)

? afield (array 1)

سپس برای این که اطلاعات موجود در بانک پاک نشود یکبانک جدید درست کرده و تمام رکوردها را در آن اضافه می‌کنیم، توجه داشته باشید که طول فیلدهای از نوع رشته‌ای در بانک دوم ضرب در 3 شده (علت آن این است که چون حروف در مبنای اسکی بین Q تا 255 است و ما نیاز داریم در بانک دوم به جای حروف کدهای 3 حرفی آنها را قرار دهیم.

For I -=1To c-field

If array 1 (I,2) ="c"

Array 1 (I,3) = array1(I,3)* 3

Endif

Endfor

Create DBF c: 1bank 2 from Array Array1

Use bank 2

Append from bank

سپس در یک حلقه do- while و توسط یک تابع به نام conv 2 bin تمام بانک اول را پیمایش کرده و معادل اسکی آن را در بانک دوم می‌ریزیم.

برای مشاهده کدهای اسکی حروف و علائم مورد استفاده در محیط Dos می‌توانید فایل ppz.pro را اجرا نموده و نتیجه کار را در فایل p2.pro درون درایو c خود مشاهده کنید. اگر نرم‌افزای فارسی‌سازی مانند sepand را در سیستم خود اجرا کرده باشید خواهید دید که حروف فارسی کدهای 141 تا 175 و 224 را شامل شده‌اند و کد حروف انگلیسی از 65 تا 122 می‌باشد.

تشریح برنامه تحت ویندوز

در این برنامه بانکهایی که توسط foxpro با کدهای اسکی پر شده‌اند را تفسیر نموده و یک بانک جدید تحت paradox(*.DB) ایجاد و آنها را مقداردهی‌ می‌کند، توجه داشته باشید که روش کار بدین صورت است که کدهای اسکی ؟ تا 255 در یک تابع به نام vagaf2win تشیخیص داده شده است و معادل آنها برگردانده می‌شود.

روش اجرا و به کارگیری برنامه

1- قبل از هر کار بانک تحت foxpro خود را با نام Bank. Dbf در داخل درایو c کپی کنید.

2- از طریق فرمان زیر در منوی Rum وارد محیط Dos شوید run = Cmd

3- توسط فرمان زیر به شاخه foxpro رفته و فایل foxpro.exe را اجرا نمایید.

CD foxpro

4- از منوی file گزینه open را انتخاب و فایل ppl.PRG را از شاخه DBF موجود در این نرم‌افزار باز کنید.

5- کلیدهای ctrl+o را برای اجرای بنرامه بزنید (ممکن است عملیات اجرا برای چند دقیقه نیز طول بکشد بنابراین صبر کنید.)

تذکر: اگر در زمان اجرا با پیغامی مواجه شدید لطفا دکمه Ignore را بزنید) بعد از پایان اجرا می‌توانید بانک دوم را توسط دستورات زیر مشاهده کنید:

Close Database

Use C:1bank2 . dbf

List

حالا می‌توانید از محیط foxproخارج شوید، برای این کار از منوی file گزینه Quit را انتخاب کنید.

در این مرحله یک بانک به نام Bank 2.dbf برایتان درون درایو C ایجاد شده که شامل کدهای اسکی ازلاعات موجود در رکوردهای بانک شماست.

این بانک را باید برای وارد کردن به برنامه دوم درون فایل Impont Convert or. Mdb کنید، برای این کار فایل Convert or. Mdb را اجرا کنید، درون بانک راست کلیک کرده و گزینه Impont را بزندی، در این مرحله باید فایل Bank 2.dbf را از درایو C انتخاب و Impont کنید.

بعد از این کار فایل اصلی برنامه به نام Convertoic exe را اجرا کنید.

صفحه‌‌ای ظاهر می‌شود که باید مراحل زیر را برای تبدیل بانک طی کنید.:

1- روی open کلیک کنید و فایل converton.mdb را از شاخه برنامه باز کنید.

2- در این مرحله باید نام بانک خود را (bank2) از لیست انتخاب کرده و ok را بزنید.

3- برای ایجاد یک بانک تحت paradox بر روی create table کلیک کنید.

4- در پایان روی convert کلیک کنید.

مشاهده می کنید که جدول سمت چپ شامل کدهای اسکی و جدول سمت راست همان کدها را تبدیل به معادل کاراکتری شان کرده است. این بانک درون شاخه برنامه بنام bank.db قابل دسترس است.

مرجع دستورات

APPEND FROM

این دستور رکوردها را از فایل filename خوانده و یک نسخه از آنها را به بانک فعال اضافه می‌کند. گزینه FOR/WHILE شرطی را مشخص می‌کند که رکوردها برای کپی شدن باید آن را دارا باشند. اگر فایل حاوی داده‌ها یکی از بانک‌های فاکس‌پرو نباشد؟، در آن صورت نوعی را که مشخص می‌کنید باید یکی از انواع فایلهای قابل قبول فاکس‌پرو باشد. گزینه‌های قابل قبول فاکس‌پرو عبارتند از:

DELEIMITED, DELEIMITEDWITH delimiter, DELEIMITEDWITH TAB, DELEIMITEDWITHBLANK.XKS , WRK, WRL, WKS, WK3, WKI , SYLK, RPO, PDOX, MOD, FW2, DIF, SDF,

می‌دهند که چگونه می‌توان به کمک این دستور رکوردهایی را از یک فایل (بانک) کوچک به داخل بانک فعال جاری کپی نمود.

CLEAR

این دستور صفحه نمایش را پاک می‌کند. این دستور را همچنین می‌توان به عنوان گزینه‌ای از دستور@ به کار برد؛ در آن صورت قسمت پایین و سمت راست موقعیت جاری مکان‌نما پاک می‌شود.

CREATE

این دستور یک بانک جدید ایجاد و ساختار آن را تعریف می‌کند. اگر نام فایل را مشخص نکنید، فاکس‌پرو هنگام ذخیره ساختار آن، برای دریافت آن اعلام آمادگی می‌کند. اگر نام فایل را مشخص کنید، فاکس‌پرو بانک را تحت حمایت همان نام ایجاد می‌کند. DBF به طور خودکار به عنوان انشعاب فایل در نظر گرفته می‌شود، مگر این که انشعاب دیگری را خود مشخص کنید.

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

DIMENSION

این دستور یک آرایه ایجاد می‌کند (توجه داشته باشید که این دستور با FoxBASE+ و Clippcr سازگار است. برای سازگاری با Dbase IV از دستور DECLARE استفاده کنید) نام و ابعاد آرایه را باید در لیست تعریف آرایه مشخص کنید. نام آرایه باید حداکثر ده کاراکتر باشد. سطرها و ستونهای یک آرایه یک بعدی ایجاد می‌کند. وقتی سطرها و ستونهای یک آرایه را مشخص می‌کنید، آنها را به وسیله کاما از هم جدا کنید تا فاکس‌پرو یک آرایه دو بعدی ایجاد کند.

DO WHILE

دستور DO WHILE، دستورات بین DO WHILE و ENDDO را تا وقتی که شرط مورد نظر برقرار باشد، اجرا می‌کند. وقتی فاکس‌پرو با دستور DO WHILE مواجه می‌شود، ابتدا شرط پس از دستور را بررسی می‌کند. اگر شرط نادرست باشد، اجرای برنامه را از دستور پس از ENDDO اجرا می‌کند. وقتی فاکس‌پرو به دستور ENDDO می‌رسد، مجدداً شرط حلقه را بررسی می‌کند. اگر شرط هنوز برقرار باشد، دستورات داخل حلقه مجدداً اجرا می‌شوند. اگر شرط دیگر برقرار نباشد، فاکس‌پرو اجرای برنامه را از دستور بعد از ENDDO ادامه می‌دهد.

GOTO یا GO

این دستورات نشانگر فایل را به یک رکورد خاص انتقال می‌دهند. GO TO نشانگر فایل را به ابتدا و GO BOTTOM نیز آن را به انتهای فایل انتقال می‌دهد. اگر عددی را به همراه دستور به کار برید، آن عدد به عنوان شماره یک رکورد تلقی شدهو نشانگر فایل به همان رکورد انتقال داده می‌شود. با استفاده از گزینه IN نیز می‌توانید نشانگر فایل ناحیه‌های کاری دیگر را به رکورد مورد نظر انتقال دهید. Alias ممکن است نام فایل و یا شماره ناحیه کاری مورد نظر باشد.

SET PATH

این دستور برای مشخص کردن مسیر جستجوی فایلها به کار می‌رود. در صورتی که فایل مورد نظر در دایرکتوری جاری یافت نشود، این مسیر نیز جستجو می‌شود. توجه داشته باشید که این دستور تاثیری بر روی مسیر جستجوی DOS ندارد؛ بلکه تنها یک مسیر جستجویی که به وسیله این دستور مشخص می‌کنید، مسیر جستجوی DOS نیز جستجو می‌شود.

REPLACE

این دستور مقادیر جدیدی را جایگزین محتوای قبل فیلدهای مشخص شده می‌کند. برای این که همزمان محتوای بیش از یک فیلد را تغییر دهید، کافی است آنها را با WITH expression مشخص کنید؛ توجه داشته باشید هر یک از آنها را به وسیله کاما از یکدیگر جدا کنید. با استفاده از گزینه FOR می‌توانید شرط بخصوصی رامشخص کنید که در این صورت جایگزینی مقادیر تنها زمانی صورت می‌گیرد که شرط برقرار باشد. اگر از گزینه WHEN استفاده کنید، عمل جایگزینی تا وقتی ادامه می‌یابد که شرط برقرار باشد. اگر از هیچ یک از سه گزینه scope، FOR و یا WHLE استفاده نکیند، تنها محتوای رکورد جاری (رکوردی که نشانگر فایل نشان می‌دهد) تغییر داده می‌شود. اگر می‌خواهید متنی را به محتوای جاری یک فیلد memo اضافه کنید، از گزینه ADDTTIVE استفاده کنید. فاکس‌پرو بهطور خودکار کاراکتر اسکی شماره 13 (carriagc return) را بین مقدار قبل و جدید اضافه می‌کند. در نگارش‌های 2و بالاتر، گزینه NOOPTIMIZE سبب می‌شود که فاکس‌پرو از تکنیک‌های بهینه‌سازی داخلی خود (تکنولوژی Rushmore استفاده نکند.

وقتی محتوای رکوردهای را به طور عمودی از طریق ویندوی دستورات تغییر می‌دهید، بسیار وقت کنید؛ کاربرد نادرست این دستور ممکن است خسارت جبران‌ناپذیری به همراه داشته باشد. اگر مطمئن نیستند که این دستور چه تاثیری بر روی بانک اطلاعاتی خواهد داشت، در آن صورت یک کپی با استفاده از دستور COPY TO ایجاد کرده و آزمایشات لازم را به جای نسخه اصلی بر روی نسخه دوم فایل به عمل آورید.

USE

این دستور یک بانک اطلاعاتی را همراه با فایلهای شاخص آن در یک ناحیه کاری باز می‌کند. اگر به جای نام فایل از ؟ استفاده کنید، فهرست فایلهای موجود ظاهرمی‌شود. با استفاده از گزینه‌های INDEX و ORDER مشخص کنید که کدام فایلهای شاخص باز یا فعال خواهند بود. با استفاده از گزینه ALLAS نیز می‌توانید یک فایل را در ناحیه کاری دیگر ؟

AFIELDS

قالب تابع

این تابع مشخصات فیلدهای بانک موجود در ناحیه کاری جاری را در عناصر یک آرایه ذخیره می‌کند. نام، نوع، طور و تعداد ارقام اعشاری فیلدها در عناصر آرایه ذخیره می‌شوند.

این آرایه که نام با expC مشخص می‌شود، با محتوای چهارستونی که عموماً به عنوان نتیجه دستور LIST STRUCTURE ظاهر می‌شوند، پر می شود. نام فیلدها در ستون اول ذخیره شده و محتوای ستون نیز عناصر کاراکتری خواهد بود. نوع فیلدها در ستون دوم ذخیره شده و محتوای ستون یک رشته یک کاراکتری خواهد بود؛ "C" برای فیلدهای کاراکتری، "D" برای فیلدهای نوع تاریخ، "L" برای فیلدهای منطقی،M برای فیلدهای memo،N برای فیلدهای عددی، و F برای فیلدهای اعشاری با نقطه ممیز شناور. طول فیلدها در ستون سوم ذخیره شده و محتوای آن عناصر عددی خواهد بود. تعداد ارقام اعشاری فیلدها در ستون چهارم و عناصر آن عددی خواهد بود.

ALLTRIM

قالب تابع

این تابع blankهای ابتدا و انتهایی رشته کاراکتری expC را حذف می‌کند. این تابع از نظر عملکرد با LTRIM (RTRIM (expC)) معادل است.

FCOUNT

قالب تابع

این تابع تعداد فیلدهای یک بانک اطلاعاتی را برمی‌گرداند. برای برگرداندن تعداد فیلدهای بانکهای اطلاعاتی موجود در ناحیه‌های کاری دیگر نیز از alias استفاده کنید.

LEN

قالب تابع

این تابع طول رشته کاراکتری expC را برمی‌گرداند. ExpC ممکن است یک فیلد memo باشد که در آن صورت طول متن ذخیره شده در آن برگردانده می‌شود. توجه داشته باشید که اگر expC نشان‌دهنده یک فیلد کاراکتری باشد، این تابع به جای این که طول متن موجود در آن را برگرداند، طول فیلد را برمی‌گرداند. برای به دست آوردن طول متن ذخیره شده در فیلدهای کاراکتری باید از تابع TRIM () استفاده کنید.

PROCEDRE

این دستور ابتدای هر پروسیجر مجزا رادر فایل پروسیجرها نشان می‌دهد. این فایل برای نگهداری پروسیجرهایی مورد استفاده قرار می‌گیرد به صورت روتین‌های مجزا در برنامه‌ها فراخوانده می‌شوند. برای ساختن یک پروسیجر، تمام دستورات مورد نیاز را بین PROCEDURE و RETURN قرار دهید (دستور RETURN در فاکس‌پرو اختیاری است؛ اما توصیه می‌شود که آن را برای مشخص شدن آنتهای یک پروسیجر به کاربرید) وقتی پروسیجرها در یکک فایل مجزا نگهداری می‌شوند، آن فایل را باید (قبل از فراخوانی یک پروسیجر)با استفاده از SET PROCEDURE معرف نمود. توجه داشته باشید که می‌توانید پروسیجرها را در یک فایل برنامه اصلی نگه داشته ودیگر از دستور SET PROCEDURE استفاده نکنید. قرار دادن پروسیجرها در یک فایل سبب افزایش سرعت اجرای برنامه می‌شود؛ چرا که هر بار که یک پروسیجر از برنامه اصلی فراخوانده می‌شود، دیگر نیازی نیست که آن پروسیجر از روی دیسک که داخل حافظه لود شود.

نام پروسیجرها باید حداکثر هشت کاراکتر باشد. نام یک پروسیجر می‌تواند شامل "-" ارقام و یا حروف باشد، ولیکن باید حتما با یک حرف آغاز شود. دقت داشته باشید که نام فایل برنامه را به پروسیجری که در آن وجود دارد اختصاص ندهید.

تعداد پروسیجرها را به ترتیب زیر انجام می‌دهد.

1- برنامه کامپایل شده جاری جستجو می‌شود.

2- فایل یاد شده در دستور SET PROCEDURE جستجو می‌شود.

3- فایل برنامه‌ها جستجو می‌شود؛ این جستجو از آخرین برنامه آغاز و تا اولین برنامه ادامه می‌یابد.

4- فایل اجرایی همنام با فایل پروسیجرها جستجو می‌شود.

اگر می‌خواهید پروسیجرها را در برنامه اصلی نگه دارید، صورت آنها را در انتهای برنامه قرار دهید. دلیل این کار این است که دستورات پس از PROCEDURE تا وقتی که مستقیما توسط دستور DO فراخوانده نشده باشند، اجرا نمی‌شوند؛ به عبارت دیگر اگر بخواهید دستور PROCEDURE، چند دستور دیگر، و دستور RETURN را در میانه یک برنامه موجود قرار دهید، در آن صورت دستورات پس از RETURN هیچ‌گاه اجرا نخواهد شد.

PUBLIC

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

PUBLICPRINTIT

اما اگر بخواهید یک متغیر عددی به نام AGE ایجاد کنید و عدد 18 را در آن ذخیره کنید، در آن صورت لازم است که پس از تعریف متغییر، مقدار مورد نظر را با استفاده از دستور دیگری در آن ذخیره کنید:

PUBLIC AGE

STORE 18 TO AGE

سورس برنامه فاکس پرو

set path to c:\ ; c:\

CLOSE DATABASES

use BANK

go top

public s,r,input1,r1,r2,c_field,I,J,l_str

**************************************

c_field=fcount()

DIMENSION array1(c_field,4)

? afield(array1)

FOR I=1 TO c_field

IF array1(I,2)="C"

array1(I,3)=array1(I,3)*3

ENDIF

ENDFOR

CREATE DBF C:\bank2 FROM ARRAY array1

use bank2

append from bank

**************************************

use bank2

do while .not. eof()

r=""

s=""

clea

**************************************

FOR I=1 TO c_field

input1=array1(I,1)

r2=&input1

IF array1(I,2)="C"

s=alltrim(r2)

do conv2bin

ELSE

IF array1(I,2)="N"

r=r2

ELSE

s=alltrim(r2)

do conv2bin

ENDIF

REPLACE &input1 WITH r

ENDFOR

************************************

skip 1

enddo

retu

**********

proc conv2bin

c=1

ss=""

r=""

ss=s

for c=1 to len(ss)

s=alltrim(str(asc(substr(ss,c,1))))

if (len(s))=1

re= "00"+s

endif

if (len(s))=2

re= "0"+s

endif

if (len(s))=3

re= s

endif

r=r+re

retu

**********

سورس برنامه دلفی

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DBCtrls, Mask, DB, ADODB, Grids, DBGrids, ExtCtrls,

DBTables, ExtDlgs;

type

TFormConverter = class(TForm)

Button1: TButton;

ListBox1: TListBox;

DBGrid1: TDBGrid;

DataSourceSource: TDataSource;

ADOTableSource: TADOTable;

DBGrid2: TDBGrid;

ListBox2: TListBox;

OpenDialog1: TOpenDialog;

Button2: TButton;

Label1: TLabel;

Panel1: TPanel;

ComboBox1: TComboBox;

Label3: TLabel;

Button3: TButton;

ADOConnection1: TADOConnection;

Button4: TButton;

ListBox3: TListBox;

ListBox4: TListBox;

Button9: TButton;

ListSize: TListBox;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

taxamount:tfloatfield;

{ Private declarations }

public

{ Public declarations }

end;

var

FormConverter: TFormConverter;

countfield:integer;

mytable:ttable;

mydatasource:tdatasource;

implementation

{$R *.dfm}

Function Vegaf2Win(Source:string):string;

Var ch:Byte;

T:String;

Begin

Ch:=StrToInt(Source);

T:='';

Case Ch OF

//***********

32: t:=' ';

33: t:='!';

34: t:='"';

35: t:='#';

36: t:='$';

37: t:='%';

38: t:='&';

39: t:=',';

40: t:=')';

41: t:='(';

42: t:='*';

43: t:='+';

44: t:=',';

45: t:='-';

46: t:='.';

47: t:='/';

48: t:='0';

49: t:='1';

50: t:='2';

51: t:='3';

52: t:='4';

53: t:='5';

54: t:='6';

55: t:='7';

56: t:='8';

57: t:='9';

///////////

58: t:=':';

59: t:=';';

60: t:='<';

61 : t:='=';

62 : t:='>';

63 : t:='?';

64 : t:='@';

65 : t:='A';

66 : t:='B';

67 : t:='C';

68 : t:='D';

69 : t:='E';

70 : t:='F';

71 : t:='G';

72 : t:='H';

73 : t:='I';

74 : t:='J';

75 : t:='K';

76 : t:='L';

77 : t:='M';

78 : t:='N';

79 : t:='O';

80 : t:='P';

81 : t:='Q';

82 : t:='R';

83 : t:='S';

84 : t:='T';

85 : t:='U';

86 : t:='V';

87 : t:='W';

88 : t:='X';

89 : t:='Y';

90 : t:='Z';

91 : t:='[';

92 : t:='\';

93 : t:=']';

94 : t:='^';

95 : t:='_';

96 : t:='`';

97 : t:='a';

98 : t:='b';

99 : t:='c';

100 : t:='d';

101 : t:='e';

102 : t:='f';

103 : t:='g';

104 : t:='h';

105 : t:='i';

106 : t:='j';

107 : t:='k';

108 : t:='l';

109 : t:='m';

110 : t:='n';

111 : t:='o';

112 : t:='p';

113 : t:='q';

114 : t:='r';

115 : t:='s';

116 : t:='t';

117 : t:='u';

118 : t:='v';

119 : t:='w';

120 : t:='x';

121 : t:='y';

122 : t:='z';

123 : t:='{';

124 : t:='|';

125 : t:='}';

126 : t:='~';

127 : t:='';

///////////

128: t:='0';

129: t:='1';

130: t:='2';

131: t:='3';

132: t:='4';

133: t:='5';

134: t:='6';

135: t:='7';

136: t:='8';

137: t:='9';

138: t:=',';

139: t:='-';

140: t:='¿';

141: t:='Â';

142: t:='Æ';

143: t:='Á';

144: t:='Ç';

145: t:='Ç';

146: begin t:='È'; t:=t+' '; end;

147: t:='È';

148: begin t:=''; t:=t+' '; end;

149: t:='';

150: begin t:='Ê'; t:=t+' '; end;

151: t:='Ê';

152: begin t:='Ë'; t:=t+' '; end;

153: t:='Ë';

154: begin t:='Ì'; t:=t+' '; end;

155: t:='Ì';

156: begin t:=''; t:=t+' '; end;

157: t:='';

158: begin t:='Í'; t:=t+' '; end;

159: t:='Í';

160: begin t:='Î'; t:=t+' '; end;

161: t:='Î';

162: t:='Ï';

163: t:='Ð';

164: t:='Ñ';

165: t:='Ò';

166: t:='Ž';

167: begin t:='Ó'; t:=t+' '; end;

168: t:='Ó';

169: begin t:='Ô'; t:=t+' '; end;

170: t:='Ô';

171: begin t:='Õ'; t:=t+' '; end;

172: t:='Õ';

173: begin t:='Ö'; t:=t+' '; end;

174: t:='Ö';

175: t:='Ø';

/////////////////////////

224: t:='Ù';

225: begin t:='Ú'; t:=t+' '; end;

226: begin t:='Ú'; t:=t+' '; end;

227: t:='Ú';

228: t:='Ú';

229: begin t:='Û'; t:=t+' '; end;

230: begin t:='Û'; t:=t+' '; end;

231: t:='Û';

232: t:='Û';

233: begin t:='Ý'; t:=t+' '; end;

234: t:='Ý';

235: begin t:='Þ'; t:=t+' '; end;

236: t:='Þ';

237: begin t:='˜'; t:=t+' '; end;

238: t:='˜';

239: begin t:=''; t:=t+' '; end;

240: t:='';

241: begin t:='á'; t:=t+' '; end;

242: t:='áÇ';

243: t:='á';

244: begin t:='ã'; t:=t+' '; end;

245: t:='ã';

246: begin t:='ä'; t:=t+' '; end;

247: t:='ä';

248: t:='æ';

249: begin t:='å'; t:=t+' '; end;

250: t:='å';

251: t:='å';

252: begin t:='í'; t:=t+' '; end;

253: begin t:='í'; t:=t+' '; end;

254: t:='í';

End;

IF t<>'' Then Vegaf2Win:=t;

End;

//------------------*********------------------

procedure Splitter(Source:String);

var Counter:Integer;

begin

FormConverter.ListBox1.Clear;

Counter:=1;

while (Counter<=length(Source)) do

begin

Formconverter.ListBox1.AddItem(copy(Source,Counter,3),Formconverter);

inc(Counter,3)

End;

end;

//------------------*********------------------

Function vgf2WinNumber(strSource:String):String;

var i,j:Integer;

SubStr,CompleteStr:string;

begin

Splitter(strSource);

for i:=0 to Formconverter.ListBox1.Items.Count-1 do

Begin

Substr:=Vegaf2Win(formconverter.ListBox1.Items.Strings[i]);

if (Substr='0') or

(Substr='1') or

(Substr='2') or

(Substr='3') or

(Substr='4') or

(Substr='5') or

(Substr='6') or

(Substr='7') or

(Substr='8') or

(Substr='9') or

(Substr='/') or

(Substr='\') or

(Substr='A') or

(Substr='B') or

(Substr='C') or

(Substr='D') or

(Substr='E') or

(Substr='F') or

(Substr='G') or

(Substr='H') or

(Substr='I') or

(Substr='J') or

(Substr='K') or

(Substr='L') or

(Substr='M') or

(Substr='N') or

(Substr='O') or

(Substr='P') or

(Substr='Q') or

(Substr='R') or

(Substr='S') or

(Substr='T') or

(Substr='U') or

(Substr='V') or

(Substr='W') or

(Substr='X') or

(Substr='Y') or

(Substr='Z') or

(Substr='a') or

(Substr='b') or

(Substr='c') or

(Substr='d') or

(Substr='e') or

(Substr='f') or

(Substr='g') or

(Substr='h') or

(Substr='i') or

(Substr='j') or

(Substr='k') or

(Substr='l') or

(Substr='m') or

(Substr='n') or

(Substr='o') or

(Substr='p') or

(Substr='q') or

(Substr='r') or

(Substr='s') or

(Substr='t') or

(Substr='u') or

(Substr='v') or

(Substr='w') or

(Substr='x') or

(Substr='y') or

(Substr='z') then CompleteStr:=CompleteStr+SubStr

Else CompleteStr:=SubStr+CompleteStr;

end;

vgf2WinNumber:=CompleteStr;

end;

//------------------*********------------------

Function Counter(var ID:Integer):String;

var II,i,j:Integer;

St,Sub,s2,StEnd:string;

Begin

inc(id);

s2:=inttostr(id);

IF length(s2)>=15 Then Counter:=s2;

for i:=1 to 15-length(s2) do

s2:='0'+s2;

Counter:=s2;

End;

procedure TFormConverter.Button1Click(Sender: TObject);

var memoindicator:boolean;

begin

DBGrid1.Update;

ListBox2.AddItem(TimeToStr(Time),Formconverter);

memoindicator:=false;

myTable.Open;

adoTableSource.Open;

while Not (ADOTableSource.Eof) do

Begin

countfield:=listbox3.Count-1;

myTable.Append;

while (countfield >= 0) do begin

IF (listbox4.Items.Strings[countfield]='string') Then

myTable.FieldByName(listbox3.Items.Strings[countfield]).Text:=vgf2WinNumber(ADOTableSource.FieldByName(listbox3.Items.Strings[countfield]).Text)

else IF (listbox4.Items.Strings[countfield]='memo') Then

begin

end

else

myTable.FieldByName(listbox3.Items.Strings[countfield]).Text:=ADOTableSource.FieldByName(listbox3.Items.Strings[countfield]).Text;

countfield:=countfield-1;

end;

myTable.Post;

ADOTableSource.Next;

end;

ListBox2.AddItem(TimeToStr(Time),Formconverter);

end;

procedure TFormConverter.Button2Click(Sender: TObject);

var

SL: TStrings;

index: Integer;

begin

ADOConnection1.Close;

ComboBox1.Clear;

if OpenDialog1.Execute then begin

ADOTablesource.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+OpenDialog1.InitialDir+OpenDialog1.FileName+';Persist Security Info=False';

label1.Caption:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+OpenDialog1.InitialDir+OpenDialog1.FileName+';Persist Security Info=False';

SL := TStringList.Create;

try

ADOconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+OpenDialog1.InitialDir+OpenDialog1.FileName+';Persist Security Info=False';

ADOConnection1.GetTableNames(SL, False);

for index := 0 to (SL.Count - 1) do begin

comboBox1.Items.Add(SL[index]);

end;

finally

SL.Free;

end;

ComboBox1.Text:=ComboBox1.Items[0];

panel1.Visible:=true;

end;

procedure TFormConverter.Button3Click(Sender: TObject);

begin

ADOTablesource.Active:=false;;

ADOTableSource.TableName:=ComboBox1.Text;

ADOTablesource.Active:=true;

panel1.Visible:=false;

dbgrid1.Update;

dbgrid2.Update;

end;

procedure TFormConverter.Button4Click(Sender: TObject);

begin

panel1.Visible:=false;

end;

procedure TFormConverter.Button5Click(Sender: TObject);

const

myfielddefs:array[ftunknown..ftTypedBinary]of string [11]=

('unknown','string','smallint','integer','word','boolean','float'

,'currency','bcd','date','time','datetime','bytes','varbytes','autoinc','blob','memo','graphic','fmtmemo','paradoxole','dbaseole','typedbinary');

var

i,indx,sizefield:integer;

definition1,definition2:string;

begin

ListBox3.Clear;

ListBox4.clear;

Listsize.Clear;

for i:=0 to adotablesource.FieldCount -1 do begin

definition1 :=ADOTableSource.Fields[i].DisplayLabel;

definition2:= myfielddefs[ADOTableSource.Fields[i].datatype];

sizefield:=ADOTableSource.Fields[i].Size;

ADOTableSource.IndexDefs.Update;

if ADOTableSource.Fields[i].IsIndexField then begin

indx :=ADOTableSource.IndexDefs.IndexOf(ADOTableSource.Fields[i].Name);

if indx > -1 then

if ixprimary in ADOTableSource.IndexDefs[indx].Options then

definition1:=definition1+ '(primary)';

end;

listbox3.Items.Add(definition1);

listbox4.Items.Add(definition2);

listsize.Items.Add(inttostr(sizefield));

end;

for i:=0 to listbox4.Count-1 do

IF (listbox4.Items.Strings[i] ='v@')then listbox4.Items.Strings[i]:='string';

end;

procedure TFormConverter.Button9Click(Sender: TObject);

const

myfielddefs:array[ftunknown..ftTypedBinary]of string [11]=

('unknown','string','smallint','integer','word','boolean','float'

,'currency','bcd','date','time','datetime','bytes','varbytes','autoinc','blob','memo','graphic','fmtmemo','paradoxole','dbaseole','typedbinary');

var

i,indx,sizefield:integer;

definition1,definition2:string;

count2:integer;

fielddef:integer;

begin

/////////get list of field from bank1/////////////

ListBox3.Clear;

ListBox4.clear;

Listsize.Clear;

for i:=0 to adotablesource.FieldCount -1 do begin

definition1 :=ADOTableSource.Fields[i].DisplayLabel;

definition2:= myfielddefs[ADOTableSource.Fields[i].datatype];

sizefield:=(ADOTableSource.Fields[i].Size) div 3;

ADOTableSource.IndexDefs.Update;

if ADOTableSource.Fields[i].IsIndexField then begin

indx :=ADOTableSource.IndexDefs.IndexOf(ADOTableSource.Fields[i].Name);

if indx > -1 then

if ixprimary in ADOTableSource.IndexDefs[indx].Options then

definition1:=definition1+ '(primary)';

end;

listbox3.Items.Add(definition1);

listbox4.Items.Add(definition2);

listsize.Items.Add(inttostr(sizefield));

end;

for i:=0 to listbox4.Count-1 do

IF (listbox4.Items.Strings[i] ='v@')then listbox4.Items.Strings[i]:='string';

/////////////////create table for bank2//////

countfield:=listbox3.Items.Count;

count2:=0;

with mytable do begin

//databasename:='DBDemos';

tablename:='bank.db';

while (countfield > count2) do

begin

IF (listbox4.Items.Strings[count2]) ='string'then fielddefs.add(listbox3.Items.Strings[count2],ftstring,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='smallint'then fielddefs.add(listbox3.Items.Strings[count2],ftsmallint,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='integer'then fielddefs.add(listbox3.Items.Strings[count2],ftinteger,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='word'then fielddefs.add(listbox3.Items.Strings[count2],ftword,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='boolean'then fielddefs.add(listbox3.Items.Strings[count2],ftboolean,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='float'then fielddefs.add(listbox3.Items.Strings[count2],ftfloat,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='currency'then fielddefs.add(listbox3.Items.Strings[count2],ftcurrency,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='bcd'then fielddefs.add(listbox3.Items.Strings[count2],ftbcd,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='date'then fielddefs.add(listbox3.Items.Strings[count2],ftdate,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='time'then fielddefs.add(listbox3.Items.Strings[count2],fttime,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='datetime'then fielddefs.add(listbox3.Items.Strings[count2],ftdatetime,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='bytes'then fielddefs.add(listbox3.Items.Strings[count2],ftbytes,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='varbytes'then fielddefs.add(listbox3.Items.Strings[count2],ftvarbytes,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='autoinc'then fielddefs.add(listbox3.Items.Strings[count2],ftautoinc,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='blob'then fielddefs.add(listbox3.Items.Strings[count2],ftblob,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='memo'then fielddefs.add(listbox3.Items.Strings[count2],ftmemo,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='graphic'then fielddefs.add(listbox3.Items.Strings[count2],ftgraphic,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='fmtmemo'then fielddefs.add(listbox3.Items.Strings[count2],ftfmtmemo,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='paradoxole'then fielddefs.add(listbox3.Items.Strings[count2],ftparadoxole,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='dbaseole'then fielddefs.add(listbox3.Items.Strings[count2],ftdbaseole,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='typedbinary'then fielddefs.add(listbox3.Items.Strings[count2],fttypedbinary,strtoint(listsize.Items.Strings[count2]),false)

else IF (listbox4.Items.Strings[count2]) ='unknown'then fielddefs.add(listbox3.Items.Strings[count2],ftunknown,strtoint(listsize.Items.Strings[count2]),false);

fielddefs[count2].CreateField(mytable);

count2:=count2 + 1;

end;

taxamount:=tfloatfield.Create(mytable);

mytable.CreateTable;

end;

mydatasource:=tdatasource.Create(self);

mydatasource.DataSet:=mytable;

with dbgrid1 do

begin

parent:=self;

datasource:=mydatasource;