Search options (Page 5 of 7)

Дмитрий огромное Вам СПАСИБО!!!
Друзья кому интересно скрипт РАБОЧИЙ...
правда кое что поправил...поменял местами...Дмитрий надеюсь правильно!!!

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    iTimer := 90;               //задаём время в сек...
    Timer.Enabled := True;      // Start timer
    Timer.OnTimer := @OnTimer;  // event procedure
end;

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Timer := TTimer.Create(nil); // создать таймер
    Timer.Interval := 1000;
end;

ЕЩЁ РАЗ СПАСИБО!!!

Дмитрий я ожидал...большущий скриптище, а тут...
Здорово!!!Спасибо!!!

тест проект смастерить???

Всем хорошего настроения!!!
имею:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
sDate: String;
{..........................}
begin
{..........................}
sDate:=('2016.10.03 11:11:11');
sDate:= '"'+ FormatDateTime('yyyy-MM-DD hh:nn:ss.000',StrToDateTime(m))+ '"';
SQLExecute ('INSERT INTO AAA (mydata) VALUES (''' + sDate + ''');');
end;

РУГАЕТСЯ: "2016.10.03 11:11:11"  is not a valid floaiting point value!!!
но если меняю sDate:=('03.10.2016 11:11:11'); , тогда всё ОК!!!
ДРУЗЬЯ ПОМОГИТЕ :
сделать запись в таблицу "ААА"???
или в строке sDate:=('2016.10.03 11:11:11'); изменить формат строки на sDate:=('03.10.2016 11:11:11');???
или в sDate:= '"'+ FormatDateTime('yyyy-MM-DD hh:nn:ss.000',StrToDateTime(m))+ '"'; ,что то изменить???
Зарание СПАСИБО!!!

Здравствуйте Дмитрий!!!
ПОСТ №16...Замечательное решение,
но в моём случае вопрос остался открытым...
============================================
ОК!!!...в этом окошке видно отрицательный профит, но
профит сливается с датой!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ЕСТЬ ВОЗМОЖНОСТЬ :
1.) как то их разделить?
2.) в окошке окрасить  шрифт(профита) или дату?
============================================
Взгляните пожалуйста рисунок...

Всем привет!!!
имею такой скрипт:

var
   ChartLine: TChart;
procedure Form1_OnShow (Sender: string; Action: string);
begin
  ChartLine := TChart.Create(Form1);
  ChartLine.Parent := Form1.Panel1;
  ChartLine.Align := alClient;
  ChartLine.AddSeries(TLineSeries.Create(ChartLine));
  ChartLine.Series[0].XValues.DateTime := True;
  ChartLine.View3D := False; //  отключить 3д
end;

 procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    Results: TDataSet;
    DateValue: Double;
    ProfitValue: string;
    i,c: integer;

begin
    ChartLine.Series[0].Clear;

    c := Form1.TableGrid1.RowCount-1;
    for i := 0 to c do
    begin
        if ValidDate(Form1.TableGrid1.Cells[1, i]) then DateValue := StrToDate(Form1.TableGrid1.Cells[1, i]);
        ProfitValue := Form1.TableGrid1.Cells[2, i];

        if ValidFloat(ProfitValue) then ChartLine.Series[0].AddXY(DateValue, StrToFloat(ProfitValue) );
    end;
end;

т.е. данные для графика берутся из TableGrid1...
это РАБОТАЕТ ОК!!!
ПРОБЛЕМА в том, что если дата от предыдущей даты с большим разрывом, то график теряет "красоту"...
Вопрос: есть способ откорректировать скрипт, чтоб по оси где "дата"...
дата распределялась равномерно, не смотря большой разрыв между датами???
Заранее СПАСИБО!!!

Здравствуйте!!!
Дмитрий Вас не было чуток дней....для нас как вечность...
Взгляните ПОСТ №35 ПОЖАЛУЙСТА???

Друзья!!!
Подскажите скрипт для проверки дубликата в таблице,
где есть поля связь (id)    и  дата ???

Дмитрий это просто ЧУДЕСНО!!!
СПАСИБО!!!

Дмитрий взгляни пожалуйста ПОСТ № 10...:) и

Доброго времени суток!!!
есть таблица "ААА" в ней такие записи....

товар             дата             цена
________|___________|_____
хлеб          20.05.2016        1
хлеб          20.05.2016        3
хлеб          20.05.2016        5
------------------------------------------
молоко      20.05.2016        7
молоко      20.05.2016        3
=======================
хлеб          21.05.2016       3
хлеб          21.05.2016       2
хлеб          21.05.2016       3
----------------------------------------
молоко      21.05.2016      5
молоко      21.05.2016      6

подскажите как грамотно заполнить таблицу "ВВВ",
чтобы получить такие записи в таблице ???

товар              дата            цена
________|___________|_____
хлеб           20.05.2016       9
молоко       20.05.2016     10
----------------------------------------
хлеб           21.05.2016      8
молоко       21.05.2016     11

т.е...............
1.) отобразить дату которая присутствовала на тот период в таблице "ААА" один раз!
2.) отобразить товар один раз, который присутствовал в этот день!
3.) отобразить общую сумму товара за этот день!

ПОСТ №25

Дмитрий..."методом научного тыка" добился нужного результата.....
Вот результат моих бесонных ночей...

procedure Form3_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   sid: string;
begin

     if (Form3.ComboBox2.dbItemID = -1) and (Form3.ComboBox2.Text <> '')     then
     begin
          // проверить, если оценка уже существует

sid := SQLExecute('SELECT IFNULL(id_AAA, -1)FROM BBB WHERE id = ' +
       IntToStr(Form3.ComboBox2.dbItemID)+'  LIKE "'+Form3.ComboBox1.Text+'"');

          if ValidInt(sid) then
             Form3.ComboBox2.dbItemID:= StrToInt(sid)
//============== всё что ниже работает ОК!!!==================================================================
          // если оценка не существует, предложить  добавления
          else begin
               if 6 = MessageDlg('Добавить запись' + Form3.ComboBox2.Text, mtConfirmation, mbYes + mbNo, 0) then
               begin
       SQLExecute('INSERT INTO BBB (id_AAA,bbb) VALUES ('+Form3.ComboBox1.sqlValue+',"'+Form3.ComboBox2.Text+'")');

       Form3.Combobox2.DoOnChange;   //дал понять, что у него значение обновилось...
       UpdateDatabase('BBB');
       Form3.ComboBox2.dbItemID := Last_Insert_id('bbb');

               end else
               begin  // если Нет...делаем:

                Cancel := True;
                Form3.ComboBox2.dbItemID:= -1;
                Form3.ComboBox2.Text := '';
               end;
          end;
     end;
end;

Вроде как работает, НО.....в верхней части есть где-то ошибка.....
Если в этой строчке:

IntToStr(Form3.ComboBox2.dbItemID)+'  LIKE "'+Form3.ComboBox1.Text+'"');

перед LIKE стереть  два пробела выдаёт ошибку.....
добавляю   +  '(пробел+пробел с клавиатуры)LIKE   работает....
НЕ сочтите за трудность взгляните на скриптик.....