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.