unit ModelUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ToolWin, ComCtrls, DBCtrls, Mask, Grids,
  DBGrids, ExtCtrls;

type
  TModelForm = class (TForm)
    btadd: TBitBtn;
    Btdel: TBitBtn;
    btno1: TBitBtn;
    btok: TBitBtn;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Panel2: TPanel;
    Panel3: TPanel;
    ToolBar1: TToolBar;
    TS_Com: TDBEdit;
    TS_date: TDBEdit;
    TS_ID: TDBEdit;
    TS_Memo: TDBMemo;
    TS_User: TDBEdit;
    procedure btaddClick(Sender: TObject);
    procedure BtdelClick(Sender: TObject);
    procedure btno1Click(Sender: TObject);
    procedure btokClick(Sender: TObject);
    public
   // function checkdata: boolean;


  end;
  
var
  ModelForm: TModelForm;

implementation

uses udm, Umain;
{$R *.dfm}

{
********************************** TModelForm **********************************
}
{function  checkdata: boolean;
begin
  result := true;
  if trim(TS_User.Text) = '' then
  begin
    showmessage('房型不能為空!');
    result := false;
    TS_User.SetFocus;
    exit;
  end;
end；}
procedure TModelForm.btaddClick(Sender: TObject);
var
  NewID: string;
begin
  try
    adodm.Model.Last; //返到記錄的最后一個
    NewID := IntToStr(adodm.Model.FieldByName('房型編號').AsInteger + 1); //新記錄的編號
    adodm.model.Append; //增加新記錄
    TS_ID.Text := NewID; //把新記錄的編號
  except
    showmessage('產生例外錯誤，請聯系我們');
  end;
end;

procedure TModelForm.BtdelClick(Sender: TObject);
begin
  if MessageDlg('您確定要刪除錄入的數據嗎？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    try
      adodm.model.Delete; //刪除當前記錄
    except
      showmessage('產生例外錯誤，請聯系我們');
    end;
  end;
end;

procedure TModelForm.btno1Click(Sender: TObject);
begin
  try
    adodm.model.Cancel; //取消加入新記錄
    close;
  except
    showmessage('產生例外錯誤，請聯系我們');
  end;
end;

procedure TModelForm.btokClick(Sender: TObject);
begin
  try
    adodm.model.Post; //確定加入新記錄
  except
    showmessage('產生例外錯誤，請聯系我們');
  end;
end;

end.