lfjs.pas

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

unit Lfjs;

interface

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

type
  TLfjsForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Image1: TImage;
    Panel5: TPanel;
    BitBtnclose: TBitBtn;
    DBGridEh1: TDBGridEh;
    SaveBitBtn: TBitBtn;
    procedure BitBtncloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SaveBitBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LfjsForm: TLfjsForm;

implementation

uses udm,main;

{$R *.DFM}

procedure TLfjsForm.BitBtncloseClick(Sender: TObject);
begin
  close;
end;

procedure TLfjsForm.FormCreate(Sender: TObject);
var s:string;
begin
  s:='Select 合同书号码,签定日期,房号,客户代码,法定代表人,总价 As 房款,单价,杂费,订金,已付房款,未付房款,有效 from Contract_book where 有效 like 有效';
//  DM.Contract_bookDAO.DatabaseName:=AllDBFullName;
  DM.Contract_book.close;
  DM.Contract_book.SQL.Clear;
  DM.Contract_book.SQL.Add(s);
//  DM.Contract_bookDAO.Connected :=true;
  DM.Contract_book.open;
end;

procedure TLfjsForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  DM.Contract_book.close;
end;

procedure TLfjsForm.SaveBitBtnClick(Sender: TObject);
begin
  ShowMessage('请向作者注册！');
  exit;
end;

end.