DELPHITreeView与数据库的使用.docxVIP

[编程]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 名称= + StrPos + ); Open; StrPos := fieldbyname(编号).AsString; end; //上面的调用是两表主键的使用