serverdb.pas

SPServer.rar一个基于TCP/IP监听发送代码

unit ServerDB;

interface

uses
  Dialogs, DB, ADODB, SysUtils, Classes, DBClient, Provider;

type
  TfrmServerDB = class(TDataModule)
    ADOServerDB: TADOConnection;
    aSvcType: TADOTable;
    aqrSvcType: TADOQuery;
    aSvcContent: TADOQuery;
    aqrRegister: TADOQuery;
    aRegister: TADOTable;
    aDelRegister: TADOQuery;
    adeleteRegister: TADOStoredProc;
    aqrRegister1: TADOQuery;
    aRegCount: TADOQuery;
    aRegCountCOLUMN1: TIntegerField;
    atSvcContent: TADOTable;
    atLogin: TADOTable;
    aqLogin: TADOQuery;
    dsr1: TDataSource;
    dsr2: TDataSource;
    dsr3: TDataSource;
    dsrRegister: TDataSource;
    aqryRegisterPhone: TADOQuery;
    aUPSvcContent: TADOQuery;
    aUpdateTry: TADOQuery;
    aUpdateTryAll: TADOQuery;
    aInsertRegister: TADOStoredProc;
    aScheduleSendData: TADOTable;
    dsr4: TDataSource;
    aqryScheduleSendData: TADOQuery;
    aUpScheduleSendData: TADOQuery;
    aUSvcContent: TADOQuery;
    tblMessageLog: TADOTable;
    rqyMessageLog: TADOQuery;
    tblConnAddress: TADOTable;
    delConnAddress: TADOQuery;
    updConnAddress: TADOQuery;
    tblConnUnitName: TADOTable;
    tblConnUnitNameHand: TIntegerField;
    tblConnUnitNameUnitName: TStringField;
    delMessageLog: TADOQuery;
    delAllConnAddress: TADOQuery;
    tbResult: TADOTable;
    tbDeliver: TADOTable;
    tblConnAddressNetHandle: TIntegerField;
    tblConnAddressHand: TIntegerField;
    tblConnAddressIPAddress: TStringField;
    tblConnAddressDateTime: TDateTimeField;
    tblConnAddressUnitName: TStringField;
    tblSendMonthFee: TADOTable;
    qrySendMonthFee: TADOQuery;
    updSendMonthFee: TADOQuery;
    upLogin: TADOQuery;
    updSendMonthFeeAll: TADOQuery;
    tblTranClient: TADOTable;
    qryTranClient: TADOQuery;
    updTranClient: TADOQuery;
    qrytemp: TADOQuery;
    uptemp: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure ADOServerDBConnectComplete(Connection: TADOConnection;
      const Error: Error; var EventStatus: TEventStatus);
    procedure aRegisterAfterPost(DataSet: TDataSet);
    procedure aRegisterAfterDelete(DataSet: TDataSet);
    procedure ADOServerDBBeforeDisconnect(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmServerDB: TfrmServerDB;

implementation

uses SM_SP_Server, ServerDBT, SP_DLL;
{$R *.dfm}

procedure TfrmServerDB.DataModuleCreate(Sender: TObject);
begin
if ADOServerDB.Connected then
ADOServerDB.Connected:=False;
ADOServerDB.Connected:=True;
end;

procedure TfrmServerDB.ADOServerDBConnectComplete(Connection: TADOConnection;
  const Error: Error; var EventStatus: TEventStatus);
begin
 str_Out('数据库登陆成功!',1);
end;

procedure TfrmServerDB.aRegisterAfterPost(DataSet: TDataSet);
begin
frm_smServer.lRegCount.Caption:=IntToStr(aRegister.RecordCount);
end;

procedure TfrmServerDB.aRegisterAfterDelete(DataSet: TDataSet);
begin
frm_smServer.lRegCount.Caption:=IntToStr(aRegister.RecordCount);
end;

procedure TfrmServerDB.ADOServerDBBeforeDisconnect(Sender: TObject);
begin
str_Out('数据库已被断开!',1);
end;

end.