DONGSHENG6/费用模块/u_ch_fee_check_aire.pas

{$INCLUDE t_main.inc}
unit u_ch_fee_check_aire;

interface

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

type
  Tfrm_ch_fee_check_aire = class(TForm)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton10: TbsSkinButton;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    fra_fee_check1: Tfra_fee_check;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinTabSheet3: TbsSkinTabSheet;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2Column1: TdxDBGridMaskColumn;
    dxDBGrid2Column2: TdxDBGridCheckColumn;
    dxDBGrid2Column3: TdxDBGridDateColumn;
    dxDBGrid2Column4: TdxDBGridMaskColumn;
    dxDBGrid2Column5: TdxDBGridMaskColumn;
    t_op_state: TADOQuery;
    t_op_state1: TDataSource;
    t_op_aire1: TDataSource;
    Label85: TLabel;
    DBEdit22: TDBEdit;
    Label86: TLabel;
    DBEdit23: TDBEdit;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Label87: TLabel;
    Label88: TLabel;
    Label29: TLabel;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    wwDBDateTimePicker3: TwwDBDateTimePicker;
    bsSkinGroupBox2: TbsSkinGroupBox;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    bsSkinGroupBox4: TbsSkinGroupBox;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    DBEdit28: TDBEdit;
    DBEdit29: TDBEdit;
    wwDBDateTimePicker5: TwwDBDateTimePicker;
    bsSkinGroupBox3: TbsSkinGroupBox;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    bsSkinPanel3: TbsSkinPanel;
    Label1: TLabel;
    Label19: TLabel;
    Label2: TLabel;
    Label17: TLabel;
    Label3: TLabel;
    Label37: TLabel;
    Label5: TLabel;
    Label38: TLabel;
    Label4: TLabel;
    Label36: TLabel;
    DBEdit1: TDBEdit;
    RxDBLookupCombo12: TRxDBLookupCombo;
    DBEdit2: TDBEdit;
    RxDBLookupCombo13: TRxDBLookupCombo;
    DBEdit3: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    RxDBLookupCombo1: TRxDBLookupCombo;
    DBEdit19: TDBEdit;
    Label50: TLabel;
    RxDBLookupCombo8: TRxDBLookupCombo;
    Label51: TLabel;
    RxDBLookupCombo9: TRxDBLookupCombo;
    Label48: TLabel;
    DBEdit33: TDBEdit;
    Label49: TLabel;
    DBEdit34: TDBEdit;
    Label164: TLabel;
    RxDBLookupCombo11: TRxDBLookupCombo;
    Label52: TLabel;
    RxDBLookupCombo10: TRxDBLookupCombo;
    Label103: TLabel;
    DBEdit72: TDBEdit;
    Label104: TLabel;
    DBEdit73: TDBEdit;
    Label105: TLabel;
    DBEdit74: TDBEdit;
    Label106: TLabel;
    DBEdit75: TDBEdit;
    Label107: TLabel;
    DBEdit76: TDBEdit;
    Label108: TLabel;
    DBEdit77: TDBEdit;
    DBEdit71: TDBEdit;
    Label102: TLabel;
    DBEdit70: TDBEdit;
    Label101: TLabel;
    DBEdit63: TDBEdit;
    Label100: TLabel;
    DBEdit57: TDBEdit;
    Label99: TLabel;
    DBEdit56: TDBEdit;
    Label98: TLabel;
    DBEdit35: TDBEdit;
    Label97: TLabel;
    DBEdit36: TDBEdit;
    Label96: TLabel;
    DBEdit37: TDBEdit;
    Label53: TLabel;
    Label109: TLabel;
    DBMemo17: TDBMemo;
    Label110: TLabel;
    DBMemo18: TDBMemo;
    Label111: TLabel;
    DBMemo19: TDBMemo;
    dxDBGrid2Column6: TdxDBGridColumn;
    dxDBGrid2Column7: TdxDBGridColumn;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    dxDBGrid1Column5: TdxDBGridMaskColumn;
    dxDBGrid1Column6: TdxDBGridMaskColumn;
    dxDBGrid1Column7: TdxDBGridMaskColumn;
    dxDBGrid1Column8: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridDateColumn;
    dxDBGrid1Column9: TdxDBGridMaskColumn;
    dxDBGrid1Column10: TdxDBGridMaskColumn;
    dxDBGrid1Column11: TdxDBGridMaskColumn;
    dxDBGrid1Column12: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column14: TdxDBGridDateColumn;
    dxDBGrid1Column15: TdxDBGridMaskColumn;
    dxDBGrid1Column16: TdxDBGridDateColumn;
    dxDBGrid1Column17: TdxDBGridMaskColumn;
    dxDBGrid1Column31: TdxDBGridColumn;
    dxDBGrid1Column18: TdxDBGridMaskColumn;
    dxDBGrid1Column19: TdxDBGridColumn;
    dxDBGrid1Column20: TdxDBGridMaskColumn;
    dxDBGrid1Column21: TdxDBGridMaskColumn;
    dxDBGrid1Column23: TdxDBGridColumn;
    dxDBGrid1Column22: TdxDBGridColumn;
    dxDBGrid1Column24: TdxDBGridColumn;
    dxDBGrid1Column25: TdxDBGridMaskColumn;
    dxDBGrid1Column26: TdxDBGridMaskColumn;
    dxDBGrid1Column27: TdxDBGridMaskColumn;
    dxDBGrid1Column28: TdxDBGridMaskColumn;
    dxDBGrid1Column29: TdxDBGridMaskColumn;
    dxDBGrid1Column30: TdxDBGridDateColumn;
    dxDBGrid1Column32: TdxDBGridColumn;
    DBEdit18: TDBEdit;
    Label65: TLabel;
    DBEdit4: TDBEdit;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    PopupMenu2: TPopupMenu;
    N10: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    XPMenu1: TXPMenu;
    bsSkinButton1: TbsSkinButton;
    PopupMenu3: TPopupMenu;
    N37: TMenuItem;
    N38: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    t_op_aire: TADOStoredProc;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    bsSkinTabSheet4: TbsSkinTabSheet;
    bsSkinTabSheet5: TbsSkinTabSheet;
    bsSkinButton2: TbsSkinButton;
    dxDBGrid1Column33: TdxDBGridColumn;
    dxDBGrid1Column34: TdxDBGridColumn;
    dxDBGrid1Column35: TdxDBGridColumn;
    dxDBGrid1Column36: TdxDBGridColumn;
    dxDBGrid1Column37: TdxDBGridColumn;
    dxDBGrid1Column38: TdxDBGridColumn;
    Panel3: TPanel;
    Label6: TLabel;
    bsSkinComboBox1: TbsSkinComboBox;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton14: TbsSkinButton;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    Label42: TLabel;
    dxDBGrid1Column39: TdxDBGridColumn;
    dxDBGrid1Column40: TdxDBGridColumn;
    dxDBGrid1Column41: TdxDBGridColumn;
    dxDBGrid1Column42: TdxDBGridColumn;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton10Click(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 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 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 N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure bsSkinPageControl1Change(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure fra_fee_check1bsSkinButton10Click(Sender: TObject);
    procedure fra_fee_check1bsSkinButton12Click(Sender: TObject);
    procedure bsSkinEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure bsSkinButton14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ch_fee_check_aire: Tfrm_ch_fee_check_aire;
  frm_op_aire_check_create:boolean;


implementation

uses u_main, my_sys_function,  {$IFDEF DLFENZHANG}u_op_seae_fenzhang,{$ENDIF} u_op_aire_assistant;

{$R *.dfm}

procedure Tfrm_ch_fee_check_aire.FormShow(Sender: TObject);
var
  inifile1:Tinifile;

begin
   wwDBDateTimePicker2.Date:=Now;
  t_op_state.close;
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0013','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
                   +' and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_fee_check_aire) '
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
  t_op_state.open;

  loadreggrid(dxdbgrid1,false,caption);
  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:='0013';
  fra_fee_check1.chk_accept.Text:=get_parameters_value(103,'FALSE') ;
  fra_fee_check1.chk_pay.text:=get_parameters_value(107,'FALSE') ;
  fra_fee_check1.ywlb.Text:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>' ;



  

  if if_open('077') then
  begin
    fra_fee_check1.t_ch_accept.DataSource:=t_op_aire1;
    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('078') then
  begin
    fra_fee_check1.t_ch_pay.DataSource:=t_op_aire1;
    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_aire1;
    fra_fee_check1.t_op_gain.open;
    fra_fee_check1.bsSkinPanel9.Visible:=false;
    fra_fee_check1.Panel3.Height:=20;
  end
  else
  begin
    fra_fee_check1.Panel3.Visible:=false;
  end;

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

   inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
   if strtoint(get_parameters_value(197,'0'))<>0 then
       fra_fee_check1.bsSkinComboBox1.ItemIndex:=strtoint(get_parameters_value(197,'0'))-1
   else fra_fee_check1.bsSkinComboBox1.ItemIndex:=inifile1.ReadInteger('FEE','FEEVAT',0);
   inifile1.Free;
  

  frm_op_aire_check_create:=true;

  {$IFDEF DLFENZHANG}
  {$ELSE}
    bsSkinTabSheet4.TabVisible:=false;
  {$ENDIF}


end;

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

procedure Tfrm_ch_fee_check_aire.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_op_aire_check_create:=false;

 {$IFDEF DLFENZHANG}
 if assigned(frm_op_seae_fenzhang) then
 begin
   FreeAndNil(frm_op_seae_fenzhang);
  end;
 {$ENDIF}
 
  if assigned(frm_op_aire_assistant) then
    FreeAndNil(frm_op_aire_assistant);


  savereggrid(dxdbgrid1,caption);
  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>');
  frm_ch_fee_check_aire.Hide;
  frm_ch_fee_check_aire.ManualFloat(frm_ch_fee_check_aire.BoundsRect );
  frm_main.freeTabs('frm_ch_fee_check_aire');
  action:=cafree;
  frm_ch_fee_check_aire:=nil;
end;

procedure Tfrm_ch_fee_check_aire.bsSkinButton10Click(Sender: TObject);
begin
  query_aire(3,'0013');
end;

procedure Tfrm_ch_fee_check_aire.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_aire.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_aire.bsSkinButton7Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0013','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
                   +' and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_fee_check_aire) '
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_ch_fee_check_aire.N10Click(Sender: TObject);
begin
  update_grid_view_no(dxdbgrid1);
end;

procedure Tfrm_ch_fee_check_aire.N14Click(Sender: TObject);
begin
  update_grid_view_all(dxdbgrid1);
end;

procedure Tfrm_ch_fee_check_aire.N12Click(Sender: TObject);
begin
  update_grid(dxdbgrid1,57);
end;

procedure Tfrm_ch_fee_check_aire.N16Click(Sender: TObject);
begin
  grid_save_xls(dxdbgrid1);
end;

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

procedure Tfrm_ch_fee_check_aire.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_aire.N37Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0013','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1) '
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_ch_fee_check_aire.N17Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0013','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
                   +''''+'¼<><C2BC>״̬'+''''+') '
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open
end;

procedure Tfrm_ch_fee_check_aire.N34Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0013','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <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(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_ch_fee_check_aire.N36Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0013','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <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(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_ch_fee_check_aire.N2Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0013','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <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><>'+''''+')'
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_ch_fee_check_aire.N4Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0013','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <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><>'+''''+')'
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_ch_fee_check_aire.N5Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0013','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee )'
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_ch_fee_check_aire.N8Click(Sender: TObject);
begin
  t_op_aire.Close;
  t_op_aire.Parameters.ParamByName('SQLStr').value:='select * from t_op_aire where '
                   +open_data('0013','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
                   +' and <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>'+''''+')'
                   +default_sort(55,'t_op_aire','','desc');
  t_op_aire.open;
end;

procedure Tfrm_ch_fee_check_aire.bsSkinPageControl1Change(Sender: TObject);
begin
  if frm_op_aire_check_create=false then
    exit;

  {$IFDEF DLFENZHANG}
  if bsSkinPageControl1.ActivePage=bsSkinTabSheet4 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_aire1;
      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_aire1;
      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_aire1;
      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_aire_assistant where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> order by <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> ';
      frm_op_seae_fenzhang.t_op_seae_assistant.DataSource:=t_op_aire1;
      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_aire1;
      frm_op_seae_fenzhang.t_ch_fee_pl.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(bsSkinTabSheet4,nil,alClient);
      frm_op_seae_fenzhang.show;
    end;
    exit;
  end;
  {$ENDIF}
  if bsSkinPageControl1.ActivePage=bsSkinTabSheet5 then
  begin
    if not assigned(frm_op_aire_assistant) then
    begin
      frm_op_aire_assistant:=tfrm_op_aire_assistant.Create (self);
      frm_op_aire_assistant.t_op_aire_assistant.DataSource:=t_op_aire1;
      frm_op_aire_assistant.ManualDock(bsSkinTabSheet5,nil,alClient);
      frm_op_aire_assistant.show;
    end;
    exit;
  end;

end;

procedure Tfrm_ch_fee_check_aire.bsSkinButton2Click(Sender: TObject);
var
  book1:Tbookmark;
begin
  try
    book1:=t_op_aire.GetBookmark;
    t_op_aire.Requery;
    t_op_aire.GotoBookmark(book1);

  except
    ;
  end;
end;

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

end;

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

end;

procedure Tfrm_ch_fee_check_aire.bsSkinEdit1KeyPress(Sender: TObject;
  var Key: Char);
var s:string;
begin
  if Trim(bsSkinEdit1.Text)='' then exit;
  if Key=#13 then
  begin
    s:='select * from t_op_aire where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
                   +open_data('0013','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    if (bsSkinComboBox1.ItemIndex>=0) and (Trim(bsSkinEdit1.Text)<>'')  then
    begin
      s:=s+' and '+bsSkinComboBox1.Text +' like ''%'+bsSkinEdit1.Text+'%''';
    end;
    s:=s+' '+default_sort(55,'t_op_aire','','desc');
    t_op_aire.Close;
    t_op_aire.Parameters.ParamByName('SQLStr').value:=s;
    t_op_aire.open;
  end;

end;

procedure Tfrm_ch_fee_check_aire.bsSkinButton8Click(Sender: TObject);
var i :Integer;
begin
  if dxDBGrid1.SelectedCount>=1 then
  begin
    for i:=0 to dxDBGrid1.SelectedCount-1 do
    begin
      t_op_aire.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
      fra_fee_check1.bsSkinButton10Click(Sender);
      fra_fee_check1.bsSkinButton12Click(Sender);
      UpdateInviceRemarks(t_op_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,'t_op_aire');

    end;
  end
  else
  begin
      fra_fee_check1.bsSkinButton10Click(Sender);
      fra_fee_check1.bsSkinButton12Click(Sender);
     UpdateInviceRemarks(t_op_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,'t_op_aire');
  end;

end;

procedure Tfrm_ch_fee_check_aire.bsSkinButton14Click(Sender: TObject);
var i :Integer;

begin
  if not (if_open('079') or if_open('148')) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;

  if t_op_aire1.DataSet.IsEmpty then
    exit;
  if (t_op_aire1.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
  and(t_op_aire1.DataSet.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;

  bsSkinButton8Click(sender);
{
  if if_open('079') and if_open('148') then
  begin
    check_select_feng_all(3,t_op_aire1,fra_fee_check1.t_ch_accept1,fra_fee_check1.t_ch_Pay1,wwDBDateTimePicker2.date);
  end;
}

  if if_open('079') and if_open('148') then
  begin
    if dxDBGrid1.SelectedCount>=1 then
    begin
      for i:=0 to dxDBGrid1.SelectedCount-1 do
      begin
         t_op_aire.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
         check_select_feng_all(1,t_op_aire1,fra_fee_check1.t_ch_accept1,fra_fee_check1.t_ch_Pay1,wwDBDateTimePicker2.date);
      end;
    end
    else
    begin
      check_select_feng_all(1,t_op_aire1,fra_fee_check1.t_ch_accept1,fra_fee_check1.t_ch_Pay1,wwDBDateTimePicker2.date);
    end;
  end;  




end;

end.