SQL.Text := 'select max([商品部编码]) + 1 from spbxx';
Active := True;
if Fields[0].IsNull then
Result := 1
else
Result := Fields[0].AsInteger;
end;
end;
begin
if not InputQuery('输入','请输入节点的名称：',Text) or (Trim(Text)='') then Exit;
Text := Trim(Text);
Node := tv.Items.AddChild(Parent, Text);
New(NodeData);
NodeData^.ID := GetID;
if Parent <> nil then
NodeData^.PID := PNodeData(Parent.Data)^.ID
else
NodeData^.PID := 0;
Node.Data := NodeData;
with quy_spbxx do //将节点信息保存到数据库中
begin
Append;
FieldByName('商品部编码').AsInteger := NodeData^.ID;
FieldByName('PID').AsInteger := NodeData^.PID;
FieldByName('商品部名称').AsString := Text;
Post;
end;
end;
procedure TForm5.N6Click(Sender: TObject); //添加同级节点
begin
if tv.Selected <> nil then
AddNode(tv.Selected.Parent)
else
AddNode(nil);
end;
procedure TForm5.N5Click(Sender: TObject); // 添加子节点
begin
AddNode(tv.Selected);
end;
procedure TForm5.N2Click(Sender: TObject); //删除节点
var
tmpStr: String;
Node: TTreeNode;
begin
<< 上一页 [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] ... 下一页 >>