📄 mainprofile.pas.~631~

📁 自助公交信息短信服务平台
💻 ~631~
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
      begin
       insertstringgrid1();
        stringgrid3.Cells[7,tempi]:='已处理';
        smcontent:=' ';
       // if length(Trim(sm))>0 then
       if comparetext(sm,'$')<>0
       then
           begin
             setofstringgrid1[1]:=stringgrid3.Cells[0,tempi];
             setofstringgrid1[2]:=sm;
             insertstringgrid1();
              stringgrid3.Cells[7,tempi]:='已处理';
         sm:='$';
           end;
           if comparetext(sm1,'$')<>0
       then
           begin
             setofstringgrid1[1]:=stringgrid3.Cells[0,tempi];
             setofstringgrid1[2]:=sm1;
             insertstringgrid1();
              stringgrid3.Cells[7,tempi]:='已处理';
         sm1:='$';
           end;
       end;
    inc(tempi);
    end;

           }
    {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) do
   begin
      for j:=0 to 7 do
      begin
        Cells[j,i]:=Cells[j,i+1];
      end;
   end;//end for
   rowofgrid3:=rowofgrid3-1;
  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) do
   begin
      for j:=0 to 5 do
      begin
        Cells[j,i]:=Cells[j,i+1];
      end;
   end;//end for
   rowofgrid2:=rowofgrid2-1;
  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;
rowofgrid2:=1;
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
Button2Click(Sender);{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;

procedure TForm1.N5Click(Sender: TObject);
begin
   SpeedButton1Click(Sender);
    //procedure SpeedButton2Click(Sender: TObject);
   // procedure SpeedButton1Click(Sender: TObject);
end;

procedure TForm1.N6Click(Sender: TObject);
begin
    SpeedButton2Click(Sender);
end;

procedure TForm1.N7Click(Sender: TObject);
begin
   SpeedButton3Click(Sender);
end;

end.
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -