floor.pas

一个实用的房地产行业收费管理软件

 begin
  sql.clear;
  sql.add('select a.*,b.custom,b.floor from ht a,company b where a.customno=b.customno and b.floor=:mf ');
  if edit1.Text<>'' then
  sql.add('and htno=:htno');
  sql.Add('order by  a.htno')  ;
  if edit1.Text<>'' then
  parambyname('htno').asstring:=edit1.Text;

  parambyname('mf').asstring:=dbcomboboxeh7.Value;
  open;
  if recordcount<=0 then
  begin
  application.messagebox('no record','tips',mb_ok);
  abort;
  end;
 end;
 ExcelApp := CreateOleObject( 'Excel.Application' );
 ExcelApp.Visible := True;
 ExcelApp.WorkBooks.Add;
tt:=0;
rr:=0;
mtsno:=1;
mtt:=inttostr(mtsno);
datamodule1.ptq.first;
while not datamodule1.ptq.eof   do
begin

tt:=rr*tt;
decodedate(strtodate(datamodule1.ptq.fieldbyname('jzdate').value),yy1,mm1,dd1);  //计租日期
decodedate(date,yy2,mm2,dd2);
Ndate1:=inttostr(yy2)+'-'+inttostr(mm2)+'-'+inttostr(dd1);
Ndate2:=inttostr(yy2)+'-'+inttostr(mm2+1)+'-'+inttostr(dd1);
 with datamodule1.htp do
 begin
  sql.clear;
  sql.add('select a.*,b.custom,b.floor from ht a,company b where a.customno=b.customno and b.floor=:mf ');
  sql.add('and htno=:htno');
  parambyname('htno').asstring:=datamodule1.ptq.fieldbyname('htno').Value;
  parambyname('mf').asstring:=dbcomboboxeh7.Value;
  open;
 end;

//ExcelApp := CreateOleObject( 'Excel.Application' );
//ExcelApp.Visible := True;
//ExcelApp.WorkBooks.Add;

nn:=0;
datamodule1.insertsd.SQL.clear;
datamodule1.insertsd.SQL.add('select * from repo where htno=:mhtno and totrecord=1');
datamodule1.insertsd.parambyname('mhtno').Value:=datamodule1.htp.fieldbyname('htno').Value;
datamodule1.insertsd.open;
if datamodule1.insertsd.recordcount>0 then
begin
datamodule1.htp.First;
while not  datamodule1.htp.Eof    do
begin
total:=0;
ExcelApp.Cells[1+nn+tt,1].Value :='                  收　　　　　　　据';
ExcelApp.Cells[2+nn+tt,1].Value :='打印日期：'+datetostr(date);
ExcelApp.ActiveSheet.Rows[1+nn+tt].RowHeight:=1.25/0.035; // 1厘米
ExcelApp.cells[1+nn+tt].Font.Name := '宋体';
ExcelApp.cells[1+nn+tt].Font.Bold := True;
//ExcelApp.ActiveSheet.Range[ 'B2:E2'].Borders[3].Weight := 3;

for cc:=1 to 7-length(inttostr(mtsno)) do
    mtt:='0'+mtt;

ExcelApp.Cells[1+nn+tt,6].Value :=' 统收 ';
ExcelApp.Cells[1+nn+tt,7].Value :='NO:'+mtt;   //统收号码自动生成
ExcelApp.Cells[3+nn+tt,1].Value :='大厦名称:'+dbcomboboxeh7.value+'    收租日期:'+Ndate1+'-'+Ndate2;
ExcelApp.Cells[4+nn+tt,1].Value :='客　户:';
ExcelApp.Cells[4+nn+tt,2].Value :=datamodule1.htp.FieldByName('custom').Value;
ExcelApp.Cells[5+nn+tt,1].Value :='     项';
ExcelApp.Cells[5+nn+tt,2].Value :='   目';
ExcelApp.Cells[5+nn+tt,6].Value :='金　额';

ExcelApp.Cells[5+nn+tt,3].Value :='房　号';
ExcelApp.Cells[5+nn+tt,4].Value :='数　量';
ExcelApp.Cells[5+nn+tt,5].Value :='单　价';
ExcelApp.Cells[5+nn+tt,7].Value :='备　注';

datamodule1.insertsd.SQL.clear;
datamodule1.insertsd.SQL.add('select * from repo where htno=:mhtno and totrecord=1    order by  htno ');
datamodule1.insertsd.parambyname('mhtno').Value:=datamodule1.htp.fieldbyname('htno').Value;
datamodule1.insertsd.open;
miount:=0   ;
while not datamodule1.insertsd.eof do
begin
ExcelApp.Cells[6+nn+tt+miount,1].Value :=datamodule1.insertsd.fieldbyname('cname').value;
Tcfile:=datamodule1.insertsd.FieldByName('cfile').Value;
Tnote:=datamodule1.insertsd.FieldByName('cfile').Value+'note';
ExcelApp.Cells[6+nn+tt+miount,6].Value :=datamodule1.htp.FieldByName(Tcfile).Value;
ExcelApp.Cells[6+nn+tt+miount,7].Value :=datamodule1.htp.FieldByName(Tnote).Value;
if Tcfile='ssxzl' then    //写字楼房号
ExcelApp.Cells[6+nn+tt+miount,3].Value :=datamodule1.htp.FieldByName('tsno').Value;
if Tcfile='ssroom' then  //宿舍房号　
ExcelApp.Cells[6+nn+tt+miount,3].Value :=datamodule1.htp.FieldByName('note').Value;
total:=total+datamodule1.htp.FieldByName(Tcfile).Value;
miount:=miount+1;
datamodule1.insertsd.next;
end;

ExcelApp.Cells[13+nn+tt,1].Value :='   合计:';
// Edit2.Text := num2str(StrToFloat(Edit1.Text));
ExcelApp.Cells[13+nn+tt,2].Value :=datamodule1.htp.FieldByName('bb').Value+':'+num2str(total);
ExcelApp.Cells[13+nn+tt,6].Value :='￥'+floattostr(total);
ExcelApp.Cells[15+nn+tt,2].Value :='会计:';
ExcelApp.Cells[15+nn+tt,4].Value :='   制单:';
ExcelApp.Cells[15+nn+tt,6].Value :='   出纳:';
ExcelApp.ActiveSheet.Range[ 'B'+inttostr(2+nn+tt)+':E'+inttostr(2+nn+tt)].Borders[3].Weight := 3;
ExcelApp.ActiveSheet.Range[ 'A'+inttostr(3+nn+tt)+':G'+inttostr(3+nn+tt)].Borders[3].Weight := 3;
ExcelApp.ActiveSheet.Range[ 'A'+inttostr(4+nn+tt)+':G'+inttostr(13+nn+tt)].Borders[3].Weight :=2;
ExcelApp.ActiveSheet.Range[ 'A'+inttostr(14+nn+tt)+':G'+inttostr(14+nn+tt)].Borders[3].Weight :=3;
ExcelApp.ActiveSheet.Range[ 'A'+inttostr(3+nn+tt)+':A'+inttostr(13+nn+tt)].Borders[1].Weight :=3;
ExcelApp.ActiveSheet.Range[ 'G'+inttostr(3+nn+tt)+':G'+inttostr(13+nn+tt)].Borders[2].Weight :=3;
ExcelApp.ActiveSheet.Range[ 'B'+inttostr(5+nn+tt)+':B'+inttostr(13+nn+tt)].Borders[2].Weight :=2;
ExcelApp.ActiveSheet.Range[ 'C'+inttostr(5+nn+tt)+':C'+inttostr(12+nn+tt)].Borders[2].Weight :=2;
ExcelApp.ActiveSheet.Range[ 'D'+inttostr(5+nn+tt)+':D'+inttostr(12+nn+tt)].Borders[2].Weight :=2;
ExcelApp.ActiveSheet.Range[ 'E'+inttostr(5+nn+tt)+':E'+inttostr(12+nn+tt)].Borders[2].Weight :=2;
ExcelApp.ActiveSheet.Range[ 'F'+inttostr(5+nn+tt)+':F'+inttostr(12+nn+tt)].Borders[2].Weight :=2;
nn:=nn+16;
datamodule1.htp.Next;
end;
tm:=1;
mtsno:=mtsno+1;
mtt:=inttostr(mtsno);
end;   //列表2完毕


datamodule1.insertsd.SQL.clear;
datamodule1.insertsd.SQL.add('select * from repo where htno=:mhtno and totrecord=2 order by  htno');
datamodule1.insertsd.parambyname('mhtno').Value:=datamodule1.htp.fieldbyname('htno').Value;
datamodule1.insertsd.open;
if datamodule1.insertsd.recordcount>0 then
begin

datamodule1.htp.First;
nn:=0;
mcol:=datamodule1.htp.recordcount;
while not  datamodule1.htp.Eof    do
begin
total:=0;
ExcelApp.Cells[1+nn+tt+16*mcol,1].Value :='                  收　　　　　　　据';
ExcelApp.Cells[2+nn+tt+16*mcol,1].Value :='打印日期：'+datetostr(date);
ExcelApp.ActiveSheet.Rows[1+nn+tt+16*mcol].RowHeight:=1.25/0.035; // 1厘米
ExcelApp.cells[1+nn+tt+16*mcol].Font.Name := '宋体';
ExcelApp.cells[1+nn+tt+16*mcol].Font.Bold := True;
ExcelApp.ActiveSheet.Range[ 'B'+inttostr(16*mcol+2)+':E'+inttostr(16*mcol+2)].Borders[3].Weight := 3; //3
for cc:=1 to 7-length(inttostr(mtsno)) do
    mtt:='0'+mtt;
ExcelApp.Cells[1+nn+tt+16*mcol,6].Value :=' 统收 ';
ExcelApp.Cells[1+nn+tt+16*mcol,7].Value :='NO:'+mtt;
ExcelApp.Cells[3+nn+tt+16*mcol,1].Value :='大厦名称:'+dbcomboboxeh7.value+'    收租日期:'+Ndate1+'-'+Ndate2;
ExcelApp.Cells[4+nn+tt+16*mcol,1].Value :='客　户:';
ExcelApp.Cells[4+nn+tt+16*mcol,2].Value :=datamodule1.htp.FieldByName('custom').Value;
ExcelApp.Cells[5+nn+tt+16*mcol,1].Value :='     项';
ExcelApp.Cells[5+nn+tt+16*mcol,2].Value :='   目';
ExcelApp.Cells[5+nn+tt+16*mcol,6].Value :='金　额';

ExcelApp.Cells[5+nn+tt+16*mcol,3].Value :='房　号';
ExcelApp.Cells[5+nn+tt+16*mcol,4].Value :='数　量';
ExcelApp.Cells[5+nn+tt+16*mcol,5].Value :='单　价';
ExcelApp.Cells[5+nn+tt+16*mcol,7].Value :='备　注';

datamodule1.insertsd.SQL.clear;
datamodule1.insertsd.SQL.add('select * from repo where htno=:mhtno and totrecord=2  order by  htno');
datamodule1.insertsd.parambyname('mhtno').Value:=datamodule1.htp.fieldbyname('htno').Value;
datamodule1.insertsd.open;
miount:=0   ;
while not datamodule1.insertsd.eof do
begin
ExcelApp.Cells[6+nn+tt+miount+16*mcol,1].Value :=datamodule1.insertsd.fieldbyname('cname').value;
Tcfile:=datamodule1.insertsd.FieldByName('cfile').Value;
Tnote:=datamodule1.insertsd.FieldByName('cfile').Value+'note';
if Tcfile='ssxzl' then    //写字楼房号
ExcelApp.Cells[6+nn+tt+miount,3].Value :=datamodule1.htp.FieldByName('tsno').Value;
if Tcfile='ssroom' then  //宿舍房号　
ExcelApp.Cells[6+nn+tt+miount,3].Value :=datamodule1.htp.FieldByName('note').Value;
ExcelApp.Cells[6+nn+tt+miount+16*mcol,6].Value :=datamodule1.htp.FieldByName(Tcfile).Value;
ExcelApp.Cells[6+nn+tt+miount+16*mcol,7].Value :=datamodule1.htp.FieldByName(Tnote).Value;
total:=total+datamodule1.htp.FieldByName(Tcfile).Value;
miount:=miount+1;
datamodule1.insertsd.next;
end;

ExcelApp.Cells[13+nn+tt+16*mcol,1].Value :='   合计:';
ExcelApp.Cells[13+nn+tt+16*mcol,2].Value :=datamodule1.htp.FieldByName('bb').Value+':'+ num2str(total);
ExcelApp.Cells[13+nn+tt+16*mcol,6].Value :='￥'+floattostr(total);
ExcelApp.Cells[15+nn+tt+16*mcol,2].Value :='会计:';
ExcelApp.Cells[15+nn+tt+16*mcol,4].Value :='   制单:';
ExcelApp.Cells[15+nn+tt+16*mcol,6].Value :='   出纳:';
ExcelApp.ActiveSheet.Range[ 'B'+inttostr(2+nn+tt+16*mcol)+':E'+inttostr(2+nn+tt+16*mcol)].Borders[3].Weight := 3;
ExcelApp.ActiveSheet.Range[ 'A'+inttostr(3+nn+tt+16*mcol)+':G'+inttostr(3+nn+tt+16*mcol)].Borders[3].Weight := 3;
ExcelApp.ActiveSheet.Range[ 'A'+inttostr(4+nn+tt+16*mcol)+':G'+inttostr(13+nn+tt+16*mcol)].Borders[3].Weight :=2;
ExcelApp.ActiveSheet.Range[ 'A'+inttostr(14+nn+tt+16*mcol)+':G'+inttostr(14+nn+tt+16*mcol)].Borders[3].Weight :=3;
ExcelApp.ActiveSheet.Range[ 'A'+inttostr(3+nn+tt+16*mcol)+':A'+inttostr(13+nn+tt+16*mcol)].Borders[1].Weight :=3;
ExcelApp.ActiveSheet.Range[ 'G'+inttostr(3+nn+tt+16*mcol)+':G'+inttostr(13+nn+tt+16*mcol)].Borders[2].Weight :=3;
ExcelApp.ActiveSheet.Range[ 'B'+inttostr(5+nn+tt+16*mcol)+':B'+inttostr(13+nn+tt+16*mcol)].Borders[2].Weight :=2;
ExcelApp.ActiveSheet.Range[ 'C'+inttostr(5+nn+tt+16*mcol)+':C'+inttostr(12+nn+tt+16*mcol)].Borders[2].Weight :=2;
ExcelApp.ActiveSheet.Range[ 'D'+inttostr(5+nn+tt+16*mcol)+':D'+inttostr(12+nn+tt+16*mcol)].Borders[2].Weight :=2;
ExcelApp.ActiveSheet.Range[ 'E'+inttostr(5+nn+tt+16*mcol)+':E'+inttostr(12+nn+tt+16*mcol)].Borders[2].Weight :=2;
ExcelApp.ActiveSheet.Range[ 'F'+inttostr(5+nn+tt+16*mcol)+':F'+inttostr(12+nn+tt+16*mcol)].Borders[2].Weight :=2;
nn:=nn+16;
datamodule1.htp.Next;
end;
tm:=2;
mtsno:=mtsno+1;
mtt:=inttostr(mtsno);
end; //列表3完毕


datamodule1.insertsd.SQL.clear;
datamodule1.insertsd.SQL.add('select * from repo where htno=:mhtno and totrecord=3  order by  htno');
datamodule1.insertsd.parambyname('mhtno').Value:=datamodule1.htp.fieldbyname('htno').Value;
datamodule1.insertsd.open;
if datamodule1.insertsd.recordcount>0 then
begin
datamodule1.htp.First;
nn:=0;
mcol:=datamodule1.htp.recordcount;
while not  datamodule1.htp.Eof    do
begin
total:=0;
ExcelApp.Cells[1+nn+tt+32*mcol,1].Value :='                  收　　　　　　　据';
ExcelApp.Cells[2+nn+tt+32*mcol,1].Value :='打印日期：'+datetostr(date);
ExcelApp.ActiveSheet.Rows[1+nn+tt+32*mcol].RowHeight:=1.25/0.035; // 1厘米
ExcelApp.cells[1+nn+tt+32*mcol].Font.Name := '宋体';
ExcelApp.cells[1+nn+tt+32*mcol].Font.Bold := True;
ExcelApp.ActiveSheet.Range[ 'B'+inttostr(32*mcol+2)+':E'+inttostr(32*mcol+2)].Borders[3].Weight := 3;

for cc:=1 to 7-length(inttostr(mtsno)) do
    mtt:='0'+mtt;
ExcelApp.Cells[1+nn+tt+32*mcol,6].Value :=' 统收 ';
ExcelApp.Cells[1+nn+tt+32*mcol,7].Value :='NO:'+mtt;
ExcelApp.Cells[3+nn+tt+32*mcol,1].Value :='大厦名称:'+dbcomboboxeh7.value+'    收租日期:'+Ndate1+'-'+Ndate2;
ExcelApp.Cells[4+nn+tt+32*mcol,1].Value :='客　户:';
ExcelApp.Cells[4+nn+tt+32*mcol,2].Value :=datamodule1.htp.FieldByName('custom').Value;
ExcelApp.Cells[5+nn+tt+32*mcol,1].Value :='     项';
ExcelApp.Cells[5+nn+tt+32*mcol,2].Value :='   目';
ExcelApp.Cells[5+nn+tt+32*mcol,6].Value :='金　额';

ExcelApp.Cells[5+nn+tt+32*mcol,3].Value :='房　号';
ExcelApp.Cells[5+nn+tt+32*mcol,4].Value :='数　量';
ExcelApp.Cells[5+nn+tt+32*mcol,5].Value :='单　价';
ExcelApp.Cells[5+nn+tt+32*mcol,7].Value :='备　注';

datamodule1.insertsd.SQL.clear;
datamodule1.insertsd.SQL.add('select * from repo where htno=:mhtno and totrecord=3   order by  htno');
datamodule1.insertsd.parambyname('mhtno').Value:=datamodule1.htp.fieldbyname('htno').Value;
datamodule1.insertsd.open;
miount:=0   ;
while not datamodule1.insertsd.eof do
begin
ExcelApp.Cells[6+nn+tt+miount+32*mcol,1].Value :=datamodule1.insertsd.fieldbyname('cname').value;
Tcfile:=datamodule1.insertsd.FieldByName('cfile').Value;
Tnote:=datamodule1.insertsd.FieldByName('cfile').Value+'note';
if Tcfile='ssxzl' then    //写字楼房号
ExcelApp.Cells[6+nn+tt+miount,3].Value :=datamodule1.htp.FieldByName('tsno').Value;
if Tcfile='ssroom' then  //宿舍房号　
ExcelApp.Cells[6+nn+tt+miount,3].Value :=datamodule1.htp.FieldByName('note').Value;
ExcelApp.Cells[6+nn+tt+miount+32*mcol,6].Value :=datamodule1.htp.FieldByName(Tcfile).Value;
ExcelApp.Cells[6+nn+tt+miount+32*mcol,7].Value :=datamodule1.htp.FieldByName(Tnote).Value;
total:=total+datamodule1.htp.FieldByName(Tcfile).Value;
miount:=miount+1;
datamodule1.insertsd.next;
end;

ExcelApp.Cells[13+nn+tt+32*mcol,1].Value :='   合计:';
ExcelApp.Cells[13+nn+tt+32*mcol,2].Value :=datamodule1.htp.FieldByName('bb').Value+':'+num2str(total);
ExcelApp.Cells[13+nn+tt+32*mcol,6].Value :='￥'+floattostr(total);
ExcelApp.Cells[15+nn+tt+32*mcol,2].Value :='会计:';
ExcelApp.Cells[15+nn+tt+32*mcol,4].Value :='   制单:';
ExcelApp.Cells[15+nn+tt+32*mcol,6].Value :='   出纳:';
ExcelApp.ActiveSheet.Range[ 'B'+inttostr(2+nn+tt+32*mcol)+':E'+inttostr(2+nn+tt+32*mcol)].Borders[3].Weight := 3;
ExcelApp.ActiveSheet.Range[ 'A'+inttostr(3+nn+tt+32*mcol)+':G'+inttostr(3+nn+tt+32*mcol)].Borders[3].Weight := 3;
ExcelApp.ActiveSheet.Range[ 'A'+inttostr(4+nn+tt+32*mcol)+':G'+inttostr(13+nn+tt+32*mcol)].Borders[3].Weight :=2;
ExcelApp.ActiveSheet.Range[ 'A'+inttostr(14+nn+tt+32*mcol)+':G'+inttostr(14+nn+tt+32*mcol)].Borders[3].Weight :=3;
ExcelApp.ActiveSheet.Range[ 'A'+inttostr(3+nn+tt+32*mcol)+':A'+inttostr(13+nn+tt+32*mcol)].Borders[1].Weight :=3;
ExcelApp.ActiveSheet.Range[ 'G'+inttostr(3+nn+tt+32*mcol)+':G'+inttostr(13+nn+tt+32*mcol)].Borders[2].Weight :=3;
ExcelApp.ActiveSheet.Range[ 'B'+inttostr(5+nn+tt+32*mcol)+':B'+inttostr(13+nn+tt+32*mcol)].Borders[2].Weight :=2;
ExcelApp.ActiveSheet.Range[ 'C'+inttostr(5+nn+tt+32*mcol)+':C'+inttostr(12+nn+tt+32*mcol)].Borders[2].Weight :=2;
ExcelApp.ActiveSheet.Range[ 'D'+inttostr(5+nn+tt+32*mcol)+':D'+inttostr(12+nn+tt+32*mcol)].Borders[2].Weight :=2;
ExcelApp.ActiveSheet.Range[ 'E'+inttostr(5+nn+tt+32*mcol)+':E'+inttostr(12+nn+tt+32*mcol)].Borders[2].Weight :=2;
ExcelApp.ActiveSheet.Range[ 'F'+inttostr(5+nn+tt+32*mcol)+':F'+inttostr(12+nn+tt+32*mcol)].Borders[2].Weight :=2;
nn:=nn+16;
datamodule1.htp.Next;
end;
tm:=3;
mtsno:=mtsno+1;
mtt:=inttostr(mtsno);
end;          //列表4完毕
tt:=16*tm;
rr:=rr+1;
datamodule1.ptq.next;  //一张一张合同的循环
//showmessage(inttostr(tt));
end;


//顶边距2cm:
ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035;
//f.底边距2cm:
ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
//g.左边距2cm:
ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
//h.右边距2cm:
ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035;
//i.页面水平居中:
//ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
//j.页面垂直居中:
//ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035;

end;

procedure TForm1.BitBtn24Click(Sender: TObject);
var
miount:integer;
begin
if edit_state=1 then
begin
 if edit2.text='' then
 begin
  application.MessageBox('客户编号不能为空!','提  示',mb_ok);
  abort;
 end;

with datamodule1.insertcustom do
begin
 sql.clear;
 sql.add('select htno from ht where htno=:mht');
 parambyname('mht').Value:=edit4.Text;
 open;
 if recordcount>0 then
 begin
 application.MessageBox('合同号已经存在!','提  示',mb_ok);
 abort;
 end;
end;

if (listbox2.Items.Count<=0) then 
   begin
   application.MessageBox('没有选择打印格式','确定',mb_ok);
   abort;
   end;

with datamodule1.insertcustom do
begin
  sql.Clear;
  sql.add('insert into ht(htno,customno,otherf,dtf,yj,xzl,xzlyear,zl,');
  sql.add('xzldz,ssxzl,art,artyear,artdz,ssart,room,roomyear,roomdz,ssroom,');
  sql.add('glf,glfyear,glfdz,ssglf,jzdate,dzdate,tsno,note,ssartnote,ssroomnote,ssxzlnote,ssglfnote,dtfnote,yjnote,otherfnote,bb)');

  sql.Add('values(:htno,:customno,:otherf,:dtf,:yj,:xzl,:xzlyear,:zl,');
  sql.add(':xzldz,:ssxzl,:art,:artyear,:artdz,:ssart,:room,:roomyear,:roomdz,:ssroom,');
  sql.add(':glf,:glfyear,:glfdz,:ssglf,:jzdate,:dzdate,:tsno,:note,:artnote,:roomnote,:xzlnote,:glfnote,:dtfnote,:yjnote,:otherfnote,:mbb)');

  parambyname('htno').Value:=edit4.Text;
  parambyname('customno').Value:=edit2.Text;
  parambyname('otherf').Value:=dbnumberediteh10.Value;
  parambyname('dtf').Value:=dbnumberediteh11.Value;
  parambyname('yj').Value:=dbnumberediteh12.Value;
  parambyname('xzl').Value:= dbnumberediteh16.Value;
  parambyname('zl').Value:=  dbnumberediteh20.Value;  
  parambyname('xzlyear').Value:= dbnumberediteh4.Value;
  parambyname('xzldz').Value:= dbnumberediteh7.Value;
  parambyname('ssxzl').Value:= dbnumberediteh16.Value;
  parambyname('art').Value:=dbnumberediteh18.Value;
  parambyname('artyear').Value:=dbnumberediteh6.Value;
  parambyname('artdz').value:=dbnumberediteh9.Value;
  parambyname('ssart').Value:=dbnumberediteh18.Value;