Search options (Page 1 of 10)

Ув. админ.
Насколько я понял админа давно нет. У кого можно купить лицензию и будет ли развиваться проект?

Ув. Админ.

1. На форме2 имеется DateTimePicker1 и DateTimePicker2, в которых указывается дата поступления и дата выписки в виде день/месяц/год. Также на форме имеется Edit1 в котором должна появится разность этих дат.
Надо отметить что дата поступления должна быть меньше даты выписки. Если дата поступления больше даты выписки то должна появится сообшение - Дата выписки должна быть больше даты поступления.
Например
Дата поступления - 29.09.2016
Дата выписки - 04.10.2016
Значит разность этих дат 5
Еще один пример
Дата поступления - 29.09.2016
Дата выписки - 29.09.2016
По идее разность этих дат будет 0, но если 0 то она должна быть 1.
2. На форме 1 имеется DateTimePicker1, DateTimePicker2, Combo1, Button1 и Grid1. 2.1. Надо чтобы в комбо 1 было квартальные отчеты по выписанным больным в виде:
1. З мес;
2. 6 мес;
3. 9 мес
4. 12 мес.
Таким образом при выборе в комбо1 например 6 мес в грид1 должна появится все больные выписанные за 6 мес 2016 года или при выборе 3 мес должна появится все выписанные больные за 3 мес 2015 года.
2.2. На пункте 2.1 можно сделать по DateTimePicker1 и DateTimePicker2 назначив кнопку поиск на Button1.
Помогите с реализацией данного проекта.

Проект прилагается.

Ув. Админ. У меня 2 вопроса.
1. Помогите с реализацией собственного меню, сделал как на примерах, увы не работает.
2. При открытии программы очень долго открывается, можете подсказать как сделать чтобы программа открылась быстрее.
Проект прилагается. Спс заранее.

Привет всем. Как исправить этот скрипт?

If 1 =< n =< 30 then
   begin
          if MessageDlg('Демонстрационная версия. Из 30 дней осталось: ' + IntToStr(n) +'.'+#13+'Вы хотите приобрести лицензию?', mtInformation, mbYes+mbNo, 0) = mrYes then
               begin
               frmMain.PanelXXX.Visible:= True;
               end else
               begin
               frmMain.PanelXXX.Visible:= False;
               end;
    end;

Выдает ошибку.
Также, дополнение к скрипту:

if n < 1 then
            begin
                 if MessageDlg('Пробный период закончился.'+#13+'Вы хотите приобрести лицензию?', mtInformation, mbYes+mbNo, 0) = mrYes then
                    begin
                    frmMain.PanelXXX.Visible:= True;
                    end else
                    begin
                    frmMain.Close;
                    end;
            end;
Как все это соединить? Первый скрипт выдает ошибку, второй работает нормально.

Всем привет. Давайте обсудим здесь все о MySQL. Админ привел пример в форуме как привязаться к серверу MySQL. Но для новичков этого помоему недостаточно. Дайте всем ссылки как установить сервер и откуда брать файлы. Также по возможности детальную настройку сервера. Спасибо.