david
08e42642b8
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@21 05c56307-c608-d34a-929d-697000501d7a
93 lines
2.9 KiB
ObjectPascal
93 lines
2.9 KiB
ObjectPascal
unit main;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
dxMasterView, Db, DBTables, Grids, DBGrids, ExtCtrls, StdCtrls;
|
|
|
|
type
|
|
TfmMain = class(TForm)
|
|
MasterView: TdxMasterView;
|
|
DataSource1: TDataSource;
|
|
Table1: TTable;
|
|
lvlCustomers: TdxMasterViewLevel;
|
|
lvlCustomersCustNo: TdxMasterViewColumn;
|
|
lvlCustomersCompany: TdxMasterViewColumn;
|
|
lvlCustomersAddr1: TdxMasterViewColumn;
|
|
lvlCustomersAddr2: TdxMasterViewColumn;
|
|
lvlCustomersCity: TdxMasterViewColumn;
|
|
lvlCustomersState: TdxMasterViewColumn;
|
|
lvlCustomersZip: TdxMasterViewColumn;
|
|
lvlCustomersCountry: TdxMasterViewColumn;
|
|
lvlCustomersPhone: TdxMasterViewColumn;
|
|
lvlCustomersFAX: TdxMasterViewColumn;
|
|
lvlCustomersTaxRate: TdxMasterViewColumn;
|
|
lvlCustomersContact: TdxMasterViewColumn;
|
|
lvlCustomersLastInvoiceDate: TdxMasterViewColumn;
|
|
DataSource2: TDataSource;
|
|
lvlOrders: TdxMasterViewLevel;
|
|
lvlOrdersOrderNo: TdxMasterViewColumn;
|
|
lvlOrdersCustNo: TdxMasterViewColumn;
|
|
lvlOrdersSaleDate: TdxMasterViewColumn;
|
|
lvlOrdersShipDate: TdxMasterViewColumn;
|
|
lvlOrdersEmpNo: TdxMasterViewColumn;
|
|
lvlOrdersShipToContact: TdxMasterViewColumn;
|
|
lvlOrdersShipToAddr1: TdxMasterViewColumn;
|
|
lvlOrdersShipToAddr2: TdxMasterViewColumn;
|
|
lvlOrdersShipToCity: TdxMasterViewColumn;
|
|
lvlOrdersShipToState: TdxMasterViewColumn;
|
|
lvlOrdersShipToZip: TdxMasterViewColumn;
|
|
lvlOrdersShipToCountry: TdxMasterViewColumn;
|
|
lvlOrdersShipToPhone: TdxMasterViewColumn;
|
|
lvlOrdersShipVIA: TdxMasterViewColumn;
|
|
lvlOrdersPO: TdxMasterViewColumn;
|
|
lvlOrdersTerms: TdxMasterViewColumn;
|
|
lvlOrdersPaymentMethod: TdxMasterViewColumn;
|
|
lvlOrdersItemsTotal: TdxMasterViewColumn;
|
|
lvlOrdersTaxRate: TdxMasterViewColumn;
|
|
lvlOrdersFreight: TdxMasterViewColumn;
|
|
lvlOrdersAmountPaid: TdxMasterViewColumn;
|
|
Splitter1: TSplitter;
|
|
Panel1: TPanel;
|
|
RadioGroup1: TRadioGroup;
|
|
Query1: TQuery;
|
|
pnBottom: TPanel;
|
|
Label1: TLabel;
|
|
DBGrid1: TDBGrid;
|
|
procedure lvlCustomersExpanding(Sender: TdxMasterViewLevel;
|
|
Node: TdxMasterViewNode; var Allow: Boolean);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
fmMain: TfmMain;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TfmMain.lvlCustomersExpanding(Sender: TdxMasterViewLevel;
|
|
Node: TdxMasterViewNode; var Allow: Boolean);
|
|
begin
|
|
if Node.NodeType = ntData then
|
|
begin
|
|
if RadioGroup1.ItemIndex = 0 then Sender.Control.BeginLayout;
|
|
try
|
|
with Query1 do
|
|
begin
|
|
Params[0].Value := Node.Values[lvlCustomersCustNo.Index];
|
|
Active := False;
|
|
Active := True;
|
|
end;
|
|
finally
|
|
if RadioGroup1.ItemIndex = 0 then Sender.Control.CancelLayout;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
end.
|