129
AnsiString dd = FormatDateTime("dd", FormSett->DateTimePicker1-
>DateTime);
if (dd == "01")
{
if (FormMain->ot == false)
{
DataM->ADOQueryH->Close();
DataM->ADOQueryH->SQL->Clear();
DataM->ADOQueryH->SQL->Add("UPDATE Settings Set
Mounth=:p1");
DataM->ADOQueryH->Parameters->ParamByName("p1")->Value =
FormSett->DateTimePicker1->DateTime;
DataM->ADOQueryH->ExecSQL();
Close();
FormMain->Caption = "АРМ \"Автозапчасти\" - текущий период :
" + FormatDateTime("dd/mm/yyyy", FormMain->DatePeriod);
}
FormMain->DatePeriod = FormSett->DateTimePicker1->DateTime;
}
else
MessageBox(0,"Укажите первое число месяца.","Настройка
периода",0);
}
//---------------------------------------------------------------------------
void __fastcall TFormSett::BitBtn2Click(TObject *Sender)
{
FormMain->ModalRes = false;
Close();
}
//---------------------------------------------------------------------------