1、该窗体在“\系统空间\用户界面基础\界面\系统接口\简单SQL条件构造窗体”
2、调整字段下拉的宽度
procedure TSimpleSQLFilterEditor.CreateEditors;
...
//LayoutControl(FLeftEdit, 35, 0, 145, 20);
...
//LayoutControl(FRelationOpr, 187, 0, 93, 20);
...
2、把“>”、“<”、“=”等修改为汉字
加载条件类别在
function IsBinaryOpr(const ATokenText: string): Boolean;
begin
Result := AnsiMatchText(ATokenText, ['=', '>', '<', '>=', '<=', '<>',
'LIKE', 'NOT LIKE', 'IN', 'NOT IN']);
end;
3、上面的显示标题
lblPrompt.Caption := '请录入将要过滤的条件,然后单击“确定”按钮。' +
'“复位”按钮是将编辑的条件恢复到最初状态。' +
'单击“高级”按钮可以以语句的方式查看并编辑条件。' + #13#10 +
'在构造条件时“对号”表示成功、' +
'“错号”表示失败、“问号”表示新增的子条件。'; |