采用递归方法为cxDBtreelist (Devexpress VCL) 控件增加复选框

1-1在Listview 控件中使用复选框在Listview 控件中使用复选框，可以进行多重选择，示例代码如下：Private Sub UserForm_ Initializ e()Dim Itm As ListItemDim r As IntegerDim c As IntegerWith ListView1.ColumnHe aders.Add ,,"人员编号", 50, 0.ColumnHe aders.Add ,,"技能工资", 50, 1.ColumnHe aders.Add ,,"岗位工资", 50, 1.ColumnHe aders.Add ,,"工龄工资", 50, 1.ColumnHe aders.Add ,,"浮动工资", 50, 1.ColumnHe aders.Add ,,"其他", 50, 1.ColumnHe aders.Add ,,"应发合计", 50, 1.View= lvwReport .Gridline s = True.FullRowS elect= True.CheckBox es = True For r=2 ToSheet2.[A 65536].En d(xlUp).R ow - 1Set Itm= .ListItem s.Add() Itm.Text =Sheet2.Ce lls(r, 1) For c=1 To 6Itm.SubIt ems(c)= Format(Sh eet2.Cell s(r,c+ 1),"##,#,0.0 0")NextNextEnd WithSet Itm= NothingEnd SubPrivate Sub CommandBu tton1_Cli ck()Dim r As IntegerDim i As IntegerDim c As Integerr= Sheet1.[A 65536].En d(xlUp).R owIf r>1 ThenSheet1.Ra nge("A2:G "&r)= ""With ListView1 For i=1 To.ListItem s.CountIf.ListItem s(i).Chec ked= True Then Sheet1.Ra nge("A655 36").End( xlUp).Off set(1,0) =.ListItem s(i)For c=1 To 6Sheet1.Ce lls(65536 ,c+ 1).End(xl Up).Offse t(1,0)= .ListItem s(i).SubI tems(c) NextEnd IfNextEnd WithEnd Sub 代码解析：第1行到第26行代码，用户窗体的Initialize事件过程，在窗体显示时将工作表中数据显示在Listview控件中，请参阅技巧0。

CXGRID控件使用说明一、安装CXGRID控件3. 在弹出的对话框中点击"Add"按钮，然后浏览到CXGRID控件的文件夹，选择"dcldxGridLib.dpk"文件，点击"OK"按钮。

4. 在"Installed packages"列表中选中CXGRID控件，点击"Load"按钮。

二、创建CXGRID控件1. 在Delphi中创建一个新的窗体或数据模块。

2.在控件面板中找到CXGRID控件，将其拖放到窗体或数据模块上。

3. 双击CXGRID控件，调出Object Inspector窗口，可以对CXGRID 控件进行属性设置，比如添加数据源、设置列、设计外观等。

三、设置数据源1. 在Object Inspector窗口中找到"DataSource"属性，并将其设置为一个有效的数据源组件，比如TDataSource。

2. 在"Columns"属性中设置数据表格的列和字段对应关系，可以设置列的标题、显示格式、数据类型等属性。

四、绑定数据表格1. 在Object Inspector窗口中找到"Columns"属性，点击右侧的"..."按钮。

2. 在弹出的对话框中点击"Add"按钮，选择需要绑定的字段，点击"OK"按钮。

3.重复上述步骤，为需要绑定的字段添加相应的列。

4. 在"Options"属性中设置表格的显示方式，比如显示水平滚动条、显示垂直滚动条等。

五、增加数据行1.在窗体或数据模块上添加一个按钮控件。

3.在事件代码中使用以下方法向数据表格中增加数据行：MyDataSet.Insert;MyDataSet.FieldByName('字段1').AsString := '值1';MyDataSet.FieldByName('字段2').AsInteger := 值2;MyDataSet.Post;七、删除数据行1.在窗体或数据模块上添加一个按钮控件。

EF.DLL 的介绍 1.EF.dll 中的 Form
结构如下：
如上图所示--常用的是 EFForm 1) 继承 :父类有的，子类都会继承 ( 如 EFFormMain 中的东西，到了 EFForm 中，原来使用 EFFormMain 的对象调用的，现在使用 EFForm 的对象都可以调用， EFFormMasterDetail 类 似) 2）简单点如下: 可认为 EFFormMain 是基类，空的，看上去什么都没有， EFForm 为它添加了下方的 F1--F12 按钮栏，可以通过授权控制按钮是否显示. EFFormMasterDetail 是在 EFForm 上添加了一个 Panel 和一个 TabControl 控件 EFFormListDetail 是添加了一个 LayoutControl 并定义了上中下(查询条件，列表，详细)的格 局 EFFormMasterDetail2 是继承自 EFFormMasterDetail 的一个未完成的画面 .定义了工具栏上按 钮的操作对应的默认实现 EFFormListDetail2 是继承自 EFFormListDetail 的一个未完成的画面 . 定义了工具栏上按钮 的操作对应的默认实现 一般情况下窗体都直接继承自 EFForm
属性:
2.4 EFDevSpinEdit 数值输入控件
数值输入框.如下.由一个 EFDevTextEdit 和一个上下翻动的按钮组成，用户可点击按钮调整 值.
简单说明: 1.只能输入数值型(整数或者小数，包含负数) 2.可控制可输入的最大值和最小值(MaxValue，MinValue) 3.控制最大长度(MaxLength) 4.控制是否可输入小数(IsFloatValue) 5.可控制点击按钮式，增加或减少的值大小(Increment 属性) 主要属性如下图所示:

winform复选框控件赋值的⼩技巧前⼏天，有⼀位园友写了⼀篇不错的⽂章《》，⽂章⾥⾯介绍了怎么清空界⾯各个控件值的⼀个好技巧，这个⽅法确实是不错的，在繁杂的界⾯控件值清理中，可谓省时省⼒。

本⼈在开发Winform程序中，也有⼀个类似的⼩技巧，不是清空控件值，⽽是赋值，给复选框赋值和获取值的⼩技巧，分享讨论⼀下。

应⽤场景是这样的，如果你有⼀些需要使⽤复选框来呈现内容的时候，如下⾯两图所⽰：以上的切除部分的内容，是采⽤在GroupBox中放置多个CheckBox的⽅式；其实这个部分也可以使⽤Winform控件种的CheckedListBox控件来呈现内容。

如下所⽰。

不管采⽤那种控件，我们都会涉及到为它赋值的⿇烦，我这⾥封装了⼀个函数，可以很简单的给控件赋值，⼤致代码如下。

CheckBoxListUtil.SetCheck(this.groupRemove, info.切除程度);那么取控件的内容代码是如何的呢，代码如下：info.切除程度 = CheckBoxListUtil.GetCheckedItems(this.groupRemove);赋值和取值通过封装函数调⽤，都⾮常简单，也可以重复利⽤，封装⽅法函数如下所⽰。

代码public class CheckBoxListUtil{///<summary>///如果值列表中有的,根据内容勾选GroupBox⾥⾯的成员.///</summary>///<param name="group">包含CheckBox控件组的GroupBox控件</param>///<param name="valueList">逗号分隔的值列表</param>public static void SetCheck(GroupBox group, string valueList){string[] strtemp = valueList.Split(',');foreach (string str in strtemp){foreach (Control control in group.Controls){CheckBox chk = control as CheckBox;if (chk != null && chk.Text == str){chk.Checked = true;}}}}///<summary>///获取GroupBox控件成员勾选的值///</summary>///<param name="group">包含CheckBox控件组的GroupBox控件</param>///<returns>返回逗号分隔的值列表</returns>public static string GetCheckedItems(GroupBox group){string resultList = "";foreach (Control control in group.Controls){CheckBox chk = control as CheckBox;if (chk != null && chk.Checked){resultList += string.Format("{0},", chk.Text);}}return resultList.Trim(',');}///<summary>///如果值列表中有的,根据内容勾选CheckedListBox的成员.///</summary>///<param name="cblItems">CheckedListBox控件</param>///<param name="valueList">逗号分隔的值列表</param>public static void SetCheck(CheckedListBox cblItems, string valueList){string[] strtemp = valueList.Split(',');foreach (string str in strtemp){for (int i = 0; i < cblItems.Items.Count; i++){if (cblItems.GetItemText(cblItems.Items[i]) == str){cblItems.SetItemChecked(i, true);}}}}///<summary>///获取CheckedListBox控件成员勾选的值///</summary>///<param name="cblItems">CheckedListBox控件</param>///<returns>返回逗号分隔的值列表</returns>public static string GetCheckedItems(CheckedListBox cblItems){string resultList = "";for (int i = 0; i < cblItems.CheckedItems.Count; i++){if (cblItems.GetItemChecked(i)){resultList += string.Format("{0},", cblItems.GetItemText(cblItems.Items[i]));}}return resultList.Trim(',');}}以上代码分为两部分，其⼀是对GroupBox的控件组进⾏操作，第⼆是对CheckedListBox控件进⾏操作。