Update nomenclature.

This commit is contained in:
rosenfield.albert
2008-10-10 01:04:16 +00:00
parent 35be9c3621
commit c3d7ff9f5b
5 changed files with 40 additions and 40 deletions

View File

@ -25,7 +25,7 @@ object CreateTableForm: TCreateTableForm
Top = 16 Top = 16
Width = 71 Width = 71
Height = 13 Height = 13
Caption = 'Table-Name:' Caption = 'Table name:'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -61,14 +61,14 @@ object CreateTableForm: TCreateTableForm
Top = 41 Top = 41
Width = 63 Width = 63
Height = 13 Height = 13
Caption = 'In Database:' Caption = 'In database:'
end end
object Label5: TLabel object Label5: TLabel
Left = 264 Left = 264
Top = 16 Top = 16
Width = 58 Width = 58
Height = 13 Height = 13
Caption = 'Table-Type:' Caption = 'Table type:'
OnClick = Button1Click OnClick = Button1Click
end end
object Bevel2: TBevel object Bevel2: TBevel
@ -140,7 +140,7 @@ object CreateTableForm: TCreateTableForm
Width = 225 Width = 225
Height = 185 Height = 185
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
Caption = 'Column-Properties:' Caption = 'Column properties:'
TabOrder = 9 TabOrder = 9
object lblFieldType: TLabel object lblFieldType: TLabel
Left = 16 Left = 16

View File

@ -2,7 +2,7 @@ object FieldEditForm: TFieldEditForm
Left = 572 Left = 572
Top = 111 Top = 111
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
Caption = 'Field-Editor' Caption = 'Column and Index editor'
ClientHeight = 354 ClientHeight = 354
ClientWidth = 294 ClientWidth = 294
Color = clBtnFace Color = clBtnFace
@ -25,13 +25,13 @@ object FieldEditForm: TFieldEditForm
Top = 8 Top = 8
Width = 278 Width = 278
Height = 305 Height = 305
ActivePage = tabField ActivePage = tabColumn
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
Images = MainForm.PngImageListMain Images = MainForm.PngImageListMain
TabOrder = 0 TabOrder = 0
OnChange = pcChange OnChange = pcChange
object tabField: TTabSheet object tabColumn: TTabSheet
Caption = 'Field' Caption = 'Column'
ImageIndex = 42 ImageIndex = 42
object lblName: TLabel object lblName: TLabel
Left = 8 Left = 8

View File

@ -18,7 +18,7 @@ type
TFieldEditForm = class(TForm) TFieldEditForm = class(TForm)
pc: TPageControl; pc: TPageControl;
tabField: TTabSheet; tabColumn: TTabSheet;
ButtonCancel: TButton; ButtonCancel: TButton;
ButtonOK: TButton; ButtonOK: TButton;
lblName: TLabel; lblName: TLabel;
@ -329,7 +329,7 @@ procedure TFieldEditForm.FormShow(Sender: TObject);
begin begin
if fMode in [femFieldUpdate, femFieldAdd] then if fMode in [femFieldUpdate, femFieldAdd] then
begin begin
pc.ActivePage := tabField; pc.ActivePage := tabColumn;
EditFieldName.SetFocus(); EditFieldName.SetFocus();
end; end;
@ -640,7 +640,7 @@ end;
procedure TFieldEditForm.pcChange(Sender: TObject); procedure TFieldEditForm.pcChange(Sender: TObject);
begin begin
// Set FMode, according to selected tab // Set FMode, according to selected tab
if pc.ActivePage = tabField then if pc.ActivePage = tabColumn then
begin begin
if FModeWhenCalled = femFieldUpdate then if FModeWhenCalled = femFieldUpdate then
begin begin
@ -1094,12 +1094,12 @@ begin
femFieldUpdate: femFieldUpdate:
begin begin
ButtonOK.Caption := 'Update Field'; ButtonOK.Caption := 'Update Column';
end; end;
femFieldAdd: femFieldAdd:
begin begin
ButtonOK.Caption := 'Add Field'; ButtonOK.Caption := 'Add Column';
end; end;
femIndexEditor: femIndexEditor:

View File

@ -176,7 +176,7 @@ object frmInsertFiles: TfrmInsertFiles
Width = 290 Width = 290
Height = 17 Height = 17
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
Caption = 'Show only BLOB- and MEMO-columns' Caption = 'Show only BLOB and TEXT columns'
Checked = True Checked = True
State = cbChecked State = cbChecked
TabOrder = 7 TabOrder = 7
@ -199,7 +199,7 @@ object frmInsertFiles: TfrmInsertFiles
Width = 492 Width = 492
Height = 129 Height = 129
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
Caption = 'Other field-values' Caption = 'Other field values'
TabOrder = 10 TabOrder = 10
DesignSize = ( DesignSize = (
492 492
@ -210,8 +210,8 @@ object frmInsertFiles: TfrmInsertFiles
Width = 215 Width = 215
Height = 39 Height = 39
Caption = Caption =
'Note: Don'#39't quote functions or NULL-values, otherwise they will ' + 'Note: Don'#39't quote functions or NULL values, otherwise they will ' +
'be inserted as ordinary string-values.' 'be inserted as strings.'
WordWrap = True WordWrap = True
end end
object ListBoxOtherFields: TListBox object ListBoxOtherFields: TListBox

View File

@ -612,9 +612,9 @@ object MainForm: TMainForm
object actUserManager: TAction object actUserManager: TAction
Tag = 34 Tag = 34
Category = 'Tools' Category = 'Tools'
Caption = 'User-Manager' Caption = 'User manager'
Enabled = False Enabled = False
Hint = 'User-Manager' Hint = 'Manage user authentication and privileges'
ImageIndex = 11 ImageIndex = 11
OnExecute = actUserManagerExecute OnExecute = actUserManagerExecute
end end
@ -652,34 +652,34 @@ object MainForm: TMainForm
object actCopyAsHTML: TAction object actCopyAsHTML: TAction
Tag = 49 Tag = 49
Category = 'Export/Import' Category = 'Export/Import'
Caption = 'Copy as HTML-table' Caption = 'Copy grid data as HTML'
Enabled = False Enabled = False
Hint = 'Copy data as HTML-table' Hint = 'Copy grid data as HTML'
ImageIndex = 32 ImageIndex = 32
OnExecute = actCopyAsHTMLExecute OnExecute = actCopyAsHTMLExecute
end end
object actCopyAsCSV: TAction object actCopyAsCSV: TAction
Tag = 48 Tag = 48
Category = 'Export/Import' Category = 'Export/Import'
Caption = 'Copy as CSV-data' Caption = 'Copy grid data as CSV'
Enabled = False Enabled = False
Hint = 'Copy data as CSV-data' Hint = 'Copy grid contents as CSV data'
ImageIndex = 49 ImageIndex = 49
OnExecute = actCopyAsCSVExecute OnExecute = actCopyAsCSVExecute
end end
object actCopyAsXML: TAction object actCopyAsXML: TAction
Category = 'Export/Import' Category = 'Export/Import'
Caption = 'Copy as XML-data' Caption = 'Copy grid data as XML'
Enabled = False Enabled = False
Hint = 'Copy data as XML-data' Hint = 'Copy grid data as XML'
ImageIndex = 48 ImageIndex = 48
OnExecute = actCopyAsXMLExecute OnExecute = actCopyAsXMLExecute
end end
object actExportData: TAction object actExportData: TAction
Category = 'Export/Import' Category = 'Export/Import'
Caption = 'Export data ...' Caption = 'Export grid data as CSV/HTML/XML...'
Enabled = False Enabled = False
Hint = 'Save table-data to file ...' Hint = 'Save grid data to file'
ImageIndex = 20 ImageIndex = 20
OnExecute = actExportDataExecute OnExecute = actExportDataExecute
end end
@ -738,24 +738,24 @@ object MainForm: TMainForm
end end
object actInsertFiles: TAction object actInsertFiles: TAction
Category = 'Export/Import' Category = 'Export/Import'
Caption = 'Insert files into BLOB-fields...' Caption = 'Insert files into BLOB fields...'
Enabled = False Enabled = False
ImageIndex = 47 ImageIndex = 47
OnExecute = actInsertFilesExecute OnExecute = actInsertFilesExecute
end end
object actExportTables: TAction object actExportTables: TAction
Category = 'Export/Import' Category = 'Export/Import'
Caption = 'Export tables as SQL' Caption = 'Export database as SQL'
Enabled = False Enabled = False
Hint = 'Dump tables to an SQL file' Hint = 'Dump database objects to an SQL file'
ImageIndex = 20 ImageIndex = 20
OnExecute = actExportTablesExecute OnExecute = actExportTablesExecute
end end
object actLoadSQL: TAction object actLoadSQL: TAction
Category = 'SQL' Category = 'SQL'
Caption = 'Load SQL-file ...' Caption = 'Load SQL file...'
Enabled = False Enabled = False
Hint = 'Load SQL-file ...' Hint = 'Load SQL file...'
ImageIndex = 52 ImageIndex = 52
ShortCut = 16463 ShortCut = 16463
OnExecute = actLoadSQLExecute OnExecute = actLoadSQLExecute
@ -862,26 +862,26 @@ object MainForm: TMainForm
end end
object actEditField: TAction object actEditField: TAction
Category = 'Table' Category = 'Table'
Caption = 'Edit field' Caption = 'Edit column'
Enabled = False Enabled = False
Hint = 'Edit field properties' Hint = 'Edit column properties'
ImageIndex = 93 ImageIndex = 93
ShortCut = 32781 ShortCut = 32781
OnExecute = actEditFieldExecute OnExecute = actEditFieldExecute
end end
object actCreateField: TAction object actCreateField: TAction
Category = 'Table' Category = 'Table'
Caption = 'Add field' Caption = 'Add column'
Enabled = False Enabled = False
Hint = 'Create new field in selected table' Hint = 'Create new column in selected table'
ImageIndex = 91 ImageIndex = 91
OnExecute = actCreateFieldExecute OnExecute = actCreateFieldExecute
end end
object actDropFields: TAction object actDropFields: TAction
Category = 'Table' Category = 'Table'
Caption = 'Delete selected field(s) ...' Caption = 'Delete selected column(s) ...'
Enabled = False Enabled = False
Hint = 'Delete selected field(s)' Hint = 'Delete selected column(s)'
ImageIndex = 92 ImageIndex = 92
OnExecute = actDropFieldsExecute OnExecute = actDropFieldsExecute
end end
@ -895,7 +895,7 @@ object MainForm: TMainForm
end end
object actDropDatabase: TAction object actDropDatabase: TAction
Category = 'Database' Category = 'Database'
Caption = 'Drop Database' Caption = 'Drop database'
Enabled = False Enabled = False
Hint = 'Delete database and all contained tables and objects' Hint = 'Delete database and all contained tables and objects'
ImageIndex = 7 ImageIndex = 7
@ -936,7 +936,7 @@ object MainForm: TMainForm
end end
object actImportCSV: TAction object actImportCSV: TAction
Category = 'Export/Import' Category = 'Export/Import'
Caption = 'Import CSV file' Caption = 'Import CSV file...'
Enabled = False Enabled = False
Hint = 'Import a CSV or tab delimited file' Hint = 'Import a CSV or tab delimited file'
ImageIndex = 50 ImageIndex = 50