Дипломная работа: Организация автоматизации учета на предприятиях

if IBQuery1.FieldValues['Adr_str']<> null then

Edit43.Text:=IBQuery1.FieldValues['Adr_str'];

if IBQuery1.FieldValues['Adr_obl']<> null then

Edit44.Text:=IBQuery1.FieldValues['Adr_obl'];

if IBQuery1.FieldValues['Adr_gor']<> null then

Edit45.Text:=IBQuery1.FieldValues['Adr_gor'];

if IBQuery1.FieldValues['Adr_yl']<> null then

Edit46.Text:=IBQuery1.FieldValues['Adr_yl'];

if IBQuery1.FieldValues['Adr_dom']<> null then

Edit47.Text:=IBQuery1.FieldValues['Adr_dom'];

if IBQuery1.FieldValues['Adr_kv']<> null then

Edit48.Text:=IBQuery1.FieldValues['Adr_kv'];

if IBQuery1.FieldValues['Adr_ind']<> null then

Edit50.Text:=IBQuery1.FieldValues['Adr_ind'];

if IBQuery1.FieldValues['Adr_tel']<> null then

Edit49.Text:=IBQuery1.FieldValues['Adr_tel'];

if IBQuery1.FieldValues['Mroz_str']<> null then

Edit40.Text:=IBQuery1.FieldValues['Mroz_str'];

if IBQuery1.FieldValues['Mroz_obl']<> null then

Edit41.Text:=IBQuery1.FieldValues['Mroz_obl'];

if IBQuery1.FieldValues['Paspost_nom']<> null then

Edit53.Text:=IBQuery1.FieldValues['Paspost_nom'];

if IBQuery1.FieldValues['Mroz_gor']<> null then

Edit42.Text:=IBQuery1.FieldValues['Mroz_gor'];

if IBQuery1.FieldValues['Paspost_ser']<> null then

<