【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：MonitorDM.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    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.