Задачата пред мен беше много проста, имах нужда от единна база данни, прехвърляне на данни в друга база данни. База данни Структура I са едни и същи, така че мисля, че на задачата още по-лесно, най-вероятно не.
Инсталирах FireBird 1.5 сървър и да го постави в основата папка 2 * .FDB.
На следващо място, съм създал проект в Делфи и инсталиране на следните компоненти на формата:
- TIBDataBase - 2 бр
- TIBQuery - 2 бр
- TIBTable - 1 бр
- TDataSource - 1 бр
- TDBGrid - 1 бр
- TIBTransaction - 1 бр
- TButton - 7 бр
- TComboBox - 1 бр
TComboBox компонент е необходимо да ми се покаже списък на първите данни таблица на база данни, от която ще предава данните на друга база данни.
По отношение на сухожилие взаимосвързани компоненти. Компоненти TIBDataBase съм в контакт TIBTransaction в DefaultTransaction имот. TIBQuery компоненти и TIBTable съм в контакт TIBDataBase в базата данни имота. TDataSource компонент се свързах с TIBQuery (с право на мен) в данните на имота. и TDataSource компонент вързах TDBGrid в DataSource имота. Не трябва да има всички е ясно, всичко е стандартно.
Също LoginPromt собственост, TIBDatabase компонент трябва да се настрои на фалшива, така че да не се появи съобщение да въведете паролата и потребителя, и Params имота, TIBDatabase компонент, трябва да определите параметрите на свързване (потребителско име и парола), по подразбиране, те ще:
В края на краищата ние сме подготвили, ние трябва да се свърже с базата данни. За тази цел, в случай на OnClick Бутон за избор на път към базата данни, аз написах следния код:
Свързани статии