mainprofile.pas.~559~

自助公交信息短信服务平台

procedure TForm1.FormCreate(Sender:TObject);
var s1:string;
    tempi:integer;
begin
    tempi:=1;
     rowofgrid1:=1;
    rowofgrid2:=1;
     rowofgrid3:=1;
    selectg1:=0;
    selectg2:=0;
    selectg3:=0;
    selectg1c:=0;
    selectg2c:=0;
    selectg3c:=0;
    searchedpos:=1;
with StringGrid1 do
begin

Cells[0,0]:='电话号码';
Cells[1,0]:='      短信内容  ';
Cells[2,0]:='定时日期';
Cells[3,0]:='定时时间';
Cells[4,0]:='制作日期';
Cells[5,0]:='制作时间';
Cells[6,0]:='写信人';
Cells[7,0]:='处理状态';
s1:='sm2send.txt';
readfromfiles(s1);
end;
with StringGrid2 do
begin

Cells[0,0]:='电话号码';
Cells[1,0]:='  姓名 ';
Cells[2,0]:='电话组';
Cells[3,0]:='服务级别';
Cells[4,0]:='累计服务次数';
end;
with StringGrid3 do
begin

Cells[0,0]:='发信人号码';
Cells[1,0]:=' 姓名  ';
Cells[2,0]:='电话组';
Cells[3,0]:='短信内容';
Cells[4,0]:='格式';
Cells[5,0]:='收信日期';
Cells[6,0]:='收信时间';
Cells[7,0]:='处理标志';
end;
statusbar2.Panels[5].Text:=datetostr(date());
//getstringgrid1(s1,tempi);
//statusbar2.Panels[6].Text:=timetostr(time());
//init the buslines here
for tempi:=1 to 220 do
begin
    buslines[tempi]:=inttostr(tempi)+' 路尚未开通';

end;
for tempi:=1 to 20 do
begin
    searchedrowofgrid3[tempi]:=1;
end;
//
  s1:='gj.txt';
readfromfiles(s1);
//
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  res:integer;
begin

  initstringgrid;
  Label1.Caption := '正在启动....';
  Label1.Refresh;
  res := InfoDataComOpen;

  if res = 0 then
    begin
         ShowMessage('启动成功');
        Label1.Caption :='启动成功';
         Label1.Refresh;
        //启动线程
        TSendThread.Create(false);
       TWorkThread.Create(false);
    end
  else
   case res of
      1: begin
    showmessage('系统已经启动');
    Label1.Caption := '启动失败 原因 系统已经启动了';
    end;
    2..3:
    begin
    ShowMessage('启动失败:'+IntToStr(res)+'短信中心号码未定');
    Label1.Caption := '启动失败 原因 短信中心号码未定';
    end;
    4: begin
    showmessage('启动失败'+Inttostr(res)+'硬件错误' );
    Label1.Caption := '启动失败 原因 硬件错误';
    end;
    end;
    Label1.Refresh; 
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
var iclose:integer;     //for close the mc devices
begin
  {int  InfoDataComClose( )
返回值
0—关闭成功
}
iclose:=InfoDataComClose();
if(iclose<>0)    then
begin
showmessage('不能关闭');
end
else
begin
Label1.Caption:='关闭成功';
end;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin       //直接关闭系统，先关闭硬件设备
    InfoDataComClose();
    Close();
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
CheckBox1.Enabled:=true;
ComboBox1.Enabled:=true;
 //此处加入日期和时间的选择
end;

procedure TForm1.Button1Click(Sender: TObject);
var            //发送到发件箱，具体的发送由线程来负责
res:integer;
tempi:integer;
begin
    
    If Length(Trim(memo1.Text))  <= 0 Then begin
        ShowMessage( '发送信息不能为空');
        Exit;
    end;
    if rowofgrid2 =1
    then begin
    showmessage('请添加发送对象');
    Exit;
    end;
   { Label1.Caption := '正在发送....';
    Label1.Refresh;
    str := Trim(EditMno.Text) + '|' + Trim(EditMsg.Text);
    res := InfoDataComSend(PChar(str));
    If res = 0 Then
        ShowMessage('发送成功')
    Else
        ShowMessage('失败:'+IntToStr(res));
    Label1.Caption := '';  }
   ////////////

    tempi:=1;
     while tempi<rowofgrid2 do
     begin
     with stringgrid2 do
     begin
      setofstringgrid1[1]:= Cells[0,tempi];
      setofstringgrid1[2]:=Trim(memo1.Text);
      //3-6未定制日期和实际日期时间
      setofstringgrid1[3]:=datetostr(date());
       setofstringgrid1[4]:=datetostr(time());
       setofstringgrid1[5]:=datetostr(date());
       setofstringgrid1[6]:=datetostr(time());
     setofstringgrid1[7]:=Cells[1,tempi];
     setofstringgrid1[8]:='未处理';
     insertstringgrid1();
     tempi:=tempi+1;
     end;
     end;//end while
    {sendstr:='13869113249'+'|'+'this sm is form scsc smscenter ';
    res := InfoDataComSend(PChar(sendstr));
    If res = 0 Then
        ShowMessage('发送成功')
    Else
         //0 —发送成功
        //    -1—MC未启动
       //   -2—MC忙
       //   -3—发送失败

        ShowMessage('失败:'+IntToStr(res));
    Label1.Caption := '';  }


end;

procedure TForm1.Button11Click(Sender: TObject);
var s,s1:string;
i,j,k:integer;
begin
{serarch for the spcial callcode's sm}
s1:=Trim(Edit1.Text);
k:=1;
with stringgrid3 do
begin
 for i:=1 to rowofgrid3 do
 begin
 s:=Trim(Cells[0,i]);
 if CompareText(s,s1)=0
   then
   begin
   searchedrowofgrid3[k]:=i;
   inc(k);
   end;
 end;
end;
//show the first
 //StringGrid3SelectCell(Form1,1,searchedrowofgrid3[1],true);
 searchedpos:=1;
  with Stringgrid3 do
     begin
    Edit2.Text:=Trim(Cells[0,searchedpos]);
    Edit3.Text:=Trim(Cells[1,searchedpos]);
    Edit4.Text:=Trim(Cells[2,searchedpos]);
    Edit5.Text:=Trim(Cells[4,searchedpos]);
    Edit6.Text:=Trim(Cells[5,searchedpos]);
    Edit7.Text:=Trim(Cells[6,searchedpos]);
    s:=Trim(Cells[7,searchedpos]);
    CheckBox2.Checked:=false;
    if(AnsiCompareText(s,'已处理')=0)
    then
    CheckBox2.Checked:=true;
    Memo2.Text:=Trim(Cells[3,searchedpos]);
    end;
end;

procedure TForm1.Button6Click(Sender: TObject);
var s:string;
begin
{next sm of the special}
inc(searchedpos);
//StringGrid3SelectCell(Form1,1,searchedrowofgrid3[searchedpos],true);
  if searchedpos<rowofgrid3 then
   with Stringgrid3 do
     begin
    Edit2.Text:=Trim(Cells[0,searchedpos]);
    Edit3.Text:=Trim(Cells[1,searchedpos]);
    Edit4.Text:=Trim(Cells[2,searchedpos]);
    Edit5.Text:=Trim(Cells[4,searchedpos]);
    Edit6.Text:=Trim(Cells[5,searchedpos]);
    Edit7.Text:=Trim(Cells[6,searchedpos]);
    s:=Trim(Cells[7,searchedpos]);
    CheckBox2.Checked:=false;
    if(AnsiCompareText(s,'已处理')=0)
    then
    CheckBox2.Checked:=true;
    Memo2.Text:=Trim(Cells[3,searchedpos]);
    end;
end;

procedure TForm1.Button7Click(Sender: TObject);
var s:string;
begin
{formor sm}
searchedpos:=searchedpos-1;
//StringGrid3SelectCell(Form1,1,searchedrowofgrid3[searchedpos],true);
  if searchedpos>0 then
   with Stringgrid3 do
     begin
    Edit2.Text:=Trim(Cells[0,searchedpos]);
    Edit3.Text:=Trim(Cells[1,searchedpos]);
    Edit4.Text:=Trim(Cells[2,searchedpos]);
    Edit5.Text:=Trim(Cells[4,searchedpos]);
    Edit6.Text:=Trim(Cells[5,searchedpos]);
    Edit7.Text:=Trim(Cells[6,searchedpos]);
    s:=Trim(Cells[7,searchedpos]);
    CheckBox2.Checked:=false;
    if(AnsiCompareText(s,'已处理')=0)
    then
    CheckBox2.Checked:=true;
    Memo2.Text:=Trim(Cells[3,searchedpos]);
    end;
end;

procedure TForm1.Button8Click(Sender: TObject);
var s:string;
begin
{转发信息}
 s:=Trim(Edit2.Text);
 s:='转发来自 '+s+' 内容为';
Form3.Memo1.Text:=s+Memo2.Text;
Form3.ShowModal;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
{回复 }
if CheckBox2.Checked=true then
begin
showmessage('已经自动处理过了');
end
else
begin
Form2.Edit1.Text:=Edit2.Text;

Form2.ShowModal;

 end;
end;

procedure TForm1.Button10Click(Sender: TObject);

{delete sstringgrid 3 currrent sm}
 var i,j:integer;

begin
{delete the selected callcode}
 if selectg3=0 then
  begin
  showmessage('请选择要删除的行');
  end
  else
  begin
  with stringgrid3 do
  begin
   for i:=selectg3 to (rowofgrid3+1) do
   begin
      for j:=0 to 7 do
      begin
        Cells[j,i]:=Cells[j,i+1];
      end;
   end;//end for
  end;
  end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
{insert customs}
Form4.ShowModal;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
{input group of callcode}
end;

procedure TForm1.Button4Click(Sender: TObject);
var i,j:integer;

begin
{delete the selected callcode}
 if selectg2=0 then
  begin
  showmessage('请选择要删除的行');
  end
  else
  begin
  with stringgrid2 do
  begin
   for i:=selectg2 to (rowofgrid2+1) do
   begin
      for j:=0 to 5 do
      begin
        Cells[j,i]:=Cells[j,i+1];
      end;
   end;//end for
  end;
  end;

end;

procedure TForm1.Button5Click(Sender: TObject);
var
i,j:integer;
begin
{free the client stringgrid}
 
with StringGrid2 do
begin
 for i:=0 to ColCount-1 do
   for j:=0 to rowcount-1 do
   begin
     cells[i,j]:='';
end;
rowcount:=3;
end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 with   StringGrid1   do
      begin
         // if   (ACol   <>   0)   and   (ARow   <>   0)   then
          begin
              if   ARow     <>   0   then
              begin
               //   Canvas.Brush.Color   :=   clWhite;
               //   Canvas.FillRect(Rect);

               //    Canvas.TextOut(Rect.Left   +   2,   Rect.Top   +   2,   Cells[ACol,   ARow]);
               end;
         //     if  (selectg1<>0)  and (ARow=selectg1) and (ACol=selectg1c)
         //          then
         //     Canvas.Brush.Color:=clRed;
             // else
              //    Canvas.Brush.Color   :=   clGreen;
         //     Canvas.FillRect(Rect);
           //   Canvas.TextOut(Rect.Left   +   2,   Rect.Top   +   2,   Cells[ACol,   ARow]);
          end;

      end;

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
;{insert a client for the client grid}
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
  var memostr:string;
      callcode:string;


begin
with StringGrid1 do
begin
    if(ACol<>0)and(ARow<>0)then
    begin
        Canvas.Brush.Color:=clRed;
     //   Canvas.FillRect(Rect);
       // Canvas.TextOut(Rect.Left   +   2,   Rect.Top   +   2,   Cells[ACol,   ARow]);

        memostr:=Cells[1,ARow];
        callcode:=Cells[0,ARow];
        memo1.Text:=memostr;
        StringGrid2.Cells[0,1]:=Trim(callcode);
        selectg1:=ARow;
        selectg1c:=ACol;
    end;
end;
end;

procedure TForm1.StringGrid3SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
  var s:string;
  begin
   with Stringgrid3 do
     begin
    Edit2.Text:=Trim(Cells[0,ARow]);
    Edit3.Text:=Trim(Cells[1,ARow]);
    Edit4.Text:=Trim(Cells[2,ARow]);
    Edit5.Text:=Trim(Cells[4,ARow]);
    Edit6.Text:=Trim(Cells[5,ARow]);
    Edit7.Text:=Trim(Cells[6,ARow]);
    s:=Trim(Cells[7,ARow]);
    CheckBox2.Checked:=false;
    if(AnsiCompareText(s,'已处理')=0)
    then
    CheckBox2.Checked:=true;
    Memo2.Text:=Trim(Cells[3,ARow]);
    end;
    selectg3:=ARow;
    selectg3c:=ACol;
end;

procedure TForm1.StringGrid3DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with   StringGrid3   do
      begin
         // if   (ACol   <>   0)   and   (ARow   <>   0)   then
          begin
              if   ARow   >   0   then
                //  Canvas.Brush.Color   :=   clWhite;
                //   Canvas.FillRect(Rect);
                 //   Canvas.TextOut(Rect.Left   +   2,   Rect.Top   +   2,   Cells[ACol,   ARow]);

           //   if (ARow=selectg3)and(ACol=selectg3c) and (selectg3<>0) // and(ACol<8)
          //    then
             //      begin
           //        Canvas.Brush.Color:=clRed;
          //         Canvas.FillRect(Rect);
                   // Canvas.FloodFill();
           //        Canvas.TextOut(Rect.Left   +   2,   Rect.Top   +   2,   Cells[ACol,   ARow]);

            //       end;
              end;

      end;
end;

procedure TForm1.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
with stringgrid2 do
begin
    // if   ARow   >   0   then
                 // Canvas.Brush.Color   :=   clWhite;
                //    Canvas.FillRect(Rect);
                //   Canvas.TextOut(Rect.Left   +   2,   Rect.Top   +   2,   Cells[ACol,   ARow]);

//if (ARow=selectg2)and (ACol=selectg2c) and (selectg2<>0)
   //            then
    //          Canvas.Brush.Color:=clRed;
    //           Canvas.FillRect(Rect);
    //          Canvas.TextOut(Rect.Left   +   2,   Rect.Top   +   2,   Cells[ACol,   ARow]);
end;
end;

procedure TForm1.StringGrid2SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
selectg2:=ARow;
selectg2c:=ACol;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var s:string;
begin

;
end;

end.