|
|
unit u_info_bunk_query;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, bsSkinCtrls, wwdbdatetimepicker, StdCtrls, Mask, wwdbedit,
|
|
|
Wwdotdot, Wwdbcomb, RxLookup, wwdblook, BusinessSkinForm;
|
|
|
|
|
|
type
|
|
|
Tfrm_info_bunk_query = class(TForm)
|
|
|
Label1: TLabel;
|
|
|
Label14: TLabel;
|
|
|
Label4: TLabel;
|
|
|
Label10: TLabel;
|
|
|
Label5: TLabel;
|
|
|
Label2: TLabel;
|
|
|
Label3: TLabel;
|
|
|
Label6: TLabel;
|
|
|
RxDBLookupCombo5: TRxDBLookupCombo;
|
|
|
wwDBComboBox13: TwwDBComboBox;
|
|
|
wwDBComboBox14: TwwDBComboBox;
|
|
|
RxDBLookupCombo3: TRxDBLookupCombo;
|
|
|
wwDBComboBox7: TwwDBComboBox;
|
|
|
wwDBComboBox2: TwwDBComboBox;
|
|
|
wwDBComboBox18: TwwDBComboBox;
|
|
|
wwDBComboBox6: TwwDBComboBox;
|
|
|
wwDBComboBox1: TwwDBComboBox;
|
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
|
wwDBComboBox3: TwwDBComboBox;
|
|
|
wwDBComboBox4: TwwDBComboBox;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
RxDBLookupCombo4: TRxDBLookupCombo;
|
|
|
wwDBLookupCombo2: TwwDBLookupCombo;
|
|
|
Edit1: TEdit;
|
|
|
Edit2: TEdit;
|
|
|
Label7: TLabel;
|
|
|
Label8: TLabel;
|
|
|
wwDBComboBox5: TwwDBComboBox;
|
|
|
wwDBDateTimePicker3: TwwDBDateTimePicker;
|
|
|
wwDBComboBox8: TwwDBComboBox;
|
|
|
wwDBDateTimePicker4: TwwDBDateTimePicker;
|
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
function getbunkstr:string ;
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_info_bunk_query: Tfrm_info_bunk_query;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
{$R *.dfm}
|
|
|
uses u_main,my_sys_function, u_data_share ;
|
|
|
|
|
|
procedure Tfrm_info_bunk_query.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo5.ClearValue ;
|
|
|
RxDBLookupCombo3.ClearValue ;
|
|
|
RxDBLookupCombo1.ClearValue ;
|
|
|
RxDBLookupCombo4.ClearValue ;
|
|
|
wwDBDateTimePicker3.Clear;
|
|
|
wwDBDateTimePicker4.Clear;
|
|
|
wwDBComboBox2.Clear ;
|
|
|
end;
|
|
|
|
|
|
function Tfrm_info_bunk_query.getbunkstr: string;
|
|
|
var str:string ;
|
|
|
begin
|
|
|
str:='' ;
|
|
|
str:=query_tiaojian(1,str,'t_info_bunk_mast.<2E><><EFBFBD><EFBFBD>',wwDBComboBox5.text,wwDBDateTimePicker3.text);
|
|
|
str:=query_tiaojian(1,str,'t_info_bunk_mast.<2E><><EFBFBD><EFBFBD>',wwDBComboBox8.text,wwDBDateTimePicker4.text);
|
|
|
str:=query_tiaojian(1,str,'t_info_bunk_mast.<2E><><EFBFBD><EFBFBD>',wwDBComboBox18.text,RxDBLookupCombo4.DisplayValues[0]);
|
|
|
str:=query_tiaojian(1,str,'t_info_bunk_mast.<2E><><EFBFBD><EFBFBD>',wwDBComboBox7.text,wwDBComboBox2.Text);
|
|
|
|
|
|
str:=query_tiaojian(1,str,'t_info_bunk_detail.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox14.text,RxDBLookupCombo5.value);
|
|
|
str:=query_tiaojian(1,str,'t_info_bunk_detail.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox13.text,RxDBLookupCombo3.value);
|
|
|
str:=query_tiaojian(1,str,'t_info_bunk_detail.¼<><C2BC><EFBFBD><EFBFBD>',wwDBComboBox1.text,RxDBLookupCombo1.value);
|
|
|
str:=query_tiaojian(1,str,'t_info_bunk_detail.Ŀ<>ĸ<EFBFBD>',wwDBComboBox6.text,wwDBLookupCombo2.Text);
|
|
|
str:=query_tiaojian(1,str,'t_info_bunk_detail.Ʒ<><C6B7>',wwDBComboBox4.text,Edit2.Text);
|
|
|
str:=query_tiaojian(1,str,'t_info_bunk_detail.JJ<4A><4A>',wwDBComboBox3.text,Edit1.Text);
|
|
|
showmessage(str);
|
|
|
result:=str ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_bunk_query.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
modalresult:=mrok ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_bunk_query.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
modalresult:=mrcancel ;
|
|
|
end;
|
|
|
|
|
|
end.
|