unit1.cpp

一个短信发送程序,先提供一个业务平台

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------




void __fastcall TForm1::Button1Click(TObject *Sender)
{
        try
        {
                String sql;
                Query1->Active=false;
                Query1->Close();
                Query1->SQL->Clear();
                sql = "select ID 序号,userid as 指令,business as 回复语句  from sj114";
                Query1->SQL->Text = sql;
                Query1->Active=true;

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


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

void __fastcall TForm1::Button2Click(TObject *Sender)
{
         try
        {
                String sql,sql1;
                String Mobile=Edit1->Text;
                String CardNumber=Edit2->Text;
                String DateS=DateTimePicker1->Date.FormatString("yyyy-mm-dd");
                Mobile=Mobile.Trim();
                CardNumber=CardNumber.Trim();
               
                sql = "select top 1000 ID as 序号,sj as 手机号码,LoginName as 姓名,sex as 性别,CardNumber as 卡号,usergroup as 地区,JIfen as 积分,insertdate as 注册日期,address as 地址 from sjuser where sj='" + Mobile + "' or CardNumber='" +CardNumber+ "' or (Insertdate >= '" +DateS+ " 00:00:00' and Insertdate < '" +DateS+ " 23:59:59') order by insertdate desc";
                sql1 = "select count(*) as sub  from sjuser where sj='" + Mobile + "' or CardNumber='" +CardNumber+ "' or (Insertdate >= '" +DateS+ " 00:00:00' and Insertdate < '" +DateS+ " 23:59:59')";
                ShowCount(sql1);
                Query1->Close();
                Query1->SQL->Clear();
                Query1->SQL->Text = sql;
                //Query1->ExecSQL();
                Query1->Active=true;
        }
        catch(const Exception &E)
        {
                AnsiString str8=E.Message;
                Memo1->Lines->Add(str8);
        }
}
//---------------------------------------------------------------------------


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

void __fastcall TForm1::Button4Click(TObject *Sender)
{
        String usergroup=ComboBoxEx2->Text;
        ShowInfo(usergroup);
}
//---------------------------------------------------------------------------





void __fastcall TForm1::Button5Click(TObject *Sender)
{
        Memo1->Lines->Clear();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button3Click(TObject *Sender)
{
     String Str=Memo1->Lines->Text;
     String Mobile;
     String Stemp=Edit3->Text;
     Stemp=Stemp.Trim();
     String dateS;
     String usergroup=ComboBoxEx2->Text;
     if (CheckBox1->Checked==true)
     {
        dateS = Edit4->Text;
     }
     else
     {
        dateS = GetLocalTime();
     }
     if (Stemp=="")
     {
        MessageBox(NULL,"短信内容不能为空","短信发送",MB_OK);
     }
     else
     {
        if (Str!="")
        {
                int indx = Str.Pos("\r\n");
                while(indx>0 && Str!="\r\n")
                {
                        Mobile=Str.SubString(0,indx-1);
                        Str=Str.SubString(indx+2,Str.Length());
                        InToMT(Mobile,dateS);
                        indx = Str.Pos("\r\n");
                }
                Memo1->Lines->Clear();
        }
        try
        {
                String sql,sql1;
                String sex=ComboBox1->Text.Trim();
                String Beg=Edit5->Text;
                String End=Edit6->Text;
                usergroup=usergroup.Trim();
                Beg=Beg.Trim();
                End=End.Trim();
                
                sql = "select  ID,sj from sjuser where 1=1 ";
                sql1= "select count(*) as sub  from sjuser where 1=1 ";

               if (usergroup!="全部")
                {
                        sql += " and usergroup like '"+usergroup+"%'";
                        sql1 += " and usergroup like '"+usergroup+"%'";
                }
                if (CheckBox2->Checked==true && Beg!="" && End!="")
                {
                        sql += " and ID>="+Beg+" and ID<="+End;
                        sql1 += " and ID>="+Beg+" and ID<="+End;
                }
                if(sex!="不限")
                {
                        sql += " and Sex='"+ sex +"'";
                        sql1 += " and Sex='"+ sex +"'";
                }

                sql +=" order by insertdate desc";
                ShowCount(sql1);
                Query3->Close();
                Query3->SQL->Clear();
                Query3->SQL->Text = sql;
                Query3->Active=true;
                while (!Query3->Eof)
                {
                        Mobile=Query3->FieldByName("sj")->AsString;
                        InToMT(Mobile,dateS);
                        Query3->Next();
                }

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

        MessageBox(NULL,"发送成功","发送成功",MB_OK);

      }

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


void __fastcall TForm1::InToMT(String Mobile,String dateS)
{
        String sql;
        String Stemp=Edit3->Text;
        Stemp=Stemp.Trim();
        try
        {
                String sql;
                Query2->Close();
                Query2->SQL->Clear();
                sql = "insert into sjmt(sj,sms,spnumber,insertdate) values('"+Mobile+"','"+Stemp+"','09166','"+dateS+"')";
                        Query2->SQL->Text = sql;
                        Query2->ExecSQL();
        }
        catch(const Exception &E)
        {
                AnsiString str8=E.Message;
                Memo1->Lines->Add(str8);
        }
}
//---------------------------------------------------------------------------
String __fastcall TForm1::GetLocalTime()
{
   AnsiString DateTmp = DateToStr(Date());
   AnsiString TimeTmp = TimeToStr(Time());
   String date;
   date = DateTmp+" "+TimeTmp;
   return date;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
   String usergroup=ComboBoxEx1->Text;
   ShowInfo(usergroup);
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button7Click(TObject *Sender)
{
        AnsiString DateTmp = Now();
        String date=DateTmp;
        Edit4->Text=date;
        Edit4->Enabled=true;        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ShowInfo(String usergroup)
{
        try
        {
                String sql,sql1;
                usergroup=usergroup.Trim();
                if (usergroup=="全部")
                {
                        sql = "select top 1000 ID as 序号,sj as 手机号码,LoginName as 姓名,sex as 性别,CardNumber as 卡号,usergroup as 地区,JIfen as 积分,insertdate as 注册日期,address as 地址 from sjuser order by insertdate desc";
                        sql1 = "select count(*) as sub  from sjuser";
                }
                else
                {
                        sql = "select top 1000 ID as 序号,sj as 手机号码,LoginName as 姓名,sex as 性别,CardNumber as 卡号,usergroup as 地区,JIfen as 积分,insertdate as 注册日期,address as 地址 from sjuser where usergroup like '"+usergroup+"%' order by insertdate desc";
                        sql1 = "select count(*) as sub  from sjuser  where usergroup like '"+usergroup+"%'";
                }
                ShowCount(sql1);
                Query1->Close();
                Query1->SQL->Clear();

                
                Query1->SQL->Text = sql;
                Query1->Active=true;

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

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


void __fastcall TForm1::ShowCount(String sql)
{
        try
        {
                String Conut,Msg;
                Query2->Close();
                Query2->SQL->Clear();
                Query2->SQL->Text = sql;
                Query2->Active=true;
                Conut=Query2->FieldByName("sub")->AsString;
                Msg= "   查询记录总共为:"+Conut+"条";
                StatusBar1->Panels->Items[1]->Text= Msg;

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

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


void __fastcall TForm1::FormCreate(TObject *Sender)
{
          DateTimePicker1->DateTime = Now();
}
//---------------------------------------------------------------------------