Наблюдаю в коде нелепое сочетание двух противоположных подходов к работе с базой.
Это - использование датасета и вставка записи через его InsertSQL, при том что ввод данных производится из НЕ DataAware-контролов.
Да еще и из другой формы.
Да еще и перезаписывая этот самый InsertSQL каждый раз новым текстом,
да еще и без параметров.
Я исповедую отказ от DataAware подхода.
Поэтому я бы положил прямо на форму TfmAddNewFizClient компоненты транзакции и QIns : TFIBQuery (который НЕ датасет), и выполнял запрос непосредственно тут.
После закрытия текущей формы мы скорее всего попадаем в fmFizClients, посему функция которая создает открывает и выполняет окно fmAddNewFizClient у меня возвращает True/False, где True - запись вставлена, соответственно по выходу список нужно отрефрешить.
В var-парамере можно передать обратно и код вставленной записи что бы отрефрешив можно было спозиционироваться на только что вставленную запись.
Переменные которые тут заводятся - нафиг не нужны. Удобства не добавляют.
Текст SQL-запроса заполняется на стадии DesignTime и в RunTime не изменяется.
Соответственно, метод выглядел бы примерно так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
procedure TfmAddNewFizClient.bApplyClick(Sender: TObject);
begin
QIns.ParamByName('SERNAME' ).AsString := trim( edClientSername.Text );
QIns.ParamByName('NAME' ).AsString := trim( edClientName.Text );
QIns.ParamByName('LAST_NAME' ).AsString := trim( edClientLastName.Text );
QIns.ParamByName('PASSPORT_SERIA' ).AsString := trim( edPassportSeria.Text );
QIns.ParamByName('PASSPORT_NUMBER').AsString := trim( edPassportNumber.Text );
QIns.ParamByName('BIRTHDAY' ).AsString := trim( medClientBirthday.Text);
QIns.ParamByName('BIRTHDAY_PLACE' ).AsString := trim( edBirthdayPlace.Text );
QIns.ParamByName('WHO_GIVE_PASSP' ).AsString := trim( edWhoGivePassport.Text);
QIns.ParamByName('PASSPORT_DATE' ).AsString := trim( medPassportDate.Text );
QIns.ParamByName('ADRESS_REG' ).AsString := trim( mRegAdress.Text );
QIns.ParamByName('ADRESS_LIVE' ).AsString := trim( mLiveAdress.Text );
QIns.ParamByName('PHONE' ).AsString := trim( medPhone.Text );
QIns.ExecQuery;
Fid := QIns.FieldByName('ID').AsInteger;
QIns.Transaction.Commit;
ShowMessage('Ok');
ModalResult := True;
end;
Дальше есть вопросы к именованию компонент.
Какие-то контролы начинаются с "ed"? какие-то с "med" а какие-то с "m" - нет единообразия.
Дату я бы вводил и сохранял не текстом а датой, это позволит как минимум отфильтровать какой-нибудь бред еще на стадии ввода.
Многострочные данные я бы в varchar так сразу не пихал. А они вообще нужны, многострочные? (это я предполагаю что компоненты типа mLiveAdress - это не Edit а Memo).
Обработки ошибок тут так же нет.
Текст запроса в компоненте выглядит так:
QIns.SQL =
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
-- fmAddNewFizClient.QIns
--
-- Вставка в справочник нового клиента
--
execute block
returns(id integer)
as begin
id = gen_id(gen_emp_id, 1);
INSERT INTO T_FIZ_CLIENTS(
ID, SERNAME, NAME, LAST_NAME, PASSPORT_SERIA, PASSPORT_NUMBER, BIRTHDAY, BIRTHDAY_PLACE, WHO_GIVE_PASSP, PASSPORT_DATE, ADRESS_REG, ADRESS_LIVE, PHONE)
values (
:ID, :SERNAME, :NAME, :LAST_NAME, :PASSPORT_SERIA, :PASSPORT_NUMBER, :BIRTHDAY, :BIRTHDAY_PLACE, :WHO_GIVE_PASSP, :PASSPORT_DATE, :ADRESS_REG, :ADRESS_LIVE, :PHONE);
suspend;
end
';
Имя формы и компонента запроса указываю в первой строке для того что бы потом в таблицах мониторинга было проще ориентироваться откуда этот запрос выполняется.
В запросе сначала получается новый ID (имя генератора вставлено от балды), запись вставляется, а ID возвращается обратно.
Сейчас есть такая штука как RETURNING, но я не использую. Поддерживает ли эту штуку FIB+ - не в курсе.
Сразу про будущие грабли.
Юзер может ввести в поле текст длиннее чем поле в базе - при вставке возникнет исключение.
Лучше всего прямо в Edit ограничить максимальную длину разрешенную для ввода, через Edit.
Формы создания я не использую. Вставка записи у меня производится пустой, а потом она открывается на редактирование, с чтением данных из базы. А в запросе чтения можно прочитать длину поля и ограничить Edit, примерно такой процедурой
1.
2.
3.
4.
5.
6.
7.
8.
9.
procedure FieldToControl(AEdit:TEdit; FN: string; Q: TpFIBQuery); overload;
begin
AEdit.Text := Q.FN(FN).AsString;
AEdit.MaxLength := Q.FN(FN).Size;
end;
...
FieldToControl(QSel, 'NAME', edClientName);
...
Ну и так далее.
Удачи.
