datamoudal.pas

一个delphi编写的收发短信源码, 使用了Cport控件,很实用

unit DataMoudal;

interface

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

type
  TDM = class(TDataModule)
    ADOConn: TADOConnection;
    ADOProc: TADOStoredProc;
  private
    { Private declarations }
  public
    { Public declarations }
    function SaveSignls(FixID, HourID, IntenSity, Channels: string;
      Rectime: TDateTime; TagNum: Integer): Boolean;
  end;

var
  DM: TDM;

implementation

{$R *.DFM}

{ TDM }

function TDM.SaveSignls(FixID, HourID, IntenSity, Channels: string;
  Rectime: TDateTime; TagNum: Integer): Boolean;
begin
  with ADOProc do
  begin
    try
      Parameters.ParamByName('@FixID').Value := FixID;
      Parameters.ParamByName('@HourID').Value := HourID;
      Parameters.ParamByName('@IntenSity').Value := IntenSity;
      Parameters.ParamByName('@Channels').Value := Channels;
      Parameters.ParamByName('@Rectime').Value := Rectime;
      Parameters.ParamByName('@TagNum').Value := TagNum;
      ExecProc;
      Result := True;
    except
      Result := False;
    end;
  end;
end;

end.