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

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;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有