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 'master'
${ noResults }
D6HECHUAN/业务统计/u_rp_selfno.pas

510 lines
19 KiB
Plaintext
Raw Permalink Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

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.
Reference in New Issue View Git Blame Copy Permalink