Спасибо Дмитрий и Вас с наступающим Новым годом и счастливого рождества)))))
2 2014-12-25 08:00:10
Topic: Проверка существования записи (2 replies, posted in Russian)
Добрый день господа форумчане))) Столкнулся с проблемкой. Есть таблица zakaz и форма добавления заказа. Что бы не загромождать форму всякой фигней (параметры производства), я создал еще таблицу proizvodstvo (связь к zakaz) и поместил на форму добавления заказа - кнопку производство. Суть в том, что по нажатию на кнопку производство, хочу что бы добавилась запись в таблицу proizvodstvo и при следующей открытии формы производство в данном заказе - открывалась форма для редактирования.
В голову приходит только одна мысль по нажатию на кнопку производство - должна проходить проверка в таблице proizvodstvo - есть ли запись в таблице соответствующая заказу. Если да - то открываем форму для редактирования, если нет, то форму добавления записи.
if VarToStr( SQLExecute('SELECT id FROM zakaz WHERE id = proizvodstvo.id_zakaz') ) = not null then
add_zakaz.Button10.Click else
add_zakaz.Button11.Click;
Ну вот с кодом запроса и проверки явно проблемы. И не знаю как открыть форму для редактирования.
Проект прикрепил.
3 2014-12-10 09:01:07
Re: РЕШЕБНИК. БИБЛИОТЕКА ГОТОВЫХ РЕШЕНИЙ. Исходник прилагается. (71 replies, posted in Russian)
kunar80 wrote:
vlad wrote:есть одно но, логин admin и пароль от любого пользователя подходит. Любой пароль из списка подходит.
Действительно. Спасибо. К сожалению, не знаю в чём проблема. Я ведь сам ещё два месяца назад даже не предполагал, что придётся заниматься программированием. Все тестовые проекты, выложенные здесь, это фрагменты моего проекта, сделанные во многом благодаря Дмитрию. В этой ситуации, наверное, нужна помощь зала. Буду очень признателен, если кто-то исправит данный тестовый проект и выложит его. Свой после этого удалю.
В итоге я сделал вот так:
s := VarToStr( SQLExecute('SELECT count(id) FROM menedger WHERE (fio = ''' + frmLogin.ComboBox1.Text + ''') AND (password = ''' + frmLogin.Edit1.Text + ''');') );
idUser := SQLExecute('SELECT id FROM menedger WHERE (fio = ''' + frmLogin.ComboBox1.Text + ''');');
// если логин и пароль найдены
if s <> '0' then
begin
И все пошло
4 2014-12-09 14:56:45
Re: Стартовое окно (3 replies, posted in Russian)
Возьмитесь за окошко и перетащите его влево, что бы оно стало желтым)))))
5 2014-12-09 10:18:25
Re: Вопрос по программе (5 replies, posted in Russian)
И можно еще вопросик, там есть форма отгрузки. Как сделать проверку в скрипте сумма отгруженного кол-ва = тиражу, если соответствует - то статус поменять. Если нет.......
6 2014-12-09 10:08:13
Re: Вопрос по программе (5 replies, posted in Russian)
Собственно еще вопросики:
В отчетах - есть выберите компоненты участвующие в поиске (я подумал мое).
Нужно выводить отчет в зависимости от отгрузки (компонент TableGrid), но в tablegrid может быть несколько записей. Как вывести запись в зависимости от выделения?
Проект прилагаю.
8 2014-12-08 14:05:57
Topic: Вопрос по программе (5 replies, posted in Russian)
Добрый день! Возникла такая ситуация - удалять записи из подчиненной таблице. Ну и собственно вопрос: если при создание структуры я не указал эту галочку, как сейчас я ее могу указать?
Для чего служит галочка - таблица является словарем?
И еще вопросик, на форме есть Флажок и Дата/время - как сделать, что бы по нажатию на Флажок - Да - заносилось текущее время в поле время/дата?
9 2014-12-05 06:26:36
Re: Обслуживание БД (5 replies, posted in Russian)
Спасибо. Действительно помогло))))
10 2014-12-04 13:56:07
Re: Обслуживание БД (5 replies, posted in Russian)
Методом Русского тыка, выяснил, что при выходе из программы (закрытия окна) - процесс все равно остается быть включенным в системе. При следующем запуске - создается второй процесс. Попробовал на трех ПК.
11 2014-12-04 13:18:53
Re: Обслуживание БД (5 replies, posted in Russian)
Еще вопрос, а вернее проблема. Поставил программу двум пользователям в сети, они запустили программу, проверили все и закрыли. Уже вторые сутки весят несколько процессов с названием программы - в диспетчере задач. А у меня штук 30 процессов весит.......
12 2014-12-03 18:20:36
Re: РЕШЕБНИК. БИБЛИОТЕКА ГОТОВЫХ РЕШЕНИЙ. Исходник прилагается. (71 replies, posted in Russian)
kunar80 wrote:
ВХОД ЧЕРЕЗ ЛОГИН И ПАРОЛЬ. КОНТРОЛЬ ПОСЕЩЕНИЯ ПРОГРАММЫ ПОЛЬЗОВАТЕЛЯМИ ПО ЛОГИНУ, ИМЕНИ ПОЛЬЗОВАТЕЛЯ КОМПЬЮТЕРА, ДАТЕ И ВРЕМЕНИ ВХОДА И ВЫХОДА. ОПРЕДЕЛЕНИЕ ПРАВ ПОЛЬЗОВАТЕЛЕЙ ЧЕРЕЗ СКРИПТ. ДИАЛОГ ПРИ ВЫХОДЕ.
motorolla wrote:а возможно ли вывести информацию о текущем пользователе, т.е. пользователе под чьим именем осуществлен вход?
Ответ в тестовом проекте.
Проект перезалит: добавлены определение прав пользователей и диалог (хотя, диалог здесь не идёт - он добавляет ещё одну фиксацию времени выхода, поэтому в скрипте он явно лишний).
Уважаемый kunar80, сделал по вашему проекту свой проект))))) Но есть одно но, логин admin и пароль от любого пользователя подходит. Любой пароль из списка подходит.
13 2014-12-03 13:09:19
Re: Обслуживание БД (5 replies, posted in Russian)
Кстати, как советовал наш Админ, поставил sqlitestudio. Зашел в БД, могу редактировать данные. Но пересоздать структуру в самой программе не могу.
14 2014-12-03 12:33:22
Topic: Обслуживание БД (5 replies, posted in Russian)
Добрый день! Для обслуживания БД (Бэкап/Ресторе) использую SQLiteManager. Сегодня в проекте, что то натворил..... вернее делал доступ по паролю и разграничение прав доступа. После этих манипуляций не могу открыть базу этой программкой, выводит сообщение мол Database file sqlite.db seems to be encrypted. Please enter the encryption key: введите пароль)))))) Один раз такое уже было. И при пересоздании структуры БД, все данные сохраняются. Может кто сталкивался?
15 2014-11-05 10:25:06
Topic: Группировка запроса в TableGrid (2 replies, posted in Russian)
Добрый день! Подскажите пожалуйста как сгруппировать запрос на вывод в TableGrid по наименованию например. Я так понимаю это делается в фильтре, но документации по нему не нашел.