hanxuntao
/
DONGSHENG6
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 }
DONGSHENG6/海运业务/u_op_seae_close.~pas

1113 lines
35 KiB
Plaintext
Raw Permalink Normal View History Unescape Escape

1
11 months ago
unit u_op_seae_close;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, DB, ADODB, dxExEdtr, dxDBTLCl, dxGrClms, dxTL,
dxDBCtrl, dxDBGrid, dxCntner, ComCtrls, bsSkinTabs, RxLookup, StdCtrls,
Mask, DBCtrls, Grids, Wwdbigrd, Wwdbgrid, XPMenu, Menus, bsSkinBoxCtrls,
bsdbctrls, ExtCtrls, wwdbedit, Wwdotdot, Wwdbcomb, wwdbdatetimepicker,
DBGrids;
type
Tfrm_op_seae_close = class(TForm)
bsSkinPanel2: TbsSkinPanel;
bsSkinButton5: TbsSkinButton;
bsSkinButton8: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
t_op_seae1: TDataSource;
bsSkinButton1: TbsSkinButton;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column6: TdxDBGridMaskColumn;
dxDBGrid1Column7: TdxDBGridMaskColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column9: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridDateColumn;
dxDBGrid1Column17: TdxDBGridDateColumn;
dxDBGrid1Column18: TdxDBGridDateColumn;
dxDBGrid1Column19: TdxDBGridMaskColumn;
dxDBGrid1Column20: TdxDBGridMaskColumn;
dxDBGrid1Column22: TdxDBGridDateColumn;
dxDBGrid1Column23: TdxDBGridMaskColumn;
dxDBGrid1Column24: TdxDBGridMaskColumn;
dxDBGrid1Column25: TdxDBGridMaskColumn;
dxDBGrid1Column26: TdxDBGridMaskColumn;
dxDBGrid1Column27: TdxDBGridMaskColumn;
dxDBGrid1Column28: TdxDBGridMaskColumn;
dxDBGrid1Column29: TdxDBGridMaskColumn;
dxDBGrid1Column30: TdxDBGridMaskColumn;
dxDBGrid1Column31: TdxDBGridDateColumn;
dxDBGrid1Column32: TdxDBGridMaskColumn;
dxDBGrid1Column33: TdxDBGridMaskColumn;
dxDBGrid1Column34: TdxDBGridMaskColumn;
dxDBGrid1Column35: TdxDBGridMaskColumn;
dxDBGrid1Column36: TdxDBGridMaskColumn;
dxDBGrid1Column37: TdxDBGridMaskColumn;
dxDBGrid1Column38: TdxDBGridMaskColumn;
dxDBGrid1Column39: TdxDBGridColumn;
dxDBGrid1Column40: TdxDBGridColumn;
dxDBGrid11: TdxDBGridMaskColumn;
dxDBGrid12: TdxDBGridMaskColumn;
dxDBGrid13: TdxDBGridMaskColumn;
dxDBGrid14: TdxDBGridMaskColumn;
dxDBGrid15: TdxDBGridMaskColumn;
dxDBGrid16: TdxDBGridMaskColumn;
dxDBGrid17: TdxDBGridMaskColumn;
dxDBGrid18: TdxDBGridMaskColumn;
dxDBGrid19: TdxDBGridMaskColumn;
dxDBGrid110: TdxDBGridMaskColumn;
dxDBGrid1Column61: TdxDBGridMaskColumn;
dxDBGrid1TEU: TdxDBGridMaskColumn;
dxDBGrid1Column63: TdxDBGridMaskColumn;
dxDBGrid1Column64: TdxDBGridMaskColumn;
dxDBGrid1Column65: TdxDBGridDateColumn;
dxDBGrid1Column66: TdxDBGridMaskColumn;
dxDBGrid1Column67: TdxDBGridMaskColumn;
dxDBGrid1Column72: TdxDBGridMaskColumn;
dxDBGrid1Column68: TdxDBGridMaskColumn;
dxDBGrid1Column69: TdxDBGridMaskColumn;
dxDBGrid1Column70: TdxDBGridMaskColumn;
dxDBGrid1Column74: TdxDBGridMaskColumn;
dxDBGrid1Column75: TdxDBGridMaskColumn;
bsSkinTabSheet2: TbsSkinTabSheet;
bsSkinPanel5: TbsSkinPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label19: TLabel;
Label17: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
t_ch_accept: TADOQuery;
t_ch_accept1: TDataSource;
t_ch_pay: TADOQuery;
t_ch_pay1: TDataSource;
wwDBGrid1: TwwDBGrid;
wwDBGrid2: TwwDBGrid;
bsSkinButton3: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton7: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
dxDBGrid1Column73: TdxDBGridColumn;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N13: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
XPMenu1: TXPMenu;
t_op_gain: TADOQuery;
t_op_gain1: TDataSource;
Panel2: TPanel;
bsSkinStdLabel4: TbsSkinStdLabel;
bsSkinStdLabel2: TbsSkinStdLabel;
bsSkinStdLabel3: TbsSkinStdLabel;
bsSkinStdLabel1: TbsSkinStdLabel;
bsSkinStdLabel5: TbsSkinStdLabel;
bsSkinStdLabel6: TbsSkinStdLabel;
bsSkinStdLabel7: TbsSkinStdLabel;
bsSkinStdLabel8: TbsSkinStdLabel;
bsSkinStdLabel9: TbsSkinStdLabel;
bsSkinStdLabel10: TbsSkinStdLabel;
bsSkinDBEdit6: TbsSkinDBEdit;
bsSkinDBEdit4: TbsSkinDBEdit;
bsSkinDBEdit1: TbsSkinDBEdit;
bsSkinDBEdit3: TbsSkinDBEdit;
bsSkinDBEdit5: TbsSkinDBEdit;
bsSkinDBEdit2: TbsSkinDBEdit;
bsSkinDBEdit8: TbsSkinDBEdit;
bsSkinDBEdit7: TbsSkinDBEdit;
bsSkinDBEdit9: TbsSkinDBEdit;
bsSkinDBEdit10: TbsSkinDBEdit;
PopupMenu3: TPopupMenu;
N37: TMenuItem;
N38: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N4: TMenuItem;
N3: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
N36: TMenuItem;
bsSkinButton2: TbsSkinButton;
N5: TMenuItem;
N6: TMenuItem;
bsSkinTabSheet3: TbsSkinTabSheet;
bsSkinPanel1: TbsSkinPanel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label79: TLabel;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit10: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBEdit11: TDBEdit;
DBEdit40: TDBEdit;
DBEdit45: TDBEdit;
DBEdit46: TDBEdit;
DBEdit47: TDBEdit;
Label122: TLabel;
DBEdit48: TDBEdit;
DBMemo33: TDBMemo;
Label121: TLabel;
DBEdit49: TDBEdit;
DBMemo34: TDBMemo;
Label123: TLabel;
DBEdit50: TDBEdit;
DBMemo35: TDBMemo;
DBEdit51: TDBEdit;
Label16: TLabel;
DBMemo1: TDBMemo;
Label163: TLabel;
DBMemo38: TDBMemo;
Label164: TLabel;
DBEdit52: TDBEdit;
DBMemo39: TDBMemo;
Label158: TLabel;
DBMemo37: TDBMemo;
Label168: TLabel;
DBEdit80: TDBEdit;
Label165: TLabel;
DBMemo40: TDBMemo;
DBEdit81: TDBEdit;
DBEdit75: TDBEdit;
Label166: TLabel;
DBMemo41: TDBMemo;
Label167: TLabel;
DBMemo42: TDBMemo;
DBEdit82: TDBEdit;
Label169: TLabel;
DBEdit83: TDBEdit;
Label170: TLabel;
Label125: TLabel;
DBEdit55: TDBEdit;
Label18: TLabel;
DBEdit56: TDBEdit;
Label20: TLabel;
DBEdit53: TDBEdit;
Label124: TLabel;
DBEdit54: TDBEdit;
Label146: TLabel;
DBEdit18: TDBEdit;
Label145: TLabel;
DBEdit17: TDBEdit;
Label32: TLabel;
DBEdit57: TDBEdit;
Label21: TLabel;
DBEdit58: TDBEdit;
Label27: TLabel;
DBEdit25: TDBEdit;
Label30: TLabel;
DBEdit59: TDBEdit;
Label31: TLabel;
DBEdit27: TDBEdit;
Label22: TLabel;
DBEdit60: TDBEdit;
Label23: TLabel;
DBEdit61: TDBEdit;
Label24: TLabel;
DBEdit16: TDBEdit;
Label40: TLabel;
DBEdit15: TDBEdit;
Label126: TLabel;
DBEdit63: TDBEdit;
Label25: TLabel;
DBEdit62: TDBEdit;
Label34: TLabel;
DBEdit65: TDBEdit;
Label39: TLabel;
DBEdit64: TDBEdit;
Label26: TLabel;
DBEdit69: TDBEdit;
Label73: TLabel;
DBEdit68: TDBEdit;
Label28: TLabel;
DBEdit67: TDBEdit;
Label35: TLabel;
DBEdit66: TDBEdit;
Label29: TLabel;
DBEdit74: TDBEdit;
Label33: TLabel;
DBEdit26: TDBEdit;
Label41: TLabel;
DBEdit73: TDBEdit;
Label42: TLabel;
DBEdit72: TDBEdit;
Label43: TLabel;
DBEdit71: TDBEdit;
Label44: TLabel;
DBEdit70: TDBEdit;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N19: TMenuItem;
bsSkinPanel9: TbsSkinPanel;
Label116: TLabel;
Label130: TLabel;
Label131: TLabel;
Label132: TLabel;
Edit1: TEdit;
Edit4: TEdit;
Edit2: TEdit;
Edit3: TEdit;
bsSkinButton44: TbsSkinButton;
dxDBGrid1Column71: TdxDBGridColumn;
dxDBGrid1Column76: TdxDBGridColumn;
t_op_seae: TADOQuery;
dxDBGrid1Column77: TdxDBGridColumn;
dxDBGrid1Column78: TdxDBGridColumn;
dxDBGrid1Column79: TdxDBGridColumn;
dxDBGrid1Column80: TdxDBGridColumn;
dxDBGrid1Column81: TdxDBGridColumn;
wwDBComboBox2: TwwDBComboBox;
Label45: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
wwDBDateTimePicker2: TwwDBDateTimePicker;
Label46: TLabel;
dxDBGrid1Column82: TdxDBGridColumn;
dxDBGrid1Column83: TdxDBGridColumn;
bsSkinTabSheet4: TbsSkinTabSheet;
bsSkinPanel16: TbsSkinPanel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
DBEdit19: TDBEdit;
DBEdit20: TDBEdit;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
DBMemo3: TDBMemo;
DBGrid2: TDBGrid;
t_ch_fee_agentdc1: TDataSource;
t_ch_fee_agentdc: TADOQuery;
t_ch_fee_agentdc_detail: TADOQuery;
t_ch_fee_agentdc_detail1: TDataSource;
DBGrid1: TDBGrid;
dxDBGrid1Column84: TdxDBGridColumn;
N20: TMenuItem;
N21: TMenuItem;
dxDBGrid1Column85: TdxDBGridCheckColumn;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
dxDBGrid1Column86: TdxDBGridColumn;
Label71: TLabel;
DBMemo7: TDBMemo;
bsSkinButton16: TbsSkinButton;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit28: TDBEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton5Click(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure dxDBGrid1Column3CustomDraw(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
AFocused: Boolean; var ADone: Boolean);
procedure bsSkinButton10Click(Sender: TObject);
procedure dxDBGrid1DblClick(Sender: TObject);
procedure wwDBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
procedure wwDBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
procedure dxDBGrid1Column2CustomDraw(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
AFocused: Boolean; var ADone: Boolean);
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure Panel2Resize(Sender: TObject);
procedure N37Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N36Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure bsSkinButton44Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure N21Click(Sender: TObject);
procedure dxDBGrid1CustomDraw(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
AFocused: Boolean; var ADone: Boolean);
procedure N23Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure bsSkinButton16Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_seae_close: Tfrm_op_seae_close;
implementation
uses u_main, my_sys_function, u_op_close_select, u_op_close_all,
u_op_open_select, u_op_open_all;
{$R *.dfm}
procedure Tfrm_op_seae_close.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrid1,caption);
frm_op_seae_close.Hide;
frm_op_seae_close.ManualFloat(frm_op_seae_close.BoundsRect );
frm_main.freeTabs('frm_op_seae_close');
action:=cafree;
frm_op_seae_close:=nil;
end;
procedure Tfrm_op_seae_close.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_seae_close.FormResize(Sender: TObject);
var
i:integer;
begin
i:=round(bsSkinPanel2.Width/9);
bsSkinButton7.Width:=i;
bsSkinButton6.Width:=i;
bsSkinButton10.Width:=i;
bsSkinButton3.Width:=i;
bsSkinButton1.Width:=i;
bsSkinButton4.Width:=i;
bsSkinButton8.Width:=i;
bsSkinButton2.Width:=i;
wwDBGrid1.Height:=round((bsSkinTabSheet2.Height-bsSkinPanel5.Height-Panel2.Height)/2);
end;
procedure Tfrm_op_seae_close.FormShow(Sender: TObject);
var aQuery:TAdoQuery;
ayear,amonth,endday:integer;
begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
sql.Add('select top 1 * from period where closed=''F'' order by period');
open;
Logininfo.offyear:=fieldbyname('pyear').AsInteger;
Logininfo.offmonth:=fieldbyname('pmonth').AsInteger;
if strtoint(get_parameters_value(140,'0'))=0 then
begin
Logininfo.endday:=EncodeDate(Logininfo.offyear, Logininfo.offmonth,1)-1;
// showmessage(DateToStr(Logininfo.endday));
end
else begin
endday:=strtoint(get_parameters_value(140,'0'));
if Logininfo.offmonth=1 then begin
aYear:=Logininfo.offyear-1;
amonth:=12;
end else begin
aYear:=Logininfo.offyear;
amonth:=Logininfo.offmonth-1;
end;
Logininfo.endday:=EncodeDate(ayear,amonth,endday);
end;
end;
finally
FreeAndNil(aQuery);
end;
t_op_seae.Close;
{
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where ҵ<><D2B5>״̬<>'+''''+'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''
+' or <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+default_sort(53,'t_op_seae','','desc');
t_op_seae.sql.Text:='select * from t_op_seae where 1=2 and ҵ<><D2B5>״̬<>'+''''+'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''
+' or <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+default_sort(53,'t_op_seae','','desc');
}
t_op_seae.open;
t_ch_accept.open;
t_ch_pay.open;
t_op_gain.OPEN;
t_ch_fee_agentdc.Open;
t_ch_fee_agentdc_detail.Open;
loadreggrid(dxdbgrid1,true,caption);
if if_open('027') or if_open('146') then begin
bsSkinButton3.Enabled:=true;
bsSkinButton1.Enabled:=true;
end;
if if_open('332') or if_open('337') then begin
bsSkinButton4.Enabled:=true;
bsSkinButton8.Enabled:=true;
end;
end;
procedure Tfrm_op_seae_close.dxDBGrid1Column3CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid1Column3.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_op_seae_close.bsSkinButton10Click(Sender: TObject);
begin
query_seae(4,'0011');
end;
procedure Tfrm_op_seae_close.dxDBGrid1DblClick(Sender: TObject);
begin
bsSkinTabSheet2.show;
end;
procedure Tfrm_op_seae_close.wwDBGrid1DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
fee_color(t_ch_accept,wwDBGrid1,Rect,Field);
end;
procedure Tfrm_op_seae_close.wwDBGrid2DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
fee_color(t_ch_pay,wwDBGrid2,Rect,Field);
end;
procedure Tfrm_op_seae_close.bsSkinButton3Click(Sender: TObject);
begin
if t_op_seae.IsEmpty then
exit;
if (t_op_seae.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
and(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ҵ<EFBFBD>񡢷<EFBFBD><F1A1A2B7>ö<EFBFBD><C3B6>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
try
frm_op_close_select:=tfrm_op_close_select.Create(self);
close_select_num:=1;
if if_open('027') and if_open('146') then
begin
frm_op_close_select.bsSkinCheckRadioBox3.Checked:=true;
end
else if if_open('027') then
begin
frm_op_close_select.bsSkinCheckRadioBox1.Checked:=true;
frm_op_close_select.bsSkinCheckRadioBox2.Enabled:=false;
frm_op_close_select.bsSkinCheckRadioBox3.Enabled:=false;
end
else if if_open('146') then
begin
frm_op_close_select.bsSkinCheckRadioBox2.Checked:=true;
frm_op_close_select.bsSkinCheckRadioBox1.Enabled:=false;
frm_op_close_select.bsSkinCheckRadioBox3.Enabled:=false;
end;
frm_op_close_select.yewu.DataSet:=t_op_seae;
frm_op_close_select.accept.DataSet:=t_ch_accept;
frm_op_close_select.pay.DataSet:=t_ch_pay;
frm_op_close_select.ShowModal;
finally
frm_op_close_select.Free;
end;
end;
procedure Tfrm_op_seae_close.bsSkinButton1Click(Sender: TObject);
begin
if t_op_seae.IsEmpty then
exit;
if (t_op_seae.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
and(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ҵ<EFBFBD>񡢷<EFBFBD><F1A1A2B7>ö<EFBFBD><C3B6>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
try
frm_op_close_all:=tfrm_op_close_all.Create(self);
if if_open('027') and if_open('146') then
begin
frm_op_close_all.bsSkinCheckRadioBox3.Checked:=true;
end
else if if_open('027') then
begin
frm_op_close_all.bsSkinCheckRadioBox1.Checked:=true;
frm_op_close_all.bsSkinCheckRadioBox2.Enabled:=false;
frm_op_close_all.bsSkinCheckRadioBox3.Enabled:=false;
end
else if if_open('146') then
begin
frm_op_close_all.bsSkinCheckRadioBox2.Checked:=true;
frm_op_close_all.bsSkinCheckRadioBox1.Enabled:=false;
frm_op_close_all.bsSkinCheckRadioBox3.Enabled:=false;
end;
frm_op_close_all.yewu.DataSet:=t_op_seae;
frm_op_close_all.accept.DataSet:=t_ch_accept;
frm_op_close_all.pay.DataSet:=t_ch_pay;
frm_op_close_all.ShowModal;
finally
frm_op_close_all.Free;
end;
end;
procedure Tfrm_op_seae_close.bsSkinButton4Click(Sender: TObject);
begin
if t_op_seae.IsEmpty then
exit;
if (t_op_seae.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
and(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ҵ<EFBFBD>񡢷<EFBFBD><F1A1A2B7>ö<EFBFBD>û<EFBFBD>з<EFBFBD><D0B7>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
try
frm_op_open_select:=tfrm_op_open_select.Create(self);
open_select_num:=1;
if if_open('332') and if_open('337') then
begin
frm_op_open_select.bsSkinCheckRadioBox3.Checked:=true;
end
else if if_open('332') then
begin
frm_op_open_select.bsSkinCheckRadioBox1.Checked:=true;
frm_op_open_select.bsSkinCheckRadioBox2.Enabled:=false;
frm_op_open_select.bsSkinCheckRadioBox3.Enabled:=false;
end
else if if_open('337') then
begin
frm_op_open_select.bsSkinCheckRadioBox2.Checked:=true;
frm_op_open_select.bsSkinCheckRadioBox1.Enabled:=false;
frm_op_open_select.bsSkinCheckRadioBox3.Enabled:=false;
end;
frm_op_open_select.yewu.DataSet:=t_op_seae;
frm_op_open_select.accept.DataSet:=t_ch_accept;
frm_op_open_select.pay.DataSet:=t_ch_pay;
frm_op_open_select.ShowModal;
finally
frm_op_open_select.Free;
end;
end;
procedure Tfrm_op_seae_close.bsSkinButton8Click(Sender: TObject);
begin
if t_op_seae.IsEmpty then
exit;
if (t_op_seae.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
and(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ҵ<EFBFBD>񡢷<EFBFBD><F1A1A2B7>ö<EFBFBD>û<EFBFBD>з<EFBFBD><D0B7>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
try
frm_op_open_all:=tfrm_op_open_all.Create(self);
if if_open('332') and if_open('337') then
begin
frm_op_open_all.bsSkinCheckRadioBox3.Checked:=true;
end
else if if_open('332') then
begin
frm_op_open_all.bsSkinCheckRadioBox1.Checked:=true;
frm_op_open_all.bsSkinCheckRadioBox2.Enabled:=false;
frm_op_open_all.bsSkinCheckRadioBox3.Enabled:=false;
end
else if if_open('337') then
begin
frm_op_open_all.bsSkinCheckRadioBox2.Checked:=true;
frm_op_open_all.bsSkinCheckRadioBox1.Enabled:=false;
frm_op_open_all.bsSkinCheckRadioBox3.Enabled:=false;
end;
frm_op_open_all.yewu.DataSet:=t_op_seae;
frm_op_open_all.accept.DataSet:=t_ch_accept;
frm_op_open_all.pay.DataSet:=t_ch_pay;
frm_op_open_all.ShowModal;
finally
frm_op_open_all.Free;
end;
end;
procedure Tfrm_op_seae_close.dxDBGrid1Column2CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_op_seae_close.bsSkinButton7Click(Sender: TObject);
begin
if not t_op_seae.Bof then
t_op_seae.Prior;
end;
procedure Tfrm_op_seae_close.bsSkinButton6Click(Sender: TObject);
begin
if not t_op_seae.eof then
t_op_seae.next;
end;
procedure Tfrm_op_seae_close.N10Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid1);
end;
procedure Tfrm_op_seae_close.N14Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid1);
end;
procedure Tfrm_op_seae_close.N12Click(Sender: TObject);
begin
update_grid(dxdbgrid1,15);
end;
procedure Tfrm_op_seae_close.N16Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_op_seae_close.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
// Column_sort_pro(Column,t_op_seae,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae_close.Panel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round((Panel2.Width-196)/10);
bsSkinDBEdit1.Width:=i;
bsSkinDBEdit2.Width:=i;
bsSkinDBEdit3.Width:=i;
bsSkinDBEdit4.Width:=i;
bsSkinDBEdit5.Width:=i;
bsSkinDBEdit6.Width:=i;
bsSkinDBEdit7.Width:=i;
bsSkinDBEdit8.Width:=i;
bsSkinDBEdit9.Width:=i;
end;
procedure Tfrm_op_seae_close.N37Click(Sender: TObject);
begin
t_op_seae.Close;
{
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+'<27><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1) and'
+open_data('0011','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(53,'t_op_seae','','desc');
}
t_op_seae.sql.text:='select * from t_op_seae where '
+'<27><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1) and'
+open_data('0011','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
t_ch_accept.open;
t_ch_pay.open;
t_op_gain.OPEN;
t_ch_fee_agentdc.Open;
t_ch_fee_agentdc_detail.Open;
end;
procedure Tfrm_op_seae_close.N17Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.sql.text:='select * from t_op_seae where '
+'<27><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
+''''+'¼<><C2BC>״̬'+''''+') and'
+open_data('0011','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
t_ch_accept.open;
t_ch_pay.open;
t_op_gain.OPEN;
t_ch_fee_agentdc.Open;
t_ch_fee_agentdc_detail.Open;
end;
procedure Tfrm_op_seae_close.N34Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.sql.text:='select * from t_op_seae where '
+' <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ύ'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''+')) and '
+open_data('0011','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
t_ch_accept.open;
t_ch_pay.open;
t_op_gain.OPEN;
t_ch_fee_agentdc.Open;
t_ch_fee_agentdc_detail.Open;
end;
procedure Tfrm_op_seae_close.N36Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+' <20><><EFBFBD><EFBFBD> in (select distinct <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>'+''''+')) and '
+open_data('0011','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
t_ch_accept.open;
t_ch_pay.open;
t_op_gain.OPEN;
t_ch_fee_agentdc.Open;
t_ch_fee_agentdc_detail.Open;
end;
procedure Tfrm_op_seae_close.N1Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.sql.text:='select * from t_op_seae where'
+' <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+') and '
+open_data('0011','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
t_ch_accept.open;
t_ch_pay.open;
t_op_gain.OPEN;
t_ch_fee_agentdc.Open;
t_ch_fee_agentdc_detail.Open;
end;
procedure Tfrm_op_seae_close.N4Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.sql.Text:='select * from t_op_seae '
+' where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+') and '
+open_data('0011','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
t_ch_accept.open;
t_ch_pay.open;
t_op_gain.OPEN;
t_ch_fee_agentdc.Open;
t_ch_fee_agentdc_detail.Open;
end;
procedure Tfrm_op_seae_close.bsSkinButton2Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton2.ClientToScreen(Point(0,bsSkinButton2.Height));
PopupMenu3.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_seae_close.N6Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.sql.text:='select * from t_op_seae '
+' where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''
+','+''''+'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')) '
+' and '
+open_data('0011','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(53,'t_op_seae','','desc');
{
t_op_seae.sql.text:='select * from t_op_seae '
+' where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''
+','+''''+'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')) '
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ not in ('
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''
+','+''''+'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')) and '
+open_data('0011','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(53,'t_op_seae','','desc');
}
t_op_seae.open;
t_ch_accept.open;
t_ch_pay.open;
t_op_gain.OPEN;
t_ch_fee_agentdc.Open;
t_ch_fee_agentdc_detail.Open;
end;
procedure Tfrm_op_seae_close.N7Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.sql.text:='select * from t_op_seae where'
+' <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee ) and '
+open_data('0011','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
t_ch_accept.open;
t_ch_pay.open;
t_op_gain.OPEN;
t_ch_fee_agentdc.Open;
t_ch_fee_agentdc_detail.Open;
end;
procedure Tfrm_op_seae_close.N19Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.sql.text:='select * from t_op_seae where'
+' <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+') and '
+open_data('0011','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
t_ch_accept.open;
t_ch_pay.open;
t_op_gain.OPEN;
t_ch_fee_agentdc.Open;
t_ch_fee_agentdc_detail.Open;
end;
procedure Tfrm_op_seae_close.bsSkinButton44Click(Sender: TObject);
var
str:widestring;
begin
t_ch_accept.close;
t_ch_pay.close;
t_op_gain.close;
str:='';
str:=query_tiaojian(1,str,'t_op_seae.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit1.text);
str:=query_tiaojian(1,str,'t_op_seae.ί<>б<EFBFBD><D0B1><EFBFBD>','ģ<><C4A3>',Edit4.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>','ģ<><C4A3>',Edit2.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>','ģ<><C4A3>',Edit3.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD>״̬','ģ<><C4A3>',wwDBComboBox2.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>',wwDBDateTimePicker1.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','С<><D0A1>',wwDBDateTimePicker2.text);
if trim(str)='' then
begin
str:='where '+open_data('0011','t_op_seae.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_seae.<2E><><EFBFBD><EFBFBD>Ա','t_op_seae.<2E>ͷ<EFBFBD>Ա','t_op_seae.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end
else
begin
str:=str+' and '+open_data('0011','t_op_seae.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_seae.<2E><><EFBFBD><EFBFBD>Ա','t_op_seae.<2E>ͷ<EFBFBD>Ա','t_op_seae.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
str:='select * from t_op_seae '+str+default_sort(53,'t_op_seae','','desc');
t_op_seae.close;
// t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
t_op_seae.sql.text:=str;
t_op_seae.Open;
t_ch_accept.open;
t_ch_pay.open;
t_op_gain.OPEN;
t_ch_fee_agentdc.Open;
t_ch_fee_agentdc_detail.Open;
if t_op_seae.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
exit;
end;
end;
procedure Tfrm_op_seae_close.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
bsSkinButton44.OnClick(Sender);
end;
procedure Tfrm_op_seae_close.N21Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.sql.text:='select * from t_op_seae t1 where <20><><EFBFBD><EFBFBD>״̬=''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'''
+' and EXISTS (select ''X'' from t_op_seae t2,t_ch_fee f where f.<2E><><EFBFBD><EFBFBD>״̬ in (''<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'',''<27><>ֹ<EFBFBD>޸<EFBFBD>'',''<27><>ֹɾ<D6B9><C9BE>'',''<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>'',''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'') and f.<2E><><EFBFBD><EFBFBD>=t2.<2E><><EFBFBD><EFBFBD> and t2.<2E><><EFBFBD><EFBFBD>=t1.<2E><><EFBFBD><EFBFBD>)'
+' and not EXISTS (select ''Y'' from t_op_seae t2,t_ch_fee f where f.<2E><><EFBFBD><EFBFBD>״̬ in (''<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'',''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'',''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'',''¼<><C2BC>״̬'',''<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'',''<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'',''<27><><EFBFBD><EFBFBD><EFBFBD>ύ'',''<27><><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>'')and f.<2E><><EFBFBD><EFBFBD>=t2.<2E><><EFBFBD><EFBFBD> and t2.<2E><><EFBFBD><EFBFBD>=t1.<2E><><EFBFBD><EFBFBD>)';
{
t_op_seae.sql.text:='select * from t_op_seae '
+' where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''
+','+''''+'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')) '
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ not in ('
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''
+','+''''+'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')) and '
+open_data('0011','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(53,'t_op_seae','','desc');
}
t_op_seae.open;
t_ch_accept.open;
t_ch_pay.open;
t_op_gain.OPEN;
t_ch_fee_agentdc.Open;
t_ch_fee_agentdc_detail.Open;
end;
procedure Tfrm_op_seae_close.dxDBGrid1CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
if uppercase(ANode.Strings[dxDBGrid1Column85.Index])='TRUE' then begin
AFont.Style:=AFont.Style+[fsStrikeOut];
AColor:=clFuchsia;
exit;
end;
end;
procedure Tfrm_op_seae_close.N23Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Close;
t_op_seae.sql.text:='select * from t_op_seae '
+' where <20><><EFBFBD><EFBFBD>״̬=''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'''
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in (''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>''))'
+' and '
+open_data('0011','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(53,'t_op_seae','','desc');
{
t_op_seae.sql.text:='select * from t_op_seae '
+' where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''
+','+''''+'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')) '
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ not in ('
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''
+','+''''+'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')) and '
+open_data('0011','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(53,'t_op_seae','','desc');
}
t_op_seae.open;
t_ch_accept.open;
t_ch_pay.open;
t_op_gain.OPEN;
t_ch_fee_agentdc.Open;
t_ch_fee_agentdc_detail.Open;
end;
procedure Tfrm_op_seae_close.N25Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.sql.text:='select * from t_op_seae '
+' where <20><><EFBFBD><EFBFBD>״̬=''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'''
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in (''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>''))'
+' and '
+open_data('0011','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(53,'t_op_seae','','desc');
{
t_op_seae.sql.text:='select * from t_op_seae '
+' where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''
+','+''''+'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')) '
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ not in ('
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''
+','+''''+'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')) and '
+open_data('0011','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+default_sort(53,'t_op_seae','','desc');
}
t_op_seae.open;
t_ch_accept.open;
t_ch_pay.open;
t_op_gain.OPEN;
t_ch_fee_agentdc.Open;
t_ch_fee_agentdc_detail.Open;
end;
procedure Tfrm_op_seae_close.bsSkinButton16Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae1,'<27><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD>һ',true);
end;
end.