Skip to content
Permalink
Browse files

Refactor: rename mysql_structures unit neutrally to dbstructures

  • Loading branch information...
ansgarbecker committed Jun 22, 2019
1 parent c91ab24 commit 1d6a415f5f8408b9c8b0aa306836340c2675dac9
@@ -18,7 +18,7 @@ uses
insertfiles in '..\..\source\insertfiles.pas' {frmInsertFiles},
apphelpers in '..\..\source\apphelpers.pas',
sqlhelp in '..\..\source\sqlhelp.pas' {frmSQLhelp},
mysql_structures in '..\..\source\mysql_structures.pas',
dbstructures in '..\..\source\dbstructures.pas',
column_selection in '..\..\source\column_selection.pas' {ColumnSelectionForm},
data_sorting in '..\..\source\data_sorting.pas' {DataSortingForm},
createdatabase in '..\..\source\createdatabase.pas' {CreateDatabaseForm},
@@ -169,7 +169,7 @@
<DCCReference Include="..\..\source\sqlhelp.pas">
<Form>frmSQLhelp</Form>
</DCCReference>
<DCCReference Include="..\..\source\mysql_structures.pas"/>
<DCCReference Include="..\..\source\dbstructures.pas"/>
<DCCReference Include="..\..\source\column_selection.pas">
<Form>ColumnSelectionForm</Form>
</DCCReference>
@@ -18,7 +18,7 @@ uses
insertfiles in '..\..\source\insertfiles.pas' {frmInsertFiles},
apphelpers in '..\..\source\apphelpers.pas',
sqlhelp in '..\..\source\sqlhelp.pas' {frmSQLhelp},
mysql_structures in '..\..\source\mysql_structures.pas',
dbstructures in '..\..\source\dbstructures.pas',
column_selection in '..\..\source\column_selection.pas' {ColumnSelectionForm},
data_sorting in '..\..\source\data_sorting.pas' {DataSortingForm},
createdatabase in '..\..\source\createdatabase.pas' {CreateDatabaseForm},
@@ -7,7 +7,7 @@
<TargetedPlatforms>3</TargetedPlatforms>
<AppType>Application</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>18.5</ProjectVersion>
<ProjectVersion>18.6</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
@@ -169,7 +169,7 @@
<DCCReference Include="..\..\source\sqlhelp.pas">
<Form>frmSQLhelp</Form>
</DCCReference>
<DCCReference Include="..\..\source\mysql_structures.pas"/>
<DCCReference Include="..\..\source\dbstructures.pas"/>
<DCCReference Include="..\..\source\column_selection.pas">
<Form>ColumnSelectionForm</Form>
</DCCReference>
@@ -18,7 +18,7 @@ uses
insertfiles in '..\..\source\insertfiles.pas' {frmInsertFiles},
apphelpers in '..\..\source\apphelpers.pas',
sqlhelp in '..\..\source\sqlhelp.pas' {frmSQLhelp},
mysql_structures in '..\..\source\mysql_structures.pas',
dbstructures in '..\..\source\dbstructures.pas',
column_selection in '..\..\source\column_selection.pas' {ColumnSelectionForm},
data_sorting in '..\..\source\data_sorting.pas' {DataSortingForm},
createdatabase in '..\..\source\createdatabase.pas' {CreateDatabaseForm},
@@ -159,7 +159,7 @@
<DCCReference Include="..\..\source\sqlhelp.pas">
<Form>frmSQLhelp</Form>
</DCCReference>
<DCCReference Include="..\..\source\mysql_structures.pas"/>
<DCCReference Include="..\..\source\dbstructures.pas"/>
<DCCReference Include="..\..\source\column_selection.pas">
<Form>ColumnSelectionForm</Form>
</DCCReference>
@@ -12,7 +12,7 @@ interface
Classes, SysUtils, Graphics, GraphUtil, ClipBrd, Dialogs, Forms, Controls, ShellApi,
Windows, ShlObj, ActiveX, VirtualTrees, SynRegExpr, Messages, Math,
Registry, DateUtils, Generics.Collections, StrUtils, AnsiStrings, TlHelp32, Types,
dbconnection, mysql_structures, SynMemo, Menus, WinInet, gnugettext, Themes,
dbconnection, dbstructures, SynMemo, Menus, WinInet, gnugettext, Themes,
Character, ImgList, System.UITypes, ActnList, WinSock, IOUtils, StdCtrls, ComCtrls,
CommCtrl, Vcl.Imaging.pngimage;

@@ -3,7 +3,7 @@
interface

uses
Classes, SysUtils, windows, mysql_structures, SynRegExpr, Generics.Collections, Generics.Defaults,
Classes, SysUtils, windows, dbstructures, SynRegExpr, Generics.Collections, Generics.Defaults,
DateUtils, Types, Math, Dialogs, ADODB, DB, DBCommon, ComObj, Graphics, ExtCtrls, StrUtils,
gnugettext, AnsiStrings, Controls, Forms;

@@ -1,4 +1,4 @@
unit mysql_structures;
unit dbstructures;

// -------------------------------------
// MySQL Constants, Variables and Types
@@ -4,7 +4,7 @@ interface

uses
Windows, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
dbconnection, mysql_structures, ComCtrls, gnugettext, SynRegExpr, extra_controls;
dbconnection, dbstructures, ComCtrls, gnugettext, SynRegExpr, extra_controls;

type
TVarType = (vtString, vtNumeric, vtBoolean, vtEnum);
@@ -93,7 +93,7 @@ TfrmExportGrid = class(TFormWithSizeGrip)

implementation

uses main, apphelpers, dbconnection, mysql_structures;
uses main, apphelpers, dbconnection, dbstructures;

{$R *.dfm}

@@ -7,7 +7,7 @@ interface
uses
Windows, Forms, Graphics, Messages, VirtualTrees, ComCtrls, SysUtils, Classes,
StdCtrls, ExtCtrls, CheckLst, Controls, Types, Dialogs, Menus, Mask, DateUtils, Math,
dbconnection, mysql_structures, apphelpers, texteditor, bineditor, gnugettext,
dbconnection, dbstructures, apphelpers, texteditor, bineditor, gnugettext,
StrUtils, System.UITypes, SynRegExpr, Vcl.Themes;

type
@@ -821,7 +821,7 @@ function TDateTimeEditorLink.MicroSecondsPrecision: Integer;
Result := MakeInt(FTableColumn.LengthSet)
else begin
// Find default length of supported microseconds in datatype definition
// See mysql_structures
// See dbstructures
rx := TRegExpr.Create;
rx.Expression := '\.([^\.]+)$';
if rx.Exec(FTableColumn.DataType.Format) then
@@ -5,7 +5,7 @@ interface
uses
Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls,
ShellApi, Math, Graphics, ComCtrls, ToolWin, extra_controls,
dbconnection, mysql_structures, VirtualTrees, grideditlinks, SynRegExpr, gnugettext, apphelpers;
dbconnection, dbstructures, VirtualTrees, grideditlinks, SynRegExpr, gnugettext, apphelpers;

type
TColInfo = class
@@ -11,7 +11,7 @@ interface
uses
Windows, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, ComCtrls, CheckLst,
SynRegExpr, Buttons, ExtCtrls, ToolWin, ExtDlgs, Math, extra_controls,
dbconnection, mysql_structures, gnugettext;
dbconnection, dbstructures, gnugettext;

type
Tloaddataform = class(TFormWithSizeGrip)
@@ -1215,7 +1215,7 @@ TMainForm = class(TForm)
implementation

uses
About, printlist, mysql_structures, UpdateCheck,
About, printlist, dbstructures, UpdateCheck,
column_selection, data_sorting, grideditlinks, ExportGrid, jpeg, GIFImg;


@@ -12,7 +12,7 @@ interface
Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, ExtCtrls, SynEditHighlighter, SynHighlighterSQL,
SynEdit, SynMemo, VirtualTrees, SynEditKeyCmds, ActnList, SynEditMiscClasses, StdActns, Menus,
mysql_structures, gnugettext, Vcl.Themes, Vcl.Styles, SynRegExpr, Generics.Collections,
dbstructures, gnugettext, Vcl.Themes, Vcl.Styles, SynRegExpr, Generics.Collections,
Vcl.ImageCollection, extra_controls;

type
@@ -96,7 +96,7 @@ TfrmRoutineEditor = class(TFrame)

implementation

uses main, mysql_structures, grideditlinks;
uses main, dbstructures, grideditlinks;

{$R *.dfm}

@@ -6,7 +6,7 @@ interface
Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
ComCtrls, ToolWin, VirtualTrees, SynRegExpr, ActiveX, ExtCtrls, SynEdit,
SynMemo, Menus, Clipbrd, Math, System.UITypes,
grideditlinks, mysql_structures, dbconnection, apphelpers, gnugettext, StrUtils;
grideditlinks, dbstructures, dbconnection, apphelpers, gnugettext, StrUtils;

type
TFrame = TDBObjectEditor;
@@ -170,7 +170,7 @@ TfrmTableTools = class(TFormWithSizeGrip)

implementation

uses main, mysql_structures;
uses main, dbstructures;

const
STRSKIPPED: String = 'Skipped - ';
@@ -5,7 +5,7 @@ interface
uses
Windows, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, SynEdit, SynMemo,
SynCompletionProposal, SynRegExpr,
dbconnection, mysql_structures, apphelpers, gnugettext, ComCtrls;
dbconnection, dbstructures, apphelpers, gnugettext, ComCtrls;

type
TFrame = TDBObjectEditor;
@@ -5,7 +5,7 @@ interface
uses
Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SynEdit, SynMemo,
ExtCtrls,
dbconnection, mysql_structures, apphelpers, gnugettext;
dbconnection, dbstructures, apphelpers, gnugettext;

type
TFrame = TDBObjectEditor;

0 comments on commit 1d6a415

Please sign in to comment.
You can’t perform that action at this time.