paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-24 11:28:17 +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} {$IFDEF VER3_1_1}
{$DEFINE HAVEMSSQLCONN} {$DEFINE HAVEMSSQLCONN}
{$ENDIF} {$ENDIF}
@ -501,6 +509,15 @@ end;
procedure TMainForm.FormShow(Sender: TObject); procedure TMainForm.FormShow(Sender: TObject);
begin begin
CheckParams; 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; end;
procedure TMainForm.CheckParams; procedure TMainForm.CheckParams;

7
tools/lazdatadesktop/lazdatadeskstr.pas
View File

@ -113,6 +113,13 @@ resourcestring
sld_TestConnection = 'Test connection'; sld_TestConnection = 'Test connection';
sld_SuccesConnecting = 'Connection established successfully!'; 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 // Query panel
SSQLFilters = 'SQL files|*.sql|All files|*.*'; SSQLFilters = 'SQL files|*.sql|All files|*.*';
SRowsAffected = 'Query executed successfully: %d rows affected.'; SRowsAffected = 'Query executed successfully: %d rows affected.';