You are not logged in. Please login or register.
My Visual Database → Posts by yevgeny2003
Для младшей версии сами переделаете , там не сложно
Чёто вообще в Вашем примере ничего не понял. Зачем там вообще комбобоксы?)
Мне нужна форма на которой edit1, кнопка с поиском и грид с отображением того что нашлось. И всё))
Нужно для версии 1.46
уж незнаю как еще проще объяснить, попробую.
Имеем одну таблицу, с одним текстовым полем, самая первая запись в этой таблице имеет значение "нет данных", все последующие записи соответствуют фамилиям, иванов петров сидоров и тд. Есть форма, в форме edit1 и грид1, и кнопка поиск. Пишем в едит1 фамилию и в гриде отображается значение если есть там петров, то показывает нам петрова, если поле пустое и надимаем на кнопку, то показываются все записи, если искать фамилию которой нет в базе, то грид у нас будет пустым, а мне надо чтобы он не был пустым, а отображалась запись "нет данных" вроде максимально всё просто)))
Если есть вариант решения, то напишите скрипт или sqlзапрос сюда, проект не имею возможности скачать и просмотреть, закрыты все доступы на работе и инет и усб, на форуме с ипада.
Не найденые значения, это в таблице у нас есть записи Вася и Петя, а мы в поиске забиваем Фёдор, соответственно грид у нас будет пустым. А мне надо чтобы в гриде была запись соответствующая id1, которая в свою очередь будет отображать "нет данных"
Здравствуйте, помогите с запросом sql в котором при поиске, Не найденные совпадения отображались бы в гриде как id1 к которой соответсвует запись к примеру "нет данных"
procedure Form1_Button24_OnClick (Sender: string; var Cancel: boolean);
var
i,c,q: integer;
s: string;
begin
saverez.show;
q := 0;
c := Form1.tablegrid3.RowCount - 1;
for i := 0 to c do
if Form1.tablegrid3.Cells[3,i] = '' then Inc(q);
saverez.Label6.Caption := IntToStr(q);
end;сделал так..вроде работает))
работает но данные берутся из базы, а мне надо чтобы данные брались из грида.
как сделать чтобы в lable1 отображалось общее количество записей tablegrid1, только тех у которых пустой 3-й столбец.
SQLExecute('UPDATE employees SET record_count = '+ IntToStr(iMax) + ', dateready='+ '"' + FormatDateTime('yyyy-MM-DD 00:00:00.000', Now) + '"' +' WHERE id='+IntToStr(id));Подскажите как сдесь поменять в dateready чтобы была не текущая дата а бралась дата из form1.datetimepicker1
yevgeny2003 wrote:И прям никак ничего не поделать?)) а то теряется весь смысл)) по датам готовности выбираются отчеты и тд. Может есть какие нибудь варианты?)
Измените данную строку
SQLExecute('UPDATE employees SET record_count = '+ IntToStr(iMax) + ', dateready=date(''now'') WHERE id='+IntToStr(id));на
SQLExecute('UPDATE employees SET record_count = '+ IntToStr(iMax) + ', dateready='+ '"' + FormatDateTime('yyyy-MM-DD 00:00:00.000', Now) + '"' +' WHERE id='+IntToStr(id));
Супер. огромное спасибо!
И прям никак ничего не поделать?)) а то теряется весь смысл)) по датам готовности выбираются отчеты и тд. Может есть какие нибудь варианты?)
yevgeny2003
Сделал для вас проект с примером, для запуска скрипта используйте кнопку "Assign #"
в 1.46 не открывается
скопировал скрипт из свежей версии в 1.46, ругается при запуске на id := Form1.tablegrid3.dbIndexToID(i)
заменил на
Form1.tablegrid3.SelectedRow:=i;
id := Form1.tablegrid3.dbItemID;
все заработало ))
остались нюансы))
как в этом списке пропустить или запретить проставить номера с датами, если они там уже стоят...?
...еще странно что в гриде по поиску даты проставления он ничего не ищет, хотя если полный список базы отобразить то видно что дата стоит. а в новой версии работает и ищется всё нормально ...может несовместимость в этом "dateready=date(''now'') "?
yevgeny2003 wrote:Можете набросать пример скрипта?
Могу, только опишите точней процесс.
Номера присваивать необходимо только для тех записей, которые будут отобраны при поиске в гриде? или всем которые в базе? у которых еще нет своего номера?
Только те которые отобранны в гриде.
В целом должно выглядеть так. В таблице есть ФИО, дата заполнения. Счетчик, дата готовности.
Фио и дата заполнения импортируются из экселя с пустыми графами счетчика и датой готовности.
В гриде ищем всех по дате заполненияи всему этому списку проставляем автоматически номера счетчика вместе с текущей датой готовности.
Можете набросать пример скрипта?
все записи импортируются. а потом уже только к ним надо присваивать номера.
Здравствуйте, возможно ли в версии 1.46 сделать следующее...
по записям отображаемых в гриде, внести к каждой записи, последовательно, нумерацию.
т.е. в гриде отображено 100 записей, нажимаем на кнопку и ко всем этим записям присваиваются номера от 1-100, завтра другие 100 записей и им присваиваются уже номера 101-200 и т.д.
в данный момент сделано всё выбирая каждую запись и нажимая кнопку и присваивается следующий номер, но автоматизация должна быть автоматизированной))))
yevgeny2003
Честно говоря не знаю как будет себя вести база при таком количестве пользователей, я могу сделать для вас проект с подобным чатом, тогда бы вы смогли протестировать это в реальности.
только для 1.46 версии ))
Если Вас это не затруднит, особо не торопитесь, но огромное спасибо
...хотя это же нужен постоянный запрос. а скрипт работает один раз либо при открытии формы или нажатии кнопки.. всё никак не привыкну. это же не эксель с макросом))
примерно 20
либо какойто скрипт который позволял бы "если в базе "такойто такойто" новая записть, то лэйбл.каптион -"новое сообщение") так возможно?*
а если повесить лэйбл и когда ктото вносит сообщение в базу, в лэйбле отображается "у вас новое сообщение" и после обновления грида лэйбл опять "пустой" к примеру както так? (.....какимто видимо скриптом нужно повесить на лэйбл постоянное обновление из бд, и видимо оно тоже приведёт к "тормозам". мысли в слух(( )
Приветствую всех, возможно ли сделать в этой програмке мессегнер аля аськи только локальной? никто ничего подобного не делал?
как сделать один отчет с данными из двух не связанных таблиц? и можно ли поместить в отчет например текст из текстбокса не привязанного ни к одной таблице?
точно сохраняется. както не обратил внимание. спасибо.
но при выключении включении программы ширина опять стандартная.(
это понятно, а если при условии, что нельзя менять никакие данные в csv?
My Visual Database → Posts by yevgeny2003
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi