ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('begin tran');

ADOQuery1.SQL.Add('INSERT INTO lt_main '+ 
'(d_id,z_count,note, date) VALUES (:p1_1,:p1_2,:p1_3,:p1_4)'; 
ADOQuery1.Parameters.ParamByName('p1_1').Value := edit_id.text; 
ADOQuery1.Parameters.ParamByName('p1_2').Value :=  0 ; 
ADOQuery1.Parameters.ParamByName('p1_3').Value := edit_note.text; 
ADOQuery1.Parameters.ParamByName('p1_4').Value := edit_date.text; 
ii:= 0 ; 
for i:= 1  to nnn do begin 
   cb:=(findcomponent('combobox'+inttostr(i)) as tcombobox); 
   if ((trim(cb.text)='') or (not cb.visible)) then break; 
   inc(ii); 
   ADOQuery1.SQL.Add('INSERT INTO lt_zone '+ 
	'(d_id,z_num,color_id, form_id) VALUES (:p'+ IntToStr(ii+ 1 )+'_1,'+
	':p'+ IntToStr(ii+ 1 )+'_2,:p'+ IntToStr(ii+ 1 )+'_3,:p'+ IntToStr(ii+ 1 )+'_4)'; 
   ADOQuery1.Parameters.ParamByName('p'+ IntToStr(ii+ 1 )+'_1').Value := edit_id.text; 
   ADOQuery1.Parameters.ParamByName('p'+ IntToStr(ii+ 1 )+'_2').Value:=i; 
   ADOQuery1.Parameters.ParamByName('p'+ IntToStr(ii+ 1 )+'_3').Value:=cb.itemindex+ 1 ; 
   cb:=(findcomponent('combobox'+inttostr(i+ 12 )) as tcombobox); 
   ADOQuery1.Parameters.ParamByName('p'+ IntToStr(ii+ 1 )+'_4').Value:=cb.itemindex+ 1 ; 
end; 
ADOQuery1.SQL.Add('update lt_main set z_count='+inttostr(ii)+' where d_id='+# 39 +edit_id.text+# 39 ); 
ADOQuery1.SQL.Add('commit tran');
ADOQuery1.ExecSQL;