50187 (Разработка автоматизированной системы учета договоров для отеля), страница 7
Описание файла
Документ из архива "Разработка автоматизированной системы учета договоров для отеля", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "50187"
Текст 7 страницы из документа "50187"
DataModule2->Table1->FieldByName("Date_register")->AsDateTime=StrToDate(EditDateRegMin->Text);
DataModule2->Table1->SetRangeEnd();
DataModule2->Table1->FieldByName("Date_register")->AsDateTime=StrToDate(EditDateRegMax->Text);
DataModule2->Table1->ApplyRange();
DataModule2->Table1->Refresh();
Form26->Close();}
else {if(ComboBox1->ItemIndex==1){
DataModule2->Table1->IndexFieldNames="Date_agreement";
DataModule2->Table1->SetRangeStart();
DataModule2->Table1->FieldByName("Date_agreement")->AsDateTime=StrToDate(EditDateAgreemMin->Text);
DataModule2->Table1->SetRangeEnd();
DataModule2->Table1->FieldByName("Date_agreement")->AsDateTime=StrToDate(EditDateAgreemMax->Text);
DataModule2->Table1->ApplyRange();
DataModule2->Table1->Refresh();
Form26->Close();}
else {if(ComboBox1->ItemIndex==2){
DataModule2->Table1->IndexFieldNames="Date_completion";
DataModule2->Table1->SetRangeStart();
DataModule2->Table1->FieldByName("Date_completion")->AsDateTime=StrToDate(EditDateCompMin->Text);
DataModule2->Table1->SetRangeEnd();
DataModule2->Table1->FieldByName("Date_completion")->AsDateTime=StrToDate(EditDateCompMax->Text);
DataModule2->Table1->ApplyRange();
DataModule2->Table1->Refresh();
Form26->Close();}
else {if(ComboBox1->ItemIndex==3){
DataModule2->Table1->IndexFieldNames="Sum_agreement";
DataModule2->Table1->SetRangeStart();
DataModule2->Table1->FieldByName("Sum_agreement")->AsString=EditSumAgrMin->Text;
DataModule2->Table1->SetRangeEnd();
DataModule2->Table1->FieldByName("Sum_agreement")->AsString=EditSumAgrMax->Text;
DataModule2->Table1->ApplyRange();
DataModule2->Table1->Refresh();//
Form26->Close();}
}
}
}
}
//---------------------------------------------------------------------------
Приложение Б (обязательное)
Отчеты
Рисунок А.1 - Отчет по основным договорам
Рисунок A.1 - Отчет по дополнительным договорам