| snakejiao
39132
|
2009/11/30 13:29:39 |
| 期待1.5版 我的邮箱 1007327969@qq.com 支持delphi2010 谢谢 |
| cat_999
35989
|
2008/10/30 16:49:43 |
| 你的包里缺少个单元 ku.pas |
| xinqing_114
33556
|
2008/4/3 12:18:16 |
| 你的多条件查询还是有问题 |
| bjyplbx
32750
|
2008/1/17 16:10:18 |
多条件查询有问题，我改成这样，可以用了，这个东西里很多东西都没用到，怎么回事
if Accept then
//for I := 0 to SaveTempFilterStr.Count - 1 do
for I := 0 to FFilterStrings.Count - 1 do
begin
//Temp := SaveTempFilterStr.Values[DataSet.Owner.Name + '.' + DataSet.Name];
Temp := FFilterStrings.Strings[I];
//ShowMessage(Temp);
//exit;
APos := 1;
if I <> 0 then |
| oasiswsc
32267
|
2007/12/18 10:23:26 |
| 期待1.5的保存到数据库的功能，谢谢分享！ |
| dooe
31372
|
2007/10/7 21:51:07 |
| 支持 |
| kingjit
27782
|
2007/1/10 20:11:37 |
好啊,终于看到有人顶了!
加油,希望能看到更好的出现 |
| wstgfx
27754
|
2007/1/8 16:16:14 |
不好意思,再改:
procedure TKingFilter.btReplaceClick(Sender: TObject);
var
S: string;
n:integer;
begin
if cbValue.Text ='' then exit;
if lbFilter.ItemIndex>=0 then
begin
n:= lbFilter.ItemIndex ;
S := IntToStr(cbLink.ItemIndex) + ';';
s := s + TField(cbFields.Items.Objects[cbFields.ItemIndex]).FieldName + ';';
S := S + IntToStr(Integer(cbConditions.Items.Objects[cbConditions.ItemIndex]))
+ ';';
s := s + cbValue.Text + ';';
lbFilter.Items[n]:=S;
end;
end; |
| wstgfx
27753
|
2007/1/8 15:47:06 |
改一下:
n:= lbFilter.ItemIndex ;
移到
S := IntToStr(cbLink.ItemIndex) + ';';
之前合理一点. |
| wstgfx
27752
|
2007/1/8 15:40:36 |
这是在对象位置上的直接替换.
另,谁知道在主窗口如何取得当前的过滤条件? |
| wstgfx
27751
|
2007/1/8 15:37:07 |
替换按钮的补充:原来的替换实际上是删除之后在末尾加上一个新的过滤项,如果原过滤项之后有带"或者"的过滤项,会引起混乱.
procedure TKingFilter.btReplaceClick(Sender: TObject);
var
S: string;
n:integer;
begin
n:= lbFilter.ItemIndex ;
if cbValue.Text ='' then exit;
if lbFilter.Count =0 then exit;
if lbFilter.Selected[lbFilter.ItemIndex] then
begin
S := IntToStr(cbLink.ItemIndex) + ';';
s := s + TField(cbFields.Items.Objects[cbFields.ItemIndex]).FieldName + ';';
S := S + IntToStr(Integer(cbConditions.Items.Objects[cbConditions.ItemIndex]))
+ ';';
s := s + cbValue.Text + ';';
lbFilter.Items[n]:=S;
end;
end; |
| mixia
26342
|
2006/9/28 16:28:55 |
| 期待你的精彩 |
| wuqvei
22828
|
2006/4/11 18:45:50 |
| grid上 ctrl + F 出来的查找框好象比你的好用 就是英文版 |
| wuqvei
22827
|
2006/4/11 18:29:37 |
| 关注 下一版本1.5:将会增加保存GRID的设置的用法以及把整个界面的属性都保存到数据库中,供下一次打开时调用的功能! |
| ahq
22755
|
2006/4/8 17:07:31 |
运行出现错误！
[Fatal Error] ColEditor.dpr(10): File not found: 'EhLibADO.dcu'
怎么回事呀 |
| yorke81
22280
|
2006/3/21 16:02:05 |
| 多条件过滤失效问题好像仍未解决! |
| yorke81
22272
|
2006/3/21 9:12:05 |
| 如果能把代码加上注释,那就完美了,现在看起来一头烟啊! |
| ptonsn
22234
|
2006/3/19 10:50:32 |
| 不知道 ku.dcu在哪里 |
| hoohooliu
22022
|
2006/3/10 11:08:27 |
| 我的意思是，把 筛选,合计,,显示字段 等用户选择好的条件能保存,并定义为一个标题,下次好直接提取.(combobox下列出所有保存过的标题，直接提就okay)呵呵. |
| hoohooliu
22021
|
2006/3/10 11:06:23 |
您的东西做得非常棒,我希望发布新版本的时候，能打一个可以直接编译的完整包.比如ku.dcu都可以去掉.:) 另外,我提一下我的看法,可以将,筛选/统计(分小计.合计)/显示合为一个界面做一个标题,并可以保存该标题,下次可以直接提取.这样就非常的完美了.
呵呵,你现有的代码，我都非常欣赏，向你学习!另外,能把能编译的包再发布一次吗?老是缺文件，不太爽呢. |
