Приветствую,
пожалуйста, приложите ваш проект к сообщению (zip файл без exe и dll)
My Visual Database → Posts by DriveSoft
Приветствую,
пожалуйста, приложите ваш проект к сообщению (zip файл без exe и dll)
kunar80
Имеете ввиду например такой?
000048
Это не работает. Проект я выложил. Замысел таков: если я пытаюсь выдать больше, чем имеется, обнуляется edPlus и появляется сообщение, что отсутствует необходимое количество.
И ещё. Формат номеров num1 и num2 нужен 6 знаков.
Как это связать?
В вашем случае проверку необходимо осуществлять на событиях OnClick у кнопок сохранения записи
procedure Form2_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
if Form2.edNum2_2.Value >= Form2.edNum1_1.Value then
begin
Form2.edPlus2.Text := '';
MessageDlg('У Вас нет такого количества!', mtError, mbOk, 0); //
Cancel := true;
end;
end;
procedure Form2_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
if Form2.edNum2_2.Value >= Form2.edNum1_1.Value then
begin
Form2.edPlus2.Text := '';
MessageDlg('У Вас нет такого количества!', mtError, mbOk, 0); //
Cancel := true;
end;
end;
Формат числа у компонента можете изменить, установите свойство Currency=true и Accuracy=6
Нет, не работает. Прилагаю проект
Я думал у вас статус организован как положено, словарной таблицей, тогда так
Form2.edNum1_2.Text:=IntToStr( SQLExecute('SELECT IFNULL(MAX(num2), 0) FROM main WHERE status=''Выдано''') + 1 );
You should use component Label for that:
Для этого вам необходимо на форме разместить кнопку с действием "Показать запись"
Установите свойство чекбокса AllowGrayed=True и свойство DefaultState=Grayed
теперь у чекбокса будет три состояние, одно из них Grayed, которое позволяет игнорировать чекбокс при поиске.
kunar80
Вы используете операцию сравнения, больше или равно для текста, что не применимо.
попробуйте так
if Form2.edNum2_2.Value => Form2.edNum1_1.Value then
begin
Form2.edPlus2.Text := '';
end else MessageDlg('У Вас нет такого количества!', mtError, mbOk, 0);
kunar80
Тогда примерно так
Form2.Edit4.Text:=IntToStr( SQLExecute('SELECT IFNULL(MAX(num2), 0) FROM main WHERE id_status=5') + 1 );
где 5 - это id записи, в которой содержится статус с названием "Выдано"
Вы уже что нибудь сделали? если да, можете прислать свой проект на support@drive-software.com
помогу реализовать задуманное.
Возможно для создания новой записи вы использовали действие кнопки "Показать форму", вместо необходимого "Новая запись"
Создайте событие OnClick для кнопки, которая делает поиск
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
if Form1.Edit1.Text='' then // если пусто
begin
Form1.TableGrid1.ClearRows; // очищаем содержимое грида
Cancel := True; // отменяем поиск
end;
end;
здесь можете посмотреть, как правильно создавать события
http://myvisualdatabase.com/help_ru/scr … rview.html
1.
Form2.Edit4.Text:=IntToStr( SQLExecute('SELECT IFNULL(MAX(num2), 0) FROM main') + 1 );
2.
К сожалению не понял, что такое "поле [5,i] = '000'" ?
Да, конечно, созданные вами проекты могут работать без использования My Visual Database, на других компьютерах, и даже с флешки.
rabotanex
Реализовал поиск по времени с помощью отдельной кнопки с SQL запросом.
I can't see your attached project, please send me your project to support@drive-software.com
with link on this post.
Thanks.
С помощью скрипта можно автоматически подбирать высоту строк в гриде, скачайте пожалуйста данный пример
http://myvisualdatabase.com/forum/misc. … download=1
В старых версиях такой возможности нет.
Приветствую
Form1.TableGrid1.dbPopupMenu.Items.Items[0].Enabled:=False;
wertyby
Вместо решебника есть отдельный раздел FAQ на форуме
http://myvisualdatabase.com/forum/viewforum.php?id=9
в событии формы OnShow напишите
Form1.ButtonSearch.Click;
где ButtonSearch это имя кнопки с действием Поиск
Montenegr0
I don't have your project, just try it )
You can run project for all four computers in same time.
Спасибо, отправил.
К сожалению не могу дать точного совета по данному описанию и проекту, слишком много неясных моментов.
My Visual Database → Posts by DriveSoft
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi