|
|
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.
|