C++ Builder - вопросы программирования



             

Листинг 5 4



Листинг 5.4.

Создание псевдонима во время работы программы void__fastcall TForml::FormActivate(TObject *Sender) { TDateTime Today, // сегодня NextDay; // следующий день (не обязательно завтра) Word Year, Month, Day; // год, месяц, день Today = Now (}; DecodeDate(Today, Year, Month, Day); Labell->Caption = "Сегодня " + IntToStr(Day) + " " + stMonth[Month-l] + " " + IntToStr(Year) + " года, " + stDay[DayOfWeek(Today) -1] ; Label2->Caption = "Сегодня и ближайшие дни"; // вычислим следующий день // если сегодня пятница, то, чтобы не забыть, // что запланировано на понедельник, считаем, что следующий // день — понедельник switch ( DayOfWeek(Today)) { case 6 : NextDay = Today + 3; break; // сегодня пятница case 7 : NextDay = Today + 2; break; // сегодня суббота default : NextDay = Today + 1; break; } #define DIN_ALIAS // псевдоним доступа к БД создается динамически // если псевдоним создан при помощи Database Desktop // или BDE Administrator, директиву tfdefine DIN_ALIAS //надо удалить ("закомментировать") #ifdef DIN_ALIAS // псевдоним создается динамически // создадим псевдоним для доступа к БД Session->ConfigMode = cmSession; Session->AddStandardAlias("organizer", ExtractFilePath(ParamStr(0))+"DATA\\", "PARADOX"); // база данных "Ежедневник" // в формате Paradox #endif Forml->Tablel->Active = true; // открыть таблицу // запрос к базе данных: есть ли дела, запланированные // на сегодня и завтра Queryl->SQL->Strings[3] = "(Date_F >= '"+ FormatDateTime("dd/mm/yyyy",Today)+"') AND " + "(Date_F <= '"+ FormatDateTime("dd/mm/yyyy",NextDay)+'")"; Queryl->0pen(); DataSourcel->DataSet = Forml->Queryl; if ( ! Queryl->RecordCount) ( ShowMessage("На сегодня и ближайшие дни никаких дел не запланировано."); } }
 











Содержание  Назад  Вперед