Всем привет!
Извиняюсь за повтор....

Согласен, не хватает, пока этот компонент есть только в отчетах, в будущем будет реализован и для форм.

Прям очень хочется...........

127

(131 replies, posted in Russian)

Работает!!!  УрррА!
С Уважением и Благодарностью Роман!!!

128

(131 replies, posted in Russian)

не совсем понимаю, о каких 3 секундах идет речь.

на форме есть мемо...при редактировании жму на битон сохранить запись..
конечно же запись сохранилась за доли секунд, но для успокоения,
что я действительно нажал битон сохранить запись:
появляются песочные часики и радуют меня своим присутствием 3 секунды...
Вот возник вопросик как к скрипту время (3 секунды ) прикрутить?

129

(131 replies, posted in Russian)

О...не подскажите как сюда время (3 секунды) прикрутить?
программа ругается на научный метод тыка...

procedure Form1_Button4_OnClick (Sender: string; var Cancel: boolean);
begin
Screen.Cursor := crHourGlass;
end;
procedure Form1_Button4_OnAfterClick (Sender: string);
begin
Screen.Cursor := crDefault;
end;

130

(131 replies, posted in Russian)

Спасибо!
Дмитрий, а у Вас в заначки случайно нет песочных часиков?
(клик на Button1 = 3 секунды наслаждения)

С Уважением и Благодарностью Роман!!!

131

(131 replies, posted in Russian)

Доброго дня!
Дмитрий не подскажите скриптиком:
1. клик на Button1 = клику на первую строчку в TableGrid1?
2. есть ли возможность скрыть в TableGrid1 Scroll с право и снизу?

                               С Уважением и Благодарностью Роман!!!

132

(54 replies, posted in Russian)

Благодарю за истину !

133

(54 replies, posted in Russian)

Доброго времени суток!
Дмитрий помогите пожалуйста с выше стоящим постом.....

134

(54 replies, posted in Russian)

Доброго времени суток!
если я правильно понял из постов на форуме.......в Edit нельзя вставить значения из вычисл.поля
простым или упрощённым способом...........тогда:
Помогите пожалуйста подставить вычисл.поле в скрипт.......

(SELECT TOTAL(residue.parishs) FROM residue WHERE residue.id_Centre=Centre.id)
  procedure Form14_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
 begin
  Form14.Edit1.Text := SQLExecute ('????????????????????????????????? WHERE id = '
  + IntToStr(Form14.TableGrid1.dbItemID) );
  end;

                                                                                        С Уважением и Благодарностью Роман!!!

135

(131 replies, posted in Russian)

О..много Уважаемый pha1984!
Спасибочки Вам огромное....за отклик....именно этого я и хотел....

С Уважением и Благодарностью Роман!!!

136

(131 replies, posted in Russian)

Хорошего настроения...pha1984
прикрепил......

137

(131 replies, posted in Russian)

Доброго времени суток Дмитрий!

procedure Form1_CheckBox1_OnClick(Sender: string);
begin
      if Form1.CheckBox1.Checked=True  or     Form1.CheckBox1.Checked= False
      then Form1.CheckBox1.Caption := 'sell'
      else  Form1.CheckBox1.Caption := 'buy'
end;

Подскажите как сюда добавить :

Form1.CheckBox1.Checked=Grayed  ;
 Form1.CheckBox1.Caption := 'пусто'

С Уважением и Благодарностью Роман!!!

138

(131 replies, posted in Russian)

На выше стоящий пост... я имел ввиду для новой записи в грид...
(умысел такой ...обычно мы подписываем в верху над CheckBox  "ДА/НЕТ"...
а так мы в едите видим за что отвечает CheckBox...
если это возможно конечно?

                                             С Уважением и Благодарностью Роман!!!

139

(54 replies, posted in Russian)

О...ПОНЯЛ...так можно прикручивать и 2, и 3.....
Дмитрий СПАСИБО ВАМ как минимум...за терпимость к нам "чудо-программистам"

                                                          С Уважением и Благодарностью Роман!!!

140

(54 replies, posted in Russian)

у меня есть скрипт:

//1 и 2 скрипт объеденил с общим событием:
procedure Form14_TableGrid1_OnChange (Sender: string);
var i,c: integer;
    s: string;
begin
    c := Form14.TableGrid1.RowCount - 1;
    for i := 0 to c do
begin
    s := Form14.TableGrid1.Cells[10,i];
    if ValidFloat(s)
    then if StrToFloat(s) < 0 then Form14.TableGrid1.Cell[10,i].TextColor := clRed
    else Form14.TableGrid1.Cell[10,i].TextColor := clGreen;

    if Form14.TableGrid1.Cells[3,i] = 'Real'
    then Form14.TableGrid1.Cell[3,i].Color := clSilver
    else Form14.TableGrid1.Cell[3,i].Color := clYellow;
end;
end;

появилась нужда прикрутить ещё один скрипт для TableGrid1 с OnChange....

procedure Form14_kol_OnChange (Sender: string; ACol, ARow: Integer);
var
s: string;
begin
s := VarToStr ( SQLExecute('SELECT count(id) FROM Centre ;') );
Form14.Label1.Caption:= 'количество СЧЕТОВ в базе- ' + s;
end;

у первого "Form14_TableGrid1_OnChange" вставляем в событие TableGrid1......
у второго "Form14_kol_OnChange" то же надо вставить в события  TableGrid1....
А место то нет....Как быть?

скрипт для отображения дня недели в ComboBox...(Может кому пригодится...)

procedure Form2_DateTimePicker5_OnChange (Sender: string);
var
  WDay: integer;
begin
    WDay := DayOfWeek(Form2.DateTimePicker5.Date)-1;

    if Form2.DateTimePicker5.Checked then
begin
        if WDay = 0 then Form2.ComboBox2.ItemIndex := 7 else Form2.ComboBox2.ItemIndex := WDay;
end
    else Form2.ComboBox2.ItemIndex := 0;

end;

Доброго времени суток Дмитрий!
Ситуация такая:
На Form2(новая запись) есть DateTimePicker5 к нему привязан ComboBox2 для получении дня недели...
ставим галочку в DateTimePicker5 сразу выдаёт результат в ComboBox2.............РАБОТАЕТ!
Проблемка:
На этой же Form2 клик по строчки в TableGrid1:

s := SQLExecute('SELECT opendate FROM import WHERE id = ' + IntToStr(Form2.TableGrid1.dbItemID));
     if s <> '' then Form2.DateTimePicker5.Date := SQLDateTimeToDateTime(s) else Form2.DateTimePicker5.Checked := False;

дата появляется...а вот ComboBox2 молчит.............. в дате снимешь галочку,а потом поставишь работает....
Вопрос:
существует возможность заставить работать ComboBox2..как только изменилась дата в DateTimePicker5.....?

                                                                                                       С Уважением и Благодарностью Роман!!!

142

(54 replies, posted in Russian)

О,оо! Летает...и даже не ругается.... Спасибо!!!
Вопросик такого характера:
На форме в TableGrid1 уже есть событие:

Form2_kol_OnChange

есть нужда вставить ещё одно событие для этого же TableGrid1:
Form2_TableGrid1_OnChange...Как их правильно объединить, если название процедуры не совпадают? 

                                                                             С Уважением и Благодарностью Роман!!!

143

(54 replies, posted in Russian)

Доброго времени суток Дмитрий!
На форме(новая запись) для едитов есть скрипт:

// procedure CalculateTotal;
//begin
  //  Form2.Edit12.Value := (Form2.Edit11.Value) / (Form2.Edit6.Value*10); // calculate
//end;

//procedure Form2_Edit11_OnChange (Sender: string);
//begin
  //  CalculateTotal;
//end;

//procedure Form2_Edit6_OnChange (Sender: string);
//begin
   // CalculateTotal;
//end;


Проблема...........закрываю форму и при открытии этой же формы РУГАЕТСЯ....(рисунок прилагается)
Подскажите в чём я виноват?

144

(18 replies, posted in Russian)

Доброго времени суток!
Урррррааааааааааааа!...Работает!
до конечной цели долековато...но зато лёд тронулся.....
Огромное спасибо "fleshkyru" за отклик......................
и конечно же Вам Дмитрий...моим восхищением программой нет придела....

                                                             С Уважением и Благодарностью Роман!!!

145

(18 replies, posted in Russian)

Огромное спасибо fleshkyru за отклик!
Моя попытка прикрутить это к скрипту была безуспешной...
ошибка за ошибкой...

(нужно доделать проверку даты)

если в строчке... второе поле(buy или sell)-значит всю строчку импортируем......(в поле дата всегда правильная дата)
если в строчке... второе поле(нет этих значений)-значит всю строчку удалить,игнорировать(в поле дата может быть текст)
если эта строчка удалиться...не совсем понятно для меня, зачем её проверять?
НЕ ХВАТАЕТ МНЕ ЗНАНИЙ...........................
Если Вас не обременит, помогите эти две записи в скрипте объединить..Пожалуйста....

                                                                                         С Уважением и Благодарностью Роман!!!

146

(18 replies, posted in Russian)

Доброго времени суток !
взял пример с проектом сделанный Дмитрием...
http://myvisualdatabase.com/forum/viewtopic.php?id=594
пытаюсь его переделать, чтоб при импорте...импортировались только те строчки
в которых присутствуют значения из словаря....,если в строчки нет значения из словаря.....
значит вся строчка не импортируется......................................................................................................
Добрые люди...если кто-то делал подобное подскажите,что в скрипте надо добавить или изменить?
Три дня и три ночи "колдовства" результата не дало, не хватает моих знаний............................................
Буду рад любой подсказки...

                                                                                              С Уважением и Благодарностью Роман!!!

147

(18 replies, posted in Russian)

Доброго времени суток Дмитрий!
Попробую задать конкретный вопрос: Имея скрипт который описан в самом начале.....(пост №1)
Что надо дописать?...чтоб в таблицу произвелась запись тех строчек...в которых присутствует значения из словаря!
т.е. пройтись по всем строчкам csv файла, который загрузили в объект sl (TStringList)...выбрать только те строчки,
где присутствуют значения из словаря....остальные строчки будут "False"
На основании этого уже сделать запись в таблицу.

если это не займёт у Вас слишком много времени и не выйдет за рамки помощи.

                                                                        С Уважением и Благодарностью Роман!!!

148

(18 replies, posted in Russian)

приложил проект...помогите с импортом файла
в файле прописано проблема................................

С Уважением и Благодарностью Роман!!!

149

(18 replies, posted in Russian)

Доброго времени суток Дмитрий!

Попробую описать суть своей проблемы:
У меня есть файл CSV(Рисунок приложен выше) в нём в колонках,
где имеется дата находятся другие значения как текст и другие, разные числа..."вобщем мусор" который не относиться к дате !

Варианты:
1) во время импорта используя скрипт.... указать, чтоб в таблицу с поле "дата/время" загружалась
только дата со временем............. остальной МУСОР  игнорировался.........
Ваш ответ:

если в колонке вместо даты попадает что то другое, значит ваш CSV файл содержит ошибки, просто нужно приводить CSV файл в порядок.

   а) Приводить в порядок  файл CSV самому до импорта НЕТ СМЫСЛА......их за день может быть много..................................
   б) С помощью скрипта...если такое имеет место быть...подскажите? сам скрипт для импорта в самом начале поста...........
я расценил Ваш ответ как: с помощью скрипта это нельзя сделать, только самому до импорта..............
"самому до импорта"  МЕНЯ ТАК НЕ УСТРАИВАЕТ.......ищем другие способы

Следующий Вариант:
2)  импортируем  всё в месте с "мусором"  в базу с полями как текст
   а) .....отсюда и появился пост №4
   б) кликаем по гриду два раза появляется форма (показать запись)
         и этот текст (30.09.2015 13:51) был в DateTimePicker(для даты) и в DateTimePicker(для время)  для записи с поле "дата/время"
   б) может через вычислительное поле........

СУТЬ Варианта 2 :текст(30.09.2015 13:51) вставить в  DateTimePicker(для даты) и в DateTimePicker(для время)

если есть способ решения по варианту 1, тогда вариант 2 вообще не нужен......

          С Нетерпением жду ответа......

150

(18 replies, posted in Russian)

ок...ответ понятен.................(мы лёгких путей не ищем....)
из ходя из этого имеется следующий вопрос..........
есть ли следующая возможность .............

имеется таблица...в ней поле текст...в ней  запись даты как текст....
Вопрос:
есть ли возможность.....кликаем по строчки в гриде.....из поля текст(где запись 30.09.2015 13:51)
вывести запись в DateTimePicker(для даты) и в DateTimePicker(для время) эти данные....для записи в другую таблицу..

к примеру как это можно сделать с Edit....

procedure Form2_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
      //клик по строчки в гриде...подставляет значения в Edit
     Form2.Edit4.Text := Form2.TableGrid1.Cells[1, ARow];
   end;
так же и для (где записи 30.09.2015 13:51)???????

                                               С Уважением и Благодарностью Роман!!!