david
fff1b2a4dc
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.SDAC@3 6f543ec7-021b-7e4c-98c9-62eafc7fb9a8
1172 lines
34 KiB
ObjectPascal
1172 lines
34 KiB
ObjectPascal
unit Main;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
|
Dialogs, ExtCtrls, Chart, StdCtrls, TeEngine, TeeProcs, Debug, Series,
|
|
MemDS, DBAccess, MSAccess, OLEDBAccess, OLEDBC, SdacVcl,
|
|
Db, DBTables, ADODB, DBXpress, SqlExpr, FMTBcd, DBClient, Provider;
|
|
|
|
type
|
|
TfmMain = class(TForm)
|
|
MSConnection: TMSConnection;
|
|
MSQuery: TMSQuery;
|
|
scCreate: TMSSQL;
|
|
scDrop: TMSSQL;
|
|
Chart: TChart;
|
|
Tollbar: TPanel;
|
|
btFetchTest: TButton;
|
|
meResult: TMemo;
|
|
btConnect: TButton;
|
|
btDisconnect: TButton;
|
|
Database: TDatabase;
|
|
BDEQuery: TQuery;
|
|
btMasterDetailTest: TButton;
|
|
btSPCallTest: TButton;
|
|
cbSDAC: TCheckBox;
|
|
cbBDE: TCheckBox;
|
|
cbADO: TCheckBox;
|
|
edFetchRows: TEdit;
|
|
Label1: TLabel;
|
|
btCreate: TButton;
|
|
btDrop: TButton;
|
|
ADOConnection: TADOConnection;
|
|
ADOQuery: TADOQuery;
|
|
cbMark: TCheckBox;
|
|
MSQuery1: TMSQuery;
|
|
BDEQuery1: TQuery;
|
|
ADOQuery1: TADOQuery;
|
|
ADOStoredProc: TADOStoredProc;
|
|
MSStoredProc: TMSStoredProc;
|
|
BDEStoredProc: TStoredProc;
|
|
lbSDAC: TLabel;
|
|
lbBDE: TLabel;
|
|
lbADO: TLabel;
|
|
MSSQL: TMSSQL;
|
|
cbdbExpress: TCheckBox;
|
|
lbdbExpress: TLabel;
|
|
BorlandSQLConnection: TSQLConnection;
|
|
BorlandSQLQuery: TSQLQuery;
|
|
BorlandSQLQuery1: TSQLQuery;
|
|
BorlandSQLStoredProc: TSQLStoredProc;
|
|
btnMultiExecuting: TButton;
|
|
Bevel1: TBevel;
|
|
Bevel2: TBevel;
|
|
btnInsertPost: TButton;
|
|
MSTable: TMSTable;
|
|
BDETable: TTable;
|
|
ADOTable: TADOTable;
|
|
Splitter1: TSplitter;
|
|
DataSetProvider1: TDataSetProvider;
|
|
BorlandClientDataSet: TClientDataSet;
|
|
BorlandSQLTable: TSQLTable;
|
|
Bevel3: TBevel;
|
|
cbResultLog: TCheckBox;
|
|
Bevel4: TBevel;
|
|
Bevel5: TBevel;
|
|
cbdbExpSda: TCheckBox;
|
|
lbdbExpSda: TLabel;
|
|
CrLabSQLConnection: TSQLConnection;
|
|
CrLabSQLQuery: TSQLQuery;
|
|
Series2: TLineSeries;
|
|
Series3: TLineSeries;
|
|
Series4: TLineSeries;
|
|
Series5: TLineSeries;
|
|
CrLabSQLQuery1: TSQLQuery;
|
|
CrLabSQLTable: TSQLTable;
|
|
CrLabClientDataSet: TClientDataSet;
|
|
DataSetProvider2: TDataSetProvider;
|
|
Series1: TLineSeries;
|
|
CrLabSQLStoredProc: TSQLStoredProc;
|
|
scCreate2: TMSSQL;
|
|
MSTable1: TMSTable;
|
|
btEditPost: TButton;
|
|
procedure btConnectClick(Sender: TObject);
|
|
procedure btDisconnectClick(Sender: TObject);
|
|
procedure btFetchTestClick(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure edFetchRowsExit(Sender: TObject);
|
|
procedure btCreateClick(Sender: TObject);
|
|
procedure btDropClick(Sender: TObject);
|
|
procedure cbMarkClick(Sender: TObject);
|
|
procedure btMasterDetailTestClick(Sender: TObject);
|
|
procedure btSPCallTestClick(Sender: TObject);
|
|
procedure btnMultiExecutingClick(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure btnInsertPostClick(Sender: TObject);
|
|
procedure cbSetInternalNameClick(Sender: TObject);
|
|
procedure cbResultLogClick(Sender: TObject);
|
|
procedure CrLabSQLConnectionAfterConnect(Sender: TObject);
|
|
procedure cbPermitPrepareClick(Sender: TObject);
|
|
procedure btEditPostClick(Sender: TObject);
|
|
private
|
|
TickInfo: TTickInfo;
|
|
//LoadCount: integer;
|
|
|
|
function FetchTest(DataSet:TDataSet; Recs:integer): integer;
|
|
function MasterDetailTest(Master: TDataSet; Detail: TDataSet; Recs: integer): integer;
|
|
function SPCallTest(StoredProc: TComponent; Count: integer): integer;
|
|
function MultiExecutingTest(Query: TComponent; Count: integer): integer;
|
|
function InsertPostTest(Table: TDataSet; Count: integer): integer;
|
|
function EditPostTest(Table: TDataSet; Count: integer): integer;
|
|
|
|
procedure ExecSQL(const SQL: string);
|
|
|
|
procedure CheckConnected;
|
|
procedure PrintResults;
|
|
|
|
public
|
|
constructor Create(Owner:TComponent); override;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
var
|
|
fmMain: TfmMain;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Variants;
|
|
|
|
{$R *.DFM}
|
|
|
|
constructor TfmMain.Create(Owner:TComponent);
|
|
begin
|
|
inherited;
|
|
|
|
TickInfo := TTickInfo.Create;
|
|
Caption := 'MS SQL Data Access Demos - SDAC ' + SDACVersion + ' performance';
|
|
end;
|
|
|
|
destructor TfmMain.Destroy;
|
|
begin
|
|
TickInfo.Free;
|
|
|
|
inherited;
|
|
end;
|
|
|
|
function TfmMain.FetchTest(DataSet:TDataSet; Recs:integer):integer;
|
|
var
|
|
i: integer;
|
|
OpenTime: integer;
|
|
FetchTime: integer;
|
|
SQL: string;
|
|
begin
|
|
SQL := 'SELECT * FROM Detail WHERE Code <= :Recs';
|
|
|
|
if DataSet is TMSQuery then begin
|
|
meResult.Lines.Add('> SDAC');
|
|
TMSQuery(DataSet).SQL.Text := SQL;
|
|
TMSQuery(DataSet).ParamByName('Recs').AsInteger := Recs
|
|
end
|
|
else
|
|
if DataSet is TQuery then begin
|
|
meResult.Lines.Add('> BDE');
|
|
TQuery(DataSet).SQL.Text := SQL;
|
|
TQuery(DataSet).ParamByName('Recs').AsInteger := Recs;
|
|
end
|
|
else
|
|
if DataSet is TADOQuery then begin
|
|
meResult.Lines.Add('> ADO');
|
|
TADOQuery(DataSet).SQL.Text := SQL;
|
|
TADOQuery(DataSet).Parameters.ParamByName('Recs').Value := Recs;
|
|
end else
|
|
if DataSet is TSQLQuery then begin
|
|
meResult.Lines.Add('> dbExpress');
|
|
TSQLQuery(DataSet).SQL.Text := SQL;
|
|
TSQLQuery(DataSet).ParamByName('Recs').DataType := ftString;
|
|
TSQLQuery(DataSet).ParamByName('Recs').Value := Recs;
|
|
end;
|
|
|
|
TickInfo.Start;
|
|
DataSet.Open;
|
|
OpenTime := TickInfo.GetInterval;
|
|
meResult.Lines.Add('Opened in ' + IntervalToStr(OpenTime));
|
|
|
|
TickInfo.Start;
|
|
|
|
i := 0;
|
|
while not DataSet.EOF do begin
|
|
Inc(i);
|
|
DataSet.Next;
|
|
end;
|
|
FetchTime := TickInfo.GetInterval;
|
|
meResult.Lines.Add('Fetched ' + IntToStr(i) + ' recs in ' + IntervalToStr(FetchTime));
|
|
DataSet.Close;
|
|
|
|
Result := OpenTime + FetchTime;
|
|
end;
|
|
|
|
function TfmMain.MasterDetailTest(Master: TDataSet; Detail: TDataSet; Recs: integer):integer;
|
|
var
|
|
i, j: integer;
|
|
FetchTime: integer;
|
|
SQL,SQL1: string;
|
|
begin
|
|
SQL := 'SELECT * FROM Master WHERE Code <= :Recs'; //RowNum
|
|
SQL1 := 'SELECT * FROM Detail WHERE Master = :Code';
|
|
if Master is TMSQuery then begin
|
|
meResult.Lines.Add('> SDAC');
|
|
TMSQuery(Master).SQL.Text := SQL;
|
|
TMSQuery(Detail).SQL.Text := SQL1;
|
|
TMSQuery(Detail).Options.LocalMasterDetail := true;
|
|
TMSQuery(Master).ParamByName('Recs').AsInteger := Recs
|
|
end
|
|
else
|
|
if Master is TQuery then begin
|
|
meResult.Lines.Add('> BDE');
|
|
TQuery(Master).SQL.Text := SQL;
|
|
TQuery(Detail).SQL.Text := SQL1;
|
|
TQuery(Master).ParamByName('Recs').AsInteger := Recs;
|
|
end
|
|
else
|
|
if Master is TADOQuery then begin
|
|
meResult.Lines.Add('> ADO');
|
|
TADOQuery(Master).SQL.Text := SQL;
|
|
TADOQuery(Detail).SQL.Text := SQL1;
|
|
TADOQuery(Master).Parameters.ParamByName('Recs').Value := Recs;
|
|
end else
|
|
if Master is TSQLQuery then begin
|
|
meResult.Lines.Add('> dbExpress');
|
|
TSQLQuery(Master).SQL.Text := SQL;
|
|
TSQLQuery(Detail).SQL.Text := SQL1;
|
|
TSQLQuery(Master).ParamByName('Recs').DataType := ftString;
|
|
TSQLQuery(Master).ParamByName('Recs').Value := Recs;
|
|
end;
|
|
|
|
TickInfo.Start;
|
|
Master.Open;
|
|
|
|
if Detail is TMSQuery then
|
|
TMSQuery(Detail).Prepare
|
|
else
|
|
if Detail is TQuery then
|
|
TQuery(Detail).Prepare
|
|
else
|
|
if Detail is TADOQuery then
|
|
TADOQuery(Detail).Prepared := True
|
|
else
|
|
if Detail is TSQLQuery then begin
|
|
TSQLQuery(Detail).Prepared := True;
|
|
TSQLQuery(Detail).ParamByName('Code').DataType := ftInteger;
|
|
end;
|
|
|
|
i := 0;
|
|
j := 0;
|
|
while not Master.EOF do begin
|
|
if Detail is TMSQuery then
|
|
TMSQuery(Detail).ParamByName('Code').AsInteger := Master.FieldByName('Code').AsInteger
|
|
else
|
|
if Detail is TQuery then
|
|
TQuery(Detail).ParamByName('Code').AsInteger := Master.FieldByName('Code').AsInteger
|
|
else
|
|
if Detail is TADOQuery then
|
|
TADOQuery(Detail).Parameters.ParamByName('Code').Value := Master.FieldByName('Code').AsInteger
|
|
else
|
|
if Detail is TSQLQuery then
|
|
TSQLQuery(Detail).ParamByName('Code').Value := Master.FieldByName('Code').AsInteger;
|
|
|
|
Detail.Open;
|
|
while not Detail.EOF do begin
|
|
Inc(j);
|
|
Detail.Next;
|
|
end;
|
|
Detail.Close;
|
|
|
|
Inc(i);
|
|
Master.Next;
|
|
end;
|
|
FetchTime := TickInfo.GetInterval;
|
|
meResult.Lines.Add('Fetched ' + IntToStr(i) + ' master recs, ' +
|
|
IntToStr(j) + ' detail recs in ' + IntervalToStr(FetchTime));
|
|
|
|
if Detail is TMSQuery then
|
|
TMSQuery(Detail).UnPrepare
|
|
else
|
|
if Detail is TQuery then
|
|
TQuery(Detail).UnPrepare
|
|
else
|
|
if Detail is TADOQuery then
|
|
TADOQuery(Detail).Prepared := False
|
|
else
|
|
if Detail is TSQLQuery then
|
|
TSQLQuery(Detail).Prepared := False;
|
|
|
|
Master.Close;
|
|
|
|
Result := FetchTime;
|
|
end;
|
|
|
|
procedure TMSSQLExecute(Query: TComponent);
|
|
begin
|
|
TMSSQL(Query).Execute;
|
|
end;
|
|
|
|
procedure TQueryExecSQL(Query: TComponent);
|
|
begin
|
|
TQuery(Query).ExecSQL;
|
|
end;
|
|
|
|
procedure TADOQueryExecSQL(Query: TComponent);
|
|
begin
|
|
TADOQuery(Query).ExecSQL;
|
|
end;
|
|
|
|
procedure TSQLQueryExecSQL(Query: TComponent);
|
|
begin
|
|
TSQLQuery(Query).ExecSQL;
|
|
end;
|
|
|
|
type
|
|
TExecSQLProc = procedure (Query: TComponent);
|
|
|
|
function TfmMain.MultiExecutingTest(Query: TComponent; Count: integer): integer;
|
|
var
|
|
i:integer;
|
|
ExecTime:integer;
|
|
SQL: string;
|
|
ExecSQLProc: TExecSQLProc;
|
|
begin
|
|
SQL := 'DECLARE @a INT';
|
|
|
|
ExecSQLProc := nil;
|
|
if Query is TMSSQL then begin
|
|
meResult.Lines.Add('> SDAC');
|
|
TMSSQL(Query).SQL.Text := SQL;
|
|
TMSSQL(Query).Prepared := True;
|
|
ExecSQLProc := TMSSQLExecute;
|
|
end
|
|
else
|
|
if Query is TQuery then begin
|
|
meResult.Lines.Add('> BDE');
|
|
TQuery(Query).SQL.Text := SQL;
|
|
TQuery(Query).Prepared := True;
|
|
ExecSQLProc := TQueryExecSQL;
|
|
end
|
|
else
|
|
if Query is TADOQuery then begin
|
|
meResult.Lines.Add('> ADO');
|
|
TADOQuery(Query).SQL.Text := SQL;
|
|
TADOQuery(Query).Prepared := True;
|
|
ExecSQLProc := TADOQueryExecSQL;
|
|
end else
|
|
if Query is TSQLQuery then begin
|
|
meResult.Lines.Add('> dbExpress');
|
|
TSQLQuery(Query).SQL.Text := SQL;
|
|
TSQLQuery(Query).Prepared := True;
|
|
ExecSQLProc := TSQLQueryExecSQL;
|
|
end;
|
|
|
|
TickInfo.Start;
|
|
|
|
for i := 1 to Count do
|
|
ExecSQLProc(Query);
|
|
|
|
ExecTime := TickInfo.GetInterval;
|
|
meResult.Lines.Add('Executed ' + IntToStr(Count) + ' count ' + IntervalToStr(ExecTime));
|
|
|
|
Result := ExecTime;
|
|
end;
|
|
|
|
function TfmMain.InsertPostTest(Table: TDataSet; Count: integer): integer;
|
|
var
|
|
i:integer;
|
|
ExecTime:integer;
|
|
TableName: string;
|
|
begin
|
|
TableName := 'DETAIL';
|
|
ExecSQL('TRUNCATE TABLE ' + TableName);
|
|
|
|
if Table is TMSTable then begin
|
|
meResult.Lines.Add('> SDAC');
|
|
TMSTable(Table).TableName := TableName;
|
|
|
|
// ~10% performance
|
|
TMSTable(Table).SQLInsert.Text := 'INSERT INTO DETAIL (Code, Master, Field1, Field2) VALUES (:Code, :Master, :Field1, :Field2)';
|
|
end
|
|
else
|
|
if Table is TTable then begin
|
|
meResult.Lines.Add('> BDE');
|
|
TTable(Table).TableName := TableName;
|
|
end
|
|
else
|
|
if Table is TADOTable then begin
|
|
meResult.Lines.Add('> ADO');
|
|
TADOTable(Table).TableName := TableName;
|
|
end else
|
|
if Table = BorlandClientDataSet then begin
|
|
meResult.Lines.Add('> dbExpress');
|
|
BorlandSQLTable.TableName := TableName;
|
|
end else
|
|
if Table = CrLabClientDataSet then begin
|
|
meResult.Lines.Add('> dbExpSda');
|
|
CrLabSQLTable.TableName := TableName;
|
|
end;
|
|
|
|
Table.Open;
|
|
|
|
TickInfo.Start;
|
|
|
|
for i := 1 to Count do begin
|
|
Table.Insert;
|
|
Table.FieldByName('CODE').Value := i;
|
|
Table.FieldByName('Field1').AsString := '01234567890123456789';
|
|
Table.FieldByName('Field2').AsString := '12345678901234567890';
|
|
Table.Post;
|
|
end;
|
|
|
|
if Table = BorlandClientDataSet then
|
|
BorlandClientDataSet.ApplyUpdates(0);
|
|
if Table = CrLabClientDataSet then
|
|
CrLabClientDataSet.ApplyUpdates(0);
|
|
|
|
ExecTime := TickInfo.GetInterval;
|
|
Table.Close;
|
|
meResult.Lines.Add('Inserted ' + IntToStr(Count) + ' records ' + IntervalToStr(ExecTime));
|
|
|
|
Result := ExecTime;
|
|
end;
|
|
|
|
procedure TfmMain.ExecSQL(const SQL: string);
|
|
var
|
|
MSSQL: TMSSQL;
|
|
begin
|
|
MSSQL := TMSSQL.Create(nil);
|
|
try
|
|
MSSQL.Connection := MSConnection;
|
|
MSSQL.SQL.Text := SQL;
|
|
MSSQL.Execute;
|
|
finally
|
|
MSSQL.Free;
|
|
end;
|
|
end;
|
|
|
|
function TfmMain.SPCallTest(StoredProc: TComponent; Count: integer):integer;
|
|
var
|
|
i:integer;
|
|
ExecTime:integer;
|
|
begin
|
|
if StoredProc is TMSStoredProc then
|
|
meResult.Lines.Add('> SDAC')
|
|
else
|
|
if StoredProc is TStoredProc then
|
|
meResult.Lines.Add('> BDE')
|
|
else
|
|
if StoredProc is TADOStoredProc then
|
|
meResult.Lines.Add('> ADO');
|
|
if StoredProc is TSQLStoredProc then
|
|
meResult.Lines.Add('> dbExpress');
|
|
|
|
TickInfo.Start;
|
|
for i := 1 to Count do begin
|
|
if StoredProc is TMSStoredProc then begin
|
|
with TMSStoredProc(StoredProc) do begin
|
|
if i = 1 then begin
|
|
StoredProcName := 'Master_Insert';
|
|
Prepare;
|
|
end;
|
|
|
|
ParamByName('p_Code').AsInteger := i;
|
|
ParamByName('p_Field1').AsString := '01234567890123456789';
|
|
ParamByName('p_Field2').AsString := '12345678901234567890';
|
|
ParamByName('p_Field3').AsString := '23456789012345678901';
|
|
|
|
Execute;
|
|
end;
|
|
end
|
|
else
|
|
if StoredProc is TStoredProc then begin
|
|
with TStoredProc(StoredProc) do begin
|
|
if i = 1 then begin
|
|
StoredProcName := 'MASTER_INSERT';
|
|
Params.Clear;
|
|
with TParam(Params.Add) do begin
|
|
Name := '@p_Code';
|
|
ParamType := ptInput;
|
|
DataType := ftInteger;
|
|
end;
|
|
|
|
with TParam(Params.Add) do begin
|
|
Name := '@p_Field1';
|
|
ParamType := ptInput;
|
|
DataType := ftString;
|
|
end;
|
|
|
|
with TParam(Params.Add) do begin
|
|
Name := '@p_Field2';
|
|
ParamType := ptInput;
|
|
DataType := ftString;
|
|
end;
|
|
|
|
with TParam(Params.Add) do begin
|
|
Name := '@p_Field3';
|
|
ParamType := ptInput;
|
|
DataType := ftString;
|
|
end;
|
|
Prepare;
|
|
end;
|
|
|
|
ParamByName('@p_Code').AsInteger := i;
|
|
ParamByName('@p_Field1').AsString := '01234567890123456789';
|
|
ParamByName('@p_Field2').AsString := '12345678901234567890';
|
|
ParamByName('@p_Field3').AsString := '23456789012345678901';
|
|
|
|
ExecProc;
|
|
end;
|
|
end
|
|
else
|
|
if StoredProc is TADOStoredProc then begin
|
|
with TADOStoredProc(StoredProc) do begin
|
|
if i = 1 then begin
|
|
ProcedureName := 'MASTER_INSERT';
|
|
Parameters.Refresh;
|
|
end;
|
|
Parameters.ParamByName('@p_Code').Value := i;
|
|
Parameters.ParamByName('@p_Field1').Value := '01234567890123456789';
|
|
Parameters.ParamByName('@p_Field2').Value := '12345678901234567890';
|
|
Parameters.ParamByName('@p_Field3').Value := '23456789012345678901';
|
|
|
|
ExecProc;
|
|
end;
|
|
end else
|
|
if StoredProc is TSQLStoredProc then begin
|
|
with TSQLStoredProc(StoredProc) do begin
|
|
if i = 1 then begin
|
|
StoredProcName := 'MASTER_INSERT';
|
|
Prepared := True;
|
|
end;
|
|
|
|
if StoredProc = BorlandSQLStoredProc then begin
|
|
Params.ParamValues['@p_Code'] := i;
|
|
Params.ParamValues['@p_Field1'] := '01234567890123456789';
|
|
Params.ParamValues['@p_Field2'] := '12345678901234567890';
|
|
Params.ParamValues['@p_Field3'] := '23456789012345678901';
|
|
end
|
|
else
|
|
begin
|
|
Params.ParamValues['p_Code'] := i;
|
|
Params.ParamValues['p_Field1'] := '01234567890123456789';
|
|
Params.ParamValues['p_Field2'] := '12345678901234567890';
|
|
Params.ParamValues['p_Field3'] := '23456789012345678901';
|
|
end;
|
|
ExecProc;
|
|
// Prepared := false;
|
|
end;
|
|
end
|
|
end;
|
|
|
|
ExecTime := TickInfo.GetInterval;
|
|
meResult.Lines.Add('Executed ' + IntToStr(Count) + ' times in ' + IntervalToStr(ExecTime));
|
|
|
|
Result := ExecTime;
|
|
end;
|
|
|
|
procedure TfmMain.FormShow(Sender: TObject);
|
|
begin
|
|
edFetchRows.Text := IntToStr(MSQuery.FetchRows);
|
|
end;
|
|
|
|
procedure TfmMain.CheckConnected;
|
|
begin
|
|
if (not MSConnection.Connected) or
|
|
(cbBDE.Checked and not Database.Connected) or
|
|
(cbADO.Checked and not ADOConnection.Connected) or
|
|
(cbdbExpress.Checked and not BorlandSQLConnection.Connected) or
|
|
(cbdbExpSda.Checked and not CrLabSQLConnection.Connected) then
|
|
raise Exception.Create('You must connect first!');
|
|
end;
|
|
|
|
procedure TfmMain.PrintResults;
|
|
procedure Process(CheckBox: TCheckBox; Res: string);
|
|
begin
|
|
if CheckBox.Checked then
|
|
meResult.Lines.Add(CheckBox.Caption + ' ' + Res);
|
|
end;
|
|
|
|
begin
|
|
meResult.Lines.Add('---------------');
|
|
Process(cbSDAC, lbSDAC.Caption);
|
|
Process(cbBDE, lbBDE.Caption);
|
|
Process(cbADO, lbADO.Caption);
|
|
Process(cbdbExpress, lbdbExpress.Caption);
|
|
Process(cbdbExpSda, lbdbExpSda.Caption);
|
|
meResult.Lines.Add('===============');
|
|
end;
|
|
|
|
procedure TfmMain.btConnectClick(Sender: TObject);
|
|
begin
|
|
edFetchRowsExit(nil);
|
|
|
|
if not MSConnection.Connected then begin
|
|
MSConnection.Connect;
|
|
meResult.Lines.Add('SDAC connected');
|
|
end;
|
|
|
|
if cbBDE.Checked and not Database.Connected then begin
|
|
Database.Params.Values['USER NAME'] := MSConnection.UserName;
|
|
Database.Params.Values['PASSWORD'] := MSConnection.Password;
|
|
Database.Params.Values['SERVER NAME'] := MSConnection.Server;
|
|
Database.Params.Values['DATABASE NAME'] := MSConnection.Database;
|
|
Database.Open;
|
|
meResult.Lines.Add('BDE connected');
|
|
end;
|
|
|
|
if cbADO.Checked and not ADOConnection.Connected then begin
|
|
ADOConnection.ConnectionString := MSConnection.ConnectString;
|
|
ADOConnection.Open;
|
|
meResult.Lines.Add('ADO connected');
|
|
end;
|
|
|
|
if cbdbExpress.Checked and not BorlandSQLConnection.Connected then begin
|
|
BorlandSQLConnection.Params.Values['User_Name'] := MSConnection.UserName;
|
|
BorlandSQLConnection.Params.Values['Password'] := MSConnection.Password;
|
|
BorlandSQLConnection.Params.Values['HostName'] := MSConnection.Server;
|
|
BorlandSQLConnection.Params.Values['DataBase'] := MSConnection.Database;
|
|
|
|
BorlandSQLConnection.Connected := True;
|
|
meResult.Lines.Add('dbExpress connected');
|
|
end;
|
|
|
|
if cbdbExpSda.Checked and not CrLabSQLConnection.Connected then begin
|
|
CrLabSQLConnection.Params.Values['User_Name'] := MSConnection.UserName;
|
|
CrLabSQLConnection.Params.Values['Password'] := MSConnection.Password;
|
|
CrLabSQLConnection.Params.Values['HostName'] := MSConnection.Server;
|
|
CrLabSQLConnection.Params.Values['DataBase'] := MSConnection.Database;
|
|
|
|
CrLabSQLConnection.Connected := True;
|
|
meResult.Lines.Add('dbExpSda connected');
|
|
end;
|
|
end;
|
|
|
|
procedure TfmMain.btDisconnectClick(Sender: TObject);
|
|
begin
|
|
MSConnection.Disconnect;
|
|
BorlandSQLConnection.Connected := false;
|
|
CrLabSQLConnection.Connected := false;
|
|
ADOConnection.Close;
|
|
Database.Close;
|
|
meResult.Lines.Add('Disconected');
|
|
end;
|
|
|
|
procedure TfmMain.btFetchTestClick(Sender: TObject);
|
|
const
|
|
Step = 10000;
|
|
var
|
|
i: integer;
|
|
ResSDAC, ResBDE, ResADO, ResdbExp, ResdbExpSda: integer;
|
|
mBDE, mADO, mdbExp, mdbExpSda: double;
|
|
begin
|
|
CheckConnected;
|
|
|
|
Chart.Title.Text.Text := 'Fetch Test';
|
|
for i := 0 to Chart.SeriesCount - 1 do
|
|
Chart.Series[i].Clear;
|
|
Chart.BottomAxis.Minimum := 0;
|
|
Chart.BottomAxis.Maximum := 11 * Step;
|
|
mBDE := 0;
|
|
mADO := 0;
|
|
mdbExp := 0;
|
|
mdbExpSda := 0;
|
|
|
|
for i := 1 to 10 do begin
|
|
ResSDAC := 0;
|
|
ResBDE := 0;
|
|
ResADO := 0;
|
|
ResdbExp := 0;
|
|
ResdbExpSda := 0;
|
|
|
|
meResult.Lines.Add('---------------');
|
|
// BDE
|
|
if cbBDE.Checked then begin
|
|
ResBDE := FetchTest(BDEQuery, i*Step);
|
|
Chart.Series[1].AddXY(i*Step, ResBDE/1000, '', clTeeColor);
|
|
end;
|
|
// SDAC
|
|
if cbSDAC.Checked then begin
|
|
ResSDAC := FetchTest(MSQuery, i*Step);
|
|
Chart.Series[0].AddXY(i*Step, ResSDAC/1000, '', clTeeColor);
|
|
end;
|
|
// ADO
|
|
if cbADO.Checked then begin
|
|
ResADO := FetchTest(ADOQuery, i*Step);
|
|
Chart.Series[2].AddXY(i*Step, ResADO/1000, '', clTeeColor);
|
|
end;
|
|
// dbExpress
|
|
if cbdbExpress.Checked then begin
|
|
ResdbExp := FetchTest(BorlandSQLQuery, i*Step);
|
|
Chart.Series[3].AddXY(i*Step, ResdbExp/1000, '', clTeeColor);
|
|
end;
|
|
// dbExpSda
|
|
if cbdbExpSda.Checked then begin
|
|
ResdbExpSda := FetchTest(CrLabSQLQuery, i*Step);
|
|
Chart.Series[4].AddXY(i*Step, ResdbExpSda/1000, '', clTeeColor);
|
|
end;
|
|
|
|
if ResSDAC > 0 then begin
|
|
mBDE := ((i - 1)*mBDE + ResBDE/ResSDAC)/i;
|
|
mADO := ((i - 1)*mADO + ResADO/ResSDAC)/i;
|
|
mdbExp := ((i - 1)*mdbExp + ResdbExp/ResSDAC)/i;
|
|
mdbExpSda := ((i - 1)*mdbExpSda + ResdbExpSda/ResSDAC)/i;
|
|
lbSDAC.Caption := FloatToStrF(1, ffGeneral, 5, 3);
|
|
lbBDE.Caption := FloatToStrF(mBDE, ffGeneral, 5, 3);
|
|
lbADO.Caption := FloatToStrF(mADO, ffGeneral, 5, 3);
|
|
lbdbExpress.Caption := FloatToStrF(mdbExp, ffGeneral, 5, 3);
|
|
lbdbExpSda.Caption := FloatToStrF(mdbExpSda, ffGeneral, 5, 3);
|
|
lbBDE.Update;
|
|
lbADO.Update;
|
|
lbdbExpress.Update;
|
|
lbdbExpSda.Update;
|
|
end;
|
|
|
|
Chart.Update;
|
|
end;
|
|
PrintResults;
|
|
end;
|
|
|
|
procedure TfmMain.btMasterDetailTestClick(Sender: TObject);
|
|
var
|
|
i:integer;
|
|
ResSDAC, ResBDE, ResADO, ResdbExp, ResdbExpSda: integer;
|
|
mBDE, mADO, mdbExp, mdbExpSda: double;
|
|
begin
|
|
CheckConnected;
|
|
|
|
Chart.Title.Text.Text := 'Master/Detail Test';
|
|
for i := 0 to Chart.SeriesCount - 1 do
|
|
Chart.Series[i].Clear;
|
|
Chart.BottomAxis.Minimum := 0;
|
|
Chart.BottomAxis.Maximum := 110;
|
|
|
|
mBDE := 0;
|
|
mADO := 0;
|
|
mdbExp := 0;
|
|
mdbExpSda := 0;
|
|
for i := 1 to 10 do begin
|
|
ResSDAC := 0;
|
|
ResBDE := 0;
|
|
ResADO := 0;
|
|
ResdbExp := 0;
|
|
ResdbExpSda := 0;
|
|
|
|
meResult.Lines.Add('---------------');
|
|
// SDAC
|
|
if cbSDAC.Checked then begin
|
|
ResSDAC := MasterDetailTest(MSQuery, MSQuery1, i*10);
|
|
Chart.Series[0].AddXY(i*10, ResSDAC/1000, '', clTeeColor);
|
|
end;
|
|
// BDE
|
|
if cbBDE.Checked then begin
|
|
ResBDE := MasterDetailTest(BDEQuery, BDEQuery1, i*10);
|
|
Chart.Series[1].AddXY(i*10, ResBDE/1000, '', clTeeColor);
|
|
end;
|
|
// ADO
|
|
if cbADO.Checked then begin
|
|
ResADO := MasterDetailTest(ADOQuery, ADOQuery1, i*10);
|
|
Chart.Series[2].AddXY(i*10, ResADO/1000, '', clTeeColor);
|
|
end;
|
|
// dbExpress
|
|
if cbdbExpress.Checked then begin
|
|
ResdbExp := MasterDetailTest(BorlandSQLQuery, BorlandSQLQuery1, i*10);
|
|
Chart.Series[3].AddXY(i*10, ResdbExp/1000, '', clTeeColor);
|
|
end;
|
|
// dbExpSda
|
|
if cbdbExpSda.Checked then begin
|
|
ResdbExpSda := MasterDetailTest(CrLabSQLQuery, CrLabSQLQuery1, i*10);
|
|
Chart.Series[4].AddXY(i*10, ResdbExpSda/1000, '', clTeeColor);
|
|
end;
|
|
|
|
if ResSDAC > 0 then begin
|
|
mBDE := ((i - 1)*mBDE + ResBDE/ResSDAC)/i;
|
|
mADO := ((i - 1)*mADO + ResADO/ResSDAC)/i;
|
|
mdbExp := ((i - 1)*mdbExp + ResdbExp/ResSDAC)/i;
|
|
mdbExpSda := ((i - 1)*mdbExpSda + ResdbExpSda/ResSDAC)/i;
|
|
lbSDAC.Caption := FloatToStrF(1, ffGeneral, 5, 3);
|
|
lbBDE.Caption := FloatToStrF(mBDE, ffGeneral, 5, 3);
|
|
lbADO.Caption := FloatToStrF(mADO, ffGeneral, 5, 3);
|
|
lbdbExpress.Caption := FloatToStrF(mdbExp, ffGeneral, 5, 3);
|
|
lbdbExpSda.Caption := FloatToStrF(mdbExpSda, ffGeneral, 5, 3);
|
|
lbBDE.Update;
|
|
lbADO.Update;
|
|
lbdbExpress.Update;
|
|
lbdbExpSda.Update;
|
|
end;
|
|
|
|
Chart.Update;
|
|
end;
|
|
PrintResults;
|
|
end;
|
|
|
|
procedure TfmMain.btSPCallTestClick(Sender: TObject);
|
|
var
|
|
i:integer;
|
|
ResSDAC, ResBDE, ResADO, ResdbExp, ResdbExpSda: integer;
|
|
mBDE, mADO, mdbExp, mdbExpSda: double;
|
|
const
|
|
Step = 10;
|
|
begin
|
|
CheckConnected;
|
|
|
|
Chart.Title.Text.Text := 'StoredProc Call Test';
|
|
for i := 0 to Chart.SeriesCount - 1 do
|
|
Chart.Series[i].Clear;
|
|
Chart.BottomAxis.Minimum := 0;
|
|
Chart.BottomAxis.Maximum := 11 * Step;
|
|
|
|
mBDE := 0;
|
|
mADO := 0;
|
|
mdbExp := 0;
|
|
mdbExpSda := 0;
|
|
for i := 1 to 10 do begin
|
|
ResSDAC := 0;
|
|
ResBDE := 0;
|
|
ResADO := 0;
|
|
ResdbExp := 0;
|
|
ResdbExpSda := 0;
|
|
|
|
meResult.Lines.Add('---------------');
|
|
// SDAC
|
|
if cbSDAC.Checked then begin
|
|
ResSDAC := SPCallTest(MSStoredProc, i*Step);
|
|
Chart.Series[0].AddXY(i*Step, ResSDAC/(Step * 10), '', clTeeColor);
|
|
end;
|
|
// BDE
|
|
if cbBDE.Checked then begin
|
|
ResBDE := SPCallTest(BDEStoredProc, i*Step);
|
|
Chart.Series[1].AddXY(i*Step, ResBDE/(Step * 10), '', clTeeColor);
|
|
end;
|
|
// ADO
|
|
if cbADO.Checked then begin
|
|
ResADO := SPCallTest(ADOStoredProc, i*Step);
|
|
Chart.Series[2].AddXY(i*Step, ResADO/(Step * 10), '', clTeeColor);
|
|
end;
|
|
// dbExpress
|
|
if cbdbExpress.Checked then begin
|
|
ResdbExp := SPCallTest(BorlandSQLStoredProc, i*Step);
|
|
Chart.Series[3].AddXY(i*Step, ResdbExp/(Step * 10), '', clTeeColor);
|
|
end;
|
|
// dbExpSda
|
|
if cbdbExpSda.Checked then begin
|
|
ResdbExpSda := SPCallTest(CrLabSQLStoredProc, i*Step);
|
|
Chart.Series[4].AddXY(i*Step, ResdbExpSda/(Step * 10), '', clTeeColor);
|
|
end;
|
|
|
|
if ResSDAC > 0 then begin
|
|
mBDE := ((i - 1)*mBDE + ResBDE/ResSDAC)/i;
|
|
mADO := ((i - 1)*mADO + ResADO/ResSDAC)/i;
|
|
mdbExp := ((i - 1)*mdbExp + ResdbExp/ResSDAC)/i;
|
|
mdbExpSda := ((i - 1)*mdbExpSda + ResdbExpSda/ResSDAC)/i;
|
|
lbSDAC.Caption := FloatToStrF(1, ffGeneral, 5, 3);
|
|
lbBDE.Caption := FloatToStrF(mBDE, ffGeneral, 5, 3);
|
|
lbADO.Caption := FloatToStrF(mADO, ffGeneral, 5, 3);
|
|
lbdbExpress.Caption := FloatToStrF(mdbExp, ffGeneral, 5, 3);
|
|
lbdbExpSda.Caption := FloatToStrF(mdbExpSda, ffGeneral, 5, 3);
|
|
lbBDE.Update;
|
|
lbADO.Update;
|
|
lbdbExpress.Update;
|
|
lbdbExpSda.Update;
|
|
end;
|
|
|
|
Chart.Update;
|
|
end;
|
|
PrintResults;
|
|
end;
|
|
|
|
procedure TfmMain.edFetchRowsExit(Sender: TObject);
|
|
var
|
|
Connected: boolean;
|
|
begin
|
|
try
|
|
MSQuery.FetchRows := StrToInt(edFetchRows.Text);
|
|
MSQuery1.FetchRows := StrToInt(edFetchRows.Text);
|
|
Connected := Database.Connected;
|
|
Database.Close;
|
|
Database.Params.Values['ROWSET SIZE'] := edFetchRows.Text;
|
|
if Connected then begin
|
|
Database.LoginPrompt := False;
|
|
Database.Open;
|
|
Database.LoginPrompt := True;
|
|
end;
|
|
ADOQuery.CacheSize := StrToInt(edFetchRows.Text);
|
|
ADOQuery1.CacheSize := StrToInt(edFetchRows.Text);
|
|
finally
|
|
edFetchRows.Text := IntToStr(MSQuery.FetchRows);
|
|
end;
|
|
end;
|
|
|
|
procedure TfmMain.btCreateClick(Sender: TObject);
|
|
begin
|
|
scCreate.Execute;
|
|
scCreate2.Execute;
|
|
end;
|
|
|
|
procedure TfmMain.btDropClick(Sender: TObject);
|
|
begin
|
|
scDrop.Execute;
|
|
end;
|
|
|
|
procedure TfmMain.cbMarkClick(Sender: TObject);
|
|
var
|
|
i: integer;
|
|
begin
|
|
for i := 0 to Chart.SeriesCount - 1 do
|
|
Chart.Series[i].Marks.Visible := cbMark.Checked;
|
|
end;
|
|
|
|
(*
|
|
procedure TfmMain.MSLoaderPutData(Sender: TMSLoader);
|
|
var
|
|
i: integer;
|
|
begin
|
|
for i := 1 to LoadCount do begin
|
|
Sender.PutColumnData(0, i, i);
|
|
Sender.PutColumnData(1, i, '01234567890123456789');
|
|
end;
|
|
end;*)
|
|
|
|
procedure TfmMain.btnMultiExecutingClick(Sender: TObject);
|
|
var
|
|
i:integer;
|
|
ResSDAC, ResBDE, ResADO, ResdbExp, ResdbExpSda: integer;
|
|
mBDE, mADO, mdbExp, mdbExpSda: double;
|
|
begin
|
|
CheckConnected;
|
|
|
|
Chart.Title.Text.Text := 'MultiExecuting Test';
|
|
for i := 0 to Chart.SeriesCount - 1 do
|
|
Chart.Series[i].Clear;
|
|
Chart.BottomAxis.Minimum := 0;
|
|
Chart.BottomAxis.Maximum := 1100;
|
|
|
|
mBDE := 0;
|
|
mADO := 0;
|
|
mdbExp := 0;
|
|
mdbExpSda := 0;
|
|
for i := 1 to 10 do begin
|
|
ResSDAC := 0;
|
|
ResBDE := 0;
|
|
ResADO := 0;
|
|
ResdbExp := 0;
|
|
ResdbExpSda := 0;
|
|
|
|
meResult.Lines.Add('---------------');
|
|
// SDAC
|
|
if cbSDAC.Checked then begin
|
|
ResSDAC := MultiExecutingTest(MSSQL, i*100);
|
|
Chart.Series[0].AddXY(i*100, ResSDAC/1000, '', clTeeColor);
|
|
end;
|
|
// BDE
|
|
if cbBDE.Checked then begin
|
|
ResBDE := MultiExecutingTest(BDEQuery, i*100);
|
|
Chart.Series[1].AddXY(i*100, ResBDE/1000, '', clTeeColor);
|
|
end;
|
|
// ADO
|
|
if cbADO.Checked then begin
|
|
ResADO := MultiExecutingTest(ADOQuery, i*100);
|
|
Chart.Series[2].AddXY(i*100, ResADO/1000, '', clTeeColor);
|
|
end;
|
|
// dbExpress
|
|
if cbdbExpress.Checked then begin
|
|
ResdbExp := MultiExecutingTest(BorlandSQLQuery, i*100);
|
|
Chart.Series[3].AddXY(i*100, ResdbExp/1000, '', clTeeColor);
|
|
end;
|
|
// dbExpSda
|
|
if cbdbExpSda.Checked then begin
|
|
ResdbExpSda := MultiExecutingTest(CrLabSQLQuery, i*100);
|
|
Chart.Series[4].AddXY(i*100, ResdbExpSda/1000, '', clTeeColor);
|
|
end;
|
|
|
|
if ResSDAC > 0 then begin
|
|
mBDE := ((i - 1)*mBDE + ResBDE/ResSDAC)/i;
|
|
mADO := ((i - 1)*mADO + ResADO/ResSDAC)/i;
|
|
mdbExp := ((i - 1)*mdbExp + ResdbExp/ResSDAC)/i;
|
|
mdbExpSda := ((i - 1)*mdbExpSda + ResdbExpSda/ResSDAC)/i;
|
|
lbSDAC.Caption := FloatToStrF(1, ffGeneral, 5, 3);
|
|
lbBDE.Caption := FloatToStrF(mBDE, ffGeneral, 5, 3);
|
|
lbADO.Caption := FloatToStrF(mADO, ffGeneral, 5, 3);
|
|
lbdbExpress.Caption := FloatToStrF(mdbExp, ffGeneral, 5, 3);
|
|
lbdbExpSda.Caption := FloatToStrF(mdbExpSda, ffGeneral, 5, 3);
|
|
lbBDE.Update;
|
|
lbADO.Update;
|
|
lbdbExpress.Update;
|
|
lbdbExpSda.Update;
|
|
end;
|
|
|
|
Chart.Update;
|
|
end;
|
|
PrintResults;
|
|
end;
|
|
|
|
procedure TfmMain.FormDestroy(Sender: TObject);
|
|
begin
|
|
btDisconnectClick(nil);
|
|
end;
|
|
|
|
procedure TfmMain.btnInsertPostClick(Sender: TObject);
|
|
var
|
|
i: integer;
|
|
ResSDAC, ResBDE, ResADO, ResdbExp, ResdbExpSda: integer;
|
|
mBDE, mADO, mdbExp, mdbExpSda: double;
|
|
const
|
|
Step = 1000;
|
|
begin
|
|
CheckConnected;
|
|
|
|
Chart.Title.Text.Text := 'Insert / Post Test';
|
|
for i := 0 to Chart.SeriesCount - 1 do
|
|
Chart.Series[i].Clear;
|
|
Chart.BottomAxis.Minimum := 0;
|
|
Chart.BottomAxis.Maximum := 11 * Step;
|
|
|
|
mBDE := 0;
|
|
mADO := 0;
|
|
mdbExp := 0;
|
|
mdbExpSda := 0;
|
|
for i := 1 to 10 do begin
|
|
ResSDAC := 0;
|
|
ResBDE := 0;
|
|
ResADO := 0;
|
|
ResdbExp := 0;
|
|
ResdbExpSda := 0;
|
|
|
|
meResult.Lines.Add('---------------');
|
|
// SDAC
|
|
if cbSDAC.Checked then begin
|
|
ResSDAC := InsertPostTest(MSTable, i*Step);
|
|
Chart.Series[0].AddXY(i*Step, ResSDAC, '', clTeeColor);
|
|
end;
|
|
// BDE
|
|
if cbBDE.Checked then begin
|
|
ResBDE := InsertPostTest(BDETable, i*Step);
|
|
Chart.Series[1].AddXY(i*Step, ResBDE, '', clTeeColor);
|
|
end;
|
|
// ADO
|
|
if cbADO.Checked then begin
|
|
ResADO := InsertPostTest(ADOTable, i*Step);
|
|
Chart.Series[2].AddXY(i*Step, ResADO, '', clTeeColor);
|
|
end;
|
|
// dbExpress
|
|
if cbdbExpress.Checked then begin
|
|
ResdbExp := InsertPostTest(BorlandClientDataSet, i*Step);
|
|
Chart.Series[3].AddXY(i*Step, ResdbExp, '', clTeeColor);
|
|
end;
|
|
// dbExpSda
|
|
if cbdbExpSda.Checked then begin
|
|
ResdbExpSda := InsertPostTest(CrLabClientDataSet, i*Step);
|
|
Chart.Series[4].AddXY(i*Step, ResdbExpSda, '', clTeeColor);
|
|
end;
|
|
|
|
if ResSDAC > 0 then begin
|
|
mBDE := ((i - 1)*mBDE + ResBDE/ResSDAC)/i;
|
|
mADO := ((i - 1)*mADO + ResADO/ResSDAC)/i;
|
|
mdbExp := ((i - 1)*mdbExp + ResdbExp/ResSDAC)/i;
|
|
mdbExpSda := ((i - 1)*mdbExpSda + ResdbExpSda/ResSDAC)/i;
|
|
lbSDAC.Caption := FloatToStrF(1, ffGeneral, 5, 3);
|
|
lbBDE.Caption := FloatToStrF(mBDE, ffGeneral, 5, 3);
|
|
lbADO.Caption := FloatToStrF(mADO, ffGeneral, 5, 3);
|
|
lbdbExpress.Caption := FloatToStrF(mdbExp, ffGeneral, 5, 3);
|
|
lbdbExpSda.Caption := FloatToStrF(mdbExpSda, ffGeneral, 5, 3);
|
|
lbBDE.Update;
|
|
lbADO.Update;
|
|
lbdbExpress.Update;
|
|
lbdbExpSda.Update;
|
|
end;
|
|
|
|
// Chart.Update;
|
|
end;
|
|
PrintResults;
|
|
end;
|
|
|
|
procedure TfmMain.cbSetInternalNameClick(Sender: TObject);
|
|
var
|
|
AConnected: boolean;
|
|
ALoginPrompt: boolean;
|
|
begin
|
|
AConnected := MSConnection.Connected;
|
|
ALoginPrompt := MSConnection.LoginPrompt;
|
|
MSConnection.Connected := false;
|
|
MSConnection.LoginPrompt := false;
|
|
MSConnection.Connected := AConnected;
|
|
MSConnection.LoginPrompt := ALoginPrompt;
|
|
end;
|
|
|
|
procedure TfmMain.cbResultLogClick(Sender: TObject);
|
|
begin
|
|
meResult.Visible := cbResultLog.Checked;
|
|
Splitter1.Visible := cbResultLog.Checked;
|
|
end;
|
|
|
|
const
|
|
coFetchAll = TSQLConnectionOption(301); // boolean
|
|
coPermitPrepare = TSQLConnectionOption(104);
|
|
|
|
procedure TfmMain.CrLabSQLConnectionAfterConnect(Sender: TObject);
|
|
begin
|
|
CrLabSQLConnection.SQLConnection.SetOption(coFetchAll, Integer(False));
|
|
CrLabSQLConnection.SQLConnection.SetOption(coPermitPrepare, Integer(True));
|
|
end;
|
|
|
|
procedure TfmMain.cbPermitPrepareClick(Sender: TObject);
|
|
begin
|
|
CrLabSQLConnection.Close;
|
|
end;
|
|
|
|
|
|
function TfmMain.EditPostTest(Table: TDataSet; Count: integer): integer;
|
|
const
|
|
chrs: array [0..1] of char = ('a', 'b');
|
|
var
|
|
i:integer;
|
|
ExecTime:integer;
|
|
TableName: string;
|
|
begin
|
|
TableName := 'DETAIL';
|
|
|
|
if Table is TMSTable then begin
|
|
meResult.Lines.Add('> SDAC');
|
|
TMSTable(Table).TableName := TableName;
|
|
// ~10% performance
|
|
TMSTable(Table).SQLInsert.Text := 'INSERT INTO DETAIL (Code, Master, Field1, Field2) VALUES (:Code, :Master, :Field1, :Field2)';
|
|
end;
|
|
Table.Open;
|
|
if Table.RecordCount = 0 then begin
|
|
MessageDlg('Record count in "DETAIL" table must be more than 0!', mtError, [mbOK], 0);
|
|
Abort;
|
|
end;
|
|
|
|
TickInfo.Start;
|
|
|
|
for i := 1 to Count do begin
|
|
Table.Edit;
|
|
Table.FieldByName('CODE').Value := i;
|
|
Table.FieldByName('Field1').AsString := '0123456789012345678' + chrs[i mod 2];
|
|
Table.FieldByName('Field2').AsString := '1234567890123456789' + chrs[i mod 2];
|
|
Table.Post;
|
|
end;
|
|
|
|
if Table = CrLabClientDataSet then
|
|
CrLabClientDataSet.ApplyUpdates(0);
|
|
|
|
ExecTime := TickInfo.GetInterval;
|
|
Table.Close;
|
|
meResult.Lines.Add('Edited ' + IntToStr(Count) + ' records ' + IntervalToStr(ExecTime));
|
|
|
|
Result := ExecTime;
|
|
end;
|
|
|
|
procedure TfmMain.btEditPostClick(Sender: TObject);
|
|
const
|
|
Step = 100;
|
|
var
|
|
i: integer;
|
|
ResSDAC: integer;
|
|
begin
|
|
for i := 1 to 10 do begin
|
|
ResSDAC := EditPostTest(MSTable, i*Step);
|
|
Chart.Series[0].AddXY(i*Step, ResSDAC, '', clGreen);
|
|
end;
|
|
PrintResults;
|
|
end;
|
|
|
|
end.
|