You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
118 lines
2.7 KiB
Plaintext
118 lines
2.7 KiB
Plaintext
unit u_info_bulletin_query;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, BusinessSkinForm, bsSkinCtrls, wwdbdatetimepicker,
|
|
wwdblook;
|
|
|
|
type
|
|
Tfrm_info_bulletin_query = class(TForm)
|
|
Label2: TLabel;
|
|
Label1: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
bsSkinButton10: TbsSkinButton;
|
|
bsSkinButton5: TbsSkinButton;
|
|
Edit1: TEdit;
|
|
wwDBLookupCombo1: TwwDBLookupCombo;
|
|
Edit2: TEdit;
|
|
d1: TwwDBDateTimePicker;
|
|
d2: TwwDBDateTimePicker;
|
|
Label5: TLabel;
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_info_bulletin_query: Tfrm_info_bulletin_query;
|
|
|
|
implementation
|
|
|
|
uses u_data_share, u_info_bulletin_manage, my_sys_function;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_info_bulletin_query.bsSkinButton5Click(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
procedure Tfrm_info_bulletin_query.bsSkinButton10Click(Sender: TObject);
|
|
var
|
|
str:widestring;
|
|
begin
|
|
if_num(Edit2.text,'保留天数');
|
|
str:='';
|
|
if Edit1.text<>''then
|
|
begin
|
|
if str='' then
|
|
str:=' where 公告名称 like '+''''+'%'+edit1.text+'%'+''''
|
|
else
|
|
str:=str+' and 公告名称 like '+''''+'%'+edit1.text+'%'+'''';
|
|
end;
|
|
if wwDBLookupCombo1.text<>''then
|
|
begin
|
|
if str='' then
|
|
str:=' where 发布人='+''''+wwDBLookupCombo1.text+''''
|
|
else
|
|
str:=str+' and 发布人='+''''+wwDBLookupCombo1.text+'''';
|
|
end;
|
|
if Edit2.text<>''then
|
|
begin
|
|
if str='' then
|
|
str:=' where 保留天数='+trim(Edit2.text)
|
|
else
|
|
str:=str+' and 保留天数='+trim(Edit2.text);
|
|
end;
|
|
if d1.text<>''then
|
|
begin
|
|
if str='' then
|
|
str:=' where 发布日期>='+''''+d1.text+''''
|
|
else
|
|
str:=str+' and 发布日期>='+''''+d1.text+'''';
|
|
end;
|
|
if d2.text<>''then
|
|
begin
|
|
if str='' then
|
|
str:=' where 发布日期<='+''''+d2.text+''''
|
|
else
|
|
str:=str+' and 发布日期<='+''''+d2.text+'''';
|
|
end;
|
|
|
|
str:='select * from t_info_bulletin'+str+' order by 发布日期';
|
|
|
|
table_query(frm_info_bulletin_manage.t_info_bulletin,str);
|
|
if frm_info_bulletin_manage.t_info_bulletin.IsEmpty then
|
|
begin
|
|
showmessage('没有检索出信息！！');
|
|
end
|
|
else
|
|
close;
|
|
end;
|
|
|
|
procedure Tfrm_info_bulletin_query.FormShow(Sender: TObject);
|
|
begin
|
|
frm_data_share.t_sys_employee.Requery();
|
|
end;
|
|
|
|
procedure Tfrm_info_bulletin_query.Edit1KeyPress(Sender: TObject;
|
|
var Key: Char);
|
|
begin
|
|
if key=#13 then
|
|
begin
|
|
key:=#0;
|
|
frm_info_bulletin_query.bsSkinButton10Click(Sender);
|
|
end;
|
|
end;
|
|
|
|
end.
|