mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-06 07:58:07 +02:00
* Convert connection editor to frame
git-svn-id: trunk@51168 -
This commit is contained in:
michael
parent
75ba67897f
commit
9972eb105e
3
.gitattributes
vendored
3
.gitattributes
vendored
@ -8859,10 +8859,11 @@ tools/lazdatadesktop/bitmaps/qrybtn_open.xpm svneol=native#text/plain
|
||||
tools/lazdatadesktop/bitmaps/qrybtn_previous.xpm svneol=native#text/plain
|
||||
tools/lazdatadesktop/bitmaps/qrybtn_save.xpm svneol=native#text/plain
|
||||
tools/lazdatadesktop/bitmaps/querypanel.txt svneol=native#text/plain
|
||||
tools/lazdatadesktop/conneditor.pp svneol=native#text/plain
|
||||
tools/lazdatadesktop/ddfiles.pp svneol=native#text/plain
|
||||
tools/lazdatadesktop/dicteditor.pp svneol=native#text/plain
|
||||
tools/lazdatadesktop/dicteditor.res -text
|
||||
tools/lazdatadesktop/fraconnection.lfm svneol=native#text/plain
|
||||
tools/lazdatadesktop/fraconnection.pp svneol=native#text/plain
|
||||
tools/lazdatadesktop/fradata.lfm svneol=native#text/plain
|
||||
tools/lazdatadesktop/fradata.pp svneol=native#text/plain
|
||||
tools/lazdatadesktop/fraquery.lfm svneol=native#text/plain
|
||||
|
||||
382
tools/lazdatadesktop/fraconnection.lfm
Normal file
382
tools/lazdatadesktop/fraconnection.lfm
Normal file
@ -0,0 +1,382 @@
|
||||
object ConnectionFrame: TConnectionFrame
|
||||
Left = 0
|
||||
Height = 398
|
||||
Top = 0
|
||||
Width = 655
|
||||
ClientHeight = 398
|
||||
ClientWidth = 655
|
||||
TabOrder = 0
|
||||
DesignLeft = 1122
|
||||
DesignTop = 352
|
||||
object FTV: TTreeView
|
||||
Left = 0
|
||||
Height = 398
|
||||
Top = 0
|
||||
Width = 300
|
||||
Align = alLeft
|
||||
DefaultItemHeight = 16
|
||||
Images = FImgList
|
||||
TabOrder = 0
|
||||
OnSelectionChanged = DoSelectNode
|
||||
end
|
||||
object FSplit: TSplitter
|
||||
Left = 300
|
||||
Height = 398
|
||||
Top = 0
|
||||
Width = 5
|
||||
end
|
||||
object FPC: TPageControl
|
||||
Left = 305
|
||||
Height = 398
|
||||
Top = 0
|
||||
Width = 350
|
||||
ActivePage = FTSDisplay
|
||||
Align = alClient
|
||||
TabIndex = 0
|
||||
TabOrder = 2
|
||||
OnChange = DoTabChange
|
||||
object FTSDisplay: TTabSheet
|
||||
Caption = 'Selected Object'
|
||||
ClientHeight = 364
|
||||
ClientWidth = 342
|
||||
object FDisplay: TPanel
|
||||
Left = 0
|
||||
Height = 364
|
||||
Top = 0
|
||||
Width = 342
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
object FTSQuery: TTabSheet
|
||||
Caption = 'Run Query'
|
||||
end
|
||||
end
|
||||
object FImgList: TImageList
|
||||
left = 51
|
||||
top = 42
|
||||
Bitmap = {
|
||||
4C690A000000100000001000000000000000000000000E0E0E46222222AD1414
|
||||
14E1000000E8101010E21D1D1D9F0000003E0000000B00000000000000000000
|
||||
00000000000000000000000000000000000020202075373737FD7D7D7DFF9090
|
||||
90FFAAAAAAFF9B9B9BFF545454FF1D1D1DFD0000008B00000000000000000000
|
||||
000000000000000000000000000000000000000000FF989898FFB4B4B4FF9393
|
||||
93FF8C8C8CFF848484FF7D7D7DFF727272FF000000FF141414E1000000E81010
|
||||
10E21D1D1D9F0000003E0000000B00000000000000FFB7B7B7FF989898FF9090
|
||||
90FF888888FF808080FF797979FF727272FF000000FF909090FFAAAAAAFF9B9B
|
||||
9BFF545454FF1D1D1DFD0000008B00000000000000FFB4B4B4FFA3A3A3FF8C8C
|
||||
8CFF848484FF8C8C8CFF939393FF6E6E6EFF000000FF939393FF8C8C8CFF8484
|
||||
84FF7D7D7DFF727272FF000000FF00000000000000FF999999FFADADADFFA8A8
|
||||
A8FFAFAFAFFFA6A6A6FF858585FF565656FF000000FF909090FF888888FF8080
|
||||
80FF797979FF727272FF000000FF00000000000000FFA7A7A7FF777777FF8D8D
|
||||
8DFF8D8D8DFF8A8A8AFF616161FF656565FF000000FF8C8C8CFF848484FF8C8C
|
||||
8CFF939393FF6E6E6EFF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF1C1C1CFF000000FFA8A8A8FFAFAFAFFFA6A6
|
||||
A6FF858585FF565656FF000000FFA58D92FFA1878CFF000000FFB7C0CCFFD2D7
|
||||
DFFFCDD3DCFFCDD3DCFFC4CBD5FF8292A7FF000000FF525252FF8D8D8DFF8A8A
|
||||
8AFF616161FF656565FF000000FF8D6B71FF815B62FF000000FFB2BCC9FFC3CA
|
||||
D4FFC3CAD4FFC3CAD4FFC3CAD4FFC3CAD4FFB8C1CDFF000000FF3F3F3FFF6969
|
||||
69FF666666FF535353FF000000FF8D6B71FF815B62FF000000FFA9B4C2FFC3CA
|
||||
D4FFA0ABBBFF64758DFF9CA8B9FFC3CAD4FFC3CAD4FFAEB8C5FF000000FF8888
|
||||
88FF000000FF000000FF000000FF8D6B71FF815B62FF000000FF9BA7B8FFC3CA
|
||||
D4FFB5BECAFFA9B4C2FF6D7F98FF7E8EA3FF9CA8B9FF7E8EA3FF000000FF0000
|
||||
00FFB2BCC9FFAEB8C5FF000000FF8D6B71FF815B62FF000000FF76879FFFB8C1
|
||||
CDFFC3CAD4FFC3CAD4FFC3CAD4FFC3CAD4FFC3CAD4FFC3CAD4FFC3CAD4FFC3CA
|
||||
D4FFA3AEBEFF000000FF00000030000000FF000000FF00000057000000FF8594
|
||||
A8FFA9B4C2FFB2BCC9FFB2BCC9FFB2BCC9FFB2BCC9FFB2BCC9FFB2BCC9FF8998
|
||||
ACFF000000FF00000037000000000000000000000000000000000000001B0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000370000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000000000
|
||||
0000000000000000000000000000000000FF937279FF815B62FF815B62FF815B
|
||||
62FF815B62FF815B62FF815B62FF815B62FF815B62FF000000FF000000000000
|
||||
0000000000000000000000000000000000FFFFFFFFFFDFDFDFFFE2E2E2FFE4E4
|
||||
E4FFE6E6E6FFE8E8E8FFE8E8E8FFEBEBEBFFEDEDEDFF000000FF000000000000
|
||||
0000000000000000000000000000000000FFFFFFFFFF999999FF9A9A9AFF9C9C
|
||||
9CFFE8E8E8FF9F9F9FFF9F9F9FFFA0A0A0FFEFEFEFFF000000FF000000000000
|
||||
0000000000000000000000000000000000FFFFFFFFFFE4E4E4FFE6E6E6FFE8E8
|
||||
E8FFEBEBEBFFEDEDEDFFEDEDEDFFEFEFEFFFF1F1F1FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FFFFFFFFFF9C9C9CFF9D9D9DFF9F9F
|
||||
9FFFEDEDEDFFA2A2A2FFA2A2A2FFA3A3A3FFF3F3F3FF000000FF815B62FF815B
|
||||
62FF815B62FF815B62FF000000FF000000FFFFFFFFFFE8E8E8FFEBEBEBFFEDED
|
||||
EDFFEFEFEFFFF1F1F1FFF1F1F1FFF3F3F3FFF6F6F6FF000000FFE8E8E8FFE8E8
|
||||
E8FFEBEBEBFFEDEDEDFF000000FF000000FFFFFFFFFF9D9D9DFF9F9F9FFFA0A0
|
||||
A0FFEFEFEFFFA3A3A3FFA3A3A3FFA4A4A4FFF6F6F6FF000000FF9F9F9FFF9F9F
|
||||
9FFFA0A0A0FFEFEFEFFF000000FF000000FFFFFFFFFFEBEBEBFFEDEDEDFFEFEF
|
||||
EFFFF1F1F1FFF3F3F3FFF3F3F3FFF6F6F6FFF8F8F8FF000000FFEDEDEDFFEDED
|
||||
EDFFEFEFEFFFF1F1F1FF000000FF000000FFFFFFFFFFA0A0A0FFA2A2A2FFA3A3
|
||||
A3FFF3F3F3FFA6A6A6FFA6A6A6FFA8A8A8FFFAFAFAFF000000FFA2A2A2FFA2A2
|
||||
A2FFA3A3A3FFF3F3F3FF000000FF000000FFFFFFFFFFEFEFEFFFF1F1F1FFF3F3
|
||||
F3FFF6F6F6FFF8F8F8FFF8F8F8FFFAFAFAFFFCFCFCFF000000FFF1F1F1FFF1F1
|
||||
F1FFF3F3F3FFF6F6F6FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FFA3A3A3FFA3A3
|
||||
A3FFA4A4A4FFF6F6F6FF000000FF000000000000000000000000000000000000
|
||||
0000000000FFFFFFFFFFEBEBEBFFEDEDEDFFEFEFEFFFF1F1F1FFF3F3F3FFF3F3
|
||||
F3FFF6F6F6FFF8F8F8FF000000FF000000000000000000000000000000000000
|
||||
0000000000FFFFFFFFFFA0A0A0FFA2A2A2FFA3A3A3FFF3F3F3FFA6A6A6FFA6A6
|
||||
A6FFA8A8A8FFFAFAFAFF000000FF000000000000000000000000000000000000
|
||||
0000000000FFFFFFFFFFEFEFEFFFF1F1F1FFF3F3F3FFF6F6F6FFF8F8F8FFF8F8
|
||||
F8FFFAFAFAFFFCFCFCFF000000FF000000000000000000000000000000000000
|
||||
0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF0000000000000000000000000000000000000000000000FF937279FF815B
|
||||
62FF815B62FF815B62FF815B62FF815B62FF815B62FF815B62FF815B62FF0000
|
||||
00FF0000000000000000000000000000000000000000000000FFFFFFFFFFDFDF
|
||||
DFFFE2E2E2FFE4E4E4FFE6E6E6FFE8E8E8FFE8E8E8FFEBEBEBFFEDEDEDFF0000
|
||||
00FF0000000000000000000000000000000000000000000000FFFFFFFFFF9999
|
||||
99FF9A9A9AFF9C9C9CFFE8E8E8FF9F9F9FFF9F9F9FFFA0A0A0FFEFEFEFFF0000
|
||||
00FF0000000000000000000000000000000000000000000000FFFFFFFFFFE4E4
|
||||
E4FFE6E6E6FFE8E8E8FFEBEBEBFFEDEDEDFFEDEDEDFFEFEFEFFFF1F1F1FF0000
|
||||
00FF0000000000000000000000000000000000000000000000FFFFFFFFFF9C9C
|
||||
9CFF9D9D9DFF9F9F9FFFEDEDEDFFA2A2A2FFA2A2A2FFA3A3A3FFF3F3F3FF0000
|
||||
00FF0000000000000000000000000000000000000000000000FFFFFFFFFFE8E8
|
||||
E8FFEBEBEBFFEDEDEDFFEFEFEFFFF1F1F1FFF1F1F1FFF3F3F3FFF6F6F6FF0000
|
||||
00FF0000000000000000000000000000000000000000000000FFFFFFFFFF9D9D
|
||||
9DFF9F9F9FFFA0A0A0FFEFEFEFFFA3A3A3FFA3A3A3FFA4A4A4FFF6F6F6FF0000
|
||||
00FF0000000000000000000000000000000000000000000000FFFFFFFFFFEBEB
|
||||
EBFFEDEDEDFFEFEFEFFFF1F1F1FFF3F3F3FFF3F3F3FFF6F6F6FFF8F8F8FF0000
|
||||
00FF0000000000000000000000000000000000000000000000FFFFFFFFFFA0A0
|
||||
A0FFA2A2A2FFA3A3A3FFF3F3F3FFA6A6A6FFA6A6A6FFA8A8A8FFFAFAFAFF0000
|
||||
00FF0000000000000000000000000000000000000000000000FFFFFFFFFFEFEF
|
||||
EFFFF1F1F1FFF3F3F3FFF6F6F6FFF8F8F8FFF8F8F8FFFAFAFAFFFCFCFCFF0000
|
||||
00FF0000000000000000000000000000000000000000000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000DEDEDEFFDEDEDEFFA2A2A2FFDEDE
|
||||
DEFFDEDEDEFFA2A2A2FFDEDEDEFFDEDEDEFFA2A2A2FFDEDEDEFFDEDEDEFFA2A2
|
||||
A2FFDEDEDEFFCECECEFF0000000000000000DEDEDEFFD3D3D3FF9A9A9AFFD3D3
|
||||
D3FFD3D3D3FF9A9A9AFFD3D3D3FFD3D3D3FF9A9A9AFFD3D3D3FFD3D3D3FF9A9A
|
||||
9AFFD3D3D3FFC3C3C3FF0000000000000000A2A2A2FF9A9A9AFF9A9A9AFF9A9A
|
||||
9AFF9A9A9AFF9A9A9AFF9A9A9AFF9A9A9AFF9A9A9AFF9A9A9AFF9A9A9AFF9A9A
|
||||
9AFF9A9A9AFF8E8E8EFF0000000000000000DEDEDEFFD3D3D3FF9A9A9AFFF2F2
|
||||
F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFE0E0E0FF0000000000000000DEDEDEFFD3D3D3FF9A9A9AFFF2F2
|
||||
F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFE0E0E0FF0000000000000000A2A2A2FF9A9A9AFF9A9A9AFFF2F2
|
||||
F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFE0E0E0FF0000000000000000DEDEDEFFD3D3D3FF9A9A9AFFF2F2
|
||||
F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFE0E0E0FF0000000000000000DEDEDEFFD3D3D3FF9A9A9AFFF2F2
|
||||
F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFE0E0E0FF0000000000000000A2A2A2FF9A9A9AFF9A9A9AFFF2F2
|
||||
F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFE0E0E0FF0000000000000000DEDEDEFFD3D3D3FF9A9A9AFFF2F2
|
||||
F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFE0E0E0FF0000000000000000DEDEDEFFD3D3D3FF9A9A9AFFF2F2
|
||||
F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFE0E0E0FF0000000000000000A2A2A2FF9A9A9AFF9A9A9AFFF2F2
|
||||
F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFE0E0E0FF0000000000000000DEDEDEFFD3D3D3FF9A9A9AFFF2F2
|
||||
F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFE0E0E0FF0000000000000000CECECEFFC3C3C3FF8E8E8EFFE0E0
|
||||
E0FFE0E0E0FFE0E0E0FFE0E0E0FFE0E0E0FFE0E0E0FFE0E0E0FFE0E0E0FFE0E0
|
||||
E0FFE0E0E0FFD0D0D0FF00000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFC6C6C6FF7C7C7CFF7C7C7CFF7C7C7CFF7C7C7CFFC6C6C6FFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFEBEBEBFF000000FF000000FFFFFFFFFFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFBBBBBBFF757575FF757575FF757575FF757575FFBBBBBBFFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFDFDFDFFF000000FF000000FFFFFFFFFFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFBBBBBBFF757575FF757575FF757575FF757575FFBBBBBBFFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFDFDFDFFF000000FF000000FFFFFFFFFFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFBBBBBBFF757575FF757575FF757575FF757575FFBBBBBBFFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFDFDFDFFF000000FF000000FFC6C6C6FFBBBBBBFFBBBBBBFFBBBB
|
||||
BBFFBBBBBBFFBBBBBBFFBBBBBBFFBBBBBBFFBBBBBBFFBBBBBBFFBBBBBBFFBBBB
|
||||
BBFFBBBBBBFFADADADFF000000FF000000FFFFFFFFFFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFBBBBBBFF757575FF757575FF757575FF757575FFBBBBBBFFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFDFDFDFFF000000FF000000FFFFFFFFFFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFBBBBBBFF757575FF757575FF757575FF757575FFBBBBBBFFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFDFDFDFFF000000FF000000FFFFFFFFFFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFBBBBBBFF757575FF757575FF757575FF757575FFBBBBBBFFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFDFDFDFFF000000FF000000FFFFFFFFFFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFBBBBBBFF757575FF757575FF757575FF757575FFBBBBBBFFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFDFDFDFFF000000FF000000FFC6C6C6FFBBBBBBFFBBBBBBFFBBBB
|
||||
BBFFBBBBBBFFBBBBBBFFBBBBBBFFBBBBBBFFBBBBBBFFBBBBBBFFBBBBBBFFBBBB
|
||||
BBFFBBBBBBFFADADADFF000000FF000000FFFFFFFFFFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFBBBBBBFF757575FF757575FF757575FF757575FFBBBBBBFFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFDFDFDFFF000000FF000000FFFFFFFFFFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFBBBBBBFF757575FF757575FF757575FF757575FFBBBBBBFFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFDFDFDFFF000000FF000000FFFFFFFFFFF2F2F2FFF2F2F2FFF2F2
|
||||
F2FFBBBBBBFF757575FF757575FF757575FF757575FFBBBBBBFFF2F2F2FFF2F2
|
||||
F2FFF2F2F2FFDFDFDFFF000000FF000000FFEBEBEBFFDFDFDFFFDFDFDFFFDFDF
|
||||
DFFFADADADFF6C6C6CFF6C6C6CFF6C6C6CFF6C6C6CFFADADADFFDFDFDFFFDFDF
|
||||
DFFFDFDFDFFFCDCDCDFF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000FF0000
|
||||
00FF000000FF000000FF000000FF000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000004A000000FF0000004A000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF0000009A0000004900000000000000000000
|
||||
004A000000FF0000004A00000000000000FFFFFFFFFFD3D3D3FF000000FFE1EC
|
||||
F2FFE5EFF4FFD2DADFFFBDC4C9FF6E7174FF000000AD000000310000004A0000
|
||||
00FF0000004A0000000000000000000000FFFAFAFAFFD3D3D3FF000000FFC9DF
|
||||
EAFFCFE2ECFFCFE2ECFFCFE2ECFFD4E5EEFF484B4CFF00000049000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FFF5F5F5FFC9C9C9FF000000FFB1D2
|
||||
E2FFB1D2E2FFB1D2E2FFB1D2E2FF000000FFB1C4CFFF000000FF0000001E0000
|
||||
0000000000000000000000000000000000FFBFBFBFFFC0C0C0FF000000FF9CB9
|
||||
C7FF9CB9C7FFB1D2E2FF000000FF9CB9C7FF000000FFB1C4CFFF000000FF0000
|
||||
001E000000000000000000000000000000FFF0F0F0FFB7B7B7FF000000FF0000
|
||||
00FF788F9AFF000000FF9CB9C7FF000000FF697E87FF000000FFB1C4CFFF0000
|
||||
00FF0000001E000000000000000000000044000000FF000000FF000000FF0000
|
||||
0044000000FF89A3AFFF000000FF697E87FF000000FF0000005E000000FF8998
|
||||
A0FF000000FF0000000000000000000000000000000000000000000000000000
|
||||
000000000044000000FF697E87FF000000FF0000005E00000000000000300000
|
||||
00FF000000FF0000000000000000000000000000000000000000000000000000
|
||||
00000000000000000030000000FF0000005E0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000006C4E315A6C4E
|
||||
31FF6C4E31FF6C4E31FF6C4E315A000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000006C4E31FF6C4E
|
||||
31FF000000006C4E31946C4E31FF000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000006C4E31FF6C4E
|
||||
31FF6C4E31FF6C4E31FF6C4E31FF000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000006C4E31FF6C4E
|
||||
31FF000000006C4E31946C4E31FF000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000006C4E31FF6C4E
|
||||
31FF000000006C4E31946C4E31FF6C4E315A6C4E31FF6C4E31FF6C4E31FF6C4E
|
||||
315A000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000006C4E31FF6C4E31FF000000006C4E31946C4E
|
||||
31FF000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000006C4E31FF6C4E31FF6C4E31FF6C4E31FF6C4E
|
||||
31FF000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000006C4E31FF6C4E31FF000000006C4E31946C4E
|
||||
31FF000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000006C4E31FF6C4E31FF000000006C4E31946C4E
|
||||
31FF0000000000000000000000FF000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000FF00000000000000000000
|
||||
000000000000000000000000000000000000000000000000006A000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000006A000000FF0000006A0000
|
||||
0000000000000000000000000000000000000000000000000000000000FF0000
|
||||
00000000000000000000000000000000006A000000FFCFDED1FF000000FF0000
|
||||
006A000000000000006A000000FF000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000FFCFDED1FF77A37DFF77A37DFF0000
|
||||
00FF0000006A000000FF000000FF000000000000000000000000000000000000
|
||||
00000000000000000000000000000000006A000000FF77A37DFF77A37DFF77A3
|
||||
7DFF000000FFE3ECE4FF000000FF000000000000000000000000000000FF0000
|
||||
00FF000000FF000000FF000000FF000000000000006A000000FF77A37DFF77A3
|
||||
7DFFAFC9B3FF77A37DFF000000FF000000000000000000000000000000000000
|
||||
00000000008C000000FF0000008C00000000000000000000006A000000FFAFC9
|
||||
B3FF77A37DFF77A37DFF000000FF000000000000000000000000000000000000
|
||||
008C000000FF0000008C00000000000000000000006A000000FFE3ECE4FF77A3
|
||||
7DFF77A37DFF77A37DFF000000FF0000000000000000000000000000008C0000
|
||||
00FF0000008C000000000000000000000000000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000000000000000000000000000FF0000
|
||||
00FF000000FF000000FF000000FF000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000FF0000
|
||||
00FF0000004E0000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000FF3BE7FBFF4DB6
|
||||
F2FF000000FF0000000000000000000000000000000000000000000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF3DEBFCFF44B5F7FF2C50
|
||||
5DFF000000FF0000000000000000000000000000000000000000000000FF9372
|
||||
79FF815B62FF815B62FF815B62FF000000FF3BE9FCFF45B5F7FF345F6CFF0000
|
||||
00FF000000FF0000000000000000000000000000000000000000000000FFFFFF
|
||||
FFFFDFDFDFFFE2E2E2FF000000FF39DFF9FF44B2F4FF42616BFF000000FFCACA
|
||||
CAFF000000FF0000000000000000000000000000000000000000000000FFFFFF
|
||||
FFFF999999FF000000FF36D2F6FF4DB4EFFF2B4F5CFF000000FFA0A0A0FFEFEF
|
||||
EFFF000000FF0000000000000000000000000000000000000000000000FFFFFF
|
||||
FFFFE4E4E4FF000000FF74AED7FF305965FF000000FFEDEDEDFFEFEFEFFFF1F1
|
||||
F1FF000000FF0000000000000000000000000000000000000000000000FFFFFF
|
||||
FFFF000000FF15414FFF000000FF000000FFA2A2A2FFA2A2A2FFA3A3A3FFF3F3
|
||||
F3FF000000FF0000000000000000000000000000000000000000000000FFFFFF
|
||||
FFFF000000FF000000FFEDEDEDFFEFEFEFFFF1F1F1FFF1F1F1FFF3F3F3FFF6F6
|
||||
F6FF000000FF0000000000000000000000000000000000000000000000FFFFFF
|
||||
FFFF9D9D9DFF9F9F9FFFA0A0A0FFEFEFEFFFA3A3A3FFA3A3A3FFA4A4A4FFF6F6
|
||||
F6FF000000FF0000000000000000000000000000000000000000000000FFFFFF
|
||||
FFFFEBEBEBFFEDEDEDFFEFEFEFFFF1F1F1FFF3F3F3FFF3F3F3FFF6F6F6FFF8F8
|
||||
F8FF000000FF0000000000000000000000000000000000000000000000FFFFFF
|
||||
FFFFA0A0A0FFA2A2A2FFA3A3A3FFF3F3F3FFA6A6A6FFA6A6A6FFA8A8A8FFFAFA
|
||||
FAFF000000FF0000000000000000000000000000000000000000000000FFFFFF
|
||||
FFFFEFEFEFFFF1F1F1FFF3F3F3FFF6F6F6FFF8F8F8FFF8F8F8FFFAFAFAFFFCFC
|
||||
FCFF000000FF0000000000000000000000000000000000000000000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF0000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000000000
|
||||
0000000000000000000000000000000000FF937279FF815B62FF815B62FF815B
|
||||
62FF815B62FF815B62FF815B62FF815B62FF815B62FF000000FF000000000000
|
||||
0000000000000000000000000000000000FFFFFFFFFFDFDFDFFFE2E2E2FFE4E4
|
||||
E4FFE6E6E6FFE8E8E8FFE8E8E8FFEBEBEBFFEDEDEDFF000000FF000000000000
|
||||
0000000000000000000000000000000000FFFFFFFFFF999999FF9A9A9AFF9C9C
|
||||
9CFFE8E8E8FF9F9F9FFF9F9F9FFFA0A0A0FFEFEFEFFF000000FF000000000000
|
||||
0000000000000000000000000000000000FFFFFFFFFFE4E4E4FFE6E6E6FFE8E8
|
||||
E8FFEBEBEBFFEDEDEDFFEDEDEDFFEFEFEFFFF1F1F1FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FFFFFFFFFF9C9C9CFF9D9D9DFF9F9F
|
||||
9FFFEDEDEDFFA2A2A2FFA2A2A2FFA3A3A3FFF3F3F3FF000000FF815B62FF815B
|
||||
62FF815B62FF815B62FF000000FF000000FFFFFFFFFFE8E8E8FFEBEBEBFFEDED
|
||||
EDFFEFEFEFFFF1F1F1FFF1F1F1FFF3F3F3FFF6F6F6FF000000FFE8E8E8FFE8E8
|
||||
E8FFEBEBEBFFEDEDEDFF000000FF000000FFFFFFFFFF9D9D9DFF9F9F9FFFA0A0
|
||||
A0FFEFEFEFFFA3A3A3FFA3A3A3FFA4A4A4FFF6F6F6FF000000FF9F9F9FFF9F9F
|
||||
9FFFA0A0A0FFEFEFEFFF000000FF000000FFFFFFFFFFEBEBEBFFEDEDEDFFEFEF
|
||||
EFFFF1F1F1FFF3F3F3FFF3F3F3FFF6F6F6FFF8F8F8FF000000FFEDEDEDFFEDED
|
||||
EDFFEFEFEFFFF1F1F1FF000000FF000000FFFFFFFFFFA0A0A0FFA2A2A2FFA3A3
|
||||
A3FFF3F3F3FFA6A6A6FFA6A6A6FFA8A8A8FFFAFAFAFF000000FFA2A2A2FFA2A2
|
||||
A2FFA3A3A3FFF3F3F3FF000000FF000000FFFFFFFFFFEFEFEFFFF1F1F1FFF3F3
|
||||
F3FFF6F6F6FFF8F8F8FFF8F8F8FFFAFAFAFFFCFCFCFF000000FFF1F1F1FFF1F1
|
||||
F1FFF3F3F3FFF6F6F6FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FFA3A3A3FFA3A3
|
||||
A3FFA4A4A4FFF6F6F6FF000000FF000000000000000000000000000000000000
|
||||
0000000000FFFFFFFFFFEBEBEBFFEDEDEDFFEFEFEFFFF1F1F1FFF3F3F3FFF3F3
|
||||
F3FFF6F6F6FFF8F8F8FF000000FF000000000000000000000000000000000000
|
||||
0000000000FFFFFFFFFFA0A0A0FFA2A2A2FFA3A3A3FFF3F3F3FFA6A6A6FFA6A6
|
||||
A6FFA8A8A8FFFAFAFAFF000000FF000000000000000000000000000000000000
|
||||
0000000000FFFFFFFFFFEFEFEFFFF1F1F1FFF3F3F3FFF6F6F6FFF8F8F8FFF8F8
|
||||
F8FFFAFAFAFFFCFCFCFF000000FF000000000000000000000000000000000000
|
||||
0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000000000
|
||||
0000000000000000000000000000000000FF937279FF815B62FF815B62FF815B
|
||||
62FF815B62FF815B62FF815B62FF815B62FF815B62FF000000FF000000000000
|
||||
0000000000000000000000000000000000FFFFFFFFFFDFDFDFFFE2E2E2FFE4E4
|
||||
E4FFE6E6E6FFE8E8E8FFE8E8E8FFEBEBEBFFEDEDEDFF000000FF000000000000
|
||||
0000000000000000000000000000000000FFFFFFFFFF999999FF9A9A9AFF9C9C
|
||||
9CFFE8E8E8FF9F9F9FFF9F9F9FFFA0A0A0FFEFEFEFFF000000FF000000000000
|
||||
0000000000000000000000000000000000FFFFFFFFFFE4E4E4FFE6E6E6FFE8E8
|
||||
E8FFEBEBEBFFEDEDEDFFEDEDEDFFEFEFEFFFF1F1F1FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FFFFFFFFFF9C9C9CFF9D9D9DFF9F9F
|
||||
9FFFEDEDEDFFA2A2A2FFA2A2A2FFA3A3A3FFF3F3F3FF000000FF815B62FF815B
|
||||
62FF815B62FF815B62FF000000FF000000FFFFFFFFFFE8E8E8FFEBEBEBFFEDED
|
||||
EDFFEFEFEFFFF1F1F1FFF1F1F1FFF3F3F3FFF6F6F6FF000000FFE8E8E8FFE8E8
|
||||
E8FFEBEBEBFFEDEDEDFF000000FF000000FFFFFFFFFF9D9D9DFF9F9F9FFFA0A0
|
||||
A0FFEFEFEFFFA3A3A3FFA3A3A3FFA4A4A4FFF6F6F6FF000000FF9F9F9FFF9F9F
|
||||
9FFFA0A0A0FFEFEFEFFF000000FF000000FFFFFFFFFFEBEBEBFFEDEDEDFFEFEF
|
||||
EFFFF1F1F1FFF3F3F3FFF3F3F3FFF6F6F6FFF8F8F8FF000000FFEDEDEDFFEDED
|
||||
EDFFEFEFEFFFF1F1F1FF000000FF000000FFFFFFFFFFA0A0A0FFA2A2A2FFA3A3
|
||||
A3FFF3F3F3FFA6A6A6FFA6A6A6FFA8A8A8FFFAFAFAFF000000FFA2A2A2FFA2A2
|
||||
A2FFA3A3A3FFF3F3F3FF000000FF000000FFFFFFFFFFEFEFEFFFF1F1F1FFF3F3
|
||||
F3FFF6F6F6FFF8F8F8FFF8F8F8FFFAFAFAFFFCFCFCFF000000FFF1F1F1FFF1F1
|
||||
F1FFF3F3F3FFF6F6F6FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF000000FF000000FF000000FFA3A3A3FFA3A3
|
||||
A3FFA4A4A4FFF6F6F6FF000000FF000000000000000000000000000000000000
|
||||
0000000000FFFFFFFFFFEBEBEBFFEDEDEDFFEFEFEFFFF1F1F1FFF3F3F3FFF3F3
|
||||
F3FFF6F6F6FFF8F8F8FF000000FF000000000000000000000000000000000000
|
||||
0000000000FFFFFFFFFFA0A0A0FFA2A2A2FFA3A3A3FFF3F3F3FFA6A6A6FFA6A6
|
||||
A6FFA8A8A8FFFAFAFAFF000000FF000000000000000000000000000000000000
|
||||
0000000000FFFFFFFFFFEFEFEFFFF1F1F1FFF3F3F3FFF6F6F6FFF8F8F8FFF8F8
|
||||
F8FFFAFAFAFFFCFCFCFF000000FF000000000000000000000000000000000000
|
||||
0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000FF000000FF000000FF
|
||||
}
|
||||
end
|
||||
end
|
||||
@ -1,55 +1,37 @@
|
||||
{
|
||||
***************************************************************************
|
||||
* *
|
||||
* This source is free software; you can redistribute it and/or modify *
|
||||
* it under the terms of the GNU General Public License as published by *
|
||||
* the Free Software Foundation; either version 2 of the License, or *
|
||||
* (at your option) any later version. *
|
||||
* *
|
||||
* This code is distributed in the hope that it will be useful, but *
|
||||
* WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
|
||||
* General Public License for more details. *
|
||||
* *
|
||||
* A copy of the GNU General Public License is available on the World *
|
||||
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
|
||||
* obtain it by writing to the Free Software Foundation, *
|
||||
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
|
||||
* *
|
||||
***************************************************************************
|
||||
}
|
||||
unit conneditor;
|
||||
unit fraconnection;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, db, fpdatadict, controls, comctrls, stdctrls, extctrls,
|
||||
graphics, imglist, lresources, RTTIGrids, fraquery, lazdatadeskstr;
|
||||
fpdatadict, fraquery, Classes, SysUtils, FileUtil, LResources, Graphics, DB,
|
||||
Forms, Controls, ComCtrls, ExtCtrls;
|
||||
|
||||
Type
|
||||
type
|
||||
|
||||
{ TConnectionEditor }
|
||||
TConnectionEditor = Class(TTabSheet)
|
||||
{ TConnectionFrame }
|
||||
|
||||
TConnectionFrame = class(TFrame)
|
||||
FTV: TTreeView;
|
||||
FImgList: TImageList;
|
||||
FSplit: TSplitter;
|
||||
FPC: TPageControl;
|
||||
FTSQuery: TTabSheet;
|
||||
FTSDisplay: TTabSheet;
|
||||
FDisplay: TPanel;
|
||||
procedure DoSelectNode(Sender: TObject);
|
||||
procedure DoTabChange(Sender: TObject);
|
||||
private
|
||||
FDescription: String;
|
||||
FEngine: TFPDDEngine;
|
||||
FPC : TPageControl;
|
||||
FDisplay: TPanel;
|
||||
FSplit : TSplitter;
|
||||
FTV: TTreeView;
|
||||
FImgList : TImageList;
|
||||
FTSDisplay : TTabsheet;
|
||||
FTSQuery : TTabsheet;
|
||||
FQueryPanel : TQueryFrame;
|
||||
{ private declarations }
|
||||
{ public declarations }
|
||||
procedure AddPair(LV: TListView; Const AName, AValue: String);
|
||||
procedure ClearDisplay;
|
||||
procedure DoSelectNode(Sender: TObject);
|
||||
procedure DoTabChange(Sender: TObject);
|
||||
function GetCurrentObjectType: TObjectType;
|
||||
function NewNode(TV: TTreeView; ParentNode: TTreeNode; ACaption: String;
|
||||
AImageIndex: Integer): TTreeNode;
|
||||
function NewNode(TV: TTreeView; ParentNode: TTreeNode; ACaption: String; AImageIndex: Integer): TTreeNode;
|
||||
procedure SelectConnection;
|
||||
procedure SelectField(TableName, FieldName: String);
|
||||
procedure SelectFields(TableName: String);
|
||||
@ -59,11 +41,9 @@ Type
|
||||
procedure SetDescription(const AValue: String);
|
||||
procedure SetEngine(const AValue: TFPDDEngine);
|
||||
procedure ShowDatabase;
|
||||
procedure ShowFields(ATableName: String; ATV: TTreeView;
|
||||
ParentNode: TTreeNode);
|
||||
procedure ShowFields(ATableName: String; ATV: TTreeView; ParentNode: TTreeNode);
|
||||
procedure ShowFields(ATableName: String; ALV: TListView);
|
||||
procedure ShowIndexes(ATableName: String; ATV: TTreeView;
|
||||
ParentNode: TTreeNode);
|
||||
procedure ShowIndexes(ATableName: String; ATV: TTreeView; ParentNode: TTreeNode);
|
||||
procedure ShowIndexes(ATableName: String; ALV: TListView);
|
||||
procedure ShowTableData(ATableName: String);
|
||||
procedure ShowTables(ATV : TTreeView;ParentNode: TTreeNode; AddSubNodes : Boolean = False);
|
||||
@ -82,6 +62,17 @@ Type
|
||||
Property Description : String Read FDescription Write SetDescription;
|
||||
end;
|
||||
|
||||
{ TConnectionEditor }
|
||||
|
||||
TConnectionEditor = Class(TTabSheet)
|
||||
private
|
||||
FFrame: TConnectionFrame;
|
||||
Public
|
||||
Constructor Create(AOwner : TComponent); override;
|
||||
Destructor Destroy; override;
|
||||
Property Frame : TConnectionFrame Read FFrame;
|
||||
end;
|
||||
|
||||
Const
|
||||
// Image Index for nodes. Relative to ImageOffset;
|
||||
iiConnection = 0;
|
||||
@ -95,22 +86,32 @@ Const
|
||||
iiIndexFields = 8;
|
||||
iiIndexOptions = 9;
|
||||
FimageOffset = 0;
|
||||
|
||||
{
|
||||
// later ?
|
||||
iiViews = 5;
|
||||
iiView = 6;
|
||||
iiProcedures = 7;
|
||||
iiProcedure = 8;
|
||||
}
|
||||
|
||||
implementation
|
||||
|
||||
uses typinfo, fradata, frmgeneratesql;
|
||||
{$r *.lfm}
|
||||
|
||||
{ TConnectionEditor }
|
||||
uses typinfo, fradata, lazdatadeskstr, frmgeneratesql;
|
||||
|
||||
procedure TConnectionEditor.SetEngine(const AValue: TFPDDEngine);
|
||||
{ TConnectionEditor }
|
||||
|
||||
constructor TConnectionEditor.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
FFrame:=TConnectionFrame.CReate(Self);
|
||||
FFrame.Parent:=Self;
|
||||
FFrame.Align:=alClient;
|
||||
end;
|
||||
|
||||
destructor TConnectionEditor.Destroy;
|
||||
begin
|
||||
FreeAndNil(FFrame);
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
{ TConnectionFrame }
|
||||
|
||||
procedure TConnectionFrame.SetEngine(const AValue: TFPDDEngine);
|
||||
begin
|
||||
if FEngine=AValue then exit;
|
||||
If (FEngine<>Nil) then
|
||||
@ -126,7 +127,7 @@ begin
|
||||
FTSQuery.TabVisible:=False;
|
||||
end;
|
||||
|
||||
constructor TConnectionEditor.Create(AOwner: TComponent);
|
||||
constructor TConnectionFrame.Create(AOwner: TComponent);
|
||||
|
||||
Const
|
||||
ImageNames : Array[0..9] of string =
|
||||
@ -143,15 +144,9 @@ Var
|
||||
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
FTV:=TTreeView.Create(Self);
|
||||
FTV.Name:='FTV';
|
||||
FTV.Parent:=Self;
|
||||
FTV.Align:=alLeft;
|
||||
FTV.Width:=300;
|
||||
FTV.OnSelectionChanged:=@DoSelectNode;
|
||||
// Image list
|
||||
FImgList:=TImageList.Create(Self);
|
||||
For I:=0 to 8 do
|
||||
FTSDisplay.Caption:=SSelectedObject;
|
||||
FTSQuery.Caption:=SQuery;
|
||||
{ For I:=0 to 8 do
|
||||
begin
|
||||
P:=TPortableNetworkGraphic.Create;
|
||||
try
|
||||
@ -160,50 +155,22 @@ begin
|
||||
finally
|
||||
P.Free;
|
||||
end;
|
||||
end;
|
||||
FTV.Images:=FImgList;
|
||||
// Splitter
|
||||
FSplit:=TSplitter.Create(Self);
|
||||
FSplit.Parent:=Self;
|
||||
FSplit.Align:=alLeft;
|
||||
// Page control
|
||||
FPC:=TPageControl.Create(Self);
|
||||
FPC.Parent:=Self;
|
||||
FPC.Name:='FPC';
|
||||
FPC.Align:=alClient;
|
||||
FPC.OnChange:=@DoTabChange;
|
||||
// Display tab sheet
|
||||
FTSDisplay:=TTabsheet.Create(Self);
|
||||
FTSDisplay.Name:='FTSDisplay';
|
||||
FTSDisplay.parent:=FPC;
|
||||
FTSDisplay.Caption:=SSelectedObject;
|
||||
// Query tab sheet
|
||||
FTSQuery:=TTabsheet.Create(Self);
|
||||
FTSQuery.Name:='FTSQuery';
|
||||
FTSQuery.parent:=FPC;
|
||||
FTSQuery.Caption:=SQuery;
|
||||
// Display panel
|
||||
FDisplay:=TPanel.Create(Self);
|
||||
FDisplay.Parent:=FTSDisplay;
|
||||
FDisplay.Name:='FDisplay';
|
||||
FDisplay.Align:=alClient;
|
||||
FDisplay.Caption:='';
|
||||
end; }
|
||||
// Query panel
|
||||
FQueryPanel:= TQueryFrame.Create(Self);
|
||||
FQueryPanel.Name:='FQueryPanel';
|
||||
FQueryPanel.Parent:=FTSQuery;
|
||||
FQueryPanel.Align:=alClient;
|
||||
ShowDatabase;
|
||||
end;
|
||||
|
||||
destructor TConnectionEditor.Destroy;
|
||||
destructor TConnectionFrame.Destroy;
|
||||
begin
|
||||
If Assigned(Fengine) then
|
||||
If Assigned(FEngine) then
|
||||
FEngine.Disconnect;
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.Notification(AComponent: TComponent;
|
||||
procedure TConnectionFrame.Notification(AComponent: TComponent;
|
||||
Operation: TOperation);
|
||||
begin
|
||||
inherited Notification(AComponent, Operation);
|
||||
@ -211,19 +178,19 @@ begin
|
||||
FEngine:=Nil;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.Connect(Connectstring : String);
|
||||
procedure TConnectionFrame.Connect(Connectstring : String);
|
||||
begin
|
||||
If FEngine.Connect(ConnectString) then
|
||||
ShowDatabase;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.DisConnect;
|
||||
procedure TConnectionFrame.DisConnect;
|
||||
begin
|
||||
If Assigned(FEngine) then
|
||||
FEngine.Disconnect;
|
||||
end;
|
||||
|
||||
function TConnectionEditor.CanCreateCode: Boolean;
|
||||
function TConnectionFrame.CanCreateCode: Boolean;
|
||||
|
||||
Var
|
||||
C : TControl;
|
||||
@ -245,12 +212,12 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TConnectionEditor.CanCreateSQL: Boolean;
|
||||
function TConnectionFrame.CanCreateSQL: Boolean;
|
||||
begin
|
||||
Result:=(ObjectType in [otTable,otFields,otField,otTableData,otIndexDefs]);
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.CreateSQL;
|
||||
procedure TConnectionFrame.CreateSQL;
|
||||
|
||||
Var
|
||||
N,PN,PPN : TTreeNode;
|
||||
@ -289,7 +256,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.CreateCode;
|
||||
procedure TConnectionFrame.CreateCode;
|
||||
|
||||
Var
|
||||
C : TControl;
|
||||
@ -309,7 +276,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TConnectionEditor.NewNode(TV : TTreeView;ParentNode: TTreeNode; ACaption: String; AImageIndex : Integer
|
||||
function TConnectionFrame.NewNode(TV : TTreeView;ParentNode: TTreeNode; ACaption: String; AImageIndex : Integer
|
||||
): TTreeNode;
|
||||
begin
|
||||
Result:=TV.Items.AddChild(ParentNode,ACaption);
|
||||
@ -320,13 +287,13 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.ShowDatabase;
|
||||
procedure TConnectionFrame.ShowDatabase;
|
||||
|
||||
Var
|
||||
S : String;
|
||||
FConnNode : TTreeNode;
|
||||
TablesNode : TTreeNode;
|
||||
|
||||
|
||||
begin
|
||||
FTV.Items.BeginUpdate;
|
||||
try
|
||||
@ -348,13 +315,13 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.ShowTables(ATV : TTreeView;ParentNode : TTreeNode; AddSubNodes : Boolean = False);
|
||||
procedure TConnectionFrame.ShowTables(ATV : TTreeView;ParentNode : TTreeNode; AddSubNodes : Boolean = False);
|
||||
|
||||
Var
|
||||
L : TStringList;
|
||||
I : Integer;
|
||||
N : TTreeNode;
|
||||
|
||||
|
||||
begin
|
||||
L:=TStringList.Create;
|
||||
Try
|
||||
@ -377,7 +344,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.DoSelectNode(Sender: TObject);
|
||||
procedure TConnectionFrame.DoSelectNode(Sender: TObject);
|
||||
|
||||
Var
|
||||
N,PN,PPN : TTreeNode;
|
||||
@ -408,13 +375,13 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.DoTabChange(Sender: TObject);
|
||||
procedure TConnectionFrame.DoTabChange(Sender: TObject);
|
||||
begin
|
||||
If FPC.ActivePage=FTSQuery then
|
||||
FQueryPanel.ActivatePanel;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.ShowTableData(ATableName : String);
|
||||
procedure TConnectionFrame.ShowTableData(ATableName : String);
|
||||
|
||||
Var
|
||||
P : TDataFrame;
|
||||
@ -430,18 +397,18 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
procedure TConnectionEditor.AddPair(LV : TListView; Const AName, AValue : String);
|
||||
procedure TConnectionFrame.AddPair(LV : TListView; Const AName, AValue : String);
|
||||
|
||||
Var
|
||||
LI : TListItem;
|
||||
|
||||
|
||||
begin
|
||||
LI:=LV.Items.Add;
|
||||
LI.Caption:=AName;
|
||||
LI.SubItems.Add(AValue);
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.SelectConnection;
|
||||
procedure TConnectionFrame.SelectConnection;
|
||||
|
||||
|
||||
Var
|
||||
@ -486,7 +453,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.ClearDisplay;
|
||||
procedure TConnectionFrame.ClearDisplay;
|
||||
|
||||
begin
|
||||
With FDisplay do
|
||||
@ -494,7 +461,7 @@ begin
|
||||
Controls[ControlCount-1].Free;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.SelectTables;
|
||||
procedure TConnectionFrame.SelectTables;
|
||||
|
||||
Var
|
||||
TV : TTreeView;
|
||||
@ -507,20 +474,20 @@ begin
|
||||
ShowTables(TV,Nil);
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.SetDescription(const AValue: String);
|
||||
procedure TConnectionFrame.SetDescription(const AValue: String);
|
||||
begin
|
||||
if FDescription=AValue then exit;
|
||||
FDescription:=AValue;
|
||||
Caption:=AValue;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.SelectTable(TableName : String);
|
||||
procedure TConnectionFrame.SelectTable(TableName : String);
|
||||
|
||||
Var
|
||||
TV : TTreeView;
|
||||
TN : TTreeNode;
|
||||
N : TTreeNode;
|
||||
|
||||
|
||||
begin
|
||||
ClearDisplay;
|
||||
TV:=TTreeView.Create(Self);
|
||||
@ -534,7 +501,7 @@ begin
|
||||
TN.Expand(True);
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.SelectIndexes(TableName : String);
|
||||
procedure TConnectionFrame.SelectIndexes(TableName : String);
|
||||
|
||||
Var
|
||||
LV : TListView;
|
||||
@ -564,7 +531,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.ShowIndexes(ATableName : String; ATV : TTreeView;ParentNode : TTreeNode);
|
||||
procedure TConnectionFrame.ShowIndexes(ATableName : String; ATV : TTreeView;ParentNode : TTreeNode);
|
||||
|
||||
Var
|
||||
L : TStringList;
|
||||
@ -597,7 +564,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.ShowIndexes(ATableName : String; ALV : TListView);
|
||||
procedure TConnectionFrame.ShowIndexes(ATableName : String; ALV : TListView);
|
||||
|
||||
Var
|
||||
L : TStringList;
|
||||
@ -631,7 +598,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.ShowFields(ATableName : String; ATV : TTreeView;ParentNode : TTreeNode);
|
||||
procedure TConnectionFrame.ShowFields(ATableName : String; ATV : TTreeView;ParentNode : TTreeNode);
|
||||
|
||||
Var
|
||||
L : TStringList;
|
||||
@ -657,7 +624,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.ShowFields(ATableName : String; ALV : TListView);
|
||||
procedure TConnectionFrame.ShowFields(ATableName : String; ALV : TListView);
|
||||
|
||||
Var
|
||||
L : TStringList;
|
||||
@ -665,7 +632,7 @@ Var
|
||||
TD : TDDTableDef;
|
||||
FD : TDDFieldDef;
|
||||
LI : TListItem;
|
||||
|
||||
|
||||
begin
|
||||
L:=TStringList.Create;
|
||||
Try
|
||||
@ -692,7 +659,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.SelectFields(TableName : String);
|
||||
procedure TConnectionFrame.SelectFields(TableName : String);
|
||||
|
||||
Var
|
||||
LV : TListView;
|
||||
@ -722,12 +689,12 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TConnectionEditor.SelectField(TableName,FieldName : String);
|
||||
procedure TConnectionFrame.SelectField(TableName,FieldName : String);
|
||||
|
||||
begin
|
||||
end;
|
||||
|
||||
function TConnectionEditor.GetCurrentObjectType: TObjectType;
|
||||
function TConnectionFrame.GetCurrentObjectType: TObjectType;
|
||||
|
||||
Var
|
||||
N : TTreeNode;
|
||||
@ -39,7 +39,7 @@ interface
|
||||
uses
|
||||
Classes, SysUtils, Forms, Controls, Dialogs, Menus, ActnList, StdActns,
|
||||
ComCtrls, IniPropStorage, LCLType, ExtCtrls, LCLProc, Translations,
|
||||
dicteditor, conneditor, ddfiles, fpdatadict, lazdatadeskstr,
|
||||
dicteditor, fraconnection, ddfiles, fpdatadict, lazdatadeskstr,
|
||||
FileUtil, LazFileUtils, LazUTF8;
|
||||
|
||||
type
|
||||
@ -972,7 +972,7 @@ Var
|
||||
begin
|
||||
B:=Assigned(CurrentEditor) and (CurrentEditor.DataDictionary.Tables.Count>0);
|
||||
If not B then
|
||||
B:=Assigned(CurrentConnection) and CurrentConnection.CanCreateSQL;
|
||||
B:=Assigned(CurrentConnection) and CurrentConnection.Frame.CanCreateSQL;
|
||||
(Sender as TAction).Enabled:=B;
|
||||
end;
|
||||
|
||||
@ -996,7 +996,7 @@ begin
|
||||
end
|
||||
else if Assigned(CurrentConnection) then
|
||||
begin
|
||||
CurrentConnection.CreateCode;
|
||||
CurrentConnection.Frame.CreateCode;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -1014,7 +1014,7 @@ begin
|
||||
begin
|
||||
B:=Assigned(CurrentConnection);
|
||||
If B then
|
||||
B:=CurrentConnection.CanCreateCode;
|
||||
B:=CurrentConnection.Frame.CanCreateCode;
|
||||
end;
|
||||
(Sender as TAction).Enabled:=B;
|
||||
end;
|
||||
@ -1355,7 +1355,7 @@ Var
|
||||
|
||||
begin
|
||||
CE:=CurrentConnection;
|
||||
CE.DisConnect;
|
||||
CE.Frame.DisConnect;
|
||||
Application.ReleaseComponent(CE);
|
||||
CE.Free;
|
||||
Result:=mrOK;
|
||||
@ -1430,7 +1430,7 @@ Var
|
||||
|
||||
begin
|
||||
if Assigned(CurrentConnection) then
|
||||
CurrentConnection.CreateSQL
|
||||
CurrentConnection.Frame.CreateSQL
|
||||
else
|
||||
begin
|
||||
If CurrentEditor.CurrentTable<>Nil then
|
||||
@ -1808,8 +1808,8 @@ begin
|
||||
RC.Use;
|
||||
DDE:=CreateDictionaryEngine(RC.EngineName,Self);
|
||||
CDE:=NewConnectionEditor(RC.Name);
|
||||
CDE.Engine:=DDE;
|
||||
CDE.Connect(RC.ConnectionString);
|
||||
CDE.Frame.Engine:=DDE;
|
||||
CDE.Frame.Connect(RC.ConnectionString);
|
||||
end;
|
||||
|
||||
procedure TMainForm.NewConnection(EngineName : String);
|
||||
@ -1832,8 +1832,8 @@ begin
|
||||
RC.EngineName:=EngineName;
|
||||
RC.Use;
|
||||
CDE:=NewConnectionEditor(Aname);
|
||||
CDE.Engine:=DDE;
|
||||
CDE.Connect(CS);
|
||||
CDE.Frame.Engine:=DDE;
|
||||
CDE.Frame.Connect(CS);
|
||||
ShowRecentConnections;
|
||||
end;
|
||||
|
||||
@ -1843,7 +1843,7 @@ begin
|
||||
Result:=TConnectioneditor.Create(Self);
|
||||
Result.PageControl:=PCDD;
|
||||
Result.Parent:=PCDD;
|
||||
Result.Description:=AName;
|
||||
Result.Frame.Description:=AName;
|
||||
Result.ImageIndex:=18;
|
||||
PCDD.ActivePage:=Result;
|
||||
end;
|
||||
|
||||
@ -100,35 +100,37 @@
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="conneditor.pp"/>
|
||||
<Filename Value="README.txt"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="README.txt"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="frmselectconnectiontype.pp"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="SelectConnectionTypeForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="lazdatadeskstr.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="fraquery.pp"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="QueryFrame"/>
|
||||
<ResourceBaseClass Value="Frame"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="fradata.pp"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="DataFrame"/>
|
||||
<ResourceBaseClass Value="Frame"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="fraconnection.pp"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="ConnectionFrame"/>
|
||||
<ResourceBaseClass Value="Frame"/>
|
||||
</Unit12>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
|
||||
@ -9,8 +9,8 @@ uses
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms, frmmain, dicteditor, DBFLaz, frmimportdd,
|
||||
frmgeneratesql, SQLDBLaz, lazdatadict, RunTimeTypeInfoControls, frmSQLConnect,
|
||||
ddfiles, conneditor, frmselectconnectiontype,
|
||||
lazdatadeskstr, lazdbexport, fraquery, fradata;
|
||||
ddfiles, frmselectconnectiontype,
|
||||
lazdatadeskstr, lazdbexport, fraquery, fradata, fraconnection;
|
||||
|
||||
{$R *.res}
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user