通用查询组件设计（续）

前段时间由于工作较忙，无暇整理本组件的相关文档，请大家谅解！以后我会陆续整理公布该组件的所有相关文档及源码！

设置默认的匹配类型

procedure TDBFilterDialog.SetDefaultMatchType(const Value: TDBFilterMatchType);

begin

//设置默认的匹配类型

FDefaultMatchType := Value;

if Assigned(FDialog) and not (csDesigning in ComponentState) then

case FDefaultMatchType of

fdMatchNone :

begin

FDialog.grpSearchType.ItemIndex := 0;

FDialog.cbxNonMatching.Checked := true;

end;

fdMatchRange:

FDialog.pgeCriteria.ActivePage := FDialog.tabByRange;

else

FDialog.grpSearchType.ItemIndex := Integer(FDefaultMatchType);

end;

end;

设置字段

procedure TDBFilterDialog.SetFields;

var

i, j, p : Integer;

field, display : String;

begin

//设置字段

FDialog.lstAllFields.Clear;//清除所有字段

if FFields.Count = 0 then

begin

for i := 0 to FDataSet.FieldList.Count - 1 do

if FDataSet.Fields[i].Visible then //定义查询字段

FDialog.lstAllFields.Items.AddObject(FDataSet.Fields[i].DisplayName,FDataSet.FieldList.Fields[i]);

end

else

for j := 0 to FFields.Count - 1 do

begin

p := Pos(';', FFields.Strings[j]);

field := Copy(FFields.Strings[j], 1, p - 1);

if p = Length(FFields.Strings[j]) then

display := field

else

display := Copy(FFields.Strings[j], p 1, Length(FFields.Strings[j]));

for i := 0 to FDataSet.FieldList.Count - 1 do

if FDataSet.FieldList.Fields[i].FieldName = field then

FDialog.lstAllFields.Items.AddObject(display, FDataSet.FieldList.Fields[i]);

end;

if FDialog.lstAllFields.Items.Count > 0 then

begin

FDialog.lstAllFields.ItemIndex := 0;

FDialog.FieldsListBoxClick(nil);//单击字段列表框

end;

end;

设置字段列表

procedure TDBFilterDialog.SetFieldsList(const Value: TStringList);

begin

//设置字段列表

FFields.Assign(Value);

end;

设置SQL

procedure TDBFilterDialog.SetOriginalSQL(const Value: TStrings);

var

i : Integer;

begin

//设置SQL语句

if FOriginalSQL.Text <> Value.Text then

begin

FOriginalSQL.Clear;

FOriginalSQL.AddStrings(Value);

if not (csLoading in ComponentState) then

FFields.Clear;

FDialog.NewSQL;//新建SQL查询

end;

for i := 0 to FOriginalVariables.Count - 1 do

TDBVariable(FOriginalVariables[i]).Free;//定义参数数据变量类

FOriginalVariables.Clear;

if TStrings(GetOrdProp(FDataSet, SQLProp)).Text = '' then

exit;

for i := 0 to TQuery(FDataSet).Params.Count - 1 do

FOriginalVariables.Add(TDBVariable.Create(TQuery(FDataSet).Params[i].Name, TQuery(FDataSet).Params[i].Value)); //定义参数数据变量类

SetFields;//设置字段

end;

恢复SQL

procedure TDBFilterDialog.RestoreSQL;

var

i : Integer;

begin

//恢复SQL语句

// Disable the controls while we are working

FDataSet.DisableControls;

FDataSet.Close;

// clear the existing SQL and variable declarations

// restore the original SQL and variables

SetOrdProp(FDataSet, SQLProp, Integer(FOriginalSQL));

if FDataSet is TDataSet then

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有