smg_schedulesend.~pas

SPIG1.1.rar SPIG接口协议

unit SMG_ScheduleSend;

interface

uses
  Classes;

type
  TScheduleSend = class(TThread)
  private
   procedure ScheduleSend;
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation

{ Important: Methods and properties of objects in VCL or CLX can only be used
  in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure TScheduleSend.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ TScheduleSend }

procedure TScheduleSend.Execute;
begin
  { Place thread code here }
end;

procedure TScheduleSend.ScheduleSend;
begin
//===============选择ScheduleSendData数据库中的数据进行发送==============//
procedure TSearchSend.SearchSendData;
var
 pRecNo,pTranType,Rec:Integer;
 pDestNo,pChargeNo,pSvcType,pContent,pSPNumber,pFeeValue,pResult:string;
begin
with frmSGIPDB do
 begin
  with qryScheduleSend do
   begin
    Close;
    Open;
   if RecordCount > 0 then
     begin
       qryScheduleSendData.First;
       while not Eof do
         begin
           pRecNo   :=Fields[0].Value;
           pDestNo  :=Trim(Fields[1].Text);
           pChargeNo:=Trim(Fields[2].Text);
           pSvcType :=Trim(Fields[3].Text);
           pSPNumber:=Trim(Fields[4].Text);
           pScheduleTime:=Trim(Fields[5].Text);
           pContent :=Trim(Fields[7].Text);

        with UpScheduleSendData do
         begin
           Close;
           Parameters.ParamByName('pRecNo').Value:=pRecNo;
           ExecSQL;
          end;
         if pTranType=1 then
           begin
            Inc(vRun);
            SingleSendList.Add(pResult);
            SingleSend:=True;
           end;
       if pTranType=0 then
        begin
         Inc(vRun,(Length(pDestNo) div 11));
         BatchSendList.Add(pResult);
         BatchSend:=True;
        end;
      frmServerDB.aqryScheduleSendData.Next;
    end;
  end;
  frmServerDB.aqryScheduleSendData.Close;
end;
end.