Skip to forum content
My Visual Database
A Simple Solution for Creating Databases
You are not logged in. Please login or register.
Active topics Unanswered topics
Search options (Page 1 of 6)
Exnout wrote:DriveSoft wrote:v-makarovmail
Сделал для вас пример, кликая по ячейке в колонке "Select" вы можете выбрать записи для удаления.
Здравствуйте Дмитрий.
Нашёл то что мне нужно, скачал а там пусто, скрипта нет. Пишет что путь не найден. У меня версия 6.5, вы писали для 1.44, может из за этого. Если можно обновите пожалуйста.
Спасибо.
все там есть, вот содержимое
procedure Form1_GridEmployees_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
if ACol=3 then
if Form1.GridEmployees.Cell[3, ARow].Color = clWindow then Form1.GridEmployees.Cell[3, ARow].Color := clRed
else Form1.GridEmployees.Cell[3, ARow].Color := clWindow;
end;
procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
var
i,c: integer;
iColumn: integer;
begin
iColumn := Form1.GridEmployees.Columns.Count-1; // in last column stored id of record (last column hided)
c := Form1.GridEmployees.RowCount - 1; // count of records in TableGrid
for i :=0 to c do
if Form1.GridEmployees.Cell[3, i].Color = clRed then // if record selected
SQLExecute('DELETE FROM employees WHERE id = ' + Form1.GridEmployees.Cells[iColumn, i]); // SQL query for selected record
Form1.GridEmployees.dbUpdate;
end;
begin
Form1.GridEmployees.Options := Form1.GridEmployees.Options + goMultiSelect;
end.
procedure FrmSotrudniki_TableGrid2_OnChange (Sender: TObject);
var
i, Ii, cR, cC,k, l: integer;
sID: string;
begin
cR := FrmSotrudniki.TableGrid2.RowCount - 1;
cC := FrmSotrudniki.TableGrid2.Columns.Count -1;
FrmSotrudniki.TableGrid2.BeginUpdate;
for i := 0 to cR do
begin
if (StrToDateTime(FrmSotrudniki.TableGrid2.Cells[4,i])- Date <=30) and (StrToDateTime(FrmSotrudniki.TableGrid2.Cells[4,i])- Date >=0) then
begin
for Ii:=0 to Cc do FrmSotrudniki.TableGrid2.Cell[Ii,i].Color := $006F6FFF;
end;
if (Date - StrToDateTime(FrmSotrudniki.TableGrid2.Cells[4,i]) >0) then
begin
for Ii:=0 to Cc do FrmSotrudniki.TableGrid2.Cell[Ii,i].Color := clSilver;
end
end;
FrmSotrudniki.TableGrid2.EndUpdate;
end;
может пойдет, не доделано многое
думаю из-за длины integer, поменяйте на текст если не будет никаких вычислений
у ComboBox есть свойство AutoWidth, может поможет
сохраняет каждый файл в отдельный файл jpg, а как сделать чтобы имя файла соответствовало ФИО сотрудника
Добрый день! с редактированием шаблона разобрался. Помогите есть ли возможность выгрузить такие подотчеты в rtf и xls. И появился еще вопрос, как если отчет формируется по каждой записи отдельный лист, а можно сделать чтобы на каждую запись формировался отдельный файл (pdf, rtf, xls) в определенную папку?
добрый день! подскажите как вывести такой подотчет в .xls и .rtf? и как менять шалбон данного отчета, если заходить в дизайнер отчет из запущенного .exe - валятся ошибки
ps
С наступающим!!!!!!!!!!!
http://myvisualdatabase.com/forum/viewtopic.php?id=1373
в самой MVD есть средство импорт/экспорт "настройка.....
tefix wrote:Здравствуйте! Помогите решить пару вопросов:
1. А как закрасить цветом не ячейку а всю строку?
2. Как сделать такое условие "если дата в ячейке меньше текущей даты, например, на 1 день, или на 7 дней"?
Предыдущие решения не подошли(
Что посоветуете почитать что б хотя б немного разбираться в скриптах в вашем продукте (На каком языке пишутся скрипты здесь и какие переменные используются для программирования)?
Заранее благодарю!
procedure FrmSotrudniki_TableGrid2_OnChange (Sender: TObject);
var
i, Ii, cR, cC,k, l: integer;
sID: string;
begin
cR := FrmSotrudniki.TableGrid2.RowCount - 1;
cC := FrmSotrudniki.TableGrid2.Columns.Count -1;
FrmSotrudniki.TableGrid2.BeginUpdate;
for i := 0 to cR do
begin
if (StrToDateTime(FrmSotrudniki.TableGrid2.Cells[4,i])- Date <=7) then
begin
for Ii:=0 to Cc do FrmSotrudniki.TableGrid2.Cell[Ii,i].Color := $006F6FFF;
end;
end;
end;
pt.82 wrote:1)а как сделать импорт данных с полем ДАТА в формате даты 10.10.2019, загружается только если формат 1980-07-28 00:00:00.000?
2)также не загружает данные в поле с типом ТЕСТ данные если в них присутсвует кириллица
3)если загружать штатным импортом (инструменты - импорт...) в версии 6,02 как загрузить словари? надо делать 2 импорта? если 2 импорта то как загрузить id_ в связанную таблицу, сейчас ругается SQL error: FOREIGN KEY constraint failed SQL: INSERT INTO
импорт брался с первого поста
никто не может помочь?
надо импортировать данные, либо чз срипт, либо чз настройки - импорт...
данные из файла 1.csv в db_item (первое поле в файле 1.csv это ключ к db_device) данные из spr.csv в базу db_device, соответвенно первое поле в файле spr.csv это id к db_device
1)а как сделать импорт данных с полем ДАТА в формате даты 10.10.2019, загружается только если формат 1980-07-28 00:00:00.000?
2)также не загружает данные в поле с типом ТЕСТ данные если в них присутсвует кириллица
3)если загружать штатным импортом (инструменты - импорт...) в версии 6,02 как загрузить словари? надо делать 2 импорта? если 2 импорта то как загрузить id_ в связанную таблицу, сейчас ругается SQL error: FOREIGN KEY constraint failed SQL: INSERT INTO
импорт брался с первого поста
procedure Form1.ComboBox2_OnChange (Sender: TObject);
begin
if Form1.ComboBox2.dbItemID=1 then
Form1.ComboBox1.dbItemID:=-1;
end;
DriveSoft wrote:pt.82 wrote:Да спасибо! заработало!
можно попутный вопрос: А возможно ли отправить одной кнопкой данный отчет на указанную почту? или натолкните где поискать, что то поиском нашел только отправить сообщение на почту, а вот как отправить отчет например в pdf
Проект с примером
при отправке ошибка, пробовал отправить с нескольких машин
if SendMail('smtp.mail.ru', 'адресотправителя@mail.ru', 'парольотпровителя', 465, 'loginпочты', 'адрес доставки@mail.ru', 'тема письма', 'сообщение письма', sFile)
Да спасибо! заработало!
можно попутный вопрос: А возможно ли отправить одной кнопкой данный отчет на указанную почту? или натолкните где поискать, что то поиском нашел только отправить сообщение на почту, а вот как отправить отчет например в pdf
k245 wrote:
Мне кажется подозрительным одинарная и вторая двойная скобка... непонятно, откуда они берутся...
я тоже не пойму откуда это, при чем если ставить filter любое другое значение то такой ошибки нет, как только ставлю <= то сразу ошибка. Derek как то это убрал только не пойму как
derek wrote:Привет pt82,,
Возможно, так?
Derek.
Derek, Скажите что вы делали? кроме того что поставили format dd:MM:yyyy
По этому вопросу никто не подскажет?
Добрый день! Подскажите как сделать
есть поле тип дата/время, когда пытаюсь сформировать отчет и передатьего в fastreport ошибка (см скрин). DateTimePickerы свойство Kind стоит date, если ставить date/time, то все работает, но в DateTimePickerы выбирать даты таким образом очень неудобно. При этом если оставить свойство date и не ставить второй DateTimePicker в отчет то все работает как только я ставлю в отчтет DateTimePicker2 и указываю фильтр <=, то сказу ошибка.
Добрый день! подскажите надо, чтобы записи в таблице отображались текущего года
так я пытаюсь DateTimePicker присвоить начало года и другому конец года. Ругается
FrmItems.DateTimePicker2.sqlDateTime:=StartOfTheYear(Now);
FrmItems.DateTimePicker3.sqlDateTime:=EndOfTheYear(Now);
Либо подскажите как сделать по другоку, идеально было бы как в 1с по умолчанию надо отобрать записи только текущего года, но если пользователь захотел посмотреть записи прошлого года, сам руками поменял DateTimePicker и на текущую сессию этот период отстался
DriveSoft wrote:Попробуйте так
procedure Form1_Button4_OnAfterClick (Sender: TObject);
begin
if Form1.TableGrid1.RowCount=1 then // если в поиске вышла только одна запись, значит нашли
begin
Form1.TableGrid1.SelectedRow := 0; // выделяем первую запись
Form1.Button5.Click;// кликаем
end;
end;
Я так понял, кнопку поиска нажимаете вручную? В принципе и это можно автоматизировать, если например номера всегда имеют одну и туже длинну.
нет кнопка поиска тоже автоматически, ведь смысл поиска сканером чтобы не тыкать мышкой лишнии кнопки.
если номера 003214 и 000321, то все хорошо, но если номера количество цифр в номере разное то при поиске 3214 и при сущетвующем номере 321, открывается редактирование 321
Меня в принципе устраивает постоянная длина номера (количество цифр в номере)
отбой! спасибо))) я не заметил, что Дмитрий написал нумерация должна быть постоянной длиной
Posts found: 1 to 25 of 126