Разработка документа «Кредитный договор»

Создаем новую форму New Form, в его свойствах укажем следующее: св-во Caption «Кредитный договор», NamefKredDogovor.

На форму установить следующие компоненты:

Страница «ADO».

Страница «Data Access».

Страница «DataControls».

Страница «Standard».

Устанавливаем связь между компонентами.

ADOTable1 — свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы — Credit, свойство NameADOKDogovor, свойство ActiveTrue.

ADOTable2 — свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы — Srok, свойство NameADOSrok, свойство ActiveTrue.

ADOTable3 — свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы — Valuta, свойство NameADOValuta, свойство ActiveTrue.

ADOTable4 — свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы — Klient, свойство NameADOKlient, свойство ActiveTrue.

DataSource1-свойство DataSet установим ADOKDogovor, свойство Name переименуем на DSKDogovor.

DataSource2-свойство DataSet установим ADOValuta, свойство Name переименуем на DSValuta.

DataSource3-свойство DataSet установим ADOSrok, свойство Name переименуем на DSSrok.

DataSource4-свойство DataSet установим ADOKlient, свойство Name переименуем на DSKlient.

Создаем поля выбора, для этого на форму установим со страницы DataControls четыре штуки компонентов DBLookupComboBox.

Устанавливаем связь между компонентами для поля выбора:

DBLookupComboBox1- свойство DataSource установим DSKDogovor, свойство DataField KodSrok, свойство ListSource установим DSSrok, свойство ListField установим Srok, свойство KeyField установим KodSrok.

DBLookupComboBox2- свойство DataSource установим DSKDogovor, свойство DataField KodValuta, свойство ListSource установим DSValuta, свойство ListField установим Valuta, свойство KeyField установим KodValuta.

DBLookupComboBox3- свойство DataSource установим DSKDogovor, свойство DataField KodKlient, свойство ListSource установим DSKlient, свойство ListField установим FIO, свойство KeyField установим KodKlient.

DBLookupComboBox4- свойство DataSource установим DSKDogovor, свойство DataField KodValuta, свойство ListSource установим DSValuta, свойство ListField установим Kurs, свойство KeyField установим KodValuta.

DBGridсв-во DataSourse установим DSKDogovor.

DBNavigatorсв-во DataSourse установим DSKDogovor.

Оформляем форму «Кредитный договор», для этого выносим на форму каждое поле таблицы Credit следующим образом, двойным нажатием правой кнопки мыши на компоненте ADOKDogovor открываем окно fKredDogovor. ADOKDogovor, в открывшемся окне левой кнопкой мыши выбираем команду Add all fields, в окне отразятся все поля таблицы.

В свойствах Caption компонентов Button напишем следующее:

«Найти» и «Очистить поиск записей».

В свойстве Caption компоненты CheckBox указать «Поиск записей».

Рис. 4.19 Форма «Кредитный Договор»

Разработка отчета «Заявление на потребительский кредит»

Создаем новую форму New Form, в его свойстве укажем следующее: NamefOtchetZavka.

На форму установить следующие компоненты:

Страница «QReport».

• 3. Для компоненты QRBand в свойстве BandType указать rbDetail, в свойстве Caption для компоненты QRLabel указать «Заявление на потребительский кредит».
• 4. Установить компоненты QRDBText в зависимости какие поля хотите отразить в отчете, а в частности для QRDBText1 в свойстве DataSet указать fZavka->ADOZavka, DataFieldNomer, таким же образом отразить остальные поля документа.
• 5. Форма должна иметь следующий вид.

Рис. 4.20 Отчет «Заявление на потребительский кредит»