khjk.pas

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

unit Khjk;

interface

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

type
  TKhjkForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    closeBitBtn: TBitBtn;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    DBGridEh1: TDBGridEh;
    TabbedNotebook1: TTabbedNotebook;
    DBGridEh2: TDBGridEh;
    ListBox2: TListBox;
    AddBitBtn: TBitBtn;
    EditBtn: TBitBtn;
    Panel12: TPanel;
    Image2: TImage;
    Image3: TImage;
    Memo1: TMemo;
    DBMemo1: TDBMemo;
    procedure closeBitBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure DBGridEh2CellClick(Column: TColumnEh);
    procedure AddBitBtnClick(Sender: TObject);
    procedure EditBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  KhjkForm: TKhjkForm;

implementation

uses udm,main,jkRecord,EditJkRecord;

{$R *.DFM}

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

procedure TKhjkForm.FormCreate(Sender: TObject);
begin
//  DM.Pay_detailDAO.Databasename := DataBaseName;
  DM.Pay_detail.Close;
  DM.Pay_detail.SQL.Clear;
  DM.Pay_detail.SQL.Add('Select 单据号,交款日期,交款额,客户代码,房号,经手人,业务员,备注 from Pay_detail');
//  DM.Pay_detailDAO.Connected:=True;
  DM.Pay_detail.Open;
//  DM.Contract_bookDAO.Databasename := DataBaseName;
  DM.Contract_book.Close;
  DM.Contract_book.SQL.Clear;
  DM.Contract_book.SQL.Add(Contract_bookSQL);
//  DM.Contract_book.SQL.Add('Select Distinct 客户代码,合同书号码 As 合同号 from Contract_book');
//  DM.Contract_bookDAO.Connected:=True;
  DM.Contract_book.Open;
  while not DM.Contract_book.Eof do
  begin
    ListBox2.Items.Add('签定日期：'+DM.Contract_book.FieldByName('签定日期').asstring);
    ListBox2.Items.Add('物业代码：'+DM.Contract_book.FieldByName('物业代码').asstring);
    ListBox2.Items.Add('房号：'+DM.Contract_book.FieldByName('房号').asstring);
    ListBox2.Items.Add('总房款：'+DM.Contract_book.FieldByName('总价').asstring);
    ListBox2.Items.Add('订金：'+DM.Contract_book.FieldByName('订金').asstring);
    ListBox2.Items.Add('已付款：'+DM.Contract_book.FieldByName('已付房款').asstring);
    ListBox2.Items.Add('杂费：'+DM.Contract_book.FieldByName('杂费').asstring);
    ListBox2.Items.Add('剩余款额：'+DM.Contract_book.FieldByName('未付房款').asstring);
    ListBox2.Items.Add('尚欠滞纳金：'+DM.Contract_book.FieldByName('应付滞纳金').asstring);
    ListBox2.Items.Add('付款办法：'+DM.Contract_book.FieldByName('付款期数').asstring);
    Memo1.Lines:=DBMemo1.Lines;
    DM.Contract_book.next;
  end;
end;

procedure TKhjkForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
//  DM.Contract_bookDAO.Connected:=False;
  DM.Contract_book.close;
//  DM.Pay_detailDAO.Connected:=False;
  DM.Pay_detail.close;
end;

procedure TKhjkForm.DBGridEh2CellClick(Column: TColumnEh);
var s,s1,s2:string;
begin

  DM.Pay_detail.SQL.Clear;
  s1:=DM.Contract_book.FieldByName('房号').Asstring;
  s2:=DM.Contract_book.FieldByName('客户代码').asstring;
  s:='Select 单据号,交款日期,交款额,客户代码,房号,经手人,业务员,备注 from Pay_detail where 客户代码 like '+s2+' and 房号 like '+s1 ;
  //单据号,交款额,交款日期,客户代码,房号
  DM.Pay_detail.SQL.Add(s);
  DM.Pay_detail.Close;
  DM.Pay_detail.Open;
  ListBox2.Items.Clear;
  ListBox2.Items.Add('签定日期：'+DM.Contract_book.FieldByName('签定日期').asstring);
  ListBox2.Items.Add('物业代码：'+DM.Contract_book.FieldByName('物业代码').asstring);
  ListBox2.Items.Add('房号：'+DM.Contract_book.FieldByName('房号').asstring);
  ListBox2.Items.Add('总房款：'+DM.Contract_book.FieldByName('总价').asstring);
  ListBox2.Items.Add('订金：'+DM.Contract_book.FieldByName('订金').asstring);
  ListBox2.Items.Add('已付款：'+DM.Contract_book.FieldByName('已付房款').asstring);
  ListBox2.Items.Add('杂费：'+DM.Contract_book.FieldByName('杂费').asstring);
  ListBox2.Items.Add('剩余款额：'+DM.Contract_book.FieldByName('未付房款').asstring);
  ListBox2.Items.Add('尚欠滞纳金：'+DM.Contract_book.FieldByName('应付滞纳金').asstring);
  ListBox2.Items.Add('付款办法：'+DM.Contract_book.FieldByName('付款期数').asstring);
  Memo1.Lines:=DBMemo1.Lines;
  DBGridEH1.Refresh;
  DBGridEH2.Refresh;
end;



procedure TKhjkForm.AddBitBtnClick(Sender: TObject);
begin
  with TJkRecordForm.Create(Self) do
  Try
    ShowModal;
  Finally
    Free;
  end;
  DBGridEH1.Refresh;
end;

procedure TKhjkForm.EditBtnClick(Sender: TObject);
begin
  with TEditJkRecordForm.Create(Self) do
  Try
    ShowModal;
  Finally
    Free;
  end;
  DBGridEH1.Refresh;    
end;

end.