unithkxx.~pas

一个完整的户况管理系统一个完整的户况管理系统一个完整的户况管理系统

  edt2.Text:='6栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn71Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='三建二处';
  edt2.Clear;
  edt2.Text:='5栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn74Click(Sender: TObject);
begin
edt1.Clear;
  edt1.Text:='三建二处';
  edt2.Clear;
  edt2.Text:='4栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn75Click(Sender: TObject);
begin
edt1.Clear;
  edt1.Text:='三建二处';
  edt2.Clear;
  edt2.Text:='3栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn65Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='福星家园';
  edt2.Clear;
  edt2.Text:='1栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn67Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='福星家园';
  edt2.Clear;
  edt2.Text:='2栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn69Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='福星家园';
  edt2.Clear;
  edt2.Text:='3栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn72Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='福星家园';
  edt2.Clear;
  edt2.Text:='4栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn73Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='福星家园';
  edt2.Clear;
  edt2.Text:='5栋';
  application.CreateForm(Tform8,  form8);
  form8.ShowModal;
  form8.Free;
end;

procedure TFormhkxxt.btn77Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='景怡苑';
  edt2.Clear;
  edt2.Text:='3栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn78Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='景怡苑';
  edt2.Clear;
  edt2.Text:='4栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn79Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='景怡苑';
  edt2.Clear;
  edt2.Text:='5栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn80Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='景怡苑';
  edt2.Clear;
  edt2.Text:='6栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn81Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='景怡苑';
  edt2.Clear;
  edt2.Text:='7栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn82Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='景怡苑';
  edt2.Clear;
  edt2.Text:='1栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn85Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='电镀厂';
  edt2.Clear;
  edt2.Text:='1栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn83Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='电镀厂';
  edt2.Clear;
  edt2.Text:='2栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn84Click(Sender: TObject);
begin
   edt1.Clear;
  edt1.Text:='电镀厂';
  edt2.Clear;
  edt2.Text:='3栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn109Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='天竹园';
  edt2.Clear;
  edt2.Text:='1栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn110Click(Sender: TObject);
begin
   edt1.Clear;
  edt1.Text:='天竹园';
  edt2.Clear;
  edt2.Text:='2栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn97Click(Sender: TObject);
begin
   edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='18栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn93Click(Sender: TObject);
begin
    edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='17栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn98Click(Sender: TObject);
begin
    edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='16栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn94Click(Sender: TObject);
begin
    edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='15栋';
 application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn88Click(Sender: TObject);
begin
    edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='20栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn86Click(Sender: TObject);
begin
    edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='19栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn87Click(Sender: TObject);
begin
    edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='21栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn89Click(Sender: TObject);
begin
    edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='23栋';
 application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn90Click(Sender: TObject);
begin
    edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='22栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn91Click(Sender: TObject);
begin
    edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='2栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn92Click(Sender: TObject);
begin
   edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='1栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn108Click(Sender: TObject);
begin
   edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='3栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn106Click(Sender: TObject);
begin
   edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='3栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn107Click(Sender: TObject);
begin
    edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='4栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn105Click(Sender: TObject);
begin
    edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='4栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn104Click(Sender: TObject);
begin
    edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='5栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn101Click(Sender: TObject);
begin
   edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='6栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn103Click(Sender: TObject);
begin
   edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='7栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn102Click(Sender: TObject);
begin
    edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='8栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn100Click(Sender: TObject);
begin
    edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='9栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn96Click(Sender: TObject);
begin
   edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='10栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn95Click(Sender: TObject);
begin
   edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='11栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn99Click(Sender: TObject);
begin
   edt1.Clear;
  edt1.Text:='晨欣园';
  edt2.Clear;
  edt2.Text:='12栋';
 application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

end.