unit Newhouse;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dbcgrids, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
  StrUtils, ExtDlgs, ComCtrls, math;

type
    Tf_Newhouse = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
      bOK:bool;
  end;

var
  f_Newhouse: Tf_Newhouse;


implementation

uses data, main,RealtyB121B;
{$R *.dfm}

//初始化
procedure Tf_Newhouse.FormCreate(Sender: TObject);
begin
end;

//Tab
procedure Tf_Newhouse.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then
        Begin
            key:=0;
            perform(WM_NEXTDLGCTL,0,0);
        end
    else if key=VK_ESCAPE then close;
end;


procedure Tf_Newhouse.Button2Click(Sender: TObject);
begin
    close;
end;

procedure Tf_Newhouse.Button1Click(Sender: TObject);
Var
     query:TADOQuery;
     s:String;
begin
    query:=TADOQuery.Create(nil);
     query.Connection:=DataModuleADO.ADOConnection1;

     query.SQL.Add('select * from 房產(chǎn)驗(yàn)收項(xiàng)目 where 類(lèi)別='''+'房間驗(yàn)收'+''' and 名稱(chēng)='''+edit1.Text+'''');
     query.open;
     if query.RecordCount>0 then
     begin
         showmessage('房間驗(yàn)收名稱(chēng)重復(fù)');
         edit1.SetFocus;
         query.Close;
         query.free;
         exit;
     end;

     s:='insert into 房產(chǎn)驗(yàn)收項(xiàng)目(名稱(chēng),說(shuō)明,類(lèi)別) values(:s1,:s2,:s3)';
     query.sql.Clear;
     query.SQL.Add(s);

     query.Parameters.ParamByName('s1').Value:=trim(edit1.Text);
     query.Parameters.ParamByName('s2').Value:=trim(edit2.Text);
     query.Parameters.ParamByName('s3').Value:='房間驗(yàn)收';

     DataModuleADO.ADOConnection1.BeginTrans;
     query.ExecSQL;
     DataModuleADO.ADOConnection1.CommitTrans;
     query.Close;
     query.Free;

     mainform.t1:=edit1.Text;   
     bOk:=true;

     close;
end;

end.