?? lfxs.pas
字號:
unit Lfxs;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, Grids, DBGrids, Mylabel, StdCtrls, TransBtn, DBGridEh, Mask,
DBCtrls, ComCtrls, Tabnotbk, Buttons;
type
TLfxsForm = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Panel8: TPanel;
Panel9: TPanel;
Image1: TImage;
Panel7: TPanel;
Panel10: TPanel;
Panel11: TPanel;
DBGrid1: TDBGrid;
Image2: TImage;
Label1: TLabel;
ProjectmyLabel3d: TmyLabel3d;
ReturnTBtn: TTransparentButton;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Direction_cCBox: TComboBox;
Use_cCBox: TComboBox;
Type_cCBox: TComboBox;
Direction_cDBEdit: TDBEdit;
Use_cDBEdit: TDBEdit;
Type_cDBEdit: TDBEdit;
LFbook: TTabbedNotebook;
Panel12: TPanel;
DBGridEh1: TDBGridEh;
CancelBitBtn: TBitBtn;
WriteBookBitBtn: TBitBtn;
NotSaleHouseBitBtn: TBitBtn;
WriteBuyHouseHTBitBtn: TBitBtn;
Label5: TLabel;
LookEdit: TEdit;
LookSBtn: TSpeedButton;
procedure ReturnTBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure GetComboBoxItem(Sender:TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure WriteBookBitBtnClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure NotSaleHouseBitBtnClick(Sender: TObject);
procedure WriteBuyHouseHTBitBtnClick(Sender: TObject);
procedure LookSBtnClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
LfxsForm: TLfxsForm;
XzkhOrGfht:Integer;//簽定確認書0或簽訂購房合同1
Qdrq:string;
implementation
uses udm,main,CreateData,xzkh,ExitHouse;
{$R *.DFM}
procedure TLfxsForm.ReturnTBtnClick(Sender: TObject);
begin
Close;
end;
procedure TLfxsForm.FormCreate(Sender: TObject);
var
i:integer;
s,s1:string;
begin
if AllExecPN<>'' then
begin
for i:=0 to 999 do FHList[i]:='';
ProjectmyLabel3d.Caption:=AllExecPN;
// DM.Estate_cDevelop_cDAO.DatabaseName:=AllDBFullName;
// DM.Estate_cDevelop_cDAO.Connected :=true;
DM.Estate_cDevelop_c.open;
s1:=DM.Estate_cDevelop_c.FieldByName('物業代碼').Asstring;
DM.HouseEstate_c.Close;
DM.HouseEstate_c.SQL.Clear;
s:='Select House.房號,House.物業代碼,House.朝向,House.銷售狀態,House.用途,House.類型,House.建筑面積,House.實用面積,House.房價 from House';
DM.HouseEstate_c.SQL.Add(s);
if s1<>'' then DM.HouseEstate_c.SQL.Add(' where House.物業代碼 LIKE '+s1);
// DM.HouseEState_cDAO.DatabaseName:=AllDBFullName;
// DM.HouseEstate_cDAO.Connected :=true;
DM.HouseEstate_c.Open;
DBGridEH1.Refresh;
{ DM.HouseEState_cNotSaleDAO.DatabaseName:=AllDBFullName;
DM.HouseEstate_cNotSaleDAO.Connected :=true;
DM.HouseEstate_cNotSale.Open;
DBGridEH2.Refresh;
DM.HouseEState_cSaleDAO.DatabaseName:=AllDBFullName;
DM.HouseEstate_cSaleDAO.Connected :=true;
DM.HouseEstate_cSale.Open;
DBGridEH3.Refresh;}
// DM.Direction_cDAO.DatabaseName:=AllDBFullName;
// DM.Direction_cDAO.Connected :=true;
DM.Direction_c.Open;
// DM.Type_cDAO.DatabaseName:=AllDBFullName;
// DM.Type_cDAO.Connected :=true;
DM.Type_c.Open;
// DM.Use_cDAO.DatabaseName:=AllDBFullName;
// DM.Use_cDAO.Connected :=true;
DM.Use_c.Open;
{ DM.Sale_cDAO.DatabaseName:=AllDBFullName;
DM.Sale_cDAO.Connected :=true;
DM.Sale_c.Open;}
// DM.Contract_bookDAO.DatabaseName:=AllDBFullName;
DM.Contract_book.SQL.Clear;
DM.Contract_book.SQL.Add('Select * from Contract_book');
// DM.Contract_bookDAO.Connected :=true;
DM.Contract_book.open;
// DM.Confirmed_bookDAO.DatabaseName:=AllDBFullName;
DM.Confirmed_book.SQL.Clear;
DM.Confirmed_book.SQL.Add('Select * from Confirmed_book');
// DM.Confirmed_bookDAO.Connected :=true;
DM.Confirmed_book.open;
// DM.Customer_cDAO.DatabaseName:=AllDBFullName;
// DM.Customer_cDAO.Connected :=true;
DM.Customer_c.open;
GetComboBoxItem(Sender);
end;
end;
procedure TLfxsForm.GetComboBoxItem(Sender:TObject);
begin
while not DM.Direction_c.eof do
begin
Direction_cCBox.Items.Add(Direction_cDBEdit.Edittext);
DM.Direction_c.next;
end;
while not DM.Use_c.eof do
begin
Use_cCBox.Items.Add(Use_cDBEdit.EditText);
DM.Use_c.Next;
end;
while not DM.Type_c.eof do
begin
Type_cCBox.Items.Add(Type_cDBEdit.EditText);
DM.Type_c.next;
end;
end;
procedure TLfxsForm.DBGrid1CellClick(Column: TColumn);
var s,s1:string;
begin
DM.HouseEstate_c.Close;
DM.HouseEstate_c.SQL.Clear;
s1:=DM.Estate_cDevelop_c.FieldByName('物業代碼').Asstring;
s:='Select House.房號,House.物業代碼,House.朝向,House.銷售狀態,House.用途,House.類型,House.建筑面積,House.實用面積,House.房價 from House where House.物業代碼 like '+s1 ;
DM.HouseEstate_c.SQL.Add(s);
DM.HouseEstate_c.Open;
DBGridEH1.Refresh;
end;
procedure TLfxsForm.WriteBookBitBtnClick(Sender: TObject);
begin
if DM.HouseEstate_c.FieldbyName('銷售狀態').asstring='已售' then
begin
ShowMessage('房屋已售出，不能簽定確認書了！');
exit;
end;
XzkhOrGfht:=0;
with TXZKHForm.Create(Self) do
Try
ShowModal;
Finally
Free;
end;
end;
procedure TLfxsForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
// DM.HouseEstate_cDAO.Connected:=False;
DM.HouseEstate_c.Close;
// DM.Direction_cDAO.Connected:=False;
DM.Direction_c.Close;
// DM.Use_cDAO.Connected:=False;
DM.Use_c.Close;
// DM.Type_cDAO.Connected:=False;
DM.Type_c.Close;
// DM.Estate_cDevelop_cDAO.Connected:=False;
DM.Estate_cDevelop_c.close;
// DM.Confirmed_bookDAO.Connected:=False;
DM.Confirmed_book.close;
// DM.Contract_bookDAO.Connected:=False;
DM.Contract_book.close;
// DM.Customer_cDAO.Connected:=False;
DM.Customer_c.close;
end;
procedure TLfxsForm.NotSaleHouseBitBtnClick(Sender: TObject);
begin
if DM.HouseEstate_c.FieldbyName('銷售狀態').asstring<>'已售' then
begin
ShowMessage('房屋未售出，不能退房！');
exit;
end
else
begin
with TExitHouseForm.Create(Self) do
Try
ShowModal;
Finally
Free;
end;
end;
end;
procedure TLfxsForm.WriteBuyHouseHTBitBtnClick(Sender: TObject);
begin
if DM.HouseEstate_c.FieldbyName('銷售狀態').asstring<>'已售' then
begin
ShowMessage('請先簽定[確認書]！');
exit;
end;
XzkhOrGfht:=1;
with TXZKHForm.Create(Self) do
Try
ShowModal;
Finally
Free;
end;
end;
procedure TLfxsForm.LookSBtnClick(Sender: TObject);
var s,s1:string;
begin
if LookEdit.Text<>'' then
begin
DM.HouseEstate_c.Close;
DM.HouseEstate_c.SQL.Clear;
s1:=DM.Estate_cDevelop_c.FieldByName('物業代碼').Asstring;
s:='Select House.房號,House.物業代碼,House.朝向,House.銷售狀態,House.用途,House.類型,House.建筑面積,House.實用面積,House.房價 from House';
DM.HouseEstate_c.SQL.Add(s);
DM.HouseEstate_c.SQL.Add(' where House.物業代碼 LIKE '+s1+' and House.房號 like '+LookEdit.Text);
end
else
begin
DM.HouseEstate_c.Close;
DM.HouseEstate_c.SQL.Clear;
s1:=DM.Estate_cDevelop_c.FieldByName('物業代碼').Asstring;
s:='Select House.房號,House.物業代碼,House.朝向,House.銷售狀態,House.用途,House.類型,House.建筑面積,House.實用面積,House.房價 from House';
DM.HouseEstate_c.SQL.Add(s);
DM.HouseEstate_c.SQL.Add(' where House.物業代碼 LIKE '+s1);
end;
DM.HouseEstate_c.Open;
DBGridEH1.Refresh;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -