selectcustomer.pas

房产售楼CRM系统是以房地产销售业务为主线

unit SelectCustomer;
//签订确认书
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, Mask, DBCtrls, Mylabel;

type
  TSelectCustomerForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    htshmEdit: TEdit;
    Label7: TLabel;
    qdrqEdit: TEdit;
    DateSBtn: TSpeedButton;
    Label8: TLabel;
    xsdjEdit: TEdit;
    Label9: TLabel;
    xszkEdit: TEdit;
    Label10: TLabel;
    zfEdit: TEdit;
    Label11: TLabel;
    zhzjEdit: TEdit;
    Label12: TLabel;
    yfdjEdit: TEdit;
    Label13: TLabel;
    jsrEdit: TEdit;
    Label14: TLabel;
    ywyEdit: TEdit;
    Label15: TLabel;
    Memo1: TMemo;
    CalendarBitBtn: TBitBtn;
    SaveBitBtn: TBitBtn;
    PrintBitBtn: TBitBtn;
    CloseBitBtn: TBitBtn;
    khdmLabel: TLabel;
    khmcLabel: TLabel;
    fddbrLabel: TLabel;
    fhLabel: TLabel;
    mjLabel: TLabel;
    htshmDBEdit: TDBEdit;
    qdrqDBEdit: TDBEdit;
    xsdjDBEdit: TDBEdit;
    xszkDBEdit: TDBEdit;
    zfDBEdit: TDBEdit;
    zhzjDBEdit: TDBEdit;
    yfdjDBEdit: TDBEdit;
    jsrDBEdit: TDBEdit;
    ywyDBEdit: TDBEdit;
    DBMemo1: TDBMemo;
    khdmDBEdit: TDBEdit;
    fddbrDBEdit: TDBEdit;
    fhDBEdit: TDBEdit;
    jzmjDBEdit: TDBEdit;
    wydmDBEdit: TDBEdit;
    xssdmDBEdit: TDBEdit;
    Label16: TLabel;
    Label17: TLabel;
    xsztDBEdit: TDBEdit;
    myLabel3d1: TmyLabel3d;
    gfhtqdrqDBEdit: TDBEdit;
    procedure DateSBtnClick(Sender: TObject);
    procedure CalendarBitBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CloseBitBtnClick(Sender: TObject);
    procedure SaveBitBtnClick(Sender: TObject);
    procedure zhzjEditEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SelectCustomerForm: TSelectCustomerForm;
  zhzj:double;
  InsertOrEdit:integer;

implementation

uses udm,main,lfxs,Calendar,Calc;

{$R *.DFM}

procedure TSelectCustomerForm.DateSBtnClick(Sender: TObject);
begin
  with TCalendarForm.Create(Self) do
  Try
    ShowModal;
  Finally
   Free;
  end;
  QdrqEdit.Text:=Qdrq;
end;

procedure TSelectCustomerForm.CalendarBitBtnClick(Sender: TObject);
begin
  CalcForm.Show;
end;

procedure TSelectCustomerForm.FormCreate(Sender: TObject);
var
  s:string;
begin
  khdmLabel.Caption:=DM.Customer_c.FieldByName('客户代码').asstring;
  khmclabel.Caption:=DM.Customer_c.FieldByName('姓名').asstring;
  fddbrLabel.Caption:=DM.Customer_c.FieldByName('法定代表人').asstring;
  fhLabel.Caption:=DM.HouseEstate_c.FieldByName('房号').asstring;
  mjLabel.Caption:=FloatToStr(DM.HouseEstate_c.FieldByName('建筑面积').asfloat);
  xsdjEdit.Text:=FloatToStr(DM.HouseEstate_c.FieldByName('房价').asFloat);
  qdrqEdit.text:=FormatDateTime('dddddd',Date());
  DM.Confirmed_book.Close;
  DM.Confirmed_book.SQL.Clear;
  s:=Confirmed_bookSQL+' where 房号 like '+fhLabel.Caption+' and 客户代码 like '+khdmLabel.Caption;
  DM.Confirmed_book.SQL.Add(s);
  DM.Confirmed_book.Open;
  if not DM.Confirmed_book.eof then
  begin
    InsertOrEdit:=1;
    htshmEdit.text:=htshmDBEdit.EditText;
    xszkEdit.text:=xszkDBEdit.EditText;
  end
  else InsertOrEdit:=0;
end;

procedure TSelectCustomerForm.CloseBitBtnClick(Sender: TObject);
begin
  close;
end;

procedure TSelectCustomerForm.SaveBitBtnClick(Sender: TObject);
var
  wydm,xssdm,s:string;
begin
  if InsertOrEdit=0 then
  begin
    DM.Confirmed_book.Close;
    DM.Confirmed_book.SQL.Clear;
    DM.Confirmed_book.SQL.Add('Select * from Confirmed_book');
    DM.Confirmed_book.Open;
    DM.Confirmed_book.Insert;
  end
  else DM.Confirmed_book.Edit;
  wydm:=DM.HouseEstate_c.FieldByName('物业代码').asstring;
  xssdm:=DM.Estate_cDevelop_c.FieldByName('销售商代码').asstring;
  fhDBEdit.EditText:=fhLabel.Caption;
  khdmDBEdit.EditText:=khdmLabel.Caption;
  fddbrDBEdit.EditText:=fddbrLabel.Caption;
  jzmjDBEdit.EditText:=mjLabel.Caption;
  if htshmEdit.text='' then
  begin
    ShowMessage('请输入[合同书号码]！');
    htshmEdit.Setfocus;
    exit;
  end
  else  htshmDBEdit.EditText:=htshmEdit.text;
  qdrqDBEdit.EditText:=qdrqEdit.text;
  xsdjDBEdit.EditText:=xsdjEdit.text;
  xszkDBEdit.EditText:=xszkEdit.Text;
  zfDBEdit.EditText:=zfEdit.text;
  zhzjDBEdit.EditText:=zhzjEdit.text;
  if yfdjEdit.Text='' then
  begin
    ShowMessage('请先付部分[订金]');
    yfdjEdit.Setfocus;
    exit;
  end
  else
   if StrToFloat(zhzjEdit.text)>=StrToFloat(yfdjEdit.text) then yfdjDBEdit.EditText:=yfdjEdit.text
   else
   begin
     ShowMessage('[折后总价]应大于[已付订金]！');
     yfdjEdit.Setfocus;
     exit;
   end;
  jsrDBEdit.EditText:=jsrEdit.text;
  ywyDBEdit.EditText:=ywyEdit.text;
  DBMemo1.Lines:=Memo1.Lines;
  DM.Confirmed_book.Post;
  DM.HouseEstate_c.Edit;
  xsztDBedit.EditText:='已售';
  DM.HouseEstate_c.Post;

  begin
    DM.Contract_book.Close;
    khdmDBEdit.DataSource :=DM.Contract_bookDataSource;
    fhDBEdit.DataSource :=DM.Contract_bookDataSource;
    fddbrDBEdit.DataSource :=DM.Contract_bookDataSource;
    jzmjDBEdit.DataSource :=DM.Contract_bookDataSource;
    htshmDBEdit.DataSource :=DM.Contract_bookDataSource;
    qdrqDBEdit.DataSource :=DM.Contract_bookDataSource;
    xsdjDBEdit.DataSource :=DM.Contract_bookDataSource;
    xszkDBEdit.DataSource :=DM.Contract_bookDataSource;
    zfDBEdit.DataSource :=DM.Contract_bookDataSource;
    zhzjDBEdit.DataSource :=DM.Contract_bookDataSource;
    yfdjDBEdit.DataSource :=DM.Contract_bookDataSource;
    jsrDBEdit.DataSource :=DM.Contract_bookDataSource;
    ywyDBEdit.DataSource :=DM.Contract_bookDataSource;
    DBmemo1.DataSource :=DM.Contract_bookDataSource;
    DM.Contract_book.SQL.Clear;
    s:=Contract_bookSQL+' where 房号 like '+fhLabel.Caption+' and 客户代码 like '+khdmLabel.Caption;
    DM.Contract_book.SQL.Add(s);
    DM.Contract_book.Open;
    if not DM.Contract_book.eof then InsertOrEdit:=1
    else InsertOrEdit:=0;
    if InsertOrEdit=0 then
    begin
      DM.Contract_book.Close;
      DM.Contract_book.SQL.Clear;
      DM.Contract_book.SQL.Add(Contract_bookSQL);
      DM.Contract_book.Open;
      DM.Contract_book.Insert;
    end
    else DM.Contract_book.Edit;
    fhDBEdit.EditText:=fhLabel.Caption;
    khdmDBEdit.EditText:=khdmLabel.Caption;
    fddbrDBEdit.EditText:=fddbrLabel.Caption;
    jzmjDBEdit.EditText:=mjLabel.Caption;
    htshmDBEdit.EditText:=htshmEdit.text;
    qdrqDBEdit.EditText:=qdrqEdit.text;
    gfhtqdrqDBEdit.EditText:=qdrqEdit.text;
    xsdjDBEdit.EditText:=xsdjEdit.text;
    xszkDBEdit.EditText:=xszkEdit.Text;
    zfDBEdit.EditText:=zfEdit.text;
    zhzjDBEdit.EditText:=zhzjEdit.text;
    yfdjDBEdit.EditText:=yfdjEdit.text;
    jsrDBEdit.EditText:=jsrEdit.text;
    ywyDBEdit.EditText:=ywyEdit.text;
    DBMemo1.Lines:=Memo1.Lines;
    DM.Contract_book.Post;
  end;
  close;
end;




procedure TSelectCustomerForm.zhzjEditEnter(Sender: TObject);
begin
  if xszkEdit.text='' then xszkEdit.text:='100';
  zhzj:=StrToFloat(xsdjEdit.Text)*(100-StrToFloat(xszkEdit.Text))/100-StrToFloat(zfEdit.text);
  zhzjEdit.text:=FloatToStr(zhzj);
end;

end.