sQuery := 'INSERT INTO TB_OPERATORI ( ' +
'ID_OPERATORE, ' +
'ID_INCARICO,' +
'COGNOME,' +
'NOME,' +
'TESSERINO_NR,' +
'ID_AREA,' +
'DIRITTI_ACCESSO,' +
'USERNAME,' +
'PASSWORD,' +
'NEWPASSWORD,' +
'DATAPWD,' +
'DURATA,' +
'DATAASSUNZIONE,' +
'ID_QUALIFICA,' +
'DATAQUALIFICA,' +
'EMAIL' + ')' +
'VALUES(' +
':IdOp, ' +
':IdInc, ' +
':Cognome, ' +
':Nome, ' +
':Tessera, ' +
':IdArea, ' +
':Diritti, ' +
':User, ' +
':Passw, ' +
':NewPassw, ' +
':DataPwd, ' +
':Durata, ' +
':DataAss, ' +
':IdQual, ' +
':DataQlf, ' +
':Email) ';
Sql_Operatori.Close;
Sql_Operatori.SQL.Clear;
Sql_Operatori.SQL.Add(sQuery);
Sql_Operatori.Params.ParamByName('IdOp').AsInteger := 9;
Sql_Operatori.Params.ParamByName('IdInc').AsInteger := 1;
Sql_Operatori.Params.ParamByName('Cognome').AsString := 'aaa';
Sql_Operatori.Params.ParamByName('Nome').AsString := 'bbbb';
Sql_Operatori.Params.ParamByName('Tessera').AsString := 'acccc';
Sql_Operatori.Params.ParamByName('IdArea').AsInteger := 1;
Sql_Operatori.Params.ParamByName('Diritti').AsString := 'xxx';
Sql_Operatori.Params.ParamByName('User').AsString := 'usexxx';
Sql_Operatori.Params.ParamByName('Passw').AsString := 'pwdxxx';
Sql_Operatori.Params.ParamByName('NewPassw').AsString := 'newpwdxxx';
Sql_Operatori.Params.ParamByName('DataPwd').AsDate := StrToDate('11/03/2013');
Sql_Operatori.Params.ParamByName('Durata').AsInteger := 10;
Sql_Operatori.Params.ParamByName('DataAss').AsDate := StrToDate('12/03/2013');
Sql_Operatori.Params.ParamByName('IdQual').AsDate := StrToDate('11/03/2013');
Sql_Operatori.Params.ParamByName('DataQlf').AsDate := StrToDate('12/03/2013');
Sql_Operatori.Params.ParamByName('Email').AsString := 'pippo@pippo.it';
Result := True;
SQL_Operatori.SQL.Text := sQuery;
try
SQL_Operatori.ExecSQL;
frm_ConnessioneFB.EsegueTransazione;
except
Result := False;
end;