实训三_树形结构中分院班级专业显示.doc

实训三：主界面树形控件中学院，专业班级的分级显示目的要求：1、 主界面树形控件中学院，专业班级的分级显示2、 掌握结构体的使用基本方法3、 掌握ADO查询语句的使用4、 掌握ADO查询结果的循环读取。5、 掌握TREEVIEW控件中节点的切换响应准备知识：1、 运行SQL 2000或者2005 2、 新建查询，执行SQL代码，生产数据库和表，以及表中插入数据3、 打开DELPHI7，装入前面做好的工程，主要步骤：第一部分：1、 接上节课，声明结构体后，向学院表中，专业表，班级表中插入数据，2、 再主窗体的onshow事件中写代码，清空TREEVIEW中的项目，虽然刚刚运行里面肯定没项目，也要这样做；TreeView1.Items.Clear;3、 声明变量FY，TREENODE，分别表示分院节点，专业节点，班级节点。4、 声明指向结构体PPNODE的指针变量。var fy:ttreenode; /保持分院节点的名字 ppnode:pdatanode; yid,yname:string;5、 添加根节点：指针变量PPNODE实例化 ，然后元素赋值，添加到TREEVIEW1中 new(ppnode); /分配空间给指针变量 ppnode.index:=681; ppnode.caption:=浙江工业职业技术学院; fy:=TreeView1.Items.AddChildObjectFirst(nil,浙江工业职业技术学院,ppnode); /添加到树形控件中6、 然后查询所有分院信息， /查询分院信息 ADOQuery1.Close; ADOQuery1.sql.Clear; ADOQuery1.SQL.Add(select yid,yname from y order by yid); ADOQuery1.Open;7、 循环读取所有分院信息，读取同时添加到父节点FY下 / 由内存中读取查出的结果信息，加以显示 while not ADOQuery1.Eof do /判断记录是否已经读取结束 ，查询到几条记录就循环几次 begin yid:=ADOQuery1.FieldByName(yid).AsString; yname:= ADOQuery1.FieldByName(yname).AsString; new(ppnode); /分配空间，为新节点做好准备 ppnode.index:=yid; /新节点添加编号 ppnode.caption:=yname; /新节点添加名字 TreeView1.Items.AddChildObject(fy,yname,ppnode); /添加到父FY节点下 ADOQuery1.Next; /循环读取下一条数据，没有这个将是死循环， end;执行结果如图所示：第二部分：8、 在分院下面显示专业9、 要添加专业就要用准嵌套，嵌套位置如图所示：10、 要添加的代码和分院显示的代码类似，要先定义变量，保存专业信息，专业代码和专业名称；