Всем привет!
Извиняюсь за повтор....
Согласен, не хватает, пока этот компонент есть только в отчетах, в будущем будет реализован и для форм.
Прям очень хочется...........
My Visual Database → Posts by Роман
Всем привет!
Извиняюсь за повтор....
Согласен, не хватает, пока этот компонент есть только в отчетах, в будущем будет реализован и для форм.
Прям очень хочется...........
Работает!!! УрррА!
С Уважением и Благодарностью Роман!!!
не совсем понимаю, о каких 3 секундах идет речь.
на форме есть мемо...при редактировании жму на битон сохранить запись..
конечно же запись сохранилась за доли секунд, но для успокоения,
что я действительно нажал битон сохранить запись:
появляются песочные часики и радуют меня своим присутствием 3 секунды...
Вот возник вопросик как к скрипту время (3 секунды ) прикрутить?
О...не подскажите как сюда время (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;
Спасибо!
Дмитрий, а у Вас в заначки случайно нет песочных часиков?
(клик на Button1 = 3 секунды наслаждения)
С Уважением и Благодарностью Роман!!!
Доброго дня!
Дмитрий не подскажите скриптиком:
1. клик на Button1 = клику на первую строчку в TableGrid1?
2. есть ли возможность скрыть в TableGrid1 Scroll с право и снизу?
С Уважением и Благодарностью Роман!!!
Благодарю за истину !
Доброго времени суток!
Дмитрий помогите пожалуйста с выше стоящим постом.....
Доброго времени суток!
если я правильно понял из постов на форуме.......в 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;
С Уважением и Благодарностью Роман!!!
О..много Уважаемый pha1984!
Спасибочки Вам огромное....за отклик....именно этого я и хотел....
С Уважением и Благодарностью Роман!!!
Хорошего настроения...pha1984
прикрепил......
Доброго времени суток Дмитрий!
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 := 'пусто'
С Уважением и Благодарностью Роман!!!
На выше стоящий пост... я имел ввиду для новой записи в грид...
(умысел такой ...обычно мы подписываем в верху над CheckBox "ДА/НЕТ"...
а так мы в едите видим за что отвечает CheckBox...
если это возможно конечно?
С Уважением и Благодарностью Роман!!!
О...ПОНЯЛ...так можно прикручивать и 2, и 3.....
Дмитрий СПАСИБО ВАМ как минимум...за терпимость к нам "чудо-программистам"
С Уважением и Благодарностью Роман!!!
у меня есть скрипт:
//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.....?
С Уважением и Благодарностью Роман!!!
О,оо! Летает...и даже не ругается.... Спасибо!!!
Вопросик такого характера:
На форме в TableGrid1 уже есть событие:
Form2_kol_OnChange
есть нужда вставить ещё одно событие для этого же TableGrid1:
Form2_TableGrid1_OnChange...Как их правильно объединить, если название процедуры не совпадают?
С Уважением и Благодарностью Роман!!!
Доброго времени суток Дмитрий!
На форме(новая запись) для едитов есть скрипт:
// 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;
Проблема...........закрываю форму и при открытии этой же формы РУГАЕТСЯ....(рисунок прилагается)
Подскажите в чём я виноват?
Доброго времени суток!
Урррррааааааааааааа!...Работает!
до конечной цели долековато...но зато лёд тронулся.....
Огромное спасибо "fleshkyru" за отклик......................
и конечно же Вам Дмитрий...моим восхищением программой нет придела....
С Уважением и Благодарностью Роман!!!
Огромное спасибо fleshkyru за отклик!
Моя попытка прикрутить это к скрипту была безуспешной...
ошибка за ошибкой...
(нужно доделать проверку даты)
если в строчке... второе поле(buy или sell)-значит всю строчку импортируем......(в поле дата всегда правильная дата)
если в строчке... второе поле(нет этих значений)-значит всю строчку удалить,игнорировать(в поле дата может быть текст)
если эта строчка удалиться...не совсем понятно для меня, зачем её проверять?
НЕ ХВАТАЕТ МНЕ ЗНАНИЙ...........................
Если Вас не обременит, помогите эти две записи в скрипте объединить..Пожалуйста....
С Уважением и Благодарностью Роман!!!
Доброго времени суток !
взял пример с проектом сделанный Дмитрием...
http://myvisualdatabase.com/forum/viewtopic.php?id=594
пытаюсь его переделать, чтоб при импорте...импортировались только те строчки
в которых присутствуют значения из словаря....,если в строчки нет значения из словаря.....
значит вся строчка не импортируется......................................................................................................
Добрые люди...если кто-то делал подобное подскажите,что в скрипте надо добавить или изменить?
Три дня и три ночи "колдовства" результата не дало, не хватает моих знаний............................................
Буду рад любой подсказки...
С Уважением и Благодарностью Роман!!!
Доброго времени суток Дмитрий!
Попробую задать конкретный вопрос: Имея скрипт который описан в самом начале.....(пост №1)
Что надо дописать?...чтоб в таблицу произвелась запись тех строчек...в которых присутствует значения из словаря!
т.е. пройтись по всем строчкам csv файла, который загрузили в объект sl (TStringList)...выбрать только те строчки,
где присутствуют значения из словаря....остальные строчки будут "False"
На основании этого уже сделать запись в таблицу.
если это не займёт у Вас слишком много времени и не выйдет за рамки помощи.
С Уважением и Благодарностью Роман!!!
приложил проект...помогите с импортом файла
в файле прописано проблема................................
С Уважением и Благодарностью Роман!!!
Доброго времени суток Дмитрий!
Попробую описать суть своей проблемы:
У меня есть файл CSV(Рисунок приложен выше) в нём в колонках,
где имеется дата находятся другие значения как текст и другие, разные числа..."вобщем мусор" который не относиться к дате !
Варианты:
1) во время импорта используя скрипт.... указать, чтоб в таблицу с поле "дата/время" загружалась
только дата со временем............. остальной МУСОР игнорировался.........
Ваш ответ:
если в колонке вместо даты попадает что то другое, значит ваш CSV файл содержит ошибки, просто нужно приводить CSV файл в порядок.
а) Приводить в порядок файл CSV самому до импорта НЕТ СМЫСЛА......их за день может быть много..................................
б) С помощью скрипта...если такое имеет место быть...подскажите? сам скрипт для импорта в самом начале поста...........
я расценил Ваш ответ как: с помощью скрипта это нельзя сделать, только самому до импорта..............
"самому до импорта" МЕНЯ ТАК НЕ УСТРАИВАЕТ.......ищем другие способы
Следующий Вариант:
2) импортируем всё в месте с "мусором" в базу с полями как текст
а) .....отсюда и появился пост №4
б) кликаем по гриду два раза появляется форма (показать запись)
и этот текст (30.09.2015 13:51) был в DateTimePicker(для даты) и в DateTimePicker(для время) для записи с поле "дата/время"
б) может через вычислительное поле........
СУТЬ Варианта 2 :текст(30.09.2015 13:51) вставить в DateTimePicker(для даты) и в DateTimePicker(для время)
если есть способ решения по варианту 1, тогда вариант 2 вообще не нужен......
С Нетерпением жду ответа......
ок...ответ понятен.................(мы лёгких путей не ищем....)
из ходя из этого имеется следующий вопрос..........
есть ли следующая возможность .............
имеется таблица...в ней поле текст...в ней запись даты как текст....
Вопрос:
есть ли возможность.....кликаем по строчки в гриде.....из поля текст(где запись 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)???????
С Уважением и Благодарностью Роман!!!
My Visual Database → Posts by Роман
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi