代码重构——之获得封装性DELPHI编码实例
代码重构是获得结构良好的方法,通过重构,我们在保持功能不变的情况下,改善代码的质量,提高代码的复用程度。下面是一个获得改善代码质量和获得封装性的一个具体的例子。(例子使用DELPHI)
代码功能:
给数据集设(TClientDataSet)置过滤器,用户可以在一个TComboBox中选择要过滤的字段,然后在一个Tedit框中输入要过滤的值。如图一:
最常见的做法就是在TComboBox的Items属性中硬码写入我们数据集中的字段名称,然后在代码中加入一大堆case或者if语句在判断用户选择的字段来给数据集设置过滤器。
……
case ComboBox1.ItemIndex of
0:
ClientDataSet.Filtered := False;
ClientDataSet.Filter := '''' F_CODE = '''''''''''' + Edit2.Text + '''''''''''''''';
ClientDataSet.Filtered := True;
1:
ClientDataSet.Filtered := False;
ClientDataSet.Filter := '''' F_CHINESE_NAME = '''''''''''' + Edit2.Text + '''''''''''''''';
ClientDataSet.Filtered := True;
……
end;
或者用
….…
if ComboBox1.Text = ''''物料编码'''' then
begin
ClientDataSet.Filtered := False;
ClientDataSet.Filter := '''' F_CODE = '''''''''''' + Edit2.Text + '''''''''''''''';
ClientDataSet.Filtered := True;
end
else if ComboBox1.Text = ''''名称'''' then
begin
ClientDataSet.Filtered := False;
ClientDataSet.Filter := '''' F_CHINESE_NAME = '''''''''''' + Edit2.Text + '''''''''''''''';
ClientDataSet.Filtered := True;
end
……
这样的代码通过硬码同样也实现了这个给数据集设置过滤器的功能,满足了需求,但是上面这段代码是不灵活的。如果数据集的字段很多就要求编码人员一个一个字段录入在Items中,而且在写case必须核对好顺序,不然设置的过滤器就是错误的也就很容易由开发人员引入BUG。用if语句时也一样维护一个大量的if同样是痛苦的,而且不支持需求变化,当用户要求改变数据集字段的中文显示名称时必须也要记住更改TComboBox. Items中的硬码数据,如果一旦忘记就会引入BUG。
于是我在第一次重构中,尝试动态的加载TComboBox. Items中的数据,同时为了实现加载后用户选择时实现对照。我在这个查询FORM中加了一个 私有FFields: array[0..20, 0..2] of string; 字段来保存数据集中的字段信息数据。同时实现了一个加载数据的过程:
procedure TFrmSPARealStorageQuery.GetQueryFields;
var
i, iFieldsCount: Integer;
begin
iFieldsCount := 0;
with DBGride1.DataSource.DataSet do
begin
for i := 0 to Fields.Count - 1 do
if Fields[i].Visible then
begin
FFields[iFieldsCount, 0] := Fields[i].FieldName;
FFields[iFieldsCount, 1] := Fields[i].DisplayLabel;
Inc(iFieldsCount);
end;
ComboBox1.Items.Clear;
for i := 0 to iFieldsCount - 1 do
ComboBox1.Items.Add(FFields[i, 1]);
end;
end;
这样就实现了在运行时动态加载字段信息。这样我的过滤器设置就变成了这样的。
if ComboBox1.Text <> '''''''' then
begin
[1] [2] [3] 下一页 没有相关教程
|