hanxuntao
/
D6HECHUAN
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
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.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '4e4df949a6'
${ noResults }
D6HECHUAN/业务统计/u_rp_selfno.pas

510 lines
19 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
unit u_rp_selfno;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, bsSkinCtrls, ComCtrls, bsSkinTabs, dxExEdtr, dxCntner,
dxTL, dxDBCtrl, dxDBGrid, DB, ADODB, dxDBTLCl, dxGrClms;
type
Tfrm_rp_selfno = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox8: TbsSkinCheckRadioBox;
bsSkinButton5: TbsSkinButton;
bsSkinNotebook1: TbsSkinNotebook;
dxDBGrid1: TdxDBGrid;
dxDBGrid2: TdxDBGrid;
dxDBGrid3: TdxDBGrid;
dxDBGrid4: TdxDBGrid;
dxDBGrid5: TdxDBGrid;
dxDBGrid6: TdxDBGrid;
dxDBGrid7: TdxDBGrid;
dxDBGrid8: TdxDBGrid;
dxDBGrid9: TdxDBGrid;
p_tell: TADOStoredProc;
p_tell1: TDataSource;
dxDBGrid8Column2: TdxDBGridMaskColumn;
dxDBGrid8Column3: TdxDBGridMaskColumn;
dxDBGrid8Column4: TdxDBGridDateColumn;
dxDBGrid8Column5: TdxDBGridDateColumn;
dxDBGrid8Column6: TdxDBGridMaskColumn;
dxDBGrid8Column7: TdxDBGridMaskColumn;
dxDBGrid8Column8: TdxDBGridMaskColumn;
dxDBGrid8Column11: TdxDBGridMaskColumn;
dxDBGrid8Column12: TdxDBGridMaskColumn;
dxDBGrid8Column13: TdxDBGridMaskColumn;
dxDBGrid8Column14: TdxDBGridMaskColumn;
dxDBGrid8Column15: TdxDBGridMaskColumn;
dxDBGrid8Column16: TdxDBGridMaskColumn;
dxDBGrid8_1: TdxDBGridMaskColumn;
dxDBGrid8Column18: TdxDBGridCheckColumn;
dxDBGrid9Column1: TdxDBGridDateColumn;
dxDBGrid9Column2: TdxDBGridDateColumn;
dxDBGrid9Column3: TdxDBGridMaskColumn;
dxDBGrid9Column4: TdxDBGridMaskColumn;
dxDBGrid9Column5: TdxDBGridMaskColumn;
dxDBGrid9Column6: TdxDBGridMaskColumn;
dxDBGrid9Column7: TdxDBGridMaskColumn;
dxDBGrid9Column8: TdxDBGridMaskColumn;
dxDBGrid9Column9: TdxDBGridMaskColumn;
dxDBGrid9Column10: TdxDBGridMaskColumn;
dxDBGrid9Column11: TdxDBGridMaskColumn;
dxDBGrid9Column12: TdxDBGridMaskColumn;
dxDBGrid9Column13: TdxDBGridMaskColumn;
dxDBGrid9Column14: TdxDBGridMaskColumn;
dxDBGrid9Column15: TdxDBGridMaskColumn;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column9: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridDateColumn;
dxDBGrid1Column6: TdxDBGridColumn;
dxDBGrid1Column7: TdxDBGridColumn;
dxDBGrid1Column8: TdxDBGridColumn;
dxDBGrid2Column1: TdxDBGridMaskColumn;
dxDBGrid2Column2: TdxDBGridMaskColumn;
dxDBGrid2Column3: TdxDBGridMaskColumn;
dxDBGrid2Column4: TdxDBGridMaskColumn;
dxDBGrid2Column8: TdxDBGridMaskColumn;
dxDBGrid2Column9: TdxDBGridDateColumn;
dxDBGrid2Column5: TdxDBGridColumn;
dxDBGrid2Column6: TdxDBGridColumn;
dxDBGrid2Column7: TdxDBGridColumn;
dxDBGrid5Column2: TdxDBGridMaskColumn;
dxDBGrid5Column3: TdxDBGridMaskColumn;
dxDBGrid5Column4: TdxDBGridMaskColumn;
dxDBGrid5Column5: TdxDBGridMaskColumn;
dxDBGrid5Column6: TdxDBGridMaskColumn;
dxDBGrid5Column7: TdxDBGridMaskColumn;
dxDBGrid5Column8: TdxDBGridMaskColumn;
dxDBGrid5Column9: TdxDBGridMaskColumn;
dxDBGrid5Column10: TdxDBGridMaskColumn;
dxDBGrid5Column11: TdxDBGridMaskColumn;
dxDBGrid5Column12: TdxDBGridColumn;
p_tell_two: TADOStoredProc;
p_tell_two1: TDataSource;
dxDBGrid6Column1: TdxDBGridMaskColumn;
dxDBGrid6Column2: TdxDBGridMaskColumn;
dxDBGrid6Column3: TdxDBGridMaskColumn;
dxDBGrid6Column4: TdxDBGridDateColumn;
dxDBGrid61: TdxDBGridDateColumn;
dxDBGrid62: TdxDBGridDateColumn;
dxDBGrid63: TdxDBGridDateColumn;
dxDBGrid6Column8: TdxDBGridMaskColumn;
dxDBGrid6Column9: TdxDBGridMaskColumn;
dxDBGrid6Column10: TdxDBGridMaskColumn;
dxDBGrid6Column11: TdxDBGridMaskColumn;
dxDBGrid6Column12: TdxDBGridMaskColumn;
dxDBGrid6Column13: TdxDBGridMaskColumn;
dxDBGrid6Column14: TdxDBGridMaskColumn;
dxDBGrid6Column15: TdxDBGridMaskColumn;
dxDBGrid6Column16: TdxDBGridMaskColumn;
dxDBGrid7Column1: TdxDBGridMaskColumn;
dxDBGrid7Column2: TdxDBGridDateColumn;
dxDBGrid7Column3: TdxDBGridMaskColumn;
dxDBGrid7Column4: TdxDBGridDateColumn;
dxDBGrid7Column5: TdxDBGridCheckColumn;
dxDBGrid7Column6: TdxDBGridDateColumn;
dxDBGrid3Column1: TdxDBGridMaskColumn;
dxDBGrid3Column2: TdxDBGridMaskColumn;
dxDBGrid3Column3: TdxDBGridMaskColumn;
dxDBGrid3Column4: TdxDBGridMaskColumn;
dxDBGrid3Column5: TdxDBGridMaskColumn;
dxDBGrid3Column6: TdxDBGridMaskColumn;
dxDBGrid3Column7: TdxDBGridMaskColumn;
dxDBGrid3Column8: TdxDBGridDateColumn;
dxDBGrid3Column9: TdxDBGridDateColumn;
dxDBGrid3Column10: TdxDBGridMaskColumn;
dxDBGrid3Column11: TdxDBGridMaskColumn;
dxDBGrid3Column12: TdxDBGridMaskColumn;
dxDBGrid3Column13: TdxDBGridMaskColumn;
dxDBGrid3Column14: TdxDBGridMaskColumn;
dxDBGrid3Column18: TdxDBGridMaskColumn;
dxDBGrid3Column15: TdxDBGridColumn;
dxDBGrid3Column16: TdxDBGridColumn;
dxDBGrid3Column17: TdxDBGridColumn;
dxDBGrid4Column1: TdxDBGridMaskColumn;
dxDBGrid4Column2: TdxDBGridMaskColumn;
dxDBGrid4Column3: TdxDBGridMaskColumn;
dxDBGrid4Column4: TdxDBGridMaskColumn;
dxDBGrid4Column5: TdxDBGridMaskColumn;
dxDBGrid4Column6: TdxDBGridDateColumn;
dxDBGrid4Column7: TdxDBGridMaskColumn;
dxDBGrid4Column8: TdxDBGridDateColumn;
dxDBGrid4Column9: TdxDBGridMaskColumn;
dxDBGrid4Column10: TdxDBGridMaskColumn;
dxDBGrid4Column11: TdxDBGridDateColumn;
dxDBGrid4Column12: TdxDBGridDateColumn;
dxDBGrid4Column13: TdxDBGridMaskColumn;
dxDBGrid4Column14: TdxDBGridMaskColumn;
dxDBGrid4Column15: TdxDBGridMaskColumn;
dxDBGrid4Column16: TdxDBGridMaskColumn;
dxDBGrid4Column17: TdxDBGridMaskColumn;
dxDBGrid4Column18: TdxDBGridMaskColumn;
bsSkinCheckRadioBox9: TbsSkinCheckRadioBox;
dxDBGrid10: TdxDBGrid;
dxDBGrid10Column1: TdxDBGridMaskColumn;
dxDBGrid10Column2: TdxDBGridMaskColumn;
dxDBGrid10Column3: TdxDBGridMaskColumn;
dxDBGrid10Column4: TdxDBGridDateColumn;
dxDBGrid10Column5: TdxDBGridMaskColumn;
dxDBGrid10Column6: TdxDBGridMaskColumn;
dxDBGrid10Column7: TdxDBGridMaskColumn;
dxDBGrid10Column8: TdxDBGridMaskColumn;
dxDBGrid10Column9: TdxDBGridMaskColumn;
dxDBGrid10Column10: TdxDBGridMaskColumn;
dxDBGrid10Column11: TdxDBGridMaskColumn;
dxDBGrid10Column12: TdxDBGridMaskColumn;
dxDBGrid10Column13: TdxDBGridDateColumn;
dxDBGrid10Column14: TdxDBGridDateColumn;
dxDBGrid10Column15: TdxDBGridDateColumn;
dxDBGrid10Column16: TdxDBGridMaskColumn;
dxDBGrid10Column17: TdxDBGridMaskColumn;
dxDBGrid10Column18: TdxDBGridMaskColumn;
dxDBGrid10Column19: TdxDBGridMaskColumn;
dxDBGrid10Column20: TdxDBGridMaskColumn;
dxDBGrid10Column21: TdxDBGridMaskColumn;
dxDBGrid10Column22: TdxDBGridMaskColumn;
dxDBGrid10Column23: TdxDBGridMaskColumn;
dxDBGrid10Column24: TdxDBGridDateColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton5Click(Sender: TObject);
procedure Panel2Resize(Sender: TObject);
procedure bsSkinCheckRadioBox1Click(Sender: TObject);
procedure bsSkinCheckRadioBox3Click(Sender: TObject);
procedure bsSkinCheckRadioBox4Click(Sender: TObject);
procedure bsSkinCheckRadioBox5Click(Sender: TObject);
procedure bsSkinCheckRadioBox8Click(Sender: TObject);
procedure bsSkinCheckRadioBox6Click(Sender: TObject);
procedure bsSkinCheckRadioBox7Click(Sender: TObject);
procedure bsSkinCheckRadioBox2Click(Sender: TObject);
procedure dxDBGrid8ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid9ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid2ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid3ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid4ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid5ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid6ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid7ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure bsSkinCheckRadioBox9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_rp_selfno: Tfrm_rp_selfno;
implementation
uses u_main, my_sys_function;
{$R *.dfm}
procedure Tfrm_rp_selfno.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_rp_selfno.Hide;
frm_rp_selfno.ManualFloat(frm_rp_selfno.BoundsRect );
frm_main.freeTabs('frm_rp_selfno');
action:=cafree;
frm_rp_selfno:=nil;
end;
procedure Tfrm_rp_selfno.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_rp_selfno.Panel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round(Panel2.Width/10);
bsSkinCheckRadioBox1.Width:=i;
bsSkinCheckRadioBox9.Width:=i;
bsSkinCheckRadioBox2.Width:=i;
bsSkinCheckRadioBox3.Width:=i;
bsSkinCheckRadioBox4.Width:=i;
bsSkinCheckRadioBox5.Width:=i;
bsSkinCheckRadioBox6.Width:=i;
bsSkinCheckRadioBox7.Width:=i;
bsSkinCheckRadioBox8.Width:=i;
end;
procedure Tfrm_rp_selfno.bsSkinCheckRadioBox1Click(Sender: TObject);
var
str:widestring;
begin
str:='where t_op_state.<2E>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1';
str:=str+' and '+open_data('0038','v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','v_op_no.<2E><><EFBFBD><EFBFBD>Ա','v_op_no.<2E>ͷ<EFBFBD>Ա','v_op_no.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
p_tell.close;
p_tell.Parameters.ParamByName('SQLStr').value:=
'SELECT v_op_no.<2E><><EFBFBD><EFBFBD>, v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>, v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, v_op_no.<2E><><EFBFBD><EFBFBD>Ա, v_op_no.<2E>ͷ<EFBFBD>Ա,'
+'v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, v_op_no.ί<>е<EFBFBD>λ, v_op_no.<2E><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>,'
+'v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, v_op_no.ί<>б<EFBFBD><D0B1><EFBFBD>,'
+'v_op_no.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>, v_op_no.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>, t_op_state.ҵ<><D2B5>״̬,'
+'t_op_state.<2E>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD> '
+'FROM v_op_no INNER JOIN '
+'t_op_state ON v_op_no.<2E><><EFBFBD><EFBFBD> = t_op_state.<2E><><EFBFBD><EFBFBD> '
+str
+' order by v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
p_tell.open;
bsSkinNotebook1.PageIndex:=1;
end;
procedure Tfrm_rp_selfno.bsSkinCheckRadioBox3Click(Sender: TObject);
var
str:widestring;
begin
str:='where <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+'))';
str:=str+' and '+open_data('0038','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
p_tell.close;
p_tell.Parameters.ParamByName('SQLStr').value:=
'SELECT * FROM v_op_no '+str
+' order by v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
p_tell.open;
bsSkinNotebook1.PageIndex:=2;
end;
procedure Tfrm_rp_selfno.bsSkinCheckRadioBox4Click(Sender: TObject);
var
str:widestring;
begin
str:='where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+')';
str:=str+' and '+open_data('0038','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no');
p_tell.close;
p_tell.Parameters.ParamByName('SQLStr').value:=
'SELECT * FROM t_ch_invoice_shen '+str
+' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
p_tell.open;
bsSkinNotebook1.PageIndex:=3;
end;
procedure Tfrm_rp_selfno.bsSkinCheckRadioBox5Click(Sender: TObject);
var
str:widestring;
begin
str:='where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+')';
str:=str+' and '+open_data('0038','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no');
p_tell.close;
p_tell.Parameters.ParamByName('SQLStr').value:=
'SELECT * FROM t_ch_check '+str
+' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
p_tell.open;
bsSkinNotebook1.PageIndex:=4;
end;
procedure Tfrm_rp_selfno.bsSkinCheckRadioBox8Click(Sender: TObject);
var
str:widestring;
begin
str:='where t_op_card.<2E>Ƿ<EFBFBD><C7B7>ص<EFBFBD>=0 and datediff(day,v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,getdate())>='
+get_parameters_value(13,'7');
str:=str+' and '+open_data('0038','v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','v_op_no.<2E><><EFBFBD><EFBFBD>Ա','v_op_no.<2E>ͷ<EFBFBD>Ա','v_op_no.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
p_tell.close;
p_tell.Parameters.ParamByName('SQLStr').value:=
'SELECT v_op_no.*,datediff(day,v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,getdate()) as <20><><EFBFBD><EFBFBD>, t_op_card.<2E><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>, t_op_card.<2E><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>,'
+'t_op_card.<2E>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>, t_op_card.<2E>͵<EFBFBD><CDB5><EFBFBD><EFBFBD><EFBFBD>, t_op_card.<2E>Ƿ<EFBFBD><C7B7>ص<EFBFBD>,'
+'t_op_card.<2E>ص<EFBFBD><D8B5><EFBFBD><EFBFBD><EFBFBD>,t_op_card.<2E>Ƿ񻹵<C7B7>,t_op_card.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' FROM v_op_no INNER JOIN'
+' t_op_card ON v_op_no.<2E><><EFBFBD><EFBFBD> = t_op_card.<2E><><EFBFBD><EFBFBD> '
+str
+' order by v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
p_tell.open;
bsSkinNotebook1.PageIndex:=6;
end;
procedure Tfrm_rp_selfno.bsSkinCheckRadioBox6Click(Sender: TObject);
var
str:widestring;
begin
str:='having t_crm_client.<2E>ͻ<EFBFBD>״̬='+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>'+''''
+' and isnull(MAX(t_crm_client_link.<2E>Ӵ<EFBFBD><D3B4><EFBFBD><EFBFBD><EFBFBD>),'+''''+'2000-01-01'+''''
+')<='+''''+datetimetostr(date-strtoint(get_parameters_value(11,'7')))+'''';
str:=str+' and '+open_data('0038','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no');
p_tell.close;
p_tell.Parameters.ParamByName('SQLStr').value:=
'SELECT t_crm_client.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>, t_crm_client.<2E>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>, t_crm_client.ͨѶ<CDA8><D1B6>ַ,'
+'t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_crm_client.<2E>ͻ<EFBFBD>״̬, t_crm_client.<2E>ͻ<EFBFBD><CDBB><EFBFBD>ֵ,'
+'t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_crm_client.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_crm_client.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'MAX(t_crm_client_link.<2E>Ӵ<EFBFBD><D3B4><EFBFBD><EFBFBD><EFBFBD>) AS <20><><EFBFBD><EFBFBD><EFBFBD>Ӵ<EFBFBD><D3B4><EFBFBD><EFBFBD><EFBFBD> '
+'FROM t_crm_client LEFT OUTER JOIN '
+'t_crm_client_link ON '
+'t_crm_client.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> = t_crm_client_link.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> '
+' GROUP BY t_crm_client.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>, t_crm_client.<2E>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>,'
+'t_crm_client.ͨѶ<CDA8><D1B6>ַ, t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_crm_client.<2E>ͻ<EFBFBD>״̬,'
+'t_crm_client.<2E>ͻ<EFBFBD><CDBB><EFBFBD>ֵ, t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_crm_client.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_crm_client.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
+str
+' order by t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
p_tell.open;
str:='where ((t_crm_client_linkman.<2E><><EFBFBD><EFBFBD> = GETDATE()) OR '
+'(t_crm_client_linkman.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1 = GETDATE()) OR '
+'(t_crm_client_linkman.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2 = GETDATE()) OR '
+'(t_crm_client_linkman.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3 = GETDATE()))';
str:=str+' and '+open_data('0038','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no');
p_tell_two.close;
p_tell_two.Parameters.ParamByName('SQLStr').value:=
'SELECT t_crm_client_linkman.<2E><><EFBFBD><EFBFBD>, t_crm_client_linkman.ְ<><D6B0>,'
+'t_crm_client_linkman.<2E><><EFBFBD><EFBFBD>, t_crm_client_linkman.<2E><><EFBFBD><EFBFBD>,'
+'t_crm_client_linkman.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1, t_crm_client_linkman.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2,'
+'t_crm_client_linkman.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3, t_crm_client.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>,'
+'t_crm_client.<2E>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>, t_crm_client.ͨѶ<CDA8><D1B6>ַ, t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_crm_client.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_crm_client.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
+'FROM t_crm_client_linkman INNER JOIN '
+'t_crm_client ON '
+'t_crm_client_linkman.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> = t_crm_client.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> '
+str
+' order by t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_crm_client_linkman.<2E><><EFBFBD><EFBFBD>';
p_tell_two.open;
bsSkinNotebook1.PageIndex:=7;
end;
procedure Tfrm_rp_selfno.bsSkinCheckRadioBox7Click(Sender: TObject);
var
str:widestring;
begin
str:='where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1';
str:=str+' and '+open_data('0038','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no');
p_tell.close;
p_tell.Parameters.ParamByName('SQLStr').value:=
'SELECT * FROM t_info_plan '+str
+' order by ¼<><C2BC><EFBFBD><EFBFBD>';
p_tell.open;
bsSkinNotebook1.PageIndex:=8;
end;
procedure Tfrm_rp_selfno.bsSkinCheckRadioBox2Click(Sender: TObject);
var
str:widestring;
begin
str:=' and '+open_data('0038','v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','v_op_no.<2E><><EFBFBD><EFBFBD>Ա','v_op_no.<2E>ͷ<EFBFBD>Ա','v_op_no.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
p_tell.close;
p_tell.Parameters.ParamByName('SQLStr').value:=
'SELECT v_op_no.<2E><><EFBFBD><EFBFBD>, v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>, v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, v_op_no.<2E><><EFBFBD><EFBFBD>Ա, v_op_no.<2E>ͷ<EFBFBD>Ա,'
+'v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, v_op_no.ί<>е<EFBFBD>λ, v_op_no.ҵ<><D2B5>״̬,'
+'v_op_no.<2E><><EFBFBD><EFBFBD>״̬, v_op_no.<2E><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>, v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, v_op_no.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>, v_op_no.ί<>б<EFBFBD><D0B1><EFBFBD>,'
+'v_op_no.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>, t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>, t_op_gain.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>,'
+'(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>-t_op_gain.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>) as <20>ϼ<EFBFBD>δ<EFBFBD><CEB4>, t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, DATEDIFF([day],'
+'v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, GETDATE()) AS Ƿ<><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
+'FROM v_op_no LEFT JOIN '
+'t_op_gain ON v_op_no.<2E><><EFBFBD><EFBFBD> = t_op_gain.<2E><><EFBFBD><EFBFBD> INNER JOIN '
+'t_crm_client ON v_op_no.ί<>е<EFBFBD>λ = t_crm_client.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> AND '
+'DATEDIFF([day], v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, GETDATE()) >= t_crm_client.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
+' and t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6><>t_op_gain.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD> '
+str
+' order by v_op_no.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,v_op_no.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
p_tell.open;
bsSkinNotebook1.PageIndex:=5;
end;
procedure Tfrm_rp_selfno.dxDBGrid8ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_tell,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_selfno.dxDBGrid9ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_tell,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_selfno.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_tell,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_selfno.dxDBGrid2ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_tell,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_selfno.dxDBGrid3ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_tell,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_selfno.dxDBGrid4ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_tell,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_selfno.dxDBGrid5ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_tell,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_selfno.dxDBGrid6ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_tell_two,'<27><><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_selfno.dxDBGrid7ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_tell,'<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_selfno.bsSkinCheckRadioBox9Click(Sender: TObject);
var
str:widestring;
begin
str:='where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
+''''+'¼<><C2BC>״̬'+''''+')';
str:=str+' and '+open_data('0038','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD><EFBFBD>Ա','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><'+''''+datetostr(date)+'''';
p_tell.close;
p_tell.Parameters.ParamByName('SQLStr').value:=
'SELECT * FROM t_op_seae '+str
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
p_tell.open;
bsSkinNotebook1.PageIndex:=9;
end;
end.