unit1.cpp

基于EMS的短信收发SP程序 主要实现短信的上行和下行,实际应用较高的稳定性

                                Query1->ExecSQL();

                    Query1->Close();
                    Query1->SQL->Clear();
                    sql = "delete from sjuser where sj='" + Mobile + "'";
                                Query1->SQL->Text = sql;
                                Query1->ExecSQL();


                }
        }
        catch(const Exception &E)
        {
                AnsiString str8=E.Message;
                Memo1->Lines->Add(str8);
        }
}


//---------------------------------------------------------------------------
void __fastcall TForm1::ReRecord(String Mobile,String First)
{
       try
        {
                String sql;
                String dateS;
                dateS = GetLocalTime();
                Query1->Close();
                Query1->SQL->Clear();
                sql = "select * from sjuser where sj='" + Mobile + "'";
                Query1->SQL->Text = sql;
                Query1->Active = true;
                if(!Query1->Eof)
                {
                }
                else
                {
                        Query1->Close();
                        Query1->SQL->Clear();
                        sql = "select * from sjuserqx where sj='" + Mobile + "'";
                        Query1->SQL->Text = sql;
                        Query1->Active = true;
                         if(!Query1->Eof)
                         {
                                String addr         =Query1->FieldByName("address")->AsString;
                                String usergroup    =Query1->FieldByName("usergroup")->AsString;
                                String LoginName    =Query1->FieldByName("LoginName")->AsString;
                                String CardNumber   =Query1->FieldByName("CardNumber")->AsString;
                                String JIfen        =Query1->FieldByName("JIfen")->AsString;
                                String Sex          =Query1->FieldByName("Sex")->AsString;

                                Query1->Close();
                                Query1->SQL->Clear();
                                sql = "insert into sjuser(sj,usergroup,LoginName,CardNumber,JIfen,Sex,address,insertdate) values('"+
                                        Mobile +"','"+ usergroup +"','"+ LoginName +"','"+ CardNumber +"','"+ JIfen +"','"+ Sex +"','"+ addr +"','"+dateS+"')";
                                        Query1->SQL->Text = sql;
                                        Query1->ExecSQL();

                         }
                         else
                         {
                                AddRecord(Mobile,First);
                         }
                }
        }
        catch(const Exception &E)
        {
                AnsiString str8=E.Message;
                Memo1->Lines->Add(str8);
        }
}





//---------------------------------------------------------------------------
void __fastcall TForm1::Find_User(String Mobile)
{

        try
        {
                String sql;
                Query1->Close();
                Query1->SQL->Clear();
                sql = "select top 1 * from sjuser where sj='" + Mobile + "'";
                Query1->SQL->Text = sql;
                Query1->Active = true;
                if (!Query1->Eof)
                {
                        Flag=1;
                        Address=Query1->FieldByName("address")->AsString;
                }
                else
                {
                        Flag=0;
                }
        }
        catch(const Exception &E)
        {
                AnsiString str8=E.Message;
                Memo1->Lines->Add(str8);
        }
}





//---------------------------------------------------------------------------


void __fastcall TForm1::AddRecord(String Mobile,String message)
{
        if (message == "0578" || message == "05781")
                message = "莲都区";
        else if (message == "05782")
                message = "青田县";
        else if (message == "05783")
                message = "缙云县";
        else if (message == "05784")
                message = "龙泉市";
        else if (message == "05785")
                message = "庆元县";
        else if (message == "05786")
                message = "云和县";
        else if (message == "05787")
                message = "景宁县";
        else if (message == "05788")
                message = "松阳县";
        else if (message == "05789")
                message = "遂昌县";
        else if (message == "05780")
                message = "学校";
       try
        {
                String sql;
                String dateS;
                dateS = GetLocalTime();
                Query1->Close();
                Query1->SQL->Clear();
                sql = "select * from sjuser where sj='" + Mobile + "'";
                Query1->SQL->Text = sql;
                Query1->Active = true;
                if (!Query1->Eof)
                {
                   Flag=0;
                }
                else
                {
                        Query1->Close();
                        Query1->SQL->Clear();
                        sql = "insert into sjuser(sj,usergroup,insertdate) values('"+ Mobile +"','"+ message +"','"+dateS+"')";
                                Query1->SQL->Text = sql;
                                Query1->ExecSQL();
                                Flag=1;
                }
        }
        catch(const Exception &E)
        {
                AnsiString str8=E.Message;
                Memo1->Lines->Add(str8);
        }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::UpRecord(String Mobile,String Name,String Addr)
{
        try
        {
                String sql;
                Query1->Close();
                Query1->SQL->Clear();
                sql = "update sjuser set LoginName='"+ Name +"',address='"+ Addr +"' where sj='" + Mobile + "'";
                        Query1->SQL->Text = sql;
                        Query1->ExecSQL();
        }
        catch(const Exception &E)
        {
                AnsiString str8=E.Message;
                Memo1->Lines->Add(str8);
        }
}

//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        String ID;
        String Mobile;
        String Stemp;
        String ServiceType = Edit8->Text;
        String SourceMobile = Edit7->Text;
        String InsertTime = Now();
         try
        {
                String sql;
                Query1->Close();
                Query1->SQL->Clear();
                sql = "select top 5 * from sjmt where insertdate<'" + InsertTime + "' order by insertdate desc";
                Query1->SQL->Text = sql;
                Query1->Active = true;
                while(!Query1->Eof)
                {
                        ID=Query1->FieldByName("ID")->AsString;
                        Mobile=Query1->FieldByName("sj")->AsString;
                        Stemp=Query1->FieldByName("sms")->AsString;
                        Mobile=Mobile.Trim();
                        Stemp=Stemp.Trim();
                        ServiceType=ServiceType.Trim();
                        AddHistory(Mobile,Stemp,SourceMobile,"mt");
                        Del_sjmt(ID);
                        Update_Jifen(Mobile);
                        Sleep (2000);
                        SendReturnMessage(Mobile, Stemp, "", ServiceType);

                        Query1->Next();
                }
        }
        catch(const Exception &E)
        {
                AnsiString str8=E.Message;
                Memo1->Lines->Add(str8);
        }

}
//---------------------------------------------------------------------------


void __fastcall TForm1::Del_sjmt(String ID)
{
       try
        {
                String sql;
                Query2->Close();
                Query2->SQL->Clear();
                sql = "delete sjmt where ID=" + ID;
                        Query2->SQL->Text = sql;
                        Query2->ExecSQL();
        }
        catch(const Exception &E)
         {
                AnsiString str8=E.Message;
                Memo1->Lines->Add(str8);
        }
}

//---------------------------------------------------------------------------
void __fastcall TForm1::AddHistory(String Mobile,String Sms,String SpNumber,String MoMt)
{
        try
        {
                String sql;
                String dateS;
                dateS = GetLocalTime();
                Query2->Close();
                Query2->SQL->Clear();
                sql = "insert into sjhistory(sj,sms,spnumber,momt,insertdate) values('"+
                        Mobile +"','"+ Sms +"','"+ SpNumber +"','"+ MoMt +"','"+ dateS +"')";
                        Query2->SQL->Text = sql;
                        Query2->ExecSQL();
        }
        catch(const Exception &E)
        {
                AnsiString str8=E.Message;
                Memo1->Lines->Add(str8);
        }
}

//---------------------------------------------------------------------------


void __fastcall TForm1::Update_SS(String Mobile)
{
       try
        {
                String sql;
                Query2->Close();
                Query2->SQL->Clear();
                sql = "update sjuser set ss='ss' where sj='" + Mobile + "'";
                        Query2->SQL->Text = sql;
                        Query2->ExecSQL();
        }
        catch(const Exception &E)
         {
                AnsiString str8=E.Message;
                Memo1->Lines->Add(str8);
        }
}

//---------------------------------------------------------------------------


void __fastcall TForm1::Update_Jifen(String Mobile)
{
       try
        {
                String sql;
                Query2->Close();
                Query2->SQL->Clear();
                sql = "update sjuser set jifen=jifen+1 where sj='" + Mobile + "'";
                        Query2->SQL->Text = sql;
                        Query2->ExecSQL();
        }
        catch(const Exception &E)
         {
                AnsiString str8=E.Message;
                Memo1->Lines->Add(str8);
        }
}