📄 lfxs.pas

📁 房产售楼CRM系统是以房地产销售业务为主线
💻 PAS
字号:
unit Lfxs;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Grids, DBGrids, Mylabel, StdCtrls, TransBtn, DBGridEh, Mask,
  DBCtrls, ComCtrls, Tabnotbk, Buttons;

type
  TLfxsForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Image1: TImage;
    Panel7: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    DBGrid1: TDBGrid;
    Image2: TImage;
    Label1: TLabel;
    ProjectmyLabel3d: TmyLabel3d;
    ReturnTBtn: TTransparentButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Direction_cCBox: TComboBox;
    Use_cCBox: TComboBox;
    Type_cCBox: TComboBox;
    Direction_cDBEdit: TDBEdit;
    Use_cDBEdit: TDBEdit;
    Type_cDBEdit: TDBEdit;
    LFbook: TTabbedNotebook;
    Panel12: TPanel;
    DBGridEh1: TDBGridEh;
    CancelBitBtn: TBitBtn;
    WriteBookBitBtn: TBitBtn;
    NotSaleHouseBitBtn: TBitBtn;
    WriteBuyHouseHTBitBtn: TBitBtn;
    Label5: TLabel;
    LookEdit: TEdit;
    LookSBtn: TSpeedButton;
    procedure ReturnTBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure GetComboBoxItem(Sender:TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure WriteBookBitBtnClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure NotSaleHouseBitBtnClick(Sender: TObject);
    procedure WriteBuyHouseHTBitBtnClick(Sender: TObject);
    procedure LookSBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LfxsForm: TLfxsForm;
  XzkhOrGfht:Integer;//签定确认书0或签订购房合同1
  Qdrq:string;

implementation

uses udm,main,CreateData,xzkh,ExitHouse;

{$R *.DFM}

procedure TLfxsForm.ReturnTBtnClick(Sender: TObject);
begin
  Close;
end;

procedure TLfxsForm.FormCreate(Sender: TObject);
var
  i:integer;
  s,s1:string;
begin
  if AllExecPN<>'' then
  begin
    for i:=0 to 999 do FHList[i]:='';
    ProjectmyLabel3d.Caption:=AllExecPN;
//    DM.Estate_cDevelop_cDAO.DatabaseName:=AllDBFullName;
//    DM.Estate_cDevelop_cDAO.Connected :=true;
    DM.Estate_cDevelop_c.open;
    s1:=DM.Estate_cDevelop_c.FieldByName('物业代码').Asstring;
    DM.HouseEstate_c.Close;
    DM.HouseEstate_c.SQL.Clear;
    s:='Select House.房号,House.物业代码,House.朝向,House.销售状态,House.用途,House.类型,House.建筑面积,House.实用面积,House.房价 from House';
    DM.HouseEstate_c.SQL.Add(s);
    if s1<>'' then DM.HouseEstate_c.SQL.Add('  where House.物业代码 LIKE '+s1);
//    DM.HouseEState_cDAO.DatabaseName:=AllDBFullName;
//    DM.HouseEstate_cDAO.Connected :=true;
    DM.HouseEstate_c.Open;
    DBGridEH1.Refresh;
{    DM.HouseEState_cNotSaleDAO.DatabaseName:=AllDBFullName;
    DM.HouseEstate_cNotSaleDAO.Connected :=true;
    DM.HouseEstate_cNotSale.Open;
    DBGridEH2.Refresh;
    DM.HouseEState_cSaleDAO.DatabaseName:=AllDBFullName;
    DM.HouseEstate_cSaleDAO.Connected :=true;
    DM.HouseEstate_cSale.Open;
    DBGridEH3.Refresh;}


//    DM.Direction_cDAO.DatabaseName:=AllDBFullName;
//    DM.Direction_cDAO.Connected :=true;
    DM.Direction_c.Open;
//    DM.Type_cDAO.DatabaseName:=AllDBFullName;
//    DM.Type_cDAO.Connected :=true;
    DM.Type_c.Open;
//    DM.Use_cDAO.DatabaseName:=AllDBFullName;
//    DM.Use_cDAO.Connected :=true;
    DM.Use_c.Open;
{    DM.Sale_cDAO.DatabaseName:=AllDBFullName;
    DM.Sale_cDAO.Connected :=true;
    DM.Sale_c.Open;}
//    DM.Contract_bookDAO.DatabaseName:=AllDBFullName;
    DM.Contract_book.SQL.Clear;
    DM.Contract_book.SQL.Add('Select * from Contract_book');
//    DM.Contract_bookDAO.Connected :=true;
    DM.Contract_book.open;
//    DM.Confirmed_bookDAO.DatabaseName:=AllDBFullName;
    DM.Confirmed_book.SQL.Clear;
    DM.Confirmed_book.SQL.Add('Select * from Confirmed_book');
//    DM.Confirmed_bookDAO.Connected :=true;
    DM.Confirmed_book.open;
//    DM.Customer_cDAO.DatabaseName:=AllDBFullName;
//    DM.Customer_cDAO.Connected :=true;
    DM.Customer_c.open;

    GetComboBoxItem(Sender);
  end;
end;


procedure TLfxsForm.GetComboBoxItem(Sender:TObject);
begin
  while not DM.Direction_c.eof do
  begin
    Direction_cCBox.Items.Add(Direction_cDBEdit.Edittext);
    DM.Direction_c.next;
  end;
  while not DM.Use_c.eof do
  begin
    Use_cCBox.Items.Add(Use_cDBEdit.EditText);
    DM.Use_c.Next;
  end;
  while not DM.Type_c.eof do
  begin
    Type_cCBox.Items.Add(Type_cDBEdit.EditText);
    DM.Type_c.next;
  end;
end;

procedure TLfxsForm.DBGrid1CellClick(Column: TColumn);
var s,s1:string;
begin
  DM.HouseEstate_c.Close;
  DM.HouseEstate_c.SQL.Clear;
  s1:=DM.Estate_cDevelop_c.FieldByName('物业代码').Asstring;
  s:='Select House.房号,House.物业代码,House.朝向,House.销售状态,House.用途,House.类型,House.建筑面积,House.实用面积,House.房价 from House where House.物业代码 like '+s1 ;
  DM.HouseEstate_c.SQL.Add(s);
  DM.HouseEstate_c.Open;
  DBGridEH1.Refresh;
end;

procedure TLfxsForm.WriteBookBitBtnClick(Sender: TObject);
begin
  if DM.HouseEstate_c.FieldbyName('销售状态').asstring='已售' then
  begin
    ShowMessage('房屋已售出，不能签定确认书了！');
    exit;
  end;
  XzkhOrGfht:=0;
  with TXZKHForm.Create(Self) do
  Try
    ShowModal;
  Finally
    Free;
  end;
end;

procedure TLfxsForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
//  DM.HouseEstate_cDAO.Connected:=False;
  DM.HouseEstate_c.Close;
//  DM.Direction_cDAO.Connected:=False;
  DM.Direction_c.Close;
//  DM.Use_cDAO.Connected:=False;
  DM.Use_c.Close;
//  DM.Type_cDAO.Connected:=False;
  DM.Type_c.Close;
//  DM.Estate_cDevelop_cDAO.Connected:=False;
  DM.Estate_cDevelop_c.close;
//  DM.Confirmed_bookDAO.Connected:=False;
  DM.Confirmed_book.close;
//  DM.Contract_bookDAO.Connected:=False;
  DM.Contract_book.close;
//  DM.Customer_cDAO.Connected:=False;
  DM.Customer_c.close;
end;

procedure TLfxsForm.NotSaleHouseBitBtnClick(Sender: TObject);
begin
  if DM.HouseEstate_c.FieldbyName('销售状态').asstring<>'已售' then
  begin
    ShowMessage('房屋未售出，不能退房！');
    exit;
  end
  else
  begin
    with TExitHouseForm.Create(Self) do
    Try
      ShowModal;
    Finally
      Free;
    end;    
  end;
end;

procedure TLfxsForm.WriteBuyHouseHTBitBtnClick(Sender: TObject);
begin
  if DM.HouseEstate_c.FieldbyName('销售状态').asstring<>'已售' then
  begin
    ShowMessage('请先签定[确认书]！');
    exit;
  end;
  XzkhOrGfht:=1;
  with TXZKHForm.Create(Self) do
  Try
    ShowModal;
  Finally
    Free;
  end;
end;

















procedure TLfxsForm.LookSBtnClick(Sender: TObject);
var s,s1:string;
begin
  if LookEdit.Text<>'' then
  begin
    DM.HouseEstate_c.Close;
    DM.HouseEstate_c.SQL.Clear;
    s1:=DM.Estate_cDevelop_c.FieldByName('物业代码').Asstring;
    s:='Select House.房号,House.物业代码,House.朝向,House.销售状态,House.用途,House.类型,House.建筑面积,House.实用面积,House.房价 from House';
    DM.HouseEstate_c.SQL.Add(s);
    DM.HouseEstate_c.SQL.Add('  where House.物业代码 LIKE '+s1+' and House.房号 like '+LookEdit.Text);
  end
  else
  begin
    DM.HouseEstate_c.Close;
    DM.HouseEstate_c.SQL.Clear;
    s1:=DM.Estate_cDevelop_c.FieldByName('物业代码').Asstring;
    s:='Select House.房号,House.物业代码,House.朝向,House.销售状态,House.用途,House.类型,House.建筑面积,House.实用面积,House.房价 from House';
    DM.HouseEstate_c.SQL.Add(s);
    DM.HouseEstate_c.SQL.Add('  where House.物业代码 LIKE '+s1);
  end;
  DM.HouseEstate_c.Open;
  DBGridEH1.Refresh;
end;




end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -