DELPHI办公管理系统 第16页

DELPHI办公管理系统 第16页
 begin
    s_bm_1 := DM.BUMEN.fieldbyname('部门编码').asstring;
    s_mc_1 := DM.BUMEN.fieldbyname('部门名称').asstring;
    if length(trim(s_bm_1)) = 2 then
    begin
      mynode_2 := Treeview.items.addchild(mynode_1, '[' + s_bm_1 + '] ' + s_mc_1);
      mynode_2.imageindex := 0;
      mynode_2.stateindex := -1;
      mynode_2.selectedindex := 1;
    end;
    if length(trim(s_bm_1)) = 5 then
    begin
      mynode_3 := Treeview.items.addchild(mynode_2, '[' + s_bm_1 + '] ' + s_mc_1);
      mynode_3.imageindex := 0;
      mynode_3.stateindex := -1;
      mynode_3.selectedindex := 1;
    end;
    DM.BUMEN.next;
  end;  

end;

procedure TBM_BENMENF.FormCreate(Sender: TObject);
begin
//DM.BUMEN.Active := True;
RefreshTree;
end;

procedure TBM_BENMENF.N_insertClick(Sender: TObject);
var
  gs_global: string; //存储添加的父节点标题；
begin
  b_pd := true;
  Node_Parent := Treeview.selected;
  if Node_Parent.level = 2 then
  begin
    Application.messagebox('最底层不能添加，请在上层添加', '物资管理系统', mb_iconinformation + mb_defbutton1);
    exit;
  end;
  //设置按扭的有效性
  button_valid;
  if Node_Parent.level = 0 then
  begin
    DM.BUMEN.Insert;
    DM.BUMEN.FieldByName('部门编码').editmask := '99;1;_';
    pagecontrol1.ActivePageIndex := 0;
   DBEdt_Bmbm.setfocus;
  end;
  if Node_Parent.level = 1 then
  begin
    gs_global := copy(Node_Parent.text, 2, 2);
    DM.BUMEN.insert;
    DM.BUMEN.FieldByName('部门编码').editmask := '99-99;1;_';
    pagecontrol1.ActivePageIndex := 0;
 DBEdt_Bmbm.setfocus;
    DBEdt_Bmbm.text := gs_global;
  end;

end;

procedure TBM_BENMENF.button_valid;
begin

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

DELPHI办公管理系统 第16页下载如图片无法显示或论文不完整，请联系qq752018766