unit Unit3;
//樓房管理
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  Tfrm_lfdj = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_lfdj: Tfrm_lfdj;

implementation

uses Unit13;

{$R *.dfm}
//------------------添加樓房----------------------//
procedure Tfrm_lfdj.Button1Click(Sender: TObject);
begin
if Edit1.Text ='' then
begin
  MessageBox(handle,'樓房號(hào)不能為空!','警告',MB_OK+MB_ICONWARNING);
  Edit1.SetFocus ;
  exit;
end;
if Edit2.Text ='' then
begin
  MessageBox(handle,'樓層數(shù)不能為空!','警告',MB_OK+MB_ICONWARNING);
  Edit2.SetFocus ;
  exit;
end;
if Edit3.Text ='' then
begin
  MessageBox(handle,'開(kāi)始房間不能為空!','警告',MB_OK+MB_ICONWARNING);
  Edit3.SetFocus ;
  exit;
end;
if Edit4.Text ='' then
begin
  MessageBox(handle,'結(jié)束房間不能為空!','警告',MB_OK+MB_ICONWARNING);
  Edit4.SetFocus ;
  exit;
end;
if Edit5.Text ='' then
begin
  MessageBox(handle,'房間價(jià)格不能為空!','警告',MB_OK+MB_ICONWARNING);
  Edit5.SetFocus ;
  exit;
end;
if Edit6.Text ='' then
begin
  MessageBox(handle,'入住人數(shù)不能為空!','警告',MB_OK+MB_ICONWARNING);
  Edit6.SetFocus ;
  exit;
end;
try
  with data1.ADO_lfdj do
    begin
      close;
      sql.Clear;
      sql.Add('insert 宿舍管理 values (:a,:b,:c,:d,:e,:f)');
      parameters.ParamByName('a').Value:=trim(edit1.Text);
      parameters.ParamByName('b').Value:=trim(edit2.Text);
      parameters.ParamByName('c').Value:=trim(edit3.Text);
      parameters.ParamByName('d').Value:=trim(edit4.Text);
      parameters.ParamByName('e').Value:=trim(edit5.Text);
      parameters.ParamByName('f').Value:=trim(edit6.Text);
      execsql;
    end;
    application.MessageBox('添加成功','提示',64);
except
  application.MessageBox('添加失敗','提示',64);
end;
end;
//------------------取消------------------------//
procedure Tfrm_lfdj.Button2Click(Sender: TObject);
begin
close;
end;
//---------------輸入限制---------------//

procedure Tfrm_lfdj.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#8])then
begin
  key:=#0;
  application.MessageBox('此項(xiàng)只能為數(shù)字','提示',64);
end;
end;

procedure Tfrm_lfdj.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#8])then
begin
  key:=#0;
  application.MessageBox('此項(xiàng)只能為數(shù)字','提示',64);
end;
end;

procedure Tfrm_lfdj.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#8])then
begin
  key:=#0;
  application.MessageBox('此項(xiàng)只能為數(shù)字','提示',64);
end;
end;

end.