помогите!!!!
данный поиск работает, но если например есть в таблице номер 321 и 3214 при сканировании сканером штрихков номер 3214, первым находится 321 и соответственно открывается не 3214, а 321
26 2019-03-05 10:46:16
Re: автоматическое открытие окна после поиска (8 replies, posted in Russian)
27 2019-02-02 07:44:42
Re: автоматическое открытие окна после поиска (8 replies, posted in Russian)
спасибо!!
28 2019-02-01 03:07:10
Topic: автоматическое открытие окна после поиска (8 replies, posted in Russian)
Приветсвую!
Товарищи подскажите! Как сделать: производится поиск сканером штрихкода, в гриде находится запись. Необходимо сделать так, чтобы при найденом значении в гриде эта запись открывалась автоматически, т.е. пришел клиент предьявил пропуск, на котором штрихкод.
сотрудник отсканировал этот пропуск, открылась автоматоматически форма (по кнопке Button5) для добавления даты посещения. сотрудник по сути должен один раз отсканировать сканером затем подтвердить (сохранить) дату посещения, т.е. надо избежать двойным кликом на гриде.
29 2018-12-25 04:29:06
Re: скрипт + combobox (7 replies, posted in Russian)
sibprogsistem wrote:
не могу разобраться в связях ваших таблиц, чго-то голова сегодня не варит..
но насколько я понял ваш вопрос , то эти таблицы должны быть связаны тогда скрипт должен выглядить примерно такprocedure Frm_ob_ComboBox1_OnChange (Sender: TObject); begin Frm_ob.ComboBox7.dbItemID:= SQLExecute( SELECT имя поля FROM имя таблицы LEFT OUTER JOIN имя таблицы ON тиблица.id= таблица.id_поле WHERE таблица.id=' + Frm_ob.ComboBox1.value); end;взять значение поля из двух таблиц объедененых по условию где id поля равен id Frm_ob.ComboBox1
спасибо работает!
30 2018-12-21 20:03:59
Re: скрипт + combobox (7 replies, posted in Russian)
sibprogsistem wrote:
не могу разобраться в связях ваших таблиц, чго-то голова сегодня не варит..
но насколько я понял ваш вопрос , то эти таблицы должны быть связаны тогда скрипт должен выглядить примерно такprocedure Frm_ob_ComboBox1_OnChange (Sender: TObject); begin Frm_ob.ComboBox7.dbItemID:= SQLExecute( SELECT имя поля FROM имя таблицы LEFT OUTER JOIN имя таблицы ON тиблица.id= таблица.id_поле WHERE таблица.id=' + Frm_ob.ComboBox1.value); end;взять значение поля из двух таблиц объедененых по условию где id поля равен id Frm_ob.ComboBox1
Попробую
31 2018-12-21 20:02:25
Re: скрипт + combobox (7 replies, posted in Russian)
DriveSoft wrote:
Вы пытаетесь присвоить комбобоксам идентификатор записи, который никак не связан с другими записями. Так можно делать, когда у комбобоксов используется одна и таже таблица в качестве источника записей, но в вашем случае не так.
ComboBox1 - показывает записи из таблицы db_pacient
ComboBox7 - db_lg
ComboBox8 - db_uch
Как тогда сделать не пойму, мне надо чтоб в таблице db_items записывалось id_uch и id_lg
34 2018-12-21 07:44:33
Topic: скрипт + combobox (7 replies, posted in Russian)
Добрый день!
пользователь/пароль admin/admin
Помогите, что то не пойму! на форме Frm_ob есть комбобокс который открывает таблицу db_pacient и есть еще 2 комбобокса которые заполняются из таблицы db_pacient поля uch и kat_lg с помощью этого скрипта
procedure Frm_ob_ComboBox1_OnChange (Sender: TObject);
begin
Frm_ob.ComboBox7.dbItemID:=Frm_ob.ComboBox1.dbItemID;
Frm_ob.ComboBox8.dbItemID:=Frm_ob.ComboBox1.dbItemID;
end;и получается что скрипт отрабатывает не всегда, т.е. данные в Frm_ob.ComboBox7 и Frm_ob.ComboBox8 не подтягиваются.
после удаления базы и заполнения справочника несколько записей все ок и затем снова комбобоксы не заполняются
35 2018-10-10 09:58:19
Re: Цвет ячейки в зависимости от количества дней от сегодняшней даты (1 replies, posted in Russian)
я так делал
только 30 дней и 0 дней
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;36 2018-09-17 08:53:49
Re: обновление структуры (8 replies, posted in Russian)
k245 wrote:
командный файл.
я извиняюсь за назойливость, вот как раз командный мне бы подошел, а можно пример простенький и как его создать
37 2018-09-17 03:07:33
Re: обновление структуры (8 replies, posted in Russian)
Все понятно спасибо!
вы пишите:
k245 wrote:
Но дополнительно вы создаёте SQL-скрипт, который необходимо однократно выполнить на базе данных конечного пользователя
т.е. на дополнительный скрипт также надо сделать проект с исполняемым файлом в который пользователь положит свою базу и однократно запустит .exe. я так понимаю?
простите за тупизм
38 2018-09-15 07:23:49
Re: обновление структуры (8 replies, posted in Russian)
Ну т.е. я делаю промежуточное обновление пользователь запускает exe, программа меняет структуру, затем пользователь берет измененную базу и вставляет уже в конечную обновленную версию программы так я понимаю? Так в этом случае поля созданные в скрипте опять же конструктор не увидит. Или я вообще не так все понял? И вот про файлики script tables и forms можно поподробней чуть не понял
39 2018-09-14 09:11:07
Re: обновление структуры (8 replies, posted in Russian)
структуру я меняю скриптом
SQLExecute('ALTER TABLE db_items ADD COLUMN Npas TEXT');
SQLExecute('ALTER TABLE db_items ADD COLUMN spas TEXT');получается и записывать в базу теперь, после изменения структуры чз скрипт, на кнопке сохранить надо писать скрипт для сохранения всех полей, т.к. поля созданные скриптом не отображаются в конструкторе выбора тогоже edit или в "Таблицы базы данных"
40 2018-09-13 02:25:43
Topic: обновление структуры (8 replies, posted in Russian)
добрый день! подскажите о можно ли как то скриптом (.bat) или еще какимнибудь вариантом изменить структуру, например в обновленной версии проекта необходимо обновить структуру, нет возможности обновлять у каждого пользователя эту структуру вручную (такая особенность - разные учреждения). а так допустим я ему присылаю какой нибудь .exe или .bat, он запускает его, и уже на его машине база с новой структурой.
Есть ли такая возможность или натолкните на мысль. Можно сделать конечно отдельный проект обновление в него он закидывает свою базу нажимает обновить, и затем уже обновленную базу берет и опять копирует к себе в рабочий версию, но это как то неудобно
на данный момент поле паспорт вносится и серия и номер, в новой структуре надо разделить серию и номер в разные поля, сами данные пользователь сам скопирует и вставит в новые поля, но вот изменить структуру...
Спасибо!
41 2018-09-12 04:14:15
Re: [Скрипт] Импорт и Экспорт записей (29 replies, posted in FAQ)
Добрый день! а возможно ли экспортировать в файл не id записи связанных таблиц, а их реальные значения, ну например у сотрудника есть связанная таблица "пол", в ней есть значения мужской/женский, так вот при эспорте чтоб выгружалось именно мужской или женский, а не 1 или 2.
есть конечно вариант выгрузить таблицу в ексель, а потом из екселя сделать csv, но это муторно и не все пользователи до такого додумаются.
если конечно такое не трудоемко
42 2018-09-12 02:40:20
Topic: ошибка компиляции на сетевом диске (1 replies, posted in Russian)
Добрый день! подскажите, если проект находится на сетевом диске и попытаться его откомпилировать выскакивает ошибка см скрин, и после этого его больше никак не запустить - проект ломается. если же компилировать на локальном диске все ок, как только кидаю на сетевой компилирую ломается и не помогает даже перенос назал на локальный диск, причем ломается и exe файл
так происходит с любым проектом, и пробывал на 2 -х машинах ситуация аналогичная
43 2018-08-06 01:41:11
Re: Подключение периферийных устройств через драйвер (25 replies, posted in Russian)
newusr wrote:
pt.82 wrote:а можно будет потом проект глянуть??)))
А что конкретно интересует?
"Свой драйвер" это я, конечно, сильно сказал, планирую реализовать всего лишь одну функцию протокола ККТ v 2.0, для передачи строки символов для печати на ККТ.
тоже планировал сделать печать чеков с ккм, но руки никак не доходят. у меня штрих-онлайн, хотел посмотреть как реализовано будет
44 2018-08-03 03:05:31
Re: Подключение периферийных устройств через драйвер (25 replies, posted in Russian)
newusr wrote:
Супер! Всё получилось. Спасибо.
Похоже я собственный драйвер для ККТ напишу...
а можно будет потом проект глянуть??)))
45 2018-07-26 14:43:26
Re: Программно получить данные из сертификата (3 replies, posted in Russian)
сертификат электронной подписи, .cer
46 2018-07-26 03:14:24
Topic: Программно получить данные из сертификата (3 replies, posted in Russian)
знаю на делфи есть возможность это сделать, на MVDB можно или не стоит даже пытаться?
47 2018-07-23 02:40:53
Re: Групповой отчет (8 replies, posted in Russian)
m.prokhachev wrote:
pt.82, а рассказать???)))
надо каждую страницу засунуть в MasterData
49 2018-06-29 04:21:39
Re: не работает импорт (6 replies, posted in Russian)
Справочник ничем не отличается от простой таблицы, сперва импортируйте справочники, потом таблицы, которые ссылаются на эти справочники.
Может вы не поняли или я не понял, например есть файл в нем поля фио, пол, подразделение, и есть связаные таблицы пол и подразделение, так вот как будет выглядеть скрипт из этой темы http://myvisualdatabase.com/forum/viewt … p?id=3619, если надо чтоб таблицы пол и подразделение заполнились уникальными записями, а в таблице где фио заполнилось id_пол, id_подразделение
50 2018-06-25 04:49:40
Re: не работает импорт (6 replies, posted in Russian)
спасибо! этот метод гораздо медленней загружает, если раньше 20 тыс записей грузилось максимум 10 мин, то сейчас около 30 мин на одной и той же машине, но это не критично.
Еще вопросик у вас в этой теме http://myvisualdatabase.com/forum/viewtopic.php?id=3619 универсальный скрипт для импорт, а как сделать на универсальном этом скрипте ипортировать также справочники?