Приветствую,


пожалуйста, приложите ваш проект к сообщению (zip файл без exe и dll)

7,452

(13 replies, posted in Russian)

Попробуйте.

7,453

(13 replies, posted in Russian)

kunar80
Имеете ввиду например такой?
000048

7,454

(13 replies, posted in Russian)

kunar80 wrote:

Это не работает. Проект я выложил. Замысел таков: если я пытаюсь выдать больше, чем имеется, обнуляется 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

7,455

(13 replies, posted in Russian)

kunar80 wrote:

Нет, не работает. Прилагаю проект

Я думал у вас статус организован как положено, словарной таблицей, тогда так

Form2.edNum1_2.Text:=IntToStr( SQLExecute('SELECT IFNULL(MAX(num2), 0) FROM main WHERE status=''Выдано''') + 1 );

7,456

(9 replies, posted in General)

Please, download latest version here
http://myvisualdatabase.com/thank_you_f … ading.html


http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=832&download=0

7,457

(9 replies, posted in General)

You should use component Label for that: http://myvisualdatabase.com/help_en/components/label.png

7,458

(7 replies, posted in Russian)

Для этого вам необходимо на форме разместить кнопку с действием "Показать запись"

7,459

(7 replies, posted in Russian)

Установите свойство чекбокса AllowGrayed=True и свойство DefaultState=Grayed
теперь у чекбокса будет три состояние, одно из них Grayed, которое позволяет игнорировать чекбокс при поиске.

7,460

(13 replies, posted in Russian)

kunar80
Вы используете операцию сравнения, больше или равно для текста, что не применимо.
попробуйте так

if Form2.edNum2_2.Value => Form2.edNum1_1.Value then
begin
   Form2.edPlus2.Text := '';
end else MessageDlg('У Вас нет такого количества!', mtError, mbOk, 0);

7,461

(13 replies, posted in Russian)

kunar80
Тогда примерно так

Form2.Edit4.Text:=IntToStr( SQLExecute('SELECT IFNULL(MAX(num2), 0) FROM main WHERE id_status=5') + 1 );

где 5 - это id записи, в которой содержится статус с названием "Выдано"

Вы уже что нибудь сделали? если да, можете прислать свой проект на support@drive-software.com
помогу реализовать задуманное.

Возможно для создания новой записи вы использовали действие кнопки "Показать форму", вместо необходимого "Новая запись"

7,464

(1 replies, posted in Russian)

Создайте событие 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

7,465

(13 replies, posted in Russian)

1.
Form2.Edit4.Text:=IntToStr( SQLExecute('SELECT IFNULL(MAX(num2), 0) FROM main') + 1 );


2.
К сожалению не понял, что такое "поле [5,i] = '000'" ?

7,466

(2 replies, posted in Russian)

Да, конечно, созданные вами проекты могут работать без использования My Visual Database, на других компьютерах, и даже с флешки.

rabotanex
Реализовал поиск по времени с помощью отдельной кнопки с SQL запросом.

7,468

(5 replies, posted in General)

I can't see your attached project, please send me your project to support@drive-software.com
with link on this post.


Thanks.

7,469

(1 replies, posted in Russian)

С помощью скрипта можно автоматически подбирать высоту строк в гриде, скачайте пожалуйста данный пример
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 это имя кнопки с действием Поиск

7,473

(7 replies, posted in General)

Montenegr0
I don't have your project, just try it )
You can run project for all four computers in same time.

Спасибо, отправил.

К сожалению не могу дать точного совета по данному описанию и проекту, слишком много неясных моментов.