newhouse.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

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 房产验收项目 where 类别='''+'房间验收'+''' and 名称='''+edit1.Text+'''');
     query.open;
     if query.RecordCount>0 then
     begin
         showmessage('房间验收名称重复');
         edit1.SetFocus;
         query.Close;
         query.free;
         exit;
     end;

     s:='insert into 房产验收项目(名称,说明,类别) 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:='房间验收';

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

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

     close;
end;

end.