unithkxx.~pas

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

  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn26Click(Sender: TObject);
begin
edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='10栋平房';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn27Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='17栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn28Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='16栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn29Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='21栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn30Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='35栋';
 application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn31Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='21栋平房';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn32Click(Sender: TObject);
begin
edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='15栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn33Click(Sender: TObject);
begin
edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='3031平房';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn34Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='27栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn35Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='14栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn36Click(Sender: TObject);
begin
edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='9栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn37Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='22栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn38Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='13栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn39Click(Sender: TObject);
begin
edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='8栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn40Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='33栋';
 application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn41Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='26栋';
 application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn42Click(Sender: TObject);
begin
edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='12栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn43Click(Sender: TObject);
begin
edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='7栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn44Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='29栋';
 application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn45Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='25栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn46Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='24栋';
 application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn47Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='5栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn48Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='23栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn49Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='18栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn50Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='19栋平房';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn51Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='20栋平房';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn53Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='11栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn52Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='2栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn54Click(Sender: TObject);
begin
edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='1栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

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

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

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

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

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

procedure TFormhkxxt.btn59Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='盛世家园';
  edt2.Clear;
  edt2.Text:='6栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn60Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='盛世家园';
  edt2.Clear;
  edt2.Text:='5栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn61Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='构件公司';
  edt2.Clear;
  edt2.Text:='3栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn62Click(Sender: TObject);
begin
edt1.Clear;
  edt1.Text:='构件公司';
  edt2.Clear;
  edt2.Text:='2栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn63Click(Sender: TObject);
begin
edt1.Clear;
  edt1.Text:='构件公司';
  edt2.Clear;
  edt2.Text:='4栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn64Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='构件公司';
  edt2.Clear;
  edt2.Text:='1栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

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

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

procedure TFormhkxxt.btn70Click(Sender: TObject);
begin
edt1.Clear;
  edt1.Text:='三建二处';
  edt2.Clear;