50187 (609994), страница 7

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 7)

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 - Отчет по дополнительным договорам

Характеристики

Список файлов курсовой работы