1 Topic by kunar80 (edited by kunar80 2015-04-02 14:55:54)

  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Topic: Прошу помощи по проекту.

Проект делался для своего подразделения. Он уже работает в локальной сети. Но есть вопрос:
- Никак не могу справиться со счётчиками на формах frmToGive1, frmToGive2, frmToGive3. При открытии форм  в счётчике номер отсутствует.

Не боги горшки лепят!
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Прошу помощи по проекту.

Компоненту "Счетчик" присваивается новый номер, когда форма вызывается для создания новой записи (действие кнопки Новая запись)
в вашем проекте я не смог найти такую кнопку, которая бы вызывала данные формы для создания новой записи.

Dmitry.
  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Прошу помощи по проекту.

В том-то и дело, что это не новая запись. А если не счётчики, а едитбоксы (поле cardNum типа ЦЕЛОЕ ЧИСЛО в таблице library), и как-то через вычисляемое поле?

Не боги горшки лепят!
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Прошу помощи по проекту.

Счетчик можно организовать с помощью скрипта и SQL запроса.


например:

iNewID := SQLExecute('SELECT MAX(cardNum)+1 FROM tablename');

затем это значение пишем в TextBox

Form1.Edit1.Value := iNewID;

но это нужно делать при создании новой записи.

Dmitry.

5 Reply by kunar80 (edited by kunar80 2015-03-30 18:46:56)

  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Прошу помощи по проекту.

Спасибо. Получилось.
Записал так:

procedure frmToGive1_OnShow (Sender: string; Action: string);
var
iNewID: integer;
begin
     frmToGive1.user.Text:=sUser; // запись логина в EditBox на frmToGive1
     frmToGive1.form.Text := 'НАФ України';
     iNewID := SQLExecute('SELECT MAX(cardNum)+1 FROM library');
     frmToGive1.edCardNum.Value := iNewID;
end;

В скриптах записи счётчики заменил на

sCardNum := '"'+frmToGive1.edCardNum.Text+'"';


Аналогично в двух других формах.

Не боги горшки лепят!