srvmainunit.~h

使用与中国移动CMPP2.0的短信网关

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

#ifndef srvMainUnitH
#define srvMainUnitH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <ToolWin.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ImgList.hpp>
#include "wwdbedit.hpp"
#include <Mask.hpp>
#include <Dialogs.hpp>

#include <syncobjs.hpp>     //用于同步操作

#include "Wwdbgrid.hpp"
#include "Wwdbigrd.hpp"
#include <Grids.hpp>
#include "Wwdbcomb.hpp"
#include "Wwdotdot.hpp"
#include <ScktComp.hpp>

//---------------------------------------------------------------------------
class TsmsSrvForm : public TForm
{
__published:	// IDE-managed Components
     TPanel *Panel1;
     TCoolBar *CoolBar1;
     TToolBar *ToolBar1;
     TToolButton *ToolButton1;
     TToolButton *tlbLook;
     TToolButton *tlbLookMiss;
  TImageList *ImageList1;
  TDatabase *DB1;
  TPageControl *PC1;
  TTabSheet *TabSheet1;
  TTabSheet *TabSheet2;
  TTabSheet *TabSheet3;
  TMemo *MOutDat;
  TMemo *MInDat;
  TSplitter *Splitter1;
  TPanel *PnlSingle;
  TLabel *Label1;
  TMemo *MsgContent;
  TLabel *Label3;
  TButton *BSubmit;
  TButton *BClose;
  TTimer *TimerRe;
  TPanel *Panel2;
  TButton *BtClearDat;
  TCheckBox *CBOut;
  TCheckBox *CBIn;
  TButton *BtSave;
  TSaveDialog *SD1;
  TQuery *PubExe;
  TQuery *Query1;
  TDataSource *DataSource1;
  TwwDBGrid *wwDBGrid1;
  TTabSheet *TabSheet4;
  TMemo *MSysLog;
  TPanel *Panel3;
  TCheckBox *CBSysInf;
  TButton *BtClearLog;
  TButton *BtSaveLog;
  TQuery *QryMis;
  TQuery *QryUser;
  TTimer *TimerProc;
  TQuery *PubUserExe;
  TQuery *QryPutMis;
  TQuery *ExeDelv;
  TMaskEdit *MobileNumber;
  TTabSheet *TabSheet5;
  TPanel *Panel4;
  TButton *BClearSysErr;
  TButton *BSaveSysErr;
  TMemo *MSysErr;
  TLabel *Label2;
  TToolButton *tlbBackup;
  TToolButton *ToolButton2;
        TStringField *Query1UserCode;
        TStringField *Query1Mobile;
        TStringField *Query1Message;
        TMemo *Memo1;
  void __fastcall ToolButton1Click(TObject *Sender);
  void __fastcall tlbLookClick(TObject *Sender);
  void __fastcall tlbLookMissClick(TObject *Sender);
  void __fastcall FormCreate(TObject *Sender);
  void __fastcall BSubmitClick(TObject *Sender);
  void __fastcall BCloseClick(TObject *Sender);
  void __fastcall TimerReTimer(TObject *Sender);
  void __fastcall CBInClick(TObject *Sender);
  void __fastcall CBOutClick(TObject *Sender);
  void __fastcall BtClearDatClick(TObject *Sender);
  void __fastcall BtSaveClick(TObject *Sender);
  void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
  void __fastcall BtClearLogClick(TObject *Sender);
  void __fastcall BtSaveLogClick(TObject *Sender);
  void __fastcall CBSysInfClick(TObject *Sender);
  void __fastcall TimerProcTimer(TObject *Sender);
  void __fastcall BClearSysErrClick(TObject *Sender);
  void __fastcall BSaveSysErrClick(TObject *Sender);
  void __fastcall tlbBackupClick(TObject *Sender);
private:	        // User declarations

  int PorcRT;           //处理任务返回值
  int SCFlag;           // Sokcet命令状态
  String MSeqNum;       //小灵通号码  

  //启动服务
  int __fastcall StartService();
  //收包处理函数
  int __fastcall ProcReceive();
  //执行任务
  int __fastcall ProcSendMsg();
  //处理各种提示信息
  //InfType : 0:系统提示信息 1 :输出信息  2:输入信息
  void __fastcall OutAllInf(int InfType,String str);
  //后台sql语句执行过程
  int __fastcall QueryOpen(TQuery *Qry,String *s);
  //执行 Sql语句(删除、插入)
  int __fastcall QueryExe(TQuery *Qry,String *s);
  //字符串替换函数，将一个单引号替换为一个双引号
  String __fastcall Replace(String InStr);


public:		// User declarations

  __fastcall TsmsSrvForm(TComponent* Owner);


};
//---------------------------------------------------------------------------
extern PACKAGE TsmsSrvForm *smsSrvForm;
//---------------------------------------------------------------------------
#endif