癫狂编程

摘要： //操作： procedure TForm1.act_GetListExecute(Sender: TObject); begin FieldList := TStringList.create; TreeView1.items.BeginUpdate; Table1.Close; // 关键！这样才能在插入、更新、删除表数据后实现实时更新 Table1.Open; // 关键！ Table1.f 阅读全文

摘要： 表结构及记录 object tarea: TFDQuery Connection = FDConnection1 SQL.Strings = ( 'select *' 'from tArea order by fParentCode') Left = 160 Top = 240 end object 阅读全文

摘要： tProductType表结构如下 object FDConnection1: TFDConnection Params.Strings = ( 'Database=ClothingTem' 'User_Name=sa' 'Password=123' 'Server=(local)' 'Driver 阅读全文

摘要： 在TreeView中，如何实现选中一节点，右键点击上移或下移 TTreeNode.MoveTo() 一、获得Tree上的结点var NowNode : TTreeNode;begin NowNode := TreeView1.Selected;二、结点上移 Treeview1.Selected.Mo 阅读全文