DELPHI--TreeView与数据库的使用.docVIP

[编程]DELPHI--TreeView与数据库的使用 //写一个过程procedure Tf_Serch.DrawTree;var i: Integer; Nodeo: TTreeNode;begin //打开一个表　with dm.qTempQ do begin Close; SQL.Clear; SQL.Add select * from t_class order by 编号 ; Open; end;　//打开第二个表 with dm.qKid do begin Close; SQL.Clear; SQL.Add select * from t_kid order by 班级编号 ; Open; end;　//清空列表 RzTreeView1.Items.Clear;　//如果第一个表有数据 if not dm.qTempQ.Eof then begin　　//设置列表自动打开 RzTreeView1.AutoExpand : true;　　//设置列表为只读 RzTreeView1.ReadOnly : true;　　//增加一个节点，来源是第一个表的合计数和第二个表的合计数 Nodeo : RzTreeView1.Items.AddFirst nil, 班级数[ + IntToStr dm.qTempQ.RecordCount + 个 + IntToStr dm.qKid.RecordCount + 人] ; //以第一个表的记录个数进行循环增加子节点 for i : 0 to dm.qTempQ.RecordCount - 1 do begin　　　//打开第三个表，与第二个表相同 with dm.qTemp1 do begin Close; SQL.Clear; SQL.Add select * from t_kid ; Open; //不同的是，这个表过滤数据 Filtered : false; Filter : 班级编号 + QuotedStr dm.qTempQ.FieldByName 编号 .AsString ; Filtered : true; end;　　　//增加子节点，来源是第一个表某字段的记录和第三个表的合计数 RzTreeView1.Items.AddChild Nodeo, [ + IntToStr dm.qTemp1.RecordCount + 人] + dm.qTempQ.FieldByName 名称 .Asstring ;　　　//第一个表的下一条 dm.qTempQ.Next; end; end; if RzTreeView1.Enabled then RzTreeView1.SetFocus;end;//CLICK事件procedure Tf_Serch.RzTreeView1Click Sender: TObject ;var StrPos: string; intPos: Integer;begin　//如果列表没有节点则退出 if RzTreeView1.Items.GetFirstNode nil then Exit;　//以选择节点的变量判断使用什么表，这个是已知第一个节点的变量是何值，对其进行判断，如果节点则调用一个表后并退出 if Pos 班级数, RzTreeView1.Selected.Text 0 then begin dm.qTempQ.Close; dm.qTempQ.SQL.Clear; dm.qTempQ.SQL.LoadFromFile bin\selclass.sql ; dm.qTempQ.SQL.Add group by 姓名 ; dm.qTempQ.Open; with dm.qMTT do begin Close; SQL.Clear; SQL.LoadFromFile bin\selIO.sql ; SQL.Add group by 姓名 ; Open; end; Exit; end;　//得到选择的节点的变量 StrPos : RzTreeView1.Selected.Text;　//对变量进行判断 intPos : pos ],StrPos ;　//获得一个变量 StrPos : Copy StrPos, intPos+1, Length StrPos -intPos ;　//依上个变量值调用表灵气 with dm.qTemp2 do begin Close; SQL.Clear; SQL.Add select * from t_class where 名称