DS6JIEFENG/费用模块/u_ch_fee_check_seae.pas

{$INCLUDE t_main.inc}
unit u_ch_fee_check_seae;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, DB, ADODB, wwdbdatetimepicker, wwdbedit, Wwdotdot,
  Wwdbcomb, wwdblook, StdCtrls, DBCtrls, RxLookup, Mask, dxDBTLCl,
  dxGrClms, dxTL, dxDBCtrl, dxDBGrid, dxCntner, ComCtrls, bsSkinTabs,
  bsSkinCtrls, u_fee_check, u_fee_zhu, ExtCtrls, bsdbctrls, Menus, XPMenu,
  Grids, Wwdbigrd, Wwdbgrid;

type
  Tfrm_ch_fee_check_seae = class(TForm)
    t_op_seae1: TDataSource;
    t_op_state: TADOQuery;
    t_op_state1: TDataSource;
    bsSkinNotebook1: TbsSkinNotebook;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridMaskColumn;
    dxDBGrid1Column5: TdxDBGridMaskColumn;
    dxDBGrid1Column8: TdxDBGridMaskColumn;
    dxDBGrid1Column9: TdxDBGridMaskColumn;
    dxDBGrid1Column10: TdxDBGridMaskColumn;
    dxDBGrid1Column11: 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;
    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;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    t_op_seae2: TDataSource;
    t_op_seae_fen1: TDataSource;
    t_op_seae_fen: TADOQuery;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinPanel3: TbsSkinPanel;
    dxDBGrid2: TdxDBGrid;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGridMaskColumn2: TdxDBGridMaskColumn;
    dxDBGridMaskColumn3: TdxDBGridMaskColumn;
    dxDBGridMaskColumn4: TdxDBGridMaskColumn;
    dxDBGridMaskColumn5: TdxDBGridMaskColumn;
    dxDBGridMaskColumn6: TdxDBGridMaskColumn;
    dxDBGridMaskColumn7: TdxDBGridMaskColumn;
    dxDBGridMaskColumn8: TdxDBGridMaskColumn;
    dxDBGridMaskColumn9: TdxDBGridMaskColumn;
    dxDBGridMaskColumn10: TdxDBGridMaskColumn;
    dxDBGridMaskColumn11: TdxDBGridMaskColumn;
    dxDBGridMaskColumn12: TdxDBGridMaskColumn;
    dxDBGridMaskColumn13: TdxDBGridMaskColumn;
    dxDBGridMaskColumn14: TdxDBGridMaskColumn;
    dxDBGridMaskColumn15: TdxDBGridMaskColumn;
    dxDBGridDateColumn1: TdxDBGridDateColumn;
    dxDBGridDateColumn2: TdxDBGridDateColumn;
    dxDBGridDateColumn3: TdxDBGridDateColumn;
    dxDBGridMaskColumn16: TdxDBGridMaskColumn;
    dxDBGridMaskColumn17: TdxDBGridMaskColumn;
    dxDBGridDateColumn4: TdxDBGridDateColumn;
    dxDBGridMaskColumn18: TdxDBGridMaskColumn;
    dxDBGridMaskColumn19: TdxDBGridMaskColumn;
    dxDBGridMaskColumn20: TdxDBGridMaskColumn;
    dxDBGridMaskColumn21: TdxDBGridMaskColumn;
    dxDBGridMaskColumn22: TdxDBGridMaskColumn;
    dxDBGridMaskColumn23: TdxDBGridMaskColumn;
    dxDBGridMaskColumn24: TdxDBGridMaskColumn;
    dxDBGridMaskColumn25: TdxDBGridMaskColumn;
    dxDBGridDateColumn5: TdxDBGridDateColumn;
    dxDBGridMaskColumn26: TdxDBGridMaskColumn;
    dxDBGridMaskColumn27: TdxDBGridMaskColumn;
    dxDBGridMaskColumn28: TdxDBGridMaskColumn;
    dxDBGridMaskColumn29: TdxDBGridMaskColumn;
    dxDBGridMaskColumn30: TdxDBGridMaskColumn;
    dxDBGridMaskColumn31: TdxDBGridMaskColumn;
    dxDBGridMaskColumn32: TdxDBGridMaskColumn;
    dxDBGridMaskColumn33: TdxDBGridMaskColumn;
    dxDBGridMaskColumn34: TdxDBGridMaskColumn;
    dxDBGridMaskColumn35: TdxDBGridMaskColumn;
    dxDBGridMaskColumn36: TdxDBGridMaskColumn;
    dxDBGridMaskColumn37: TdxDBGridMaskColumn;
    dxDBGridMaskColumn38: TdxDBGridMaskColumn;
    dxDBGridMaskColumn39: TdxDBGridMaskColumn;
    dxDBGridMaskColumn40: TdxDBGridMaskColumn;
    dxDBGridMaskColumn41: TdxDBGridMaskColumn;
    dxDBGridMaskColumn42: TdxDBGridMaskColumn;
    dxDBGridMaskColumn43: TdxDBGridMaskColumn;
    dxDBGridMaskColumn44: TdxDBGridMaskColumn;
    dxDBGridMaskColumn45: TdxDBGridMaskColumn;
    dxDBGridMaskColumn46: TdxDBGridMaskColumn;
    dxDBGridMaskColumn47: TdxDBGridMaskColumn;
    dxDBGridMaskColumn48: TdxDBGridMaskColumn;
    dxDBGridMaskColumn49: TdxDBGridMaskColumn;
    dxDBGridMaskColumn50: TdxDBGridMaskColumn;
    dxDBGridMaskColumn51: TdxDBGridMaskColumn;
    dxDBGridMaskColumn52: TdxDBGridMaskColumn;
    dxDBGridMaskColumn53: TdxDBGridMaskColumn;
    dxDBGridMaskColumn54: TdxDBGridMaskColumn;
    dxDBGridMaskColumn55: TdxDBGridMaskColumn;
    dxDBGridMaskColumn56: TdxDBGridMaskColumn;
    dxDBGridDateColumn6: TdxDBGridDateColumn;
    dxDBGridMaskColumn57: TdxDBGridMaskColumn;
    dxDBGridMaskColumn58: TdxDBGridMaskColumn;
    dxDBGridMaskColumn59: TdxDBGridMaskColumn;
    dxDBGridMaskColumn60: TdxDBGridMaskColumn;
    dxDBGridMaskColumn61: TdxDBGridMaskColumn;
    dxDBGridMaskColumn62: TdxDBGridMaskColumn;
    dxDBGridMaskColumn63: TdxDBGridMaskColumn;
    dxDBGridMaskColumn64: TdxDBGridMaskColumn;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinPanel4: TbsSkinPanel;
    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;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Label125: TLabel;
    Label15: TLabel;
    Label7: TLabel;
    Label124: TLabel;
    Label146: TLabel;
    Label145: TLabel;
    Label32: TLabel;
    Label21: TLabel;
    Label27: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label12: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    DBEdit5: TDBEdit;
    Label126: TLabel;
    Label25: TLabel;
    Label34: TLabel;
    Label39: TLabel;
    Label18: TLabel;
    Label73: TLabel;
    Label22: TLabel;
    Label35: TLabel;
    Label26: TLabel;
    Label28: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label8: TLabel;
    Label16: TLabel;
    Label23: TLabel;
    DBMemo3: TDBMemo;
    Label24: TLabel;
    DBMemo4: TDBMemo;
    Label29: TLabel;
    DBMemo5: TDBMemo;
    Label33: TLabel;
    DBMemo6: TDBMemo;
    Label164: TLabel;
    DBEdit81: TDBEdit;
    DBEdit82: TDBEdit;
    DBEdit83: TDBEdit;
    Label168: TLabel;
    DBEdit80: TDBEdit;
    Label6: TLabel;
    Label14: TLabel;
    Label20: TLabel;
    Label40: TLabel;
    bsSkinButton4: TbsSkinButton;
    DBEdit6: TDBEdit;
    fra_fee_check1: Tfra_fee_check;
    dxDBGrid1Column39: TdxDBGridColumn;
    dxDBGrid1Column40: TdxDBGridColumn;
    dxDBGridCurrencyColumn1: TdxDBGridColumn;
    dxDBGridCurrencyColumn2: TdxDBGridColumn;
    bsSkinTabSheet3: TbsSkinTabSheet;
    bsSkinTabSheet4: TbsSkinTabSheet;
    dxDBGrid3: TdxDBGrid;
    dxDBGrid2Column1: TdxDBGridMaskColumn;
    dxDBGrid2Column2: TdxDBGridCheckColumn;
    dxDBGrid2Column3: TdxDBGridDateColumn;
    dxDBGrid2Column4: TdxDBGridMaskColumn;
    dxDBGrid2Column5: TdxDBGridMaskColumn;
    dxDBGrid3Column6: TdxDBGridColumn;
    dxDBGrid3Column7: TdxDBGridColumn;
    dxDBGrid1Column73: TdxDBGridColumn;
    dxDBGrid2Column73: TdxDBGridColumn;
    DBEdit18: TDBEdit;
    Label65: TLabel;
    DBEdit4: TDBEdit;
    bsSkinButton7: TbsSkinButton;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Label43: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    DBEdit12: TDBEdit;
    XPMenu1: TXPMenu;
    PopupMenu2: TPopupMenu;
    N10: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    bsSkinGroupBox5: TbsSkinGroupBox;
    bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
    bsSkinGroupBox2: TbsSkinGroupBox;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label80: TLabel;
    Label81: TLabel;
    Label82: TLabel;
    Label83: TLabel;
    wwDBDateTimePicker5: TwwDBDateTimePicker;
    DBEdit20: TDBEdit;
    RxDBLookupCombo23: TRxDBLookupCombo;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    wwDBDateTimePicker9: TwwDBDateTimePicker;
    bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox;
    wwDBDateTimePicker10: TwwDBDateTimePicker;
    DBEdit41: TDBEdit;
    bsSkinDBCheckRadioBox8: TbsSkinDBCheckRadioBox;
    DBEdit42: TDBEdit;
    DBEdit43: TDBEdit;
    DBEdit44: TDBEdit;
    DBMemo11: TDBMemo;
    DBMemo12: TDBMemo;
    bsSkinGroupBox3: TbsSkinGroupBox;
    dxDBGrid4: TdxDBGrid;
    dxDBGridButtonColumn1: TdxDBGridButtonColumn;
    dxDBGridMaskColumn65: TdxDBGridMaskColumn;
    dxDBGridDateColumn7: TdxDBGridDateColumn;
    dxDBGridDateColumn8: TdxDBGridDateColumn;
    dxDBGridCheckColumn1: TdxDBGridCheckColumn;
    dxDBGridDateColumn9: TdxDBGridDateColumn;
    dxDBGridCheckColumn2: TdxDBGridCheckColumn;
    dxDBGridDateColumn10: TdxDBGridDateColumn;
    dxDBGridMaskColumn66: TdxDBGridMaskColumn;
    t_op_card: TADOQuery;
    t_op_card1: TDataSource;
    DBEdit55: TDBEdit;
    DBEdit56: TDBEdit;
    DBEdit53: TDBEdit;
    DBEdit54: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit57: TDBEdit;
    DBEdit58: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit59: TDBEdit;
    DBEdit27: TDBEdit;
    DBEdit60: TDBEdit;
    DBEdit61: TDBEdit;
    DBEdit70: TDBEdit;
    DBEdit71: TDBEdit;
    DBEdit72: TDBEdit;
    DBEdit73: TDBEdit;
    DBEdit26: TDBEdit;
    DBEdit74: TDBEdit;
    DBEdit66: TDBEdit;
    DBEdit67: TDBEdit;
    DBEdit68: TDBEdit;
    DBEdit69: TDBEdit;
    DBEdit64: TDBEdit;
    DBEdit65: TDBEdit;
    DBEdit62: TDBEdit;
    DBEdit63: TDBEdit;
    DBEdit45: TDBEdit;
    DBEdit46: TDBEdit;
    DBEdit47: TDBEdit;
    bsSkinButton1: TbsSkinButton;
    PopupMenu3: TPopupMenu;
    N37: TMenuItem;
    N38: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    t_op_seae: TADOStoredProc;
    DBEdit11: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    bsSkinDBCheckRadioBox6: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox9: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox10: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox11: TbsSkinDBCheckRadioBox;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    bsSkinTabSheet5: TbsSkinTabSheet;
    t_ch_fee_truck: TADOQuery;
    t_ch_fee_truck1: TDataSource;
    Panel1: TPanel;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton12: TbsSkinButton;
    bsSkinButton13: TbsSkinButton;
    wwDBGrid1: TwwDBGrid;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N19: TMenuItem;
    dxDBGrid1Column76: TdxDBGridColumn;
    dxDBGrid1Column77: TdxDBGridColumn;
    dxDBGrid1Column78: TdxDBGridColumn;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    dxDBGrid1Column7: TdxDBGridColumn;
    dxDBGrid1Column71: TdxDBGridMaskColumn;
    dxDBGrid1Column12: TdxDBGridColumn;
    dxDBGrid1Column6: TdxDBGridColumn;
    bsSkinTabSheet6: TbsSkinTabSheet;
    bsSkinTabSheet7: TbsSkinTabSheet;
    dxDBGrid1Column79: TdxDBGridColumn;
    dxDBGrid1Column80: TdxDBGridColumn;
    dxDBGrid1Column81: TdxDBGridColumn;
    dxDBGrid2Column74: TdxDBGridColumn;
    dxDBGrid2Column75: TdxDBGridColumn;
    dxDBGrid2Column76: TdxDBGridColumn;
    dxDBGrid2Column77: TdxDBGridColumn;
    dxDBGrid1Column82: TdxDBGridColumn;
    dxDBGrid1Column83: TdxDBGridColumn;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure DBEdit6Change(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton4Click(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 dxDBGridMaskColumn3CustomDraw(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 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 dxDBGridMaskColumn2CustomDraw(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 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 bsSkinButton1Click(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 Panel1Resize(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure bsSkinButton13Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure wwDBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure N20Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure bsSkinPageControl1Change(Sender: TObject);
    procedure fra_fee_check1bsSkinButton1Click(Sender: TObject);
    procedure fra_fee_check1bsSkinButton4Click(Sender: TObject);
    procedure fra_fee_check1bsSkinButton10Click(Sender: TObject);
    procedure fra_fee_check1bsSkinButton12Click(Sender: TObject);
    procedure fra_fee_check1bsSkinButton8Click(Sender: TObject);
    procedure fra_fee_check1bsSkinButton5Click(Sender: TObject);
    procedure fra_fee_check1bsSkinButton2Click(Sender: TObject);
    procedure fra_fee_check1bsSkinButton15Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ch_fee_check_seae: Tfrm_ch_fee_check_seae;
  frm_op_seae_check_create:boolean;


implementation

uses u_main, my_sys_function, u_ch_fee_zhupiao, {$IFDEF DLFENZHANG}u_op_seae_fenzhang,{$ENDIF}
  u_op_seae_assistant,u_sys_progress;

{$R *.dfm}

procedure Tfrm_ch_fee_check_seae.FormShow(Sender: TObject);
var  s_SqlSea:string;
begin
  if not ASSIGNED(frm_sys_progress) then
    frm_sys_progress:=tfrm_sys_progress.Create(self);
  frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD>ڼ<EFBFBD><DABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݡ<EFBFBD><DDA1><EFBFBD><EFBFBD><EFBFBD>';
  frm_sys_progress.Show;
  frm_sys_progress.bsSkinGauge1.MaxValue:=10;
  frm_sys_progress.bsSkinGauge1.MinValue:=0;
  frm_sys_progress.bsSkinGauge1.Value:=0;

{
  s_SqlSea:='Select distinct top 100 s.* from t_op_seae s '
  +' Inner Join t_ch_fee i  on (s.<2E><><EFBFBD><EFBFBD>=i.<2E><><EFBFBD><EFBFBD>) '
  +' where s.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=s.<2E><><EFBFBD><EFBFBD> and '
  + open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
  +' and i.<2E><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+','+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+')'
  +default_sort(53,'s','','desc');
}
 s_SqlSea:='select top 100 * from t_op_seae With(NoLock) where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and  '
                   +open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 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><CBB2><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+','+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+'))) '
                   +default_sort(53,'t_op_seae','','desc');

   s_SqlSea:='select top 100 * from t_op_seae t1 With(NoLock) where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and NOT EXISTS (select ''Z'' from t_op_gain_cx x where <20><><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>=t1.<2E><><EFBFBD><EFBFBD>) '
                   +' and EXISTS (select ''X'' from t_op_seae t2,t_ch_fee f where f.<2E><><EFBFBD><EFBFBD>״̬ in ('
                   +''''+'<27><><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+','+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+') and f.<2E><><EFBFBD><EFBFBD>=t2.<2E><><EFBFBD><EFBFBD> and t2.<2E><><EFBFBD><EFBFBD>=t1.<2E><><EFBFBD><EFBFBD>)'
                   +default_sort(53,'t1','','desc');

{
 s_SqlSea:='select top 100 * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
                   +''''+'<27><><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+','+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+')) '
                   +default_sort(53,'t_op_seae','','desc');
}
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+5;


  t_op_state.close;
  t_op_seae.Close;
  t_op_seae.Parameters.ParamByName('SQLStr').value:=s_SqlSea;


  t_op_seae.open;
  t_op_seae_fen.open;
  t_op_state.open;
  t_op_card.open;
//  t_ch_fee_truck.open;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+4;



  loadreggrid(dxdbgrid1,true,caption+'1');
  loadreggrid(dxdbgrid2,true,caption+'2');
  loadwwgrid(fra_fee_check1.wwDBGrid1,'<27><><EFBFBD>˳<EFBFBD><CBB3>ھ<EFBFBD><DABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
  loadwwgrid(fra_fee_check1.wwDBGrid2,'<27><><EFBFBD>˳<EFBFBD><CBB3>ھ<EFBFBD><DABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
  bsSkinPageControl1.Align:=alClient;

  fra_fee_check1.limited_str.text:='0011';
  fra_fee_check1.chk_accept.Text:=get_parameters_value(101,'FALSE') ;
  fra_fee_check1.chk_pay.text:=get_parameters_value(105,'FALSE') ;
  fra_fee_check1.ywlb.Text:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>' ;

  if if_open('025') then
  begin
    fra_fee_check1.t_ch_accept.DataSource:=t_op_seae2;
    fra_fee_check1.t_ch_accept.open;
    fra_fee_check1.a_shen_delete.open;
    fra_fee_check1.a_shen_modify_old.open;
    fra_fee_check1.a_shen_modify_new.open;
    fra_fee_check1.bsSkinPanel3.visible:=true;
  end
  else
  begin
    fra_fee_check1.bsSkinPanel3.visible:=false;
  end;

  if if_open('026') then
  begin
    fra_fee_check1.t_ch_pay.DataSource:=nil;
    fra_fee_check1.t_ch_pay.DataSource:=t_op_seae2;
    fra_fee_check1.t_ch_pay.open;
    fra_fee_check1.p_shen_delete.open;
    fra_fee_check1.p_shen_modify_old.open;
    fra_fee_check1.p_shen_modify_new.open;
    fra_fee_check1.bsSkinPanel5.visible:=true;
  end
  else
  begin
    fra_fee_check1.bsSkinPanel5.visible:=false;
  end;

  if fra_fee_check1.bsSkinPanel3.visible and
     fra_fee_check1.bsSkinPanel5.visible then
  begin
    fra_fee_check1.Panel3.Visible:=true;
    fra_fee_check1.t_op_gain.DataSource:=t_op_seae2;
    fra_fee_check1.t_op_gain.open;

    fra_fee_check1.DBEdit43.DataSource:=t_op_seae2;
    fra_fee_check1.t_op_gain_main.DataSource:=t_op_seae2;
    fra_fee_check1.t_op_gain_main.open;
  end
  else
  begin
    fra_fee_check1.Panel3.Visible:=false;
  end;

  if strtobool(get_parameters_value(30,'false')) then
  begin
    bsSkinTabSheet5.TabVisible:=true;
    N9.Visible:=true;
    N19.Visible:=true;
  end
  else
  begin
    bsSkinTabSheet5.TabVisible:=false;
    N9.Visible:=false;
    N19.Visible:=false;
  end;



  if if_open('304') then begin
    bsSkinTabSheet6.TabVisible:=true;   //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޿<EFBFBD><DEBF><EFBFBD>
  end else begin
    bsSkinTabSheet6.TabVisible:=false;
  end;

  if strtobool(get_parameters_value(150,'false')) then
    fra_fee_check1.bsSkinPanel10.Visible:=true
  else fra_fee_check1.bsSkinPanel10.Visible:=False;

  frm_op_seae_check_create:=true;
  {$IFDEF DLFENZHANG}
  {$ELSE}
   bsSkinTabSheet6.tabVisible:=false;
  {$ENDIF}
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

  frm_sys_progress.close;
  frm_sys_progress:=nil;


end;

procedure Tfrm_ch_fee_check_seae.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_ch_fee_check_seae.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  savereggrid(dxdbgrid1,caption+'1');
  savereggrid(dxdbgrid2,caption+'2');
  savewwgrid(fra_fee_check1.wwDBGrid1,'<27><><EFBFBD>˳<EFBFBD><CBB3>ھ<EFBFBD><DABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
  savewwgrid(fra_fee_check1.wwDBGrid2,'<27><><EFBFBD>˳<EFBFBD><CBB3>ھ<EFBFBD><DABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
{$IFDEF DLFENZHANG}
 if assigned(frm_op_seae_fenzhang) then
 begin
   FreeAndNil(frm_op_seae_fenzhang);
  end;
 {$ENDIF}
  if assigned(frm_op_seae_assistant) then
    FreeAndNil(frm_op_seae_assistant);

  frm_op_seae_check_create:=false;
  frm_ch_fee_check_seae.Hide;
  frm_ch_fee_check_seae.ManualFloat(frm_ch_fee_check_seae.BoundsRect );
  frm_main.freeTabs('frm_ch_fee_check_seae');
  action:=cafree;
  frm_ch_fee_check_seae:=nil;
end;

procedure Tfrm_ch_fee_check_seae.bsSkinButton10Click(Sender: TObject);
begin
  query_seae(3,'0011');
end;

procedure Tfrm_ch_fee_check_seae.DBEdit6Change(Sender: TObject);
begin
  if DBEdit6.text='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
  begin
    bsSkinButton11.Enabled:=true;
    bsSkinButton4.Enabled:=true;
  end
  else
  begin
    bsSkinButton11.Enabled:=false;
    bsSkinButton4.Enabled:=false;
  end;
end;

procedure Tfrm_ch_fee_check_seae.bsSkinButton11Click(Sender: TObject);
begin
  if t_op_seae_fen.IsEmpty then
  begin
    showmessage('û<>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>');
    exit;
  end;
  bsSkinNotebook1.PageIndex:=1;
  t_op_seae2.Enabled:=false;
  t_op_seae2.DataSet:=t_op_seae_fen;
  t_op_seae2.Enabled:=true;
end;

procedure Tfrm_ch_fee_check_seae.bsSkinButton3Click(Sender: TObject);
begin
  bsSkinNotebook1.PageIndex:=0;
  t_op_seae2.Enabled:=false;
  t_op_seae2.DataSet:=t_op_seae;
  t_op_seae2.Enabled:=true;
end;

procedure Tfrm_ch_fee_check_seae.bsSkinButton4Click(Sender: TObject);
begin
  try
    frm_ch_fee_zhupiao:=tfrm_ch_fee_zhupiao.Create (self);
    frm_ch_fee_zhupiao.fra_fee_zhu1.fenpiao1.DataSet:=t_op_seae_fen;
    with frm_ch_fee_zhupiao do
    begin
      if if_open('025') then
      begin
        fra_fee_zhu1.t_ch_accept.close;
        fra_fee_zhu1.t_ch_accept.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
        fra_fee_zhu1.t_ch_accept.open;
        fra_fee_zhu1.zhupiao1.DataSet:=t_op_seae;
        fra_fee_zhu1.dxDBGrid1.FullExpand;
        fra_fee_zhu1.bsSkinPanel3.visible:=true;
      end
      else
        fra_fee_zhu1.bsSkinPanel3.visible:=false;

      if if_open('026') then
      begin
        fra_fee_zhu1.t_ch_pay.close;
        fra_fee_zhu1.t_ch_pay.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
        fra_fee_zhu1.t_ch_pay.open;
        fra_fee_zhu1.zhupiao1.DataSet:=t_op_seae;
        fra_fee_zhu1.dxDBGrid2.FullExpand;
        fra_fee_zhu1.bsSkinPanel4.visible:=true;
      end
      else
        fra_fee_zhu1.bsSkinPanel4.visible:=false;

      if fra_fee_zhu1.bsSkinPanel3.visible and
         fra_fee_zhu1.bsSkinPanel4.visible then
      begin
        fra_fee_zhu1.t_op_gain.close;
        fra_fee_zhu1.t_op_gain.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
        fra_fee_zhu1.t_op_gain.open;
        fra_fee_zhu1.t_op_gain_fen.close;
        fra_fee_zhu1.t_op_gain_fen.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
        fra_fee_zhu1.t_op_gain_fen.open;
      end
      else
      begin
        fra_fee_zhu1.t_op_gain.close;
        fra_fee_zhu1.t_op_gain_fen.close;
        fra_fee_zhu1.bsSkinTabSheet2.TabVisible:=false;
      end;
      fra_fee_zhu1.dxDBGrid3.FullExpand;
    end;
    frm_ch_fee_zhupiao.ShowModal;
  finally
    ;
  end;
end;

procedure Tfrm_ch_fee_check_seae.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_ch_fee_check_seae.dxDBGridMaskColumn3CustomDraw(
  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[dxDBGridMaskColumn3.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_ch_fee_check_seae.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_ch_fee_check_seae.dxDBGridMaskColumn2CustomDraw(
  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[dxDBGridMaskColumn2.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_ch_fee_check_seae.bsSkinButton7Click(Sender: TObject);
var
  book1:Tbookmark;
begin
  try
    book1:=t_op_seae.GetBookmark;
    t_op_seae.Requery;
    t_op_seae.GotoBookmark(book1);

  except
    ;
  end;
end;

procedure Tfrm_ch_fee_check_seae.N10Click(Sender: TObject);
begin
  if bsSkinNotebook1.PageIndex=0 then
    update_grid_view_no(dxdbgrid1)
  else
    update_grid_view_no(dxdbgrid2);
end;

procedure Tfrm_ch_fee_check_seae.N14Click(Sender: TObject);
begin
  if bsSkinNotebook1.PageIndex=0 then
    update_grid_view_all(dxdbgrid1)
  else
    update_grid_view_all(dxdbgrid2);
end;

procedure Tfrm_ch_fee_check_seae.N12Click(Sender: TObject);
begin
  if bsSkinNotebook1.PageIndex=0 then
    update_grid(dxdbgrid1,12)
  else
    update_grid(dxdbgrid2,13);
end;

procedure Tfrm_ch_fee_check_seae.N16Click(Sender: TObject);
begin
  if bsSkinNotebook1.PageIndex=0 then
    grid_save_xls(dxdbgrid1)
  else
    grid_save_xls(dxdbgrid2);
end;

procedure Tfrm_ch_fee_check_seae.dxDBGrid1ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,t_op_seae,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_ch_fee_check_seae.bsSkinButton1Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton1.ClientToScreen(Point(0,bsSkinButton1.Height));
  PopupMenu3.Popup(Pnt.x,Pnt.y);
end;

procedure Tfrm_ch_fee_check_seae.N37Click(Sender: TObject);
begin
  t_op_seae.Close;
  t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('00011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1)) '
                   +default_sort(53,'t_op_seae','','desc');
  t_op_seae.open;
end;

procedure Tfrm_ch_fee_check_seae.N17Click(Sender: TObject);
begin
  t_op_seae.Close;
  t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
                   +''''+'¼<><C2BC>״̬'+''''+')) '
                   +default_sort(53,'t_op_seae','','desc');
  t_op_seae.open;
end;

procedure Tfrm_ch_fee_check_seae.N34Click(Sender: TObject);
begin
  t_op_seae.Close;
  t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 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>'+''''+'))) '
                   +default_sort(53,'t_op_seae','','desc');
  t_op_seae.open;
end;

procedure Tfrm_ch_fee_check_seae.N36Click(Sender: TObject);
begin
  t_op_seae.Close;
  t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 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>'+''''+'))) '
                   +default_sort(53,'t_op_seae','','desc');
  t_op_seae.open;
end;

procedure Tfrm_ch_fee_check_seae.N1Click(Sender: TObject);
begin
  t_op_seae.Close;
  t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
                   +default_sort(53,'t_op_seae','','desc');
  t_op_seae.open;
end;

procedure Tfrm_ch_fee_check_seae.N4Click(Sender: TObject);
begin
  t_op_seae.Close;
  t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
                   +default_sort(53,'t_op_seae','','desc');
  t_op_seae.open;
end;

procedure Tfrm_ch_fee_check_seae.Panel1Resize(Sender: TObject);
var
  i:integer;
begin
  i:=round(Panel1.width/4);
end;

procedure Tfrm_ch_fee_check_seae.bsSkinButton2Click(Sender: TObject);
var
  i:integer;
begin
  {
  if t_ch_fee_truck.isempty then
    exit;
  if (t_ch_fee_truck.State=dsinsert)
  or (t_ch_fee_truck.State=dsedit) then
  begin
    t_ch_fee_truck.post;
  end;
  if wwDBGrid1.SelectedList.Count>=1 then
  begin
    for i:=0 to wwDBGrid1.SelectedList.Count-1 do
    begin
      t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
      if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') and
      (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>ύ') and
      (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>׼<EFBFBD>޸<EFBFBD>') then
      begin
        showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
        exit;
      end;
    end;
  end
  else
  begin
    if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') and
    (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>ύ') and
    (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>׼<EFBFBD>޸<EFBFBD>') then
    begin
      showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
      exit;
    end;
  end;


  try
    frm_main.db.BeginTrans;
    if wwDBGrid1.SelectedList.Count>=1 then
    begin
      for i:=0 to wwDBGrid1.SelectedList.Count-1 do
      begin
        t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
        t_ch_fee_truck.edit;
        t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
        t_ch_fee_truck.post;
      end;
    end
    else
    begin
      t_ch_fee_truck.edit;
      t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
      t_ch_fee_truck.post;
    end;
    frm_main.db.CommitTrans;
  except
    frm_main.db.RollbackTrans;
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>ʧ<EFBFBD><CAA7>!');
    exit;
  end;
  }
end;

procedure Tfrm_ch_fee_check_seae.bsSkinButton9Click(Sender: TObject);
var
  i:integer;
begin
  {
  if t_ch_fee_truck.isempty then
    exit;
  if (t_ch_fee_truck.State=dsinsert)
  or (t_ch_fee_truck.State=dsedit) then
  begin
    t_ch_fee_truck.post;
  end;
  if wwDBGrid1.SelectedList.Count>=1 then
  begin
    for i:=0 to wwDBGrid1.SelectedList.Count-1 do
    begin
      t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
      if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
       (t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
      begin
        showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
        exit;
      end;
      if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
      (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
      begin
        showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
        exit;
      end;
    end;
  end
  else
  begin
    if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
       (t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
    begin
      showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
      exit;
    end;
    if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
      (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
      begin
        showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
      exit;
    end;
  end;


  try
    frm_main.db.BeginTrans;
    if wwDBGrid1.SelectedList.Count>=1 then
    begin
      for i:=0 to wwDBGrid1.SelectedList.Count-1 do
      begin
        t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
        t_ch_fee_truck.edit;
        t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD><EFBFBD>ύ';
        t_ch_fee_truck.post;
      end;
    end
    else
    begin
      t_ch_fee_truck.edit;
      t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD><EFBFBD>ύ';
      t_ch_fee_truck.post;
    end;
    frm_main.db.CommitTrans;
  except
    frm_main.db.RollbackTrans;
    showmessage('<27><><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD>ύʧ<E1BDBB><CAA7>!');
    exit;
  end;
  }
end;

procedure Tfrm_ch_fee_check_seae.bsSkinButton12Click(Sender: TObject);
var
  i:integer;
begin
  {
  if t_ch_fee_truck.isempty then
    exit;
  if (t_ch_fee_truck.State=dsinsert)
  or (t_ch_fee_truck.State=dsedit) then
  begin
    t_ch_fee_truck.post;
  end;
  if wwDBGrid1.SelectedList.Count>=1 then
  begin
    for i:=0 to wwDBGrid1.SelectedList.Count-1 do
    begin
      t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
      if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
       (t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
      begin
        showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
        exit;
      end;
      if(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') and
      (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>') then
      begin
        showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
        exit;
      end;
    end;
  end
  else
  begin
    if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
       (t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
    begin
      showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
      exit;
    end;
    if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') and
    (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>') then
      begin
        showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
      exit;
    end;
  end;


  try
    frm_main.db.BeginTrans;
    if wwDBGrid1.SelectedList.Count>=1 then
    begin
      for i:=0 to wwDBGrid1.SelectedList.Count-1 do
      begin
        t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
        t_ch_fee_truck.edit;
        t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><>׼<EFBFBD>޸<EFBFBD>';
        t_ch_fee_truck.post;
      end;
    end
    else
    begin
      t_ch_fee_truck.edit;
      t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><>׼<EFBFBD>޸<EFBFBD>';
      t_ch_fee_truck.post;
    end;
    frm_main.db.CommitTrans;
  except
    frm_main.db.RollbackTrans;
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼<EFBFBD>޸<EFBFBD>ʧ<EFBFBD><CAA7>!');
    exit;
  end;
  }
end;

procedure Tfrm_ch_fee_check_seae.bsSkinButton13Click(Sender: TObject);
var
  i:integer;
begin           {
  if t_ch_fee_truck.isempty then
    exit;
  if (t_ch_fee_truck.State=dsinsert)
  or (t_ch_fee_truck.State=dsedit) then
  begin
    t_ch_fee_truck.post;
  end;
  if wwDBGrid1.SelectedList.Count>=1 then
  begin
    for i:=0 to wwDBGrid1.SelectedList.Count-1 do
    begin
      t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
      if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
       (t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
      begin
        showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD>Խ<EFBFBD>ֹ<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
        exit;
      end;
      if(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') and
    (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>׼<EFBFBD>޸<EFBFBD>') then
      begin
        showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܽ<EFBFBD>ֹ<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
        exit;
      end;
    end;
  end
  else
  begin
    if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
       (t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
    begin
      showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD>Խ<EFBFBD>ֹ<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
      exit;
    end;
    if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') and
    (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>׼<EFBFBD>޸<EFBFBD>') then
      begin
        showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܽ<EFBFBD>ֹ<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
      exit;
    end;
  end;


  try
    frm_main.db.BeginTrans;
    if wwDBGrid1.SelectedList.Count>=1 then
    begin
      for i:=0 to wwDBGrid1.SelectedList.Count-1 do
      begin
        t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
        t_ch_fee_truck.edit;
        t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><>ֹ<EFBFBD>޸<EFBFBD>';
        t_ch_fee_truck.post;
      end;
    end
    else
    begin
      t_ch_fee_truck.edit;
      t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><>ֹ<EFBFBD>޸<EFBFBD>';
      t_ch_fee_truck.post;
    end;
    frm_main.db.CommitTrans;
  except
    frm_main.db.RollbackTrans;
    showmessage('<27><><EFBFBD>ý<EFBFBD>ֹ<EFBFBD>޸<EFBFBD>ʧ<EFBFBD><CAA7>!');
    exit;
  end; }
end;

procedure Tfrm_ch_fee_check_seae.N6Click(Sender: TObject);
begin
  t_op_seae.Close;
  t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD> not in (select <20><><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD> from t_op_gain_cx) and '
                   +open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 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>'+''''+'))) '
                   +default_sort(53,'t_op_seae','','desc');
  t_op_seae.open;
end;

procedure Tfrm_ch_fee_check_seae.N8Click(Sender: TObject);
begin
  t_op_seae.Close;
  t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 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>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+'))) '
                   +default_sort(53,'t_op_seae','','desc');
  t_op_seae.open;
end;

procedure Tfrm_ch_fee_check_seae.N19Click(Sender: TObject);
begin
  t_op_seae.Close;
  t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee_truck where <20><><EFBFBD><EFBFBD>״̬<>'
                   +''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+') '
                   +default_sort(53,'t_op_seae','','desc');
  t_op_seae.open;
end;

procedure Tfrm_ch_fee_check_seae.wwDBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
begin
  fee_color(t_ch_fee_truck,wwDBGrid1,Rect,Field);
end;

procedure Tfrm_ch_fee_check_seae.N20Click(Sender: TObject);
begin
  t_op_seae.Close;
  t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee )'
                   +default_sort(53,'t_op_seae','','desc');
  t_op_seae.open;
end;

procedure Tfrm_ch_fee_check_seae.N23Click(Sender: TObject);
begin
  t_op_seae.Close;
  t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
                   +default_sort(53,'t_op_seae','','desc');
  t_op_seae.open;
end;

procedure Tfrm_ch_fee_check_seae.N24Click(Sender: TObject);
begin
  t_op_seae.Close;
  t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+')'
                   +default_sort(53,'t_op_seae','','desc');
  t_op_seae.open;
end;

procedure Tfrm_ch_fee_check_seae.N25Click(Sender: TObject);
begin
  t_op_seae.Close;
  t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='+''''+'<27><><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>'+''''+')'
                   +default_sort(53,'t_op_seae','','desc');
  t_op_seae.open;
end;

procedure Tfrm_ch_fee_check_seae.bsSkinPageControl1Change(Sender: TObject);
begin
  if frm_op_seae_check_create=false then
    exit;
{$IFDEF DLFENZHANG}
  if bsSkinPageControl1.ActivePage=bsSkinTabSheet6 then
  begin
    if not assigned(frm_op_seae_fenzhang) then
    begin
      
      frm_op_seae_fenzhang:=tfrm_op_seae_fenzhang.Create (self);
      frm_op_seae_fenzhang.t_ch_fee_fenzhang.Close;
      frm_op_seae_fenzhang.t_ch_fee_fenzhang.DataSource:=t_op_seae1;
      frm_op_seae_fenzhang.t_ch_fee_fenzhang.open;
      frm_op_seae_fenzhang.t_ch_fee.open;
      frm_op_seae_fenzhang.t_ch_fee_fenzhango.Close;
      frm_op_seae_fenzhang.t_ch_fee_fenzhango.DataSource:=t_op_seae1;
      frm_op_seae_fenzhang.t_ch_fee_fenzhango.open;
      frm_op_seae_fenzhang.t_op_fenzhang.Close;
      frm_op_seae_fenzhang.t_op_fenzhang.DataSource:=t_op_seae1;
      frm_op_seae_fenzhang.t_op_fenzhang.Open;

      frm_op_seae_fenzhang.t_op_seae_assistant.Close;
      frm_op_seae_fenzhang.t_op_seae_assistant.sql.Text:='select * from t_op_seae_assistant where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> order by <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> ';
      frm_op_seae_fenzhang.t_op_seae_assistant.DataSource:=t_op_seae1;
      frm_op_seae_fenzhang.t_op_seae_assistant.Open;


      frm_op_seae_fenzhang.t_ch_fee_pl.Close;
      frm_op_seae_fenzhang.t_ch_fee_pl.DataSource:=t_op_seae1;
      frm_op_seae_fenzhang.t_ch_fee_pl.open;

      frm_op_seae_fenzhang.t_ch_fee_cm.Close;
      frm_op_seae_fenzhang.t_ch_fee_cm.DataSource:=t_op_seae2;
      frm_op_seae_fenzhang.t_ch_fee_cm.open;


      frm_op_seae_fenzhang.t_ch_fee_pl_detail.open;
      frm_op_seae_fenzhang.t_ch_fee_pl_detailf.open;

      frm_op_seae_fenzhang.ManualDock(bsSkinTabSheet6,nil,alClient);
      frm_op_seae_fenzhang.show;
    end;
    exit;
  end;
  {$ENDIF}
  if bsSkinPageControl1.ActivePage=bsSkinTabSheet7 then
  begin
    if not assigned(frm_op_seae_assistant) then
    begin
      frm_op_seae_assistant:=tfrm_op_seae_assistant.Create (self);
      frm_op_seae_assistant.t_op_seae_assistant.DataSource:=t_op_seae1;
      frm_op_seae_assistant.ManualDock(bsSkinTabSheet7,nil,alClient);
      frm_op_seae_assistant.show;
    end;
    exit;
  end;

end;

procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton1Click(
  Sender: TObject);
begin
  fra_fee_check1.bsSkinButton1Click(Sender);

end;

procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton4Click(
  Sender: TObject);
begin
  fra_fee_check1.bsSkinButton4Click(Sender);

end;

procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton10Click(
  Sender: TObject);
begin
  fra_fee_check1.bsSkinButton10Click(Sender);

end;

procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton12Click(
  Sender: TObject);
begin
  fra_fee_check1.bsSkinButton12Click(Sender);

end;

procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton8Click(
  Sender: TObject);
begin
  fra_fee_check1.bsSkinButton8Click(Sender);

end;

procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton5Click(
  Sender: TObject);
begin
  fra_fee_check1.bsSkinButton5Click(Sender);

end;

procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton2Click(
  Sender: TObject);
begin
  fra_fee_check1.bsSkinButton2Click(Sender);

end;

procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton15Click(
  Sender: TObject);
begin
  fra_fee_check1.bsSkinButton15Click(Sender);

end;

end.