jkrecord.pas

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

unit JkRecord;

interface

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

type
  TJkRecordForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Image1: TImage;
    closeBitBtn: TBitBtn;
    CalcBitBtn: TBitBtn;
    SaveBitBtn: TBitBtn;
    Label1: TLabel;
    khdmLabel: TLabel;
    Label2: TLabel;
    fhLabel: TLabel;
    Label3: TLabel;
    mjLabel: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    jkdateEdit: TEdit;
    jkdateDBEdit: TDBEdit;
    DateSBtn: TSpeedButton;
    Label6: TLabel;
    djhEdit: TEdit;
    djhDBEdit: TDBEdit;
    Label7: TLabel;
    jkeEdit: TEdit;
    jkeDBEdit: TDBEdit;
    Label8: TLabel;
    jsrEdit: TEdit;
    jsrDBEdit: TDBEdit;
    Label9: TLabel;
    ywyEdit: TEdit;
    ywyDBEdit: TDBEdit;
    Label10: TLabel;
    Memo1: TMemo;
    DBMemo1: TDBMemo;
    khdmDBEdit: TDBEdit;
    fhDBEdit: TDBEdit;
    Bevel1: TBevel;
    ListBox1: TListBox;
    Memo2: TMemo;
    DBMemo2: TDBMemo;
    procedure CalcBitBtnClick(Sender: TObject);
    procedure DateSBtnClick(Sender: TObject);
    procedure closeBitBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SaveBitBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JkRecordForm: TJkRecordForm;


implementation

uses udm,main,khjk,calc,lfxs,Calendar;

{$R *.DFM}

procedure TJkRecordForm.CalcBitBtnClick(Sender: TObject);
begin
  CalcForm.Show;
end;

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

procedure TJkRecordForm.closeBitBtnClick(Sender: TObject);
begin
  close;
end;

procedure TJkRecordForm.FormCreate(Sender: TObject);
begin
  khdmLabel.Caption:=DM.Contract_book.FieldByName('客户代码').asstring;
  fhLabel.Caption:=DM.Contract_book.FieldByName('房号').asstring;
  mjLabel.Caption:=FloatToStr(DM.Contract_book.FieldByName('建筑面积').asfloat);
  jkdateEdit.text:=FormatDateTime('dddddd',Date());
    ListBox1.Items.Add('签定日期：'+DM.Contract_book.FieldByName('签定日期').asstring);
    ListBox1.Items.Add('物业代码：'+DM.Contract_book.FieldByName('物业代码').asstring);
    ListBox1.Items.Add('房号：'+DM.Contract_book.FieldByName('房号').asstring);
    ListBox1.Items.Add('总房款：'+DM.Contract_book.FieldByName('总价').asstring);
    ListBox1.Items.Add('订金：'+DM.Contract_book.FieldByName('订金').asstring);
    ListBox1.Items.Add('已付款：'+DM.Contract_book.FieldByName('已付房款').asstring);
    ListBox1.Items.Add('杂费：'+DM.Contract_book.FieldByName('杂费').asstring);
    ListBox1.Items.Add('剩余款额：'+DM.Contract_book.FieldByName('未付房款').asstring);
    ListBox1.Items.Add('尚欠滞纳金：'+DM.Contract_book.FieldByName('应付滞纳金').asstring);
    ListBox1.Items.Add('付款办法：'+DM.Contract_book.FieldByName('付款期数').asstring);
    Memo2.Lines:=DBMemo2.Lines;
end;

procedure TJkRecordForm.SaveBitBtnClick(Sender: TObject);
begin
  DM.Pay_detail.Insert;
  if jkdateEdit.text='' then
  begin
    ShowMessage('请输入日期！');
    jkdateEdit.Setfocus;
    exit;
  end
  else jkdateDBEdit.Edittext:=jkdateEdit.text;
  if djhEdit.text='' then
  begin
    ShowMessage('请输入单据号！');
    djhEdit.Setfocus;
    exit;
  end
  else djhDBEdit.EditText:=djhEdit.text;
  if jkeEdit.text='' then
  begin
    ShowMessage('请输入交款额！');
    jkeEdit.Setfocus;
    exit;
  end
  else jkeDBEdit.Edittext:=jkeEdit.text;
  jsrDBEdit.EditText:=jsrEdit.text;
  ywyDBEdit.EditText:=ywyEdit.text;
  DBMemo1.Lines:=Memo1.Lines;
  khdmDBEdit.EditText:=khdmLabel.Caption;
  fhDBEdit.EditText:=fhLabel.caption;
  DM.Pay_detail.Post;
  close;

end;

end.