DS6JIEFENG/信息资源/u_special_query.pas

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.