|
var
Server, Kull, Sifre,DB:
String;
Port: Integer;
MyForm:TCLForm;
qrySql : TClSqlQuery;
clProGrid:TCLProGrid;
procedure
MainForm;
begin
MyForm :=
TCLForm.Create(Self);
qrySql :=
TClSqlQuery.Create(Nil);
try
qrySql.Connection:=
Clomosy.DBSQLServerConnection;
qrySql.Sql.Text:= 'SELECT *FROM ATBLPROGPRMLOG';
qrySql.Open;
if
qrySql.Found then
begin
clProGrid := MyForm.AddNewProGrid(MyForm,'ClProGrid4');
clProGrid.BeginUpdate;
clProGrid.NormalLayoutFillColor := clAlphaColor.clHexToColor('#ebf3ff');
clProGrid.NormalLayoutFontColor := clAlphaColor.clWhite;
clProGrid.FixedLayoutFillColor
:= clAlphaColor.clBlue;
clProGrid.FixedLayoutFontColor := clAlphaColor.clWhite;
clProGrid.SelectedLayoutFillColor
:= clAlphaColor.clHexToColor('#a8c2ff');
clProGrid.SelectedLayoutFontColor := clAlphaColor.clWhite;
clProGrid.FocusedLayoutFillColor
:= clAlphaColor.clHexToColor('#a8c2ff');
clProGrid.FocusedLayoutFontColor := clAlphaColor.clWhite;
clProGrid.Align
:= alContents;
clProGrid.Options.Selection.Mode
:= smSingleRow;//smSingleRow VEYA smSingleColumn VEYA smNone
clProGrid.Options.ColumnSize.Stretch
:= True;
clProGrid.ConnectDataSet(qrySql);
//
clProGrid.HorzAlignments[3, 3] := 2;
clProGrid.Colors[3, 3] := clAlphaColor.clYellow;
clProGrid.FontStyles[5,3] := 1;
clProGrid.EndUpdate;
end;
except
ShowMessage('[01] Exception Class: '+LastExceptionClassName+' Exception
Message: '+LastExceptionMessage);
end;
//qrySql.Free;
MyForm.Run;
end;
begin
try
try
Server := '192.168.5.24';
Kull := 'sa';
Sifre := 'Axoft';
DB := 'BITIM23';
Port := 50000;
Clomosy.EventLog := True;
if not Clomosy.DBSQLServerConnect('SQL Server', Server, Kull, Sifre, DB,
Port) then
begin
ShowMessage('DATABASE CONNECT ERROR');
Exit;
end;
MainForm;
except
ShowMessage('Connection Error '+'Exception Class: '+LastExceptionClassName+'
Exception Message: '+LastExceptionMessage);
end
finally
end;
end
|