paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 19:18:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Start with dialog if no recent items were found

Browse Source 
git-svn-id: trunk@51132 -
This commit is contained in:
michael 2016-01-02 17:02:31 +00:00
parent 8b9aa80ed6
commit 9b43183ae9
2 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tools/lazdatadesktop/frmmain.pp
View File

@ -18,6 +18,14 @@
* *
***************************************************************************
}
{
Adding support for new connection types requires implementing a Data Dictionary for your connection type
see fcl-db/src/datadict for many implementations.
When done so, add the unit to the uses clause in the implementation, and register it in RegisterDDEngines
}
{ MS-SQL server connectop}
{$IFDEF VER3_1_1}
{$DEFINE HAVEMSSQLCONN}
{$ENDIF}
@ -501,6 +509,15 @@ end;
procedure TMainForm.FormShow(Sender: TObject);
begin
CheckParams;
if (FRecentConnections.Count=0) and (FRecentDicts.Count=0) then
case QuestionDlg(sld_FirstStart,sql_NoConnectionsFound,mtInformation,[
mrOK,sld_startnewdict,
mrYes,sld_startnewconnection,
mrCancel,sld_startempty
],0) of
mrYes : NewConnection;
mrOK : NewDataDict;
end
end;
procedure TMainForm.CheckParams;

7
tools/lazdatadesktop/lazdatadeskstr.pas
View File

@ -113,6 +113,13 @@ resourcestring
sld_TestConnection = 'Test connection';
sld_SuccesConnecting = 'Connection established successfully!';
sld_FirstStart = 'First start of database desktop';
sql_NoConnectionsFound = 'No connections or data dictionaries were found.'#13#10+
' Start by creating a new connection or data dictionary';
sld_startnewdict = 'Start new dictionary';
sld_startnewconnection = 'Create new connection';
sld_startempty = 'Thanks, I know what to do';
// Query panel
SSQLFilters = 'SQL files|*.sql|All files|*.*';
SRowsAffected = 'Query executed successfully: %d rows affected.';