Skip to content

Commit 742899e

Browse files
CrystalNet-Tech2CrystalNet-Tech2
authored
Add files via upload
1 parent 580e1c0 commit 742899e

File tree

100 files changed

+19194
-0
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

100 files changed

+19194
-0
lines changed

‎Demos/OleDb/MSAccess/MetaInfo/Indices/Meta_Indices.dpr

Lines changed: 17 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,17 @@
1+
program Meta_Indices;
2+
3+
uses
4+
Forms,
5+
fMetaIndices in 'fMetaIndices.pas' {frmMetaIndices},
6+
ADONetUtils in '..\..\..\..\Utils\ADONetUtils.pas',
7+
fOLEDBMainCompBase in '..\..\fOLEDBMainCompBase.pas' {frmOLEDBMainCompBase};
8+
9+
{$R *.res}
10+
11+
begin
12+
Application.Initialize;
13+
Application.MainFormOnTaskbar := True;
14+
Application.CreateForm(TfrmMetaIndices, frmMetaIndices);
15+
Application.CreateForm(TfrmOLEDBMainCompBase, frmOLEDBMainCompBase);
16+
Application.Run;
17+
end.

‎Demos/OleDb/MSAccess/MetaInfo/Indices/Meta_Indices.dproj

Lines changed: 562 additions & 0 deletions
Large diffs are not rendered by default.

‎Demos/OleDb/MSAccess/MetaInfo/Indices/fMetaIndices.dfm

Lines changed: 109 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,109 @@
1+
inherited frmMetaIndices: TfrmMetaIndices
2+
Caption = 'Meta info about indices'
3+
PixelsPerInch = 96
4+
TextHeight = 13
5+
inherited pnlTitle: TPanel
6+
inherited lblTitle: TLabel
7+
Width = 244
8+
Caption = 'Meta info about indices'
9+
ExplicitWidth = 244
10+
end
11+
end
12+
inherited pnlMain: TPanel
13+
inherited pnl1: TPanel
14+
object pnl2: TPanel
15+
Left = 0
16+
Top = 7
17+
Width = 586
18+
Height = 373
19+
Align = alClient
20+
BevelOuter = bvNone
21+
TabOrder = 0
22+
object pnlConnection: TPanel
23+
Left = 0
24+
Top = 0
25+
Width = 586
26+
Height = 129
27+
Align = alTop
28+
BevelOuter = bvNone
29+
TabOrder = 0
30+
object btnFetch: TButton
31+
Left = 6
32+
Top = 52
33+
Width = 76
34+
Height = 25
35+
Cursor = crHandPoint
36+
Caption = 'Fetch'
37+
Enabled = False
38+
TabOrder = 3
39+
OnClick = btnFetchClick
40+
end
41+
object rgMain: TRadioGroup
42+
Left = 6
43+
Top = 12
44+
Width = 190
45+
Height = 37
46+
Cursor = crHandPoint
47+
Columns = 2
48+
ItemIndex = 0
49+
Items.Strings = (
50+
'mkIndexes'
51+
'mkIndexFields')
52+
TabOrder = 0
53+
OnClick = rgMainClick
54+
end
55+
object lbledtIndexName: TLabeledEdit
56+
Left = 407
57+
Top = 21
58+
Width = 121
59+
Height = 21
60+
EditLabel.Width = 32
61+
EditLabel.Height = 13
62+
EditLabel.Caption = 'Index:'
63+
Enabled = False
64+
LabelPosition = lpLeft
65+
TabOrder = 1
66+
end
67+
object lbledtTableName: TLabeledEdit
68+
Left = 245
69+
Top = 22
70+
Width = 121
71+
Height = 21
72+
EditLabel.Width = 30
73+
EditLabel.Height = 13
74+
EditLabel.Caption = 'Table:'
75+
LabelPosition = lpLeft
76+
TabOrder = 2
77+
end
78+
object mmoInfo: TMemo
79+
Left = 6
80+
Top = 84
81+
Width = 612
82+
Height = 39
83+
Color = clInfoBk
84+
Lines.Strings = (
85+
86+
'To fetch meta information click Fetch button. Use the radio butt' +
87+
'ons group to select the kind of meta info to fetch.')
88+
TabOrder = 4
89+
end
90+
end
91+
object mmoConsole: TMemo
92+
Left = 0
93+
Top = 129
94+
Width = 586
95+
Height = 244
96+
Align = alClient
97+
Font.Charset = DEFAULT_CHARSET
98+
Font.Color = clWindowText
99+
Font.Height = -13
100+
Font.Name = 'Courier New'
101+
Font.Style = []
102+
ParentFont = False
103+
ScrollBars = ssBoth
104+
TabOrder = 1
105+
end
106+
end
107+
end
108+
end
109+
end

‎Demos/OleDb/MSAccess/MetaInfo/Indices/fMetaIndices.pas

Lines changed: 64 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,64 @@
1+
unit fMetaIndices;
2+
3+
interface
4+
5+
uses
6+
Windows, Messages, SysUtils, Variants, Classes, Graphics,
7+
Controls, Forms, Dialogs, fOLEDBMainCompBase,
8+
CNClrLib.ADONet.Enums, CNClrLib.ADONet.Error, CNClrLib.ADONet.EventArgs,
9+
CNClrLib.ADONet.OleDbEventArgs, StdCtrls, ExtCtrls, DB,
10+
CNClrLib.ADONet.Client, CNClrLib.ADONet.OleDb, Buttons;
11+
12+
type
13+
TfrmMetaIndices = class(TfrmOLEDBMainCompBase)
14+
pnl2: TPanel;
15+
pnlConnection: TPanel;
16+
btnFetch: TButton;
17+
rgMain: TRadioGroup;
18+
lbledtIndexName: TLabeledEdit;
19+
lbledtTableName: TLabeledEdit;
20+
mmoInfo: TMemo;
21+
mmoConsole: TMemo;
22+
procedure btnConnectClick(Sender: TObject);
23+
procedure btnFetchClick(Sender: TObject);
24+
procedure rgMainClick(Sender: TObject);
25+
private
26+
{ Private declarations }
27+
public
28+
{ Public declarations }
29+
end;
30+
31+
var
32+
frmMetaIndices: TfrmMetaIndices;
33+
34+
implementation
35+
36+
{$R *.dfm}
37+
38+
procedure TfrmMetaIndices.btnConnectClick(Sender: TObject);
39+
begin
40+
btnFetch.Enabled := False;
41+
inherited;
42+
btnFetch.Enabled := True;
43+
end;
44+
45+
procedure TfrmMetaIndices.btnFetchClick(Sender: TObject);
46+
begin
47+
if rgMain.ItemIndex = 0 then
48+
OleDbConnection1.GetIndexes(lbledtTableName.Text, mmoConsole.Lines)
49+
else
50+
OleDbConnection1.GetIndexFieldNames(lbledtTableName.Text, lbledtIndexName.Text, mmoConsole.Lines);
51+
52+
mmoConsole.Lines.Insert(0, 'Meta info about indices');
53+
mmoConsole.Lines.Insert(1, '');
54+
end;
55+
56+
procedure TfrmMetaIndices.rgMainClick(Sender: TObject);
57+
begin
58+
if rgMain.ItemIndex = 0 then
59+
lbledtIndexName.Enabled := False
60+
else
61+
lbledtIndexName.Enabled := True;
62+
end;
63+
64+
end.

‎Demos/OleDb/MSAccess/MetaInfo/Tables/Meta_Tables.dpr

Lines changed: 17 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,17 @@
1+
program Meta_Tables;
2+
3+
uses
4+
Forms,
5+
fMetaTables in 'fMetaTables.pas' {frmMetaTables},
6+
ADONetUtils in '..\..\..\..\Utils\ADONetUtils.pas',
7+
fOLEDBMainCompBase in '..\..\fOLEDBMainCompBase.pas' {frmOLEDBMainCompBase};
8+
9+
{$R *.res}
10+
11+
begin
12+
Application.Initialize;
13+
Application.MainFormOnTaskbar := True;
14+
Application.CreateForm(TfrmMetaTables, frmMetaTables);
15+
Application.CreateForm(TfrmOLEDBMainCompBase, frmOLEDBMainCompBase);
16+
Application.Run;
17+
end.

0 commit comments

Comments
 (0)