mainunit.pas

一个售楼系统

Begin
   If Assigned(UserOparetform) Then Begin
      SetWindowPos(UserOparetform.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);
      Exit;
   End;
   UserOparetform := TUserOparet.create(self);
   UserOparetform.ShowModal;

End;

Procedure TMainForm.A1_2Execute(Sender: TObject);
Begin
//公司信息
   If Assigned(ComViewForm) Then Begin
      SetWindowPos(ComViewForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);
      Exit;
   End;
   ComViewForm := TComViewForm.create(self);
   ComViewForm.ShowModal;
End;

Procedure TMainForm.A1_3Execute(Sender: TObject);
Begin
// 业务员信息
   If Assigned(WorkerViewForm) Then Begin
      SetWindowPos(WorkerViewForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);
      Exit;
   End;
   WorkerViewForm := TWorkerViewForm.create(self);
   WorkerViewForm.ShowModal;
End;

Procedure TMainForm.A1_4Execute(Sender: TObject);
Begin
// 业务员信息
   If Assigned(ViewCasterForm) Then Begin
      SetWindowPos(ViewCasterForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);
      Exit;
   End;
   ViewCasterForm := TViewCasterForm.create(self);
   ViewCasterForm.ShowModal;
End;

Procedure TMainForm.A1_5Execute(Sender: TObject);
Begin
// 项目信息
   If Assigned(VIEWItemForm) Then Begin
      SetWindowPos(VIEWItemForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);
      Exit;
   End;
   VIEWItemForm := TVIEWItemForm.create(self);
   VIEWItemForm.ShowModal;
End;

Procedure TMainForm.A1_6Execute(Sender: TObject);
Begin
// 单体信息
   If Assigned(ViewHouseForm) Then Begin
      SetWindowPos(ViewHouseForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);
      Exit;
   End;
   ViewHouseForm := TViewHouseForm.create(self);
   ViewHouseForm.ShowModal;
End;

Procedure TMainForm.A1_9Execute(Sender: TObject);
Begin
// 许可证信息
   If Assigned(VIEWLicenceForm) Then Begin
      SetWindowPos(VIEWLicenceForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);
      Exit;
   End;
   VIEWLicenceForm := TVIEWLicenceForm.create(self);
   VIEWLicenceForm.ShowModal;
End;

Procedure TMainForm.A1_8Execute(Sender: TObject);
Begin
// 变更备案信息
   If Assigned(ViewRutOnRecordForm) Then Begin
      SetWindowPos(ViewRutOnRecordForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);
      Exit;
   End;
   ViewRutOnRecordForm := TViewRutOnRecordForm.create(self);
   ViewRutOnRecordForm.ShowModal;
End;

Procedure TMainForm.A1_7_1Execute(Sender: TObject);

Var
   sFilter          : String;
Begin
   Case TAction(Sender).tag Of
      99:                               //全体

         sFilter := '无';
      98:                               //预售

         sFilter := '预(销)售';
      97:                               //拆迁

         sFilter := '拆迁还建';
      96:                               //预定

         sFilter := '预定';
      95:                               //预留

         sFilter := '预留';
      94:                               //抵押

         sFilter := '抵押';
      93:                               //租赁

         sFilter := '租赁';
      92:                               //待售

         sFilter := '未售';

   End;

   sunitFilter := sFilter;
   If Assigned(ViewUnitForm) Then Begin
      SetWindowPos(ViewUnitForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);
      Exit;
   End;
   ViewUnitForm := TViewUnitForm.create(self);
   ViewUnitForm.ShowModal;

End;

Procedure TMainForm.A1_7_7_2Execute(Sender: TObject);
Begin
// 出租户信息
   If Assigned(ViewLesseeForm) Then Begin
      SetWindowPos(ViewLesseeForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);
      Exit;
   End;
   ViewLesseeForm := TViewLesseeForm.create(self);
   ViewLesseeForm.ShowModal;
End;

Procedure TMainForm.A1_1Execute(Sender: TObject);
Begin
// 销控图
   If Assigned(ListSellCaseForm) Then Begin
      SetWindowPos(ListSellCaseForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);
      Exit;
   End;
   ListSellCaseForm := TListSellCaseForm.create(self);
   ListSellCaseForm.ShowModal;
End;

Procedure TMainForm.A4_5Execute(Sender: TObject);
Begin
   If Assigned(SearchByHourseForm) Then Begin
      SetWindowPos(SearchByHourseForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);
      Exit;
   End;
   SearchByHourseForm := TSearchByHourseForm.create(self);
   SearchByHourseForm.ShowModal;
End;

Procedure TMainForm.A3_1Execute(Sender: TObject);
Begin
   If Assigned(CalForm) Then Begin
      SetWindowPos(CalForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);
      Exit;
   End;
   CalForm := TCalForm.create(self);
   CalForm.Show;
End;

Procedure TMainForm.A2_2Execute(Sender: TObject);
Begin
   If Assigned(PrintContractForm) Then Begin
      SetWindowPos(PrintContractForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);
      Exit;
   End;
   PrintContractForm := TPrintContractForm.create(self);
   PrintContractForm.ShowModal;
End;

Procedure TMainForm.A4_1_1Execute(Sender: TObject);

   Procedure SetFilter(sf: String);
   Begin
      SearchBySellForm.combobox1.Text := sf;
      SearchBySellForm.LbSpeedButton1.click;
 //    SearchBySellForm.DBGridEH1CellClick(form23.DBGridEH1.Columns.Items[0]);
   End;

Var
   sFilter          : String;
Begin
   Case TAction(Sender).tag Of
      101:                              //预售

         sFilter := '预(销)售';
      102:                              //拆迁

         sFilter := '拆迁还建';
      103:                              //预定

         sFilter := '预定';
      104:                              //预留

         sFilter := '预留';
      105:                              //抵押
         sFilter := '租赁';

      106:                              //租赁
         sFilter := '抵押';

      107:                              //待售

         sFilter := '未售';

   End;
   If Assigned(SearchBySellForm) Then Begin
      SetWindowPos(SearchBySellForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);
      SetFilter(sFilter);
   End;
   SearchBySellForm := TSearchBySellForm.create(self);
   SetFilter(sFilter);
   SearchBySellForm.ShowModal;

End;

Procedure TMainForm.A4_3Execute(Sender: TObject);
Begin
   If Assigned(SearchSellOnlyForm) Then Begin
      SetWindowPos(SearchSellOnlyForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);

   End;
   SearchSellOnlyForm := TSearchSellOnlyForm.create(self);

   SearchSellOnlyForm.ShowModal;
End;

Procedure TMainForm.A4_2Execute(Sender: TObject);
Begin
   If Assigned(SearchByTimeForm) Then Begin
      SetWindowPos(SearchByTimeForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);

   End;
   SearchByTimeForm := TSearchByTimeForm.create(self);
   SearchByTimeForm.ShowModal;
End;

Procedure TMainForm.A4_4Execute(Sender: TObject);
Begin
//
   If Assigned(SearchByInfringeForm) Then Begin
      SetWindowPos(SearchByInfringeForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);

   End;
   SearchByInfringeForm := tSearchByInfringeForm.create(self);
   SearchByInfringeForm.ShowModal;
End;

Procedure TMainForm.A_HExecute(Sender: TObject);
Begin
   ShowChm(MainForm.Handle, pchar(DM.CURRDIR + 'ABISLHELP.CHM'), pchar('\TOP.HTM'));
End;

Procedure TMainForm.A4_6Execute(Sender: TObject);
Begin
   If Assigned(SearchByHistoryForm) Then Begin
      SetWindowPos(SearchByHistoryForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
         swp_nosize);

   End;
   SearchByHistoryForm := TSearchByHistoryForm.create(self);
   SearchByHistoryForm.ShowModal;
End;

End.