1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
unit MyxSchemaEditor;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TntStdCtrls, ExtCtrls, TntExtCtrls, ComCtrls,
TntComCtrls, MyxEditor, MyxDbUtils;
type
TMyxSchemaEditorForm = class(TMyxEditorForm)
HeaderPnl: TTntPanel;
NameLbl: TTntLabel;
NameEd: TTntEdit;
LeftPnl: TTntPanel;
RightPnl: TTntPanel;
BottomPnl: TTntPanel;
ApplyChangesBtn: TTntButton;
CancelBtn: TTntButton;
TntLabel1: TTntLabel;
CollationComboBox: TTntComboBox;
PageControl: TTntPageControl;
CommentTabSheet: TTntTabSheet;
CommentMemo: TTntMemo;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ApplyChangesBtnClick(Sender: TObject);
procedure CancelBtnClick(Sender: TObject);
procedure DataChange(Sender: TObject);
private
{ Private declarations }
protected
procedure SetModified(Modified: Boolean); override;
public
{ Public declarations }
procedure StartEditObject(Obj: Pointer); override;
end;
var
MyxSchemaEditorForm: TMyxSchemaEditorForm;
implementation
{$R *.dfm}
// -----------------------------------------------------------------------------
procedure TMyxSchemaEditorForm.FormCreate(Sender: TObject);
begin
PageControl.ActivePageIndex := 0;
UpdateCollations(CollationComboBox);
end;
// -----------------------------------------------------------------------------
procedure TMyxSchemaEditorForm.FormDestroy(Sender: TObject);
begin
//
end;
// -----------------------------------------------------------------------------
procedure TMyxSchemaEditorForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;
// -----------------------------------------------------------------------------
procedure TMyxSchemaEditorForm.StartEditObject(Obj: Pointer);
begin
inherited;
NameEd.Text := Grt.DictString[Obj, 'name'];
CommentMemo.Text := Grt.DictString[Obj, 'comment'];
SetCollations(CollationComboBox,
Grt.DictString[Obj, 'defaultCollationName']);
end;
// -----------------------------------------------------------------------------
procedure TMyxSchemaEditorForm.SetModified(Modified: Boolean);
begin
inherited;
ApplyChangesBtn.Enabled := Modified;
end;
// -----------------------------------------------------------------------------
procedure TMyxSchemaEditorForm.ApplyChangesBtnClick(Sender: TObject);
begin
if (NameEd.Text <> '') then
Grt.DictString[ObjectCopy, 'name'] := NameEd.Text;
Grt.DictString[ObjectCopy, 'comment'] := CommentMemo.Text;
if (Copy(CollationComboBox.Text, 1, 4) = '____') then
CollationComboBox.ItemIndex := 0;
SetCharsetCollation(CollationComboBox.Text, ObjectCopy,
'defaultCharacterSetName', 'defaultCollationName');
ApplyChanges;
end;
// -----------------------------------------------------------------------------
procedure TMyxSchemaEditorForm.CancelBtnClick(Sender: TObject);
begin
Close;
end;
// -----------------------------------------------------------------------------
procedure TMyxSchemaEditorForm.DataChange(Sender: TObject);
begin
Modified := True;
end;
// -----------------------------------------------------------------------------
end.
|
