monitordm.pas

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

unit MonitorDM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB;

type
  TDMMain = class(TDataModule)
    tblEvent: TADOTable;
    cnnMain: TADOConnection;
    tblRecPerson: TADOTable;
    tblRecPersonID: TAutoIncField;
    tblRecPersonname: TWideStringField;
    tblRecPersonphone_no: TWideStringField;
    procedure tblRecPersonBeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMMain: TDMMain;

implementation

{$R *.DFM}

procedure TDMMain.tblRecPersonBeforePost(DataSet: TDataSet);
var
    mPhone:string;
begin
    if (DataSet.State <> dsEdit)
        and (DataSet.State <> dsInsert) then
        Exit;
    //插入和编辑时检查号码的长度
    mPhone := DataSet.FieldByName('phone_no').AsString;
    case Length(mPhone) of
        9 : mPhone := '+8613' + mPhone;
        11: mPhone := '+86' + mPhone;
    else raise Exception.Create('电话号码输入错误!');
    end;
    DataSet.FieldByName('phone_no').AsString := mPhone;
end;

end.