modelunit.pas

企业经营管理系统开发实例导航-小区物业管理

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);
  end;
  
var
  ModelForm: TModelForm;

implementation

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

{
********************************** TModelForm **********************************
}
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.