|
|
unit u_special_query;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb, RxLookup,
|
|
|
wwdbdatetimepicker, bsSkinCtrls, BusinessSkinForm;
|
|
|
|
|
|
type
|
|
|
Tfrm_special_query = class(TForm)
|
|
|
Label1: TLabel;
|
|
|
RxDBLookupCombo5: TRxDBLookupCombo;
|
|
|
wwDBComboBox13: TwwDBComboBox;
|
|
|
Label14: TLabel;
|
|
|
wwDBComboBox14: TwwDBComboBox;
|
|
|
RxDBLookupCombo3: TRxDBLookupCombo;
|
|
|
Label4: TLabel;
|
|
|
wwDBComboBox7: TwwDBComboBox;
|
|
|
wwDBComboBox2: TwwDBComboBox;
|
|
|
Label10: TLabel;
|
|
|
wwDBComboBox18: TwwDBComboBox;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
Label5: TLabel;
|
|
|
wwDBComboBox6: TwwDBComboBox;
|
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
|
Label2: TLabel;
|
|
|
wwDBComboBox1: TwwDBComboBox;
|
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
|
Label3: TLabel;
|
|
|
wwDBComboBox3: TwwDBComboBox;
|
|
|
wwDBDateTimePicker3: TwwDBDateTimePicker;
|
|
|
Label6: TLabel;
|
|
|
wwDBComboBox4: TwwDBComboBox;
|
|
|
wwDBDateTimePicker4: TwwDBDateTimePicker;
|
|
|
Label7: TLabel;
|
|
|
wwDBComboBox5: TwwDBComboBox;
|
|
|
wwDBDateTimePicker5: TwwDBDateTimePicker;
|
|
|
Label8: TLabel;
|
|
|
wwDBComboBox8: TwwDBComboBox;
|
|
|
wwDBDateTimePicker6: TwwDBDateTimePicker;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
function str_special:widestring ;
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_special_query: Tfrm_special_query;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
{$R *.dfm}
|
|
|
uses u_main,u_data_share,my_sys_function;
|
|
|
|
|
|
procedure Tfrm_special_query.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
modalresult:=mrok ;
|
|
|
end;
|
|
|
|
|
|
function Tfrm_special_query.str_special: widestring;
|
|
|
var
|
|
|
str_bill:widestring;
|
|
|
begin
|
|
|
str_bill:='';
|
|
|
str_bill:=query_tiaojian(1,str_bill,'t_info_special_price.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox13.text,RxDBLookupCombo5.DisplayValues[1]);
|
|
|
str_bill:=query_tiaojian(1,str_bill,'t_info_special_price.<2E><><EFBFBD><EFBFBD>',wwDBComboBox18.text,wwDBDateTimePicker1.text);
|
|
|
str_bill:=query_tiaojian(1,str_bill,'t_info_special_price.<2E><><EFBFBD><EFBFBD>',wwDBComboBox6.text,wwDBDateTimePicker2.text);
|
|
|
str_bill:=query_tiaojian(1,str_bill,'t_info_special_price.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox3.text,wwDBDateTimePicker3.text);
|
|
|
str_bill:=query_tiaojian(1,str_bill,'t_info_special_price.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox4.text,wwDBDateTimePicker4.text);
|
|
|
str_bill:=query_tiaojian(1,str_bill,'t_info_special_price.<2E><><EFBFBD><D7BC><EFBFBD><EFBFBD>',wwDBComboBox5.text,wwDBDateTimePicker5.text);
|
|
|
str_bill:=query_tiaojian(1,str_bill,'t_info_special_price.<2E><><EFBFBD><D7BC><EFBFBD><EFBFBD>',wwDBComboBox8.text,wwDBDateTimePicker6.text);
|
|
|
str_bill:=query_tiaojian(1,str_bill,'t_info_special_price.<2E><><EFBFBD><EFBFBD>״̬',wwDBComboBox7.text,wwDBComboBox2.text);
|
|
|
result:=str_bill ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_special_query.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo5.ClearValue ;
|
|
|
wwDBDateTimePicker1.Clear;
|
|
|
wwDBDateTimePicker2.Clear;
|
|
|
wwDBDateTimePicker3.Clear;
|
|
|
wwDBDateTimePicker4.Clear;
|
|
|
wwDBDateTimePicker5.Clear;
|
|
|
wwDBDateTimePicker6.Clear;
|
|
|
wwDBComboBox2.Clear ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_special_query.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
modalresult:=mrcancel ;
|
|
|
end;
|
|
|
|
|
|
end.
|