有一个查询条件过滤的窗体,右边为设置查询条件的DBGrid组件,条件根据用户自己设定.
由于用户常有固定的查询条件,需要将常用的查询条件保存方案到左边listview组件内.
1、当用户设置好右边条件时,单击一个按钮,则弹出保存查询方案名称的小窗口,录入名称后即保存到左边的listview组件中.
2、如果用户下次登录有同样的查询时,就不必再录入条件,直接双击左边已保存的方案,即可实现原查询条件的调用.
3、当然,listview组件内可以保存多个查询方案,最好方案名带上小图标,看起来更美观.
4、对于listview组件内的方案,可以选中某一方案后,单击一个按钮可以删除选中的方案.
5、对于listview组件内的方案,可以单击一个按钮,像Windows那样实现图标、列表、详细信息(一列为方案名称,一列为创建时间)。如果能满足以上要求,可以不惜重分酬谢!!!
由于用户常有固定的查询条件,需要将常用的查询条件保存方案到左边listview组件内.
1、当用户设置好右边条件时,单击一个按钮,则弹出保存查询方案名称的小窗口,录入名称后即保存到左边的listview组件中.
2、如果用户下次登录有同样的查询时,就不必再录入条件,直接双击左边已保存的方案,即可实现原查询条件的调用.
3、当然,listview组件内可以保存多个查询方案,最好方案名带上小图标,看起来更美观.
4、对于listview组件内的方案,可以选中某一方案后,单击一个按钮可以删除选中的方案.
5、对于listview组件内的方案,可以单击一个按钮,像Windows那样实现图标、列表、详细信息(一列为方案名称,一列为创建时间)。如果能满足以上要求,可以不惜重分酬谢!!!
ListView里有个Data的属性
你用这个可以保存你想要保存的数据
要用的时候,直接用字符串组合这些sql语句好了。
这样的话,保存查询条件,也就是保存这些字符串。
这总简单了吧?
类似这样:
type
PSignPersonInfo = ^TSignPersonInfo; //定义一个结构体
TSignPersonInfo = Record
KeyID: Integer;
SignPersonID: String;
SignPersonDesc: String;
end;
New(FSignPersonInfo);
FSignPersonInfo.KeyID := 1;
FSignPersonInfo.SignPersonID := 'text';
FSignPersonInfo.SignPersonDesc := '描述';
with ListView2.Items.Add do
begin
Caption := FSignPersonInfo.KeyID;
SubItems.Add(FSignPersonInfo.SignPersonID);
Data := FSignPersonInfo;
end;
左边一个dbgrid保存你的语句说明,右边一个memo保存左边相应条目的具体执行语句,一个dbgrid显示带有查询结果
用一个表或文本文件保存你输入的语句说明和具体语句即可。