科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件实现在virtualStringtree中编辑的标准步骤

实现在virtualStringtree中编辑的标准步骤

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

本文讲述的是实现在virtualStringtree中编辑的标准步骤.

作者:feifei 来源:CSDN 2008年3月20日

关键字: 步骤 编辑 C++ C Linux

  • 评论
  • 分享微博
  • 分享邮件

1.设置TVirtualStringTree属性:

      toFullRowSelect : false;

      toMultiSelect:false;

       toExtendedFocous:true;

       toEditable:true;

       editDelay:0 //如果不调用editnode,则不会CREATE EDITOR

2.实现virtualStringtree的ONClick事件:
  功能:根据当前获取焦点的node,判断是否edit该node

TMMSLibraryForm版本:

procedure TMMSLibraryForm.DataTreeClick(Sender: TObject);
var
  Column:TColumnIndex;
  node:PVirtualNode;
begin
  if DataTree.FocusedNode=nil then  Exit;

  node:=DataTree.FocusedNode;
  Column:=DataTree.FocusedColumn;

  if Column<>3 then
     DataTree.EditNode(node,Column);

end;

TSPNumbersForm版本:

procedure TSPNumbersForm.VSTreeSPnumberClick(Sender: TObject);
var
  Column:TColumnIndex;
  node:PVirtualNode;
begin
  if VSTreeSPnumber.FocusedNode=nil then  Exit;

  node:=VSTreeSPnumber.FocusedNode;
  Column:=VSTreeSPnumber.FocusedColumn;

  VSTreeSPnumber.EditNode(node,Column);
end;


TTestNumberForm版本:

procedure TTestNumberForm.VSTreeTestNumberClick(Sender: TObject);
var
  Column:TColumnIndex;
  node:PVirtualNode;
begin
  if VSTreeTestNumber.FocusedNode=nil then  Exit;

  node:=VSTreeTestNumber.FocusedNode;
  Column:=VSTreeTestNumber.FocusedColumn;

  VSTreeTestNumber.EditNode(node,Column);   
end;

3.实现virtualStringtree的ONCreateEditor事件:
  功能:如果editnode被调用,则执行此函数;之前设置editDelay:0,是为避免在不允许改动的node上出现editor

TMMSLibraryForm版本:

procedure TMMSLibraryForm.DataTreeCreateEditor(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; out EditLink: IVTEditLink);
begin
   EditLink:=TStringEditLink.create('',stringlist[node.index * 5+Column])
end;


TSPNumbersForm版本:

procedure TSPNumbersForm.VSTreeSPnumberCreateEditor(
  Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
  out EditLink: IVTEditLink);
begin
   EditLink:=TStringEditLink.create('',stringlist[node.index * 7+Column]);
end;

TTestNumberForm版本:

procedure TTestNumberForm.VSTreeTestNumberCreateEditor(
  Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
  out EditLink: IVTEditLink);
begin
   EditLink:=TStringEditLink.create('',stringlist[node.index * 4+Column]);
end;

4.实现virtualStringtree的ONNewText事件:
  功能:根据获取焦点的node的column,判断值的合法性,并同时更新数据库和stringlist

TMMSLibraryForm版本:

procedure TMMSLibraryForm.DataTreeNewText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; NewText: WideString);
var
  sql:string;
begin
  case Column of
    0:
    begin
      if  (StrToInt64Def(Trim(NewText),-1)=-1) then
      begin
        ShowMessage('"'+Trim(NewText)+'"'+'does not represent a valid number!');
        Exit;
      end;

      sql:='update mmslibrary set MMS_ID='+Trim(NewText)+' where MMS_ID='+Stringlist.strings[node.Index*5];

    end;

    1:
      sql:='update mmslibrary set MMS_Type="'+Trim(NewText)+'" where MMS_ID='+Stringlist.strings[node.Index*5];

    2:
      sql:='update mmslibrary set MMS_Smil="'+Trim(NewText)+'" where MMS_ID='+Stringlist.strings[node.Index*5];

    4:
      sql:='update mmslibrary set MMS_Subject="'+Trim(NewText)+'" where MMS_ID='+Stringlist.strings[node.Index*5];

  end;

  if currentdatabase.ExecuteSqlNoQurey(sql)= 1 then
     ShowMessage('Save to Database sucessfully!')
  else
     ShowMessage('Error occurs while Saving to Database!');

  Stringlist.strings[node.Index*5+Column]:=Trim(NewText);

  DataTree.RootNodeCount:=stringlist.Count div 5 ;
  DataTree.Refresh;
end;

TSPNumbersForm版本:

procedure TSPNumbersForm.VSTreeSPnumberNewText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; NewText: WideString);
var
  sql:string;
begin
  case Column of
    0:
    begin
      if  (StrToInt64Def(Trim(NewText),-1)=-1) then
      begin
        ShowMessage('"'+Trim(NewText)+'"'+'does not represent a valid number!');
        Exit;
      end;

      sql:='update spnumbers set SP_SPID='+Trim(NewText)+' where SP_SPID='+Stringlist.strings[node.Index*7];
    end;
    1:
    sql:='update spnumbers set SP_Name="'+Trim(NewText)+'" where SP_SPID='+Stringlist.strings[node.Index*7];
    2:
    sql:='update spnumbers set SP_Nameforshort="'+Trim(NewText)+'" where SP_SPID='+Stringlist.strings[node.Index*7];
    3:
    sql:='update spnumbers set SP_operationtype="'+Trim(NewText)+'" where SP_SPID='+Stringlist.strings[node.Index*7];
    4:
    sql:='update spnumbers set SP_Code="'+Trim(NewText)+'" where SP_SPID='+Stringlist.strings[node.Index*7];
    5:
    sql:='update spnumbers set SP_operationcode="'+Trim(NewText)+'" where SP_SPID='+Stringlist.strings[node.Index*7];
    6:
    sql:='update spnumbers set SP_operationName="'+Trim(NewText)+'" where SP_SPID='+Stringlist.strings[node.Index*7];
  end;

  if currentdatabase.ExecuteSqlNoQurey(sql)= 1 then
     ShowMessage('Save to Database sucessfully!')
  else
     ShowMessage('Error occurs while Saving to Database!');

  Stringlist.strings[node.Index*7+Column]:=Trim(NewText);

  VSTreeSPnumber.RootNodeCount:=stringlist.Count div 7 ;
  VSTreeSPnumber.Refresh;
end;

TTestNumberForm版本:

procedure TTestNumberForm.VSTreeTestNumberNewText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; NewText: WideString);
var
  sql:string;
begin
  case Column of
    0:
    begin
      if  (StrToInt64Def(Trim(NewText),-1)=-1) then
      begin
        ShowMessage('"'+Trim(NewText)+'"'+'does not represent a valid number!');
        Exit;
      end;

      sql:='update testnumbers set TN_MSISDN='+Trim(NewText)+' where TN_MSISDN='+Stringlist.strings[node.Index*4];
    end;
    1:
    sql:='update testnumbers set TN_Imsi="'+Trim(NewText)+'" where TN_MSISDN='+Stringlist.strings[node.Index*4];
    2:
    sql:='update testnumbers set TN_Location="'+Trim(NewText)+'" where TN_MSISDN='+Stringlist.strings[node.Index*4];
    3:
    sql:='update testnumbers set TN_Description="'+Trim(NewText)+'" where TN_MSISDN='+Stringlist.strings[node.Index*4];
  end;

  if currentdatabase.ExecuteSqlNoQurey(sql)= 1 then
     ShowMessage('Save to Database sucessfully!')
  else
     ShowMessage('Error occurs while Saving to Database!');

  Stringlist.strings[node.Index*4+Column]:=Trim(NewText);

  VSTreeTestNumber.RootNodeCount:=stringlist.Count div 4 ;
  VSTreeTestNumber.Refresh;
end;

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章