我家里计算机上的winccV7.3损坏了，不得已重装了一下，折磨人的过程。以前练习过使用vbs脚本把sql server表的内容用树形结构显示在TreeView控件中，今天练习了c脚本完成同样的功能。数据表还是利用136那张数据表，画面上放置一个treeview控件，名字修改为TV，添加一个按钮，在按钮的鼠标点击事件中添加以下c脚本：

#include "apdefap.h"
void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)
{
#pragma code("kernel32.dll")
#define GetObject GetObject
int i,RsCount;
__object *pdl=NULL;
__object *pic=NULL;
__object *tv=NULL;
__object *NodeIndex;
__object *cn=NULL;
__object *rs=NULL;
char sql[256],Relative[10],key[10],txtDate[10];//flow1[20],flow2[20],flow3[20];
char *connstr="Provider=SQLOLEDB.1;password=sa;user id =sa;Initial Catalog=Report;Data Source=.\\WINCC";
pdl = __object_create("PDLRuntime");
pic=pdl->GetPicture("");
tv=pic->GetObject("TV");
cn=__object_create("ADODB.Connection");
rs=__object_create("ADODB.RecordSet");
sprintf(sql,"%s","select CurDate,Convert(varchar(10),flow1),Convert(varchar(10),flow2),Convert(varchar(10),flow3) from report" );
cn->open(connstr);
if (cn->State == 0)// 为0表示连接数据库不成功
    MessageBox(NULL,"连接数据库失败!","警告",MB_OK);
else
{
rs->Open(sql,cn,3,1);
RsCount=rs->RecordCount;
rs->MoveFirst();
tv->Nodes->Clear(); //先清空
tv->Style=6; //6.直线、+/-和文本;
tv->LineStyle =1;

//treeview填入数据
//第一级节点
NodeIndex=tv->Nodes->Add();;
NodeIndex->key="Class0";
NodeIndex->Text="Report数据表";
//填入第二季节点-“日期时间”
for(i=1;i<=RsCount;i++)
{
  sprintf(key,"%s%d","Class",i);
  SetTagChar("CurDate",rs->fields(0)->value);
  sprintf(txtDate,"%s",GetTagChar("CurDate"));

  NodeIndex=tv->Nodes->Add("Class0",4);
  NodeIndex->key=key;
  NodeIndex->Text=txtDate;
 
  rs->MoveNext();
}
//填入第三级节点flow1,flow2,flow3
rs->MoveFirst();
for(i=1;i<=RsCount;i++)
{ 
   sprintf(Relative,"%s%d","Class",i);
   SetTagChar("flow1",rs->fields(1)->value);
   SetTagChar("flow2",rs->fields(2)->value);
   SetTagChar("flow3",rs->fields(3)->value);
   //添加flow1     
   NodeIndex=tv->Nodes->Add(Relative,4);
   sprintf(NodeIndex->key,"%s%d%s","Class",i,"1");  
   NodeIndex->Text=GetTagChar("flow1");
    //添加flow2     
   NodeIndex=tv->Nodes->Add(Relative,4);
   sprintf(NodeIndex->key,"%s%d%s","Class",i,"2");  
    NodeIndex->Text=GetTagChar("flow2");
   //添加flow3     
   NodeIndex=tv->Nodes->Add(Relative,4);
   sprintf(NodeIndex->key,"%s%d%s","Class",i,"3");  
    NodeIndex->Text=GetTagChar("flow3");

   rs->MoveNext();
}
for (i=1;i<=tv->nodes->count;i++)
   if (tv->nodes->item(i)->Children>0) tv->nodes->item(i)->Expanded=TRUE;
}
if(cn->State != 0)
    cn->Close;
__object_delete(tv);
__object_delete(pic);
__object_delete(pdl);
}

保存运行之后，可以得到下面的效果：