unit dqda1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ImgList, dxPSCore, dxPSdxTLLnk, dxPSdxDBCtrlLnk, dxPSdxDBTLLnk, Db,
  ADODB, dxTL, dxDBCtrl, dxCntner, dxDBTL, StdCtrls, Buttons, ExtCtrls;

type
  Tdqda = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    Table1: TADOTable;
    DataSource1: TDataSource;
    Table1dqid: TIntegerField;
    Table1dqname: TStringField;
    Table1sjdqid: TIntegerField;
    dxDBTreeList1: TdxDBTreeList;
    dxDBTreeList1Column1: TdxDBTreeListMaskColumn;
    dxDBTreeList1Column2: TdxDBTreeListMaskColumn;
    dxDBTreeList1Column3: TdxDBTreeListMaskColumn;
    dxComponentPrinter1: TdxComponentPrinter;
    dxComponentPrinter1Link1: TdxDBTreeListReportLink;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    procedure N2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure dxDBTreeList1GetStateIndex(Sender: TObject;
      Node: TdxTreeListNode; var Index: Integer);
    procedure Table1NewRecord(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    FParentValue: Variant;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dqda: Tdqda;

implementation

uses login1;

{$R *.DFM}

procedure Tdqda.N2Click(Sender: TObject);
begin
  if Table1sjdqid.IsNull then exit;
  if Application.MessageBox(PCHAR('是否要刪除類別：' + Table1.FieldByName('dqname').asstring + ' ?'), '提示', MB_YESNO + MB_ICONQUESTION) = IDNO then exit;
  dxDBTreeList1.OptionsBehavior := [etoAutoDragDrop, etoAutoDragDropCopy, etoAutoSort, etoDragExpand, etoDragScroll, etoEditing, etoEnterShowEditor, etoMultiSelect, etoTabThrough];
  with dxDBTreeList1 do
    if SelectedCount > 0 then
    try
      DeleteSelection;
    except
      Application.MessageBox('某些檔案正在使用中,不能刪除.', '提示', MB_OK + MB_ICONWARNING);
    end;
  dxDBTreeList1.OptionsBehavior := [etoAutoDragDrop, etoAutoDragDropCopy, etoAutoSort, etoDragExpand, etoDragScroll, etoEditing, etoEnterShowEditor, etoTabThrough];
end;

procedure Tdqda.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Table1.Edit;
  Table1.post;
  action := cafree;
end;

procedure Tdqda.BitBtn4Click(Sender: TObject);
begin
  dxComponentPrinter1.Preview(true, nil);
end;

procedure Tdqda.BitBtn1Click(Sender: TObject);
begin
  if Table1sjdqid.IsNull then
    FParentValue := Null
  else FParentValue := Table1sjdqid.Value;
  Table1.Insert;
  dxDBTreeList1.ShowEditor;
end;

procedure Tdqda.BitBtn2Click(Sender: TObject);
begin
  if Table1dqid.IsNull then exit;
  FParentValue := TdxDBTreeListNode(dxDBTreeList1.FocusedNode).ID;
  Table1.Insert;
  dxDBTreeList1.ShowEditor;
end;

procedure Tdqda.dxDBTreeList1GetStateIndex(Sender: TObject;
  Node: TdxTreeListNode; var Index: Integer);
begin
  if Node.Expanded then
    Index := 1
  else Index := 0;
end;

procedure Tdqda.Table1NewRecord(DataSet: TDataSet);
begin
  DataSet.FieldByName('sjdqid').Value := FParentValue;
end;

procedure Tdqda.FormCreate(Sender: TObject);
begin
  dxDBTreeList1.FullExpand;
end;

procedure Tdqda.BitBtn5Click(Sender: TObject);
begin
  close;
end;

end.