tree.~pas

以从医院病案室获得的3022例数据为样本

           itnb:=itnb+1
         else
            itnb:=itnb;
       next;
     end   ;
     item := listview1.items.add;
fillTable(7,i,itnb);
setvalue(i,itnb);

first;                                                                  //8
  while not eof do
begin
  with adoquery1 do
if (fieldbyname('gxb').AsVariant='1')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('swm').AsVariant='0')and(fieldbyname('gxz').AsVariant='0')
         then
           i:=i+1
         else
            i:=i;
with adoquery1 do
if (fieldbyname('gxb').AsVariant='1')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('swm').AsVariant='0')and(fieldbyname('gxz').AsVariant='0')and(fieldbyname('tnb').AsVariant='1')
         then
           itnb:=itnb+1
         else
            itnb:=itnb;
       next;
     end   ;
     item := listview1.items.add;
fillTable(8,i,itnb);
setvalue(i,itnb);

first;                                                                  //9
  while not eof do
begin
  with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='1')and(fieldbyname('bnz').AsVariant='1')and(fieldbyname('qlx').AsVariant='1')
         then
           i:=i+1
         else
            i:=i;
with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='1')and(fieldbyname('bnz').AsVariant='1')and(fieldbyname('qlx').AsVariant='1')and(fieldbyname('tnb').AsVariant='1')
         then
           itnb:=itnb+1
         else
            itnb:=itnb;
       next;
     end   ;
     item := listview1.items.add;
fillTable(9,i,itnb);
setvalue(i,itnb);

first;                                                                  //10
  while not eof do
begin
  with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='1')and(fieldbyname('bnz').AsVariant='1')and(fieldbyname('qlx').AsVariant='0')
         then
           i:=i+1
         else
            i:=i;
with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='1')and(fieldbyname('bnz').AsVariant='1')and(fieldbyname('qlx').AsVariant='0')and(fieldbyname('tnb').AsVariant='1')
         then
           itnb:=itnb+1
         else
            itnb:=itnb;
       next;
     end   ;
     item := listview1.items.add;
fillTable(10,i,itnb);
setvalue(i,itnb);

first;                                                                  //11
  while not eof do
begin
  with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='1')and(fieldbyname('bnz').AsVariant='0')and(fieldbyname('swm').AsVariant='1')
         then
           i:=i+1
         else
            i:=i;
with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='1')and(fieldbyname('bnz').AsVariant='0')and(fieldbyname('swm').AsVariant='1')and(fieldbyname('tnb').AsVariant='1')
         then
           itnb:=itnb+1
         else
            itnb:=itnb;
       next;
     end   ;
     item := listview1.items.add;
fillTable(11,i,itnb);
setvalue(i,itnb);

first;                                                                  //12
  while not eof do
begin
  with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='1')and(fieldbyname('bnz').AsVariant='0')and(fieldbyname('swm').AsVariant='0')
         then
           i:=i+1
         else
            i:=i;
with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='1')and(fieldbyname('bnz').AsVariant='0')and(fieldbyname('swm').AsVariant='0')and(fieldbyname('tnb').AsVariant='1')
         then
           itnb:=itnb+1
         else
            itnb:=itnb;
       next;
     end   ;
     item := listview1.items.add;
fillTable(12,i,itnb);
setvalue(i,itnb);

first;                                                                  //13
  while not eof do
begin
  with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('qlx').AsVariant='1')and(fieldbyname('gxz').AsVariant='1')
         then
           i:=i+1
         else
            i:=i;
with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('qlx').AsVariant='1')and(fieldbyname('gxz').AsVariant='1')and(fieldbyname('tnb').AsVariant='1')
         then
           itnb:=itnb+1
         else
            itnb:=itnb;
       next;
     end   ;
     item := listview1.items.add;
fillTable(13,i,itnb);
setvalue(i,itnb);

first;                                                                  //14
  while not eof do
begin
  with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('qlx').AsVariant='1')and(fieldbyname('gxz').AsVariant='0')
         then
           i:=i+1
         else
            i:=i;
with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('qlx').AsVariant='1')and(fieldbyname('gxz').AsVariant='0')and(fieldbyname('tnb').AsVariant='1')
         then
           itnb:=itnb+1
         else
            itnb:=itnb;
       next;
     end   ;
     item := listview1.items.add;
fillTable(14,i,itnb);
setvalue(i,itnb);

first;                                                                  //15
  while not eof do
begin
  with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('qlx').AsVariant='0')and(fieldbyname('gxz').AsVariant='1')
         then
           i:=i+1
         else
            i:=i;
with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('qlx').AsVariant='0')and(fieldbyname('gxz').AsVariant='1')and(fieldbyname('tnb').AsVariant='1')
         then
           itnb:=itnb+1
         else
            itnb:=itnb;
       next;
     end   ;
     item := listview1.items.add;
fillTable(15,i,itnb);
setvalue(i,itnb);

first;                                                                  //16
  while not eof do
begin
  with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('qlx').AsVariant='0')and(fieldbyname('gxz').AsVariant='0')
         then
           i:=i+1
         else
            i:=i;
with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('qlx').AsVariant='0')and(fieldbyname('gxz').AsVariant='0')and(fieldbyname('tnb').AsVariant='1')
         then
           itnb:=itnb+1
         else
            itnb:=itnb;
       next;
     end   ;
     item := listview1.items.add;
fillTable(16,i,itnb);
setvalue(i,itnb);

first;                                                                  //c13
  while not eof do
begin
  with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('swm').AsVariant='1')and(fieldbyname('qlx').AsVariant='1')
         then
           i:=i+1
         else
            i:=i;
with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('swm').AsVariant='1')and(fieldbyname('qlx').AsVariant='1')and(fieldbyname('tnb').AsVariant='1')
         then
           itnb:=itnb+1
         else
            itnb:=itnb;
       next;
     end   ;
     item := listview1.items.add;
fillTable(13,i,itnb);
setvalue(i,itnb);

first;                                                                  //c14
  while not eof do
begin
  with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('swm').AsVariant='1')and(fieldbyname('qlx').AsVariant='0')
         then
           i:=i+1
         else
            i:=i;
with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('swm').AsVariant='1')and(fieldbyname('qlx').AsVariant='0')and(fieldbyname('tnb').AsVariant='1')
         then
           itnb:=itnb+1
         else
            itnb:=itnb;
       next;
     end   ;
     item := listview1.items.add;
fillTable(14,i,itnb);
setvalue(i,itnb);

first;                                                                  //c15
  while not eof do
begin
  with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('swm').AsVariant='0')and(fieldbyname('bnz').AsVariant='1')
         then
           i:=i+1
         else
            i:=i;
with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('swm').AsVariant='0')and(fieldbyname('bnz').AsVariant='1')and(fieldbyname('tnb').AsVariant='1')
         then
           itnb:=itnb+1
         else
            itnb:=itnb;
       next;
     end   ;
     item := listview1.items.add;
fillTable(15,i,itnb);
setvalue(i,itnb);

first;                                                                  //c15
  while not eof do
begin
  with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('swm').AsVariant='0')and(fieldbyname('bnz').AsVariant='0')
         then
           i:=i+1
         else
            i:=i;
with adoquery1 do
if (fieldbyname('gxb').AsVariant='0')and(fieldbyname('gxy').AsVariant='0')and(fieldbyname('swm').AsVariant='0')and(fieldbyname('bnz').AsVariant='0')and(fieldbyname('tnb').AsVariant='1')
         then
           itnb:=itnb+1
         else
            itnb:=itnb;
       next;
     end   ;
     item := listview1.items.add;
fillTable(15,i,itnb);
setvalue(i,itnb);

  except
     listview1.items.Clear;
     messagedlg('运行出错',mtError,[mbok],0);
   end  ;
 end;



   finally
    Listview1.Items.EndUpdate;                     //结束更新
end;


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

end.