david
5678df5538
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@31 05c56307-c608-d34a-929d-697000501d7a
99 lines
2.3 KiB
ObjectPascal
99 lines
2.3 KiB
ObjectPascal
unit main;
|
|
|
|
{$I ..\cxVer.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
Buttons, StdCtrls, ExtCtrls, DB, DBTables, ComCtrls, ShellAPI, dxmdaset,
|
|
dxtrprds, dxtree, dxdbtree;
|
|
|
|
type
|
|
TFMain = class(TForm)
|
|
Panel1: TPanel;
|
|
Panel2: TPanel;
|
|
DBTreeView1: TdxDBTreeView;
|
|
Table: TTable;
|
|
DataSource1: TDataSource;
|
|
RadioGroup: TRadioGroup;
|
|
Label1: TLabel;
|
|
ELevels: TEdit;
|
|
Button1: TButton;
|
|
BitBtn1: TBitBtn;
|
|
ImageList1: TImageList;
|
|
DBTreePrintDataSet: TdxDBTreePrintData;
|
|
procedure ELevelsKeyPress(Sender: TObject; var Key: Char);
|
|
procedure ELevelsExit(Sender: TObject);
|
|
procedure Button1Click(Sender: TObject);
|
|
procedure DBTreeView1AddNewItem(Sender: TObject;
|
|
var DBTreeNode: TdxDBTreeNode);
|
|
procedure FormCreate(Sender: TObject);
|
|
end;
|
|
|
|
var
|
|
FMain: TFMain;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{$IFDEF DELPHI6}
|
|
Variants,
|
|
{$ENDIF}
|
|
dbtreeqr;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TFMain.ELevelsKeyPress(Sender: TObject; var Key: Char);
|
|
begin
|
|
if((Key < '0') Or (Key > '9')) And (Key <> Char(VK_BACK)) then begin
|
|
Key := #0;
|
|
MessageBeep(0);
|
|
end;
|
|
end;
|
|
|
|
procedure TFMain.ELevelsExit(Sender: TObject);
|
|
begin
|
|
if(ELevels.Text = '') then
|
|
ELevels.Text := '0';
|
|
DBTreePrintDataSet.LevelCount := StrToInt(ELevels.Text);
|
|
end;
|
|
|
|
procedure TFMain.Button1Click(Sender: TObject);
|
|
begin
|
|
if (RadioGroup.ItemIndex = 0) then
|
|
DBTreePrintDataSet.RootValue := ''
|
|
else DBTreePrintDataSet.RootValue := Table.FindField('pr_id').AsString;
|
|
DBTreePrintDataSet.Open;
|
|
QRListForm.QuickReport.Preview;
|
|
DBTreePrintDataSet.Close;
|
|
end;
|
|
|
|
|
|
procedure TFMain.DBTreeView1AddNewItem(Sender: TObject;
|
|
var DBTreeNode: TdxDBTreeNode);
|
|
begin
|
|
if VarIsNull(DBTreeNode.ParentFieldValue) then exit;
|
|
if (DBTreeNode.KeyFieldValue >= 150)
|
|
and (DBTreeNode.KeyFieldValue < 200)then begin
|
|
DBTreeNode.ImageIndex := 0;
|
|
DBTreeNode.SelectedIndex := 0;
|
|
exit;
|
|
end;
|
|
if (DBTreeNode.KeyFieldValue >= 200) then begin
|
|
DBTreeNode.ImageIndex := 1;
|
|
DBTreeNode.SelectedIndex := 1;
|
|
exit;
|
|
end;
|
|
DBTreeNode.ImageIndex := 2;
|
|
DBTreeNode.SelectedIndex := 2;
|
|
end;
|
|
|
|
procedure TFMain.FormCreate(Sender: TObject);
|
|
begin
|
|
Table.DataBaseName := ExtractFilePath(Application.ExeName);
|
|
Table.Open;
|
|
end;
|
|
|
|
end.
|