DELPHI办公管理系统 第15页
 close: TSpeedButton;
    edit: TSpeedButton;
    hui1: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure N_insertClick(Sender: TObject);
    procedure TreeViewClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N_deleteClick(Sender: TObject);
    procedure N_editClick(Sender: TObject);
    procedure N_cancelClick(Sender: TObject);
    procedure N_saveClick(Sender: TObject);
    procedure N_refreshClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
 
    procedure addClick(Sender: TObject);
    procedure del2Click(Sender: TObject);
    procedure editClick(Sender: TObject);
    procedure saveClick(Sender: TObject);
    procedure hui1Click(Sender: TObject);
    procedure freshClick(Sender: TObject);
  private
    { Private declarations }
     Node_Parent: TTreeNode; //存储父节点
     Node_Child: TTreeNode; //存储当前节点
     b_pd: bool; //用于判断点击的是添加还是编辑
    //在添加、编辑和浏览状态互置按钮的有效性
    procedure button_valid;
    procedure refreshTree;
  public
    { Public declarations }
  end;

var
  BM_BENMENF: TBM_BENMENF;

implementation

uses BM_DMU;

{$R *.dfm}

procedure TBM_BENMENF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure TBM_BENMENF.refreshTree;
var
  mynode_1, mynode_2, mynode_3: Ttreenode;
  s_bm_1, s_bm_2, s_bm_3: string;
  s_mc_1, s_mc_2, s_mc_3: string;
begin
  DM.BUMEN.Active := True;
  treeview.Items.clear;
  mynode_1 := Treeview.Items.Add(Treeview.topitem, '北明部门档案');
  mynode_1.imageindex := 0;
  mynode_1.stateindex := -1;
  mynode_1.selectedindex := 1;
  DM.BUMEN.indexfieldnames := '部门编码';
  DM.BUMEN.First;
  while not DM.BUMEN.Eof do

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >>