Devart Forums

Code: Select all

      
var SQL1  : TMyQuery;
...
      SQL1.SQL.Clear;
      SQL1.SQL.Add(' INSERT bla-bla-bla');
      try
        SQL1.Execute;
        SQL1.Connection.ApplyUpdates;
        except on E: EMyError do
            Log_Error('['+SessionId+'] '+ E.Message);
      end; {try}

Code: Select all

SQL1.SQL.Add('INSERT INTO vcalls VALUES (');
      SQL1.SQL.Add('"'+SessionId+'",');          
      SQL1.SQL.Add('"'+Phone+'",');              
      SQL1.SQL.Add('"'+StrConnectTime+'",');     
      SQL1.SQL.Add('0,');                        
      SQL1.SQL.Add(IntToStr(CardId)+',');       
      SQL1.SQL.Add('0,');                        
      SQL1.SQL.Add(E1No+',');                    
      SQL1.SQL.Add(SlotNo+',');                 
      SQL1.SQL.Add('"'+DisconnectCause+'",');    
      SQL1.SQL.Add(IntToStr(VoiceQuality)+',');  
      SQL1.SQL.Add(IntToStr(NASId));             
      SQL1.SQL.Add(')');

Code: Select all

CREATE DATABASE `radius`;

#
# Structure for the `cards` table : 
#

CREATE TABLE `cards` (
  `Id` smallint(6) unsigned NOT NULL auto_increment,
  `E1` tinyint(3) unsigned NOT NULL default '1',
  `Slot` tinyint(3) unsigned NOT NULL default '1',
  `Phone` char(12) default NULL,
  `Code` char(4) default NULL,
  `Seconds` int(10) unsigned NOT NULL default '0',
  `Funds` float unsigned NOT NULL default '0',
  `RestFunds` float NOT NULL default '0',
  `PlanId` smallint(5) unsigned NOT NULL default '1',
  `Valid` tinyint(1) NOT NULL default '1',
  `NormalCalls` bigint(20) unsigned NOT NULL default '0',
  `FailedCalls` bigint(20) unsigned NOT NULL default '0',
  `Comment` char(3) default NULL,
  PRIMARY KEY  (`Id`),
  UNIQUE KEY `PhoneNo` (`Phone`),
  KEY `SlotNo` (`Slot`),
  KEY `Seconds` (`Seconds`),
  KEY `Funds` (`Funds`),
  KEY `RestFunds` (`RestFunds`)
) TYPE=InnoDB;

#
# Structure for the `nases` table : 
#

CREATE TABLE `nases` (
  `Id` tinyint(3) unsigned NOT NULL auto_increment,
  `IP` varchar(15) NOT NULL default '',
  `Comments` varchar(20) default NULL,
  PRIMARY KEY  (`Id`),
  UNIQUE KEY `IP` (`IP`)
) TYPE=InnoDB;

#
# Structure for the `plans` table : 
#

CREATE TABLE `plans` (
  `id` smallint(5) unsigned NOT NULL auto_increment,
  `Name` varchar(30) NOT NULL default '',
  `MoneyLimit` float(6,4) NOT NULL default '1.0000',
  `BonusMinutes` smallint(5) unsigned NOT NULL default '0',
  `ConnectRate` float(6,4) unsigned NOT NULL default '0.0000',
  `FirstMinuteRate` float(6,4) unsigned NOT NULL default '0.0000',
  `NextMinuteRate` float(6,4) unsigned NOT NULL default '0.0000',
  `SMSGate` varchar(30) NOT NULL default 'sms.kyivstar.net',
  PRIMARY KEY  (`id`,`Name`),
  UNIQUE KEY `Name` (`Name`)
) TYPE=InnoDB;

#
# Structure for the `vcalls` table : 
#

CREATE TABLE `vcalls` (
  `CiscoId` varchar(17) NOT NULL default '',
  `Tel` varchar(12) NOT NULL default '',
  `Start` datetime NOT NULL default '0000-00-00 00:00:00',
  `Duration` smallint(5) unsigned NOT NULL default '0',
  `CardId` smallint(5) unsigned NOT NULL default '0',
  `Price` float default NULL,
  `E1` tinyint(3) unsigned NOT NULL default '0',
  `Slot` tinyint(3) unsigned NOT NULL default '0',
  `Cause` char(2) default NULL,
  `Quality` tinyint(3) unsigned default NULL,
  `NasId` tinyint(3) unsigned NOT NULL default '0',
  PRIMARY KEY  (`CiscoId`),
  UNIQUE KEY `CiscoId` (`CiscoId`),
  KEY `CardId` (`CardId`),
  KEY `E1` (`E1`),
  KEY `Slot` (`Slot`),
  KEY `Duration` (`Duration`),
  KEY `Price` (`Price`),
  KEY `Start` (`Start`),
  KEY `Tel` (`Tel`),
  KEY `NasId` (`NasId`),
  FOREIGN KEY (`CardId`) REFERENCES `radius.cards` (`Id`),
  FOREIGN KEY (`NasId`) REFERENCES `radius.nases` (`Id`)
) TYPE=InnoDB;