citytree.pas

一个会员管理系统delphi源代码,非常好

unit citytree;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, StdCtrls, Buttons, ComCtrls, dxtree, dxdbtree, ExtCtrls,
  cxLookAndFeelPainters, cxButtons;

type
  Tfrmcitytree = class(TForm)
    Panel2: TPanel;
    DBTreeView1: TdxDBTreeView;
    Panel3: TPanel;
    ImageList1: TImageList;
    cxButton2: TcxButton;
    cxButton3: TcxButton;
    cxButton4: TcxButton;
    cxButton5: TcxButton;
    Panel1: TPanel;
    cxButton1: TcxButton;
    procedure DBTreeView1AddNewItem(Sender: TObject;
      var DBTreeNode: TdxDBTreeNode);
    procedure DBTreeView1DragDropTreeNode(Destination, Source: TTreeNode;
      var Accept: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cxButton1Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure cxButton3Click(Sender: TObject);
    procedure cxButton4Click(Sender: TObject);
    procedure cxButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmcitytree: Tfrmcitytree;

implementation

uses md, main;

{$R *.dfm}

procedure Tfrmcitytree.DBTreeView1AddNewItem(Sender: TObject;
  var DBTreeNode: TdxDBTreeNode);
begin
  if VarIsNull(DBTreeNode.ParentFieldValue) then
    exit;
  DBTreeNode.ImageIndex := 0;
  DBTreeNode.SelectedIndex := 1;
end;

procedure Tfrmcitytree.DBTreeView1DragDropTreeNode(Destination,
  Source: TTreeNode; var Accept: Boolean);
begin
  if Destination = nil then
  begin
    Accept := False;
    exit;
  end;
  if Accept then
    Accept := not (Source.Parent = nil);
end;

procedure Tfrmcitytree.FormCreate(Sender: TObject);
begin
  if not dm1.tblcity.Active then
    dm1.tblcity.Open;
end;

procedure Tfrmcitytree.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
  frmmain.mmcity.AutoGrayScale := True;
end;

procedure Tfrmcitytree.cxButton1Click(Sender: TObject);
begin
  close;
end;

procedure Tfrmcitytree.cxButton2Click(Sender: TObject);
begin
  if (DBTreeView1.Selected <> nil) then
  begin
    if DBTreeView1.Selected.Level = 1 then
      DBTreeView1.Items.Add(DBTreeView1.Selected, '省份名称')
    else
      if DBTreeView1.Selected.Level = 2 then
        DBTreeView1.Items.Add(DBTreeView1.Selected, '城市地区名称');
  end;
end;

procedure Tfrmcitytree.cxButton3Click(Sender: TObject);
begin
  if (DBTreeView1.Selected <> nil) then
    if (DBTreeView1.Selected.Level < 2) then
      DBTreeView1.Items.AddChild(DBTreeView1.Selected, '省份名称')
    else
      ShowMessage('对不起，暂时只支持二级目录，您不能往下增加目录了。');
end;

procedure Tfrmcitytree.cxButton4Click(Sender: TObject);
begin
  if (DBTreeView1.Selected <> nil) and (DBTreeView1.Selected.Parent <> nil) then
    DBTreeView1.Selected.EditText;
end;

procedure Tfrmcitytree.cxButton5Click(Sender: TObject);
begin
  if (DBTreeView1.Selected <> nil) and (DBTreeView1.Selected.Parent <> nil) then
    DBTreeView1.Selected.Delete;
end;

end.