我前期在用Delphi编写了一个查询系统,建了一个工程,当运行时出现一个主窗体,然后点出一个Button按钮,将弹出一个子窗体,作为查询的筛选条件.
在使用中,认为运行时,直接打开查询窗体,然后录入查询条件后,再将原来的主窗体打开,并显示查询结果.
如果重新写需要花很大时间,不知道在原来的基础可不可直接修改?怎么修改?
在使用中,认为运行时,直接打开查询窗体,然后录入查询条件后,再将原来的主窗体打开,并显示查询结果.
如果重新写需要花很大时间,不知道在原来的基础可不可直接修改?怎么修改?
1.先把这个登录窗口做好(在同一个工程下)
2.把project(点viewunit按钮)打开,改一下运行顺序,把登录的unit放到主窗口的unit前就可以了
1、主窗体show之前,查询窗体showmodal
2、修改项目源文件,在主窗体create之前动态创建查询窗体。
在FrmResult中声明一个全局变量sFilter:string;
根据FrmFind中选择的条件来生成查询语句sFilter;
按钮事件这样写
TFrmFind.Create(nil).ShowModal;
FrmFind.Free;
//关闭查询窗口后执行
with Query do
begin
clsoe;
sql.clear;
sql.add(sFilter);
open;
end;这不就达到你的目的 了吗?