Разработка формы «Журнал кредитных договоров»
Создаем новую форму New Form, в его свойствах укажем следующее: св-во Caption «Журнал кредитных договоров», NamefJurnalKDogovor. Выделяем компоненту CheckBox1 и в его свойстве Caption укажите «По клиенту, а CheckBox2 — По объекту. Эта процедура производит отмену фильтрации и очистку данных введенных в компоненты Edit. Для удаления не нужных полей необходимо выделить поле и выбрать команду Delete… Читать ещё >
Разработка формы «Журнал кредитных договоров» (реферат, курсовая, диплом, контрольная)
Создаем новую форму New Form, в его свойствах укажем следующее: св-во Caption «Журнал кредитных договоров», NamefJurnalKDogovor.
На форму установить следующие компоненты:
Страница «ADO».
№ п/п. | Компонента. | Количество. |
1. | ADOTable. |
Страница «Data Access».
№ п/п. | Компонента. | Количество. |
1. | DataSource. |
Страница «DataControls».
№ п/п. | Компонента. | Количество. |
1. | DBGrid. | |
2. | DBNavigator. |
Страница «Standard».
№ п/п. | Компонента. | Количество. |
1. | CheckBox. | |
2. | Button. |
Устанавливаем связь между компонентами.
ADOTable1 — свойство Connection установим ADOConnection1, свойство TableName укажем имя таблицы — Credit, свойство NameADOTable1, свойство ActiveTrue.
DataSource1-свойство DataSet установим ADOTable1, свойство Name переименуем на DSCredit.
DBGrid1- св-во DataSourse установим DSCredit.
DBNavigatorсв-во DataSourse установим DSCredit.
Для отражения в компоненте DBGrid имена полей таблицы для этого необходимо двойным нажатием правой кнопки мыши на компоненте открыть окно.
Рис. 4.16 Окно редактора полей
В ней выбрать команду Add all fields для отражения всех полей таблицы.
Для удаления не нужных полей необходимо выделить поле и выбрать команду Delete Selected (Del).
Чтобы переименовать имена полей таблицы необходимо выделить имя поля и в Object Inspertor найти св-во Title и в его подсвойстве указать № Договора.
Рис. 4.17 Окно «Инспектора объектов»
Следующие имена полей переименутся таким образом:
CRED_DOC_SOGLASH-Дата, FIOВалюта и т. д.
Выделяем компоненту CheckBox1 и в его свойстве Caption укажите «По клиенту, а CheckBox2 — По объекту.
Обработчик события OnClick для компонентов CheckBox и Button следующий:
void __fastcall TfJurnalKDogovor: CheckBox2Click (TObject *Sender).
{.
ADOTable1->Filtered=false;
ADOTable1->Filter="FIO="+QuotedStr (Edit1->Text);
ADOTable1->Filtered=true;
fJurnalKDogovor->Height=517;
}.
void __fastcall TfJurnalKDogovor: CheckBox3Click (TObject *Sender).
{.
ADOTable1->Filtered=false;
ADOTable1->Filter="ZALOG_NAME="+QuotedStr (DBEdit1->Text);
ADOTable1->Filtered=true;
fJurnalKDogovor->Height=517;
}.
void __fastcall TfJurnalKDogovor: Button1Click (TObject *Sender).
{.
DBEdit1->Clear ();
CheckBox2->Checked=false;
CheckBox3->Checked=false;
Edit1->Clear ();
ADOTable1->Filtered=false;
fJurnalKDogovor->Height=323;
}.
Эта процедура производит отмену фильтрации и очистку данных введенных в компоненты Edit.
Форма должна иметь следующий вид.
Рис. 4.18 Форма «Журнал кредитных договоров»