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.
114 lines
3.2 KiB
Plaintext
114 lines
3.2 KiB
Plaintext
unit u_op_seaetd_query;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, ExtCtrls, StdCtrls, bsSkinCtrls, wwdblook, wwdbdatetimepicker,
|
|
Mask, wwdbedit, Wwdotdot, Wwdbcomb, RxLookup, BusinessSkinForm;
|
|
|
|
type
|
|
Tfrm_op_seaetd_query = class(TForm)
|
|
Label10: TLabel;
|
|
Label9: TLabel;
|
|
Label7: TLabel;
|
|
Label1: TLabel;
|
|
Label3: TLabel;
|
|
Label5: TLabel;
|
|
Label20: TLabel;
|
|
Label124: TLabel;
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
Edit2: TEdit;
|
|
Edit4: TEdit;
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
wwDBLookupCombo3: TwwDBLookupCombo;
|
|
wwDBLookupCombo52: TwwDBLookupCombo;
|
|
bsSkinButton10: TbsSkinButton;
|
|
bsSkinButton5: TbsSkinButton;
|
|
bsSkinButton1: TbsSkinButton;
|
|
wwDBComboBox4: TwwDBComboBox;
|
|
wwDBComboBox6: TwwDBComboBox;
|
|
wwDBComboBox16: TwwDBComboBox;
|
|
wwDBComboBox17: TwwDBComboBox;
|
|
wwDBComboBox18: TwwDBComboBox;
|
|
wwDBComboBox21: TwwDBComboBox;
|
|
wwDBComboBox26: TwwDBComboBox;
|
|
wwDBComboBox27: TwwDBComboBox;
|
|
ComboBox1: TComboBox;
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
sqltype:integer ;
|
|
public
|
|
{ Public declarations }
|
|
findstr:string ;
|
|
end;
|
|
|
|
var
|
|
frm_op_seaetd_query: Tfrm_op_seaetd_query;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses u_main,my_sys_function ;
|
|
|
|
procedure Tfrm_op_seaetd_query.bsSkinButton5Click(Sender: TObject);
|
|
begin
|
|
modalresult:=mrcancel;
|
|
end;
|
|
|
|
procedure Tfrm_op_seaetd_query.bsSkinButton1Click(Sender: TObject);
|
|
var tdqr:string ;
|
|
begin
|
|
case ComboBox1.ItemIndex of
|
|
1:tdqr:=td_assate1 ;
|
|
2:tdqr:=td_assate2 ;
|
|
3:tdqr:=td_assate3 ;
|
|
4:tdqr:=td_assate4 ;
|
|
else tdqr:='' ;
|
|
end ;
|
|
|
|
findstr:='where 1=1 ';
|
|
findstr:=query_tiaojian(1,findstr,'Ö÷Ìáµ¥ºÅ',wwDBComboBox16.text,Edit2.text);
|
|
findstr:=query_tiaojian(1,findstr,'ίÍбàºÅ',wwDBComboBox4.text,edit4.text);
|
|
findstr:=query_tiaojian(1,findstr,'Ç©µ¥ÈÕÆÚ',wwDBComboBox18.text,wwDBDateTimePicker1.text);
|
|
findstr:=query_tiaojian(1,findstr,'Ç©µ¥ÈÕÆÚ',wwDBComboBox6.text,wwDBDateTimePicker2.text);
|
|
findstr:=query_tiaojian(1,findstr,'ίÍе¥Î»',wwDBComboBox21.text,RxDBLookupCombo2.Value);
|
|
findstr:=query_tiaojian(1,findstr,'×°»õ¸Û',wwDBComboBox26.text,wwDBLookupCombo3.Text);
|
|
findstr:=query_tiaojian(1,findstr,'ж»õ¸Û',wwDBComboBox27.text,wwDBLookupCombo52.text);
|
|
if ComboBox1.ItemIndex>0 then
|
|
findstr:=findstr+' and ÌύȷÈÏ='''+tdqr+'''' ;
|
|
Modalresult:=mrok ;
|
|
end;
|
|
|
|
procedure Tfrm_op_seaetd_query.bsSkinButton10Click(Sender: TObject);
|
|
begin
|
|
edit2.Text:='' ;
|
|
edit4.Text:='' ;
|
|
wwDBDateTimePicker1.Clear ;
|
|
wwDBDateTimePicker2.Clear ;
|
|
RxDBLookupCombo2.ClearValue ;
|
|
wwDBLookupCombo3.Clear ;
|
|
ComboBox1.ItemIndex:=0;
|
|
wwDBLookupCombo52.Clear ;
|
|
end;
|
|
|
|
procedure Tfrm_op_seaetd_query.FormShow(Sender: TObject);
|
|
begin
|
|
ComboBox1.Items.Clear ;
|
|
ComboBox1.Items.Add('È«²¿');
|
|
ComboBox1.Items.Add(td_assate1);
|
|
ComboBox1.Items.Add(td_assate2);
|
|
ComboBox1.Items.Add(td_assate3);
|
|
ComboBox1.Items.Add(td_assate4);
|
|
ComboBox1.ItemIndex:=0 ;
|
|
end;
|
|
|
|
end.
|