pas_hm.pas

比较详细的功能

         showmessage('窗口显示错误');
         form_depart.Free;
         form_depart:=nil;
       end;
end;

procedure TMain.N22Click(Sender: TObject);
begin
  if application.FindComponent('form_seller')=nil then
      begin
         application.CreateForm(Tform_seller,form_seller);
      end;
      try
         form_seller.Show;
      except
         showmessage('窗口显示错误');
         form_seller.Free;
         form_seller:=nil;
       end;
end;

procedure TMain.N34Click(Sender: TObject);
begin
    if application.FindComponent('form_housetype')=nil then
      begin
         application.CreateForm(Tform_housetype,form_housetype);
      end;
      try
         form_housetype.Show;
      except
         showmessage('窗口显示错误');
         form_housetype.Free;
         form_housetype:=nil;
       end;
end;

procedure TMain.N35Click(Sender: TObject);
begin
    if application.FindComponent('form_area')=nil then
      begin
         application.CreateForm(Tform_area,form_area);
      end;
      try
         form_area.Show;
      except
         showmessage('窗口显示错误');
         form_area.Free;
         form_area:=nil;
       end;
end;

procedure TMain.N32Click(Sender: TObject);
begin
   if application.FindComponent('form_fk')=nil then
      begin
         application.CreateForm(Tform_fk,form_fk);
      end;
      try
         form_fk.Show;
      except
         showmessage('窗口显示错误');
         form_fk.Free;
         form_fk:=nil;
       end;
end;

procedure TMain.N23Click(Sender: TObject);
begin
  if application.FindComponent('form_househistry')=nil then
      begin
         application.CreateForm(Tform_househistry,form_househistry);
      end;
      try
         form_househistry.Show;
         pas_houseHistry.Form_houseHistry.PC.ActivePage.PageIndex:=0;
      except
         showmessage('窗口显示错误');
         form_househistry.Free;
         form_househistry:=nil;
      end;
end;

procedure TMain.N3Click(Sender: TObject);
begin
    if application.FindComponent('form_househistry')=nil then
      begin
         application.CreateForm(Tform_househistry,form_househistry);
      end;
      try
         form_househistry.Show;
         pas_houseHistry.Form_houseHistry.PC.ActivePage.PageIndex:=1;
      except
         showmessage('窗口显示错误');
         form_househistry.Free;
         form_househistry:=nil;
      end;
end;

procedure TMain.N4Click(Sender: TObject);
begin
    if application.FindComponent('form_househistry')=nil then
      begin
         application.CreateForm(Tform_househistry,form_househistry);
      end;
      try
         form_househistry.Show;
         pas_houseHistry.Form_houseHistry.PC.ActivePage.PageIndex:=2;
      except
         showmessage('窗口显示错误');
         form_househistry.Free;
         form_househistry:=nil;
      end;
end;

procedure TMain.N24Click(Sender: TObject);
begin
    if application.FindComponent('form_househistry')=nil then
      begin
         application.CreateForm(Tform_househistry,form_househistry);
      end;
      try
         form_househistry.Show;
         pas_houseHistry.Form_houseHistry.PC.ActivePage.PageIndex:=4;
      except
         showmessage('窗口显示错误');
         form_househistry.Free;
         form_househistry:=nil;
      end;
end;

procedure TMain.N25Click(Sender: TObject);
begin
    if application.FindComponent('form_househistry')=nil then
      begin
         application.CreateForm(Tform_househistry,form_househistry);
      end;
      try
         form_househistry.Show;
         pas_houseHistry.Form_houseHistry.PC.ActivePage.PageIndex:=5;
      except
         showmessage('窗口显示错误');
         form_househistry.Free;
         form_househistry:=nil;
      end;
end;

procedure TMain.N29Click(Sender: TObject);
begin
       if application.FindComponent('form_payhint')=nil then
      begin
         application.CreateForm(Tform_payhint,form_payhint);
      end;
      try
         form_payhint.Show;
      except
         showmessage('窗口显示错误');
         form_payhint.Free;
         form_payhint:=nil;
      end;
end;

procedure TMain.N33Click(Sender: TObject);
begin
      if application.FindComponent('form_sz')=nil then
      begin
         application.CreateForm(Tform_sz,form_sz);
      end;
      try
         form_sz.Show;
      except
         showmessage('窗口显示错误');
         form_sz.Free;
         form_sz:=nil;
      end;
end;

procedure TMain.N13Click(Sender: TObject);
begin
    if application.FindComponent('form_income')=nil then
      begin
         application.CreateForm(Tform_income,form_income);
      end;
      try
         form_income.Show;
      except
         showmessage('窗口显示错误');
         form_income.Free;
         form_income:=nil;
      end;
end;

procedure TMain.N36Click(Sender: TObject);
begin
    if application.FindComponent('Form_hinttime')=nil then
      begin
         application.CreateForm(TForm_hinttime,Form_hinttime);
      end;
      try
         Form_hinttime.Show;
      except
         showmessage('窗口显示错误');
         Form_hinttime.Free;
         Form_hinttime:=nil;
      end;
end;

procedure TMain.SpeedButton7Click(Sender: TObject);
begin
       if application.FindComponent('form_payhint')=nil then
      begin
         application.CreateForm(Tform_payhint,form_payhint);
      end;
      try
         form_payhint.Show;
      except
         showmessage('窗口显示错误');
         form_payhint.Free;
         form_payhint:=nil;
      end;
end;

procedure TMain.N28Click(Sender: TObject);
begin
     if application.FindComponent('form_office')=nil then
      begin
         application.CreateForm(Tform_office,form_office);
      end;
      try
         form_office.Show;
      except
         showmessage('窗口显示错误');
         form_office.Free;
         form_office:=nil;
      end;
end;

procedure TMain.N16Click(Sender: TObject);
begin
    if application.FindComponent('form_hc')=nil then
      begin
         application.CreateForm(Tform_hc,form_hc);
      end;
      try
         form_hc.Show;
      except
         showmessage('窗口显示错误');
         form_hc.Free;
         form_hc:=nil;
      end;
end;

procedure TMain.housezhClick(Sender: TObject);
begin
  if application.FindComponent('form_hc')=nil then
      begin
         application.CreateForm(Tform_hc,form_hc);
      end;
      try
         form_hc.Show;
      except
         showmessage('窗口显示错误');
         form_hc.Free;
         form_hc:=nil;
      end;
end;

procedure TMain.houseszClick(Sender: TObject);
begin
   if application.FindComponent('form_sz')=nil then
      begin
         application.CreateForm(Tform_sz,form_sz);
      end;
      try
         form_sz.Show;
      except
         showmessage('窗口显示错误');
         form_sz.Free;
         form_sz:=nil;
      end;
end;

procedure TMain.sp_houseClick(Sender: TObject);
begin
  if application.FindComponent('form_house')=nil then
      begin
         application.CreateForm(Tform_house,form_house);
      end;
      try
         form_house.Show;
      except
         showmessage('窗口显示错误');
         form_house.Free;
         form_house:=nil;
       end;
end;

end.