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] ... 下一页 >>