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
|
{*****************************************}
{ }
{ FastReport v2.3 }
{ Insert fields dialog }
{ }
{ Copyright (c) 1998-99 by Tzyganenko A. }
{ }
{*****************************************}
unit LR_IFlds;
interface
{$I LR_Vers.inc}
uses
Classes, SysUtils, LResources,
Forms, Controls, Graphics, Dialogs,
Buttons, StdCtrls, ButtonPanel,
LR_DBRel;
type
{ TfrInsertFieldsForm }
TfrInsertFieldsForm = class(TForm)
ButtonPanel1: TButtonPanel;
FieldsL: TListBox;
DatasetCB: TComboBox;
Label1: TLabel;
GroupBox1: TGroupBox;
HorzRB: TRadioButton;
lblError: TLabel;
VertRB: TRadioButton;
GroupBox2: TGroupBox;
HeaderCB: TCheckBox;
BandCB: TCheckBox;
procedure DatasetCBChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure GetFields;
public
{ Public declarations }
DataSet: TfrTDataSet;
end;
var
frInsertFieldsForm: TfrInsertFieldsForm;
implementation
{$R *.lfm}
uses LR_Class, LR_Const, LR_Utils, DB;
procedure TfrInsertFieldsForm.FormShow(Sender: TObject);
begin
DataSet := nil;
if Curreport.DataType = dtDataSet then
frGetComponents(CurReport.Owner, TDataSet, DatasetCB.Items, nil)
else
frGetComponents(CurReport.Owner, TDataSource, DatasetCB.Items, nil);
if DatasetCB.Items.Count > 0 then
DatasetCB.ItemIndex := 0;
GetFields;
end;
procedure TfrInsertFieldsForm.DatasetCBChange(Sender: TObject);
begin
GetFields;
end;
procedure TfrInsertFieldsForm.GetFields;
begin
lblError.Visible := false;
FieldsL.Items.Clear;
if DatasetCB.ItemIndex<>-1 then
begin
DataSet := frGetDataSet(DatasetCB.Items[DatasetCB.ItemIndex]);
if DataSet <> nil then
begin
try
frGetFieldNames(DataSet, FieldsL.Items);
except
lblError.Visible := true;
end;
end;
end;
end;
procedure TfrInsertFieldsForm.FormCreate(Sender: TObject);
begin
Caption := sInsertFieldsFormCapt;
Label1.Caption := sInsertFieldsFormAviableDSet;
GroupBox1.Caption := sInsertFieldsFormPlace;
HorzRB.Caption := sInsertFieldsFormHorz;
VertRB.Caption := sInsertFieldsFormVert;
HeaderCB.Caption := sInsertFieldsFormHeader;
BandCB.Caption := sInsertFieldsFormBand;
lblError.Hint := sInsertFieldsDbNoFields;
end;
end.
|
