DS6JIEFENG/公用模块/系统模块/u_open_operation.pas

{$INCLUDE t_main.inc}

unit u_open_operation;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, jpeg, ExtCtrls;

type
  Tfrm_open_operation = class(TForm)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinPanel4: TbsSkinPanel;
    bsSkinButton28: TbsSkinButton;
    bsSkinGroupBox6: TbsSkinGroupBox;
    bsSkinSpeedButton15: TbsSkinSpeedButton;
    bsSkinSpeedButton16: TbsSkinSpeedButton;
    bsSkinSpeedButton29: TbsSkinSpeedButton;
    bsSkinSpeedButton30: TbsSkinSpeedButton;
    bsSkinSpeedButton7: TbsSkinSpeedButton;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    bsSkinSpeedButton8: TbsSkinSpeedButton;
    bsSkinSpeedButton9: TbsSkinSpeedButton;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinSpeedButton10: TbsSkinSpeedButton;
    bsSkinSpeedButton11: TbsSkinSpeedButton;
    bsSkinSpeedButton12: TbsSkinSpeedButton;
    bsSkinSpeedButton13: TbsSkinSpeedButton;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinSpeedButton4: TbsSkinSpeedButton;
    bsSkinSpeedButton5: TbsSkinSpeedButton;
    bsSkinSpeedButton6: TbsSkinSpeedButton;
    bsSkinSpeedButton14: TbsSkinSpeedButton;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinSpeedButton24: TbsSkinSpeedButton;
    bsSkinSpeedButton25: TbsSkinSpeedButton;
    bsSkinSpeedButton26: TbsSkinSpeedButton;
    bsSkinSpeedButton27: TbsSkinSpeedButton;
    bsSkinSpeedButton3: TbsSkinSpeedButton;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinSpeedButton17: TbsSkinSpeedButton;
    bsSkinSpeedButton18: TbsSkinSpeedButton;
    bsSkinSpeedButton19: TbsSkinSpeedButton;
    bsSkinSpeedButton20: TbsSkinSpeedButton;
    bsSkinSpeedButton21: TbsSkinSpeedButton;
    bsSkinSpeedButton22: TbsSkinSpeedButton;
    bsSkinGroupBox5: TbsSkinGroupBox;
    bsSkinSpeedButton28: TbsSkinSpeedButton;
    bsSkinSpeedButton31: TbsSkinSpeedButton;
    bsSkinSpeedButton32: TbsSkinSpeedButton;
    bsSkinSpeedButton23: TbsSkinSpeedButton;
    bsSkinSpeedButton33: TbsSkinSpeedButton;
    bsSkinSpeedButton34: TbsSkinSpeedButton;
    bsSkinSpeedButton35: TbsSkinSpeedButton;
    bsSkinSpeedButton36: TbsSkinSpeedButton;
    bsSkinSpeedButton37: TbsSkinSpeedButton;
    bsSkinSpeedButton38: TbsSkinSpeedButton;
    bsSkinSpeedButton40: TbsSkinSpeedButton;
    bsSkinSpeedButton41: TbsSkinSpeedButton;
    bsSkinSpeedButton42: TbsSkinSpeedButton;
    bsSkinSpeedButton44: TbsSkinSpeedButton;
    bsSkinSpeedButton45: TbsSkinSpeedButton;
    bsSkinSpeedButton46: TbsSkinSpeedButton;
    bsSkinSpeedButton47: TbsSkinSpeedButton;
    bsSkinSpeedButton48: TbsSkinSpeedButton;
    bsSkinSpeedButton49: TbsSkinSpeedButton;
    bsSkinSpeedButton50: TbsSkinSpeedButton;
    bsSkinGroupBox7: TbsSkinGroupBox;
    bsSkinSpeedButton51: TbsSkinSpeedButton;
    bsSkinSpeedButton52: TbsSkinSpeedButton;
    bsSkinSpeedButton53: TbsSkinSpeedButton;
    bsSkinSpeedButton54: TbsSkinSpeedButton;
    bsSkinSpeedButton55: TbsSkinSpeedButton;
    bsSkinSpeedButton56: TbsSkinSpeedButton;
    bsSkinSpeedButton58: TbsSkinSpeedButton;
    bsSkinSpeedButton57: TbsSkinSpeedButton;
    bsSkinSpeedButton39: TbsSkinSpeedButton;
    bsSkinSpeedButton43: TbsSkinSpeedButton;
    bsSkinSpeedButton59: TbsSkinSpeedButton;
    bsSkinSpeedButton60: TbsSkinSpeedButton;
    bsSkinSpeedButton61: TbsSkinSpeedButton;
    bsSkinSpeedButton62: TbsSkinSpeedButton;
    bsSkinSpeedButton63: TbsSkinSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinSpeedButton24Click(Sender: TObject);
    procedure bsSkinSpeedButton25Click(Sender: TObject);
    procedure bsSkinSpeedButton26Click(Sender: TObject);
    procedure bsSkinSpeedButton27Click(Sender: TObject);
    procedure bsSkinSpeedButton29Click(Sender: TObject);
    procedure bsSkinSpeedButton15Click(Sender: TObject);
    procedure bsSkinSpeedButton16Click(Sender: TObject);
    procedure bsSkinSpeedButton30Click(Sender: TObject);
    procedure bsSkinSpeedButton7Click(Sender: TObject);
    procedure bsSkinSpeedButton1Click(Sender: TObject);
    procedure bsSkinSpeedButton8Click(Sender: TObject);
    procedure bsSkinSpeedButton17Click(Sender: TObject);
    procedure bsSkinSpeedButton18Click(Sender: TObject);
    procedure bsSkinSpeedButton19Click(Sender: TObject);
    procedure bsSkinSpeedButton20Click(Sender: TObject);
    procedure bsSkinSpeedButton14Click(Sender: TObject);
    procedure bsSkinSpeedButton6Click(Sender: TObject);
    procedure bsSkinSpeedButton5Click(Sender: TObject);
    procedure bsSkinSpeedButton4Click(Sender: TObject);
    procedure bsSkinSpeedButton13Click(Sender: TObject);
    procedure bsSkinSpeedButton12Click(Sender: TObject);
    procedure bsSkinSpeedButton11Click(Sender: TObject);
    procedure bsSkinSpeedButton10Click(Sender: TObject);
    procedure bsSkinSpeedButton3Click(Sender: TObject);
    procedure bsSkinButton28Click(Sender: TObject);
    procedure bsSkinPanel1Resize(Sender: TObject);
    procedure bsSkinSpeedButton2Click(Sender: TObject);
    procedure bsSkinSpeedButton22Click(Sender: TObject);
    procedure bsSkinSpeedButton21Click(Sender: TObject);
    procedure bsSkinSpeedButton32Click(Sender: TObject);
    procedure bsSkinSpeedButton28Click(Sender: TObject);
    procedure bsSkinSpeedButton31Click(Sender: TObject);
    procedure bsSkinSpeedButton34Click(Sender: TObject);
    procedure bsSkinSpeedButton33Click(Sender: TObject);
    procedure bsSkinSpeedButton23Click(Sender: TObject);
    procedure bsSkinSpeedButton35Click(Sender: TObject);
    procedure bsSkinSpeedButton36Click(Sender: TObject);
    procedure bsSkinSpeedButton37Click(Sender: TObject);
    procedure bsSkinSpeedButton39Click(Sender: TObject);
    procedure bsSkinSpeedButton38Click(Sender: TObject);
    procedure bsSkinSpeedButton40Click(Sender: TObject);
    procedure bsSkinSpeedButton41Click(Sender: TObject);
    procedure bsSkinSpeedButton42Click(Sender: TObject);
    procedure bsSkinSpeedButton44Click(Sender: TObject);
    procedure bsSkinSpeedButton46Click(Sender: TObject);
    procedure bsSkinSpeedButton47Click(Sender: TObject);
    procedure bsSkinSpeedButton48Click(Sender: TObject);
    procedure bsSkinSpeedButton49Click(Sender: TObject);
    procedure bsSkinSpeedButton50Click(Sender: TObject);
    procedure bsSkinSpeedButton51Click(Sender: TObject);
    procedure bsSkinSpeedButton52Click(Sender: TObject);
    procedure bsSkinSpeedButton53Click(Sender: TObject);
    procedure bsSkinSpeedButton54Click(Sender: TObject);
    procedure bsSkinSpeedButton55Click(Sender: TObject);
    procedure bsSkinSpeedButton56Click(Sender: TObject);
    procedure bsSkinSpeedButton57Click(Sender: TObject);
    procedure bsSkinSpeedButton58Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinSpeedButton43Click(Sender: TObject);
    procedure bsSkinSpeedButton59Click(Sender: TObject);
    procedure bsSkinSpeedButton60Click(Sender: TObject);
    procedure bsSkinSpeedButton61Click(Sender: TObject);
    procedure bsSkinSpeedButton62Click(Sender: TObject);
    procedure bsSkinSpeedButton63Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_open_operation: Tfrm_open_operation;

implementation

uses u_main, u_op_seae, my_sys_function,
  {$IFDEF XSGUANLI}
  u_ch_fee_sea_sales,u_ch_fee_seai_sales,u_ch_fee_aire_sales,u_ch_fee_airi_sales,
  {$ENDIF}
  u_ch_fee_check_seae, u_op_seae_close, {$IFDEF FPSHENQING}u_ch_invoice_shen,u_ch_invoice_check,{$ENDIF}
  u_ch_invoice, u_ch_balance_accept,
  {$IFDEF FFLIUCHENG}u_ch_check_shen,u_ch_check_check, {$ENDIF}
  u_ch_balance_pay, u_op_seai,
  u_ch_fee_check_seai, u_op_seai_close, u_op_aire,
  u_ch_fee_check_aire, u_op_aire_close, u_op_airi,
   u_ch_fee_check_airi, u_op_airi_close,
  u_op_seae_vessel_change, {$IFDEF PXHUANHUO}u_op_seae_huanhuo, {$ENDIF}{$IFDEF TSQUEREN}u_op_seae_tuishui,{$ENDIF}
 {$IFDEF QDQUEREN}u_op_seae_qiandan,{$ENDIF} u_op_truck, {$IFDEF KDYEWU}u_op_kuaidi_shen, u_op_kuaidi_check, u_op_kuaidi_manage,{$ENDIF}
  {$IFDEF SFLIUCHENG} u_ch_balance_accept_deng, u_ch_balance_accept_hexiao,u_ch_balance_accept_check,u_ch_accept_shen,{$ENDIF}
   u_op_seae_unlock,
   u_data_share,
  {$IFDEF QTFEIYONG}
  u_op_fee,
  {$ENDIF}
  u_op_delete, {$IFDEF SJBAOGUAN}u_op_seae_apply, u_op_seai_apply, u_op_apply,{$ENDIF} u_ch_fee_modify_check, u_op_seae_qiandan_add,
   u_op_seae_card, {$IFDEF JGCHE}u_op_airtruck,u_op_airtruck_close,
  u_ch_fee_check_airtruck,{$ENDIF}
   {$IFDEF YWFUHE}u_ch_fee_Recheck_seae, u_ch_fee_Recheck_seai, u_ch_fee_Recheck_aire, u_ch_fee_Recheck_airi,{$ENDIF}
  {$IFDEF WLZHANG}u_ch_genleg,{$ENDIF}
  {$IFDEF DCKA}
  u_op_seae_weituo,u_op_seae_order,
  {$ENDIF}
  U_ch_prnFee,u_op_seae_tdqr, U_op_fee_view, u_op_seai_fuhui;


{$R *.dfm}

procedure Tfrm_open_operation.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_open_operation.Hide;
  frm_open_operation.ManualFloat(frm_open_operation.BoundsRect );
  frm_open_operation:=nil;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton24Click(Sender: TObject);
begin
  if not if_open('014') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae) then
    frm_op_seae:=tfrm_op_seae.Create (self);
  frm_op_seae.ManualDock(frm_main.SearchTabs('frm_op_seae',frm_op_seae.caption),nil,alClient);
  frm_op_seae.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton25Click(Sender: TObject);
begin
  {$IFDEF XSGUANLI}
  if not if_open('021') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_seae_sales) then
    frm_ch_fee_seae_sales:=tfrm_ch_fee_seae_sales.Create (self);
  frm_ch_fee_seae_sales.ManualDock(frm_main.SearchTabs('frm_ch_fee_seae_sales',frm_ch_fee_seae_sales.caption),nil,alClient);
  frm_ch_fee_seae_sales.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton26Click(Sender: TObject);
begin
  if not if_open('024') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_check_seae) then
    frm_ch_fee_check_seae:=tfrm_ch_fee_check_seae.Create (self);
  frm_ch_fee_check_seae.ManualDock(frm_main.SearchTabs('frm_ch_fee_check_seae',frm_ch_fee_check_seae.caption),nil,alClient);
  frm_ch_fee_check_seae.show;

end;

procedure Tfrm_open_operation.bsSkinSpeedButton27Click(Sender: TObject);
begin
  if not (if_open('027') or if_open('146')) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_close) then
    frm_op_seae_close:=tfrm_op_seae_close.Create (self);
  frm_op_seae_close.ManualDock(frm_main.SearchTabs('frm_op_seae_close',frm_op_seae_close.caption),nil,alClient);
  frm_op_seae_close.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton29Click(Sender: TObject);
begin
  {$IFDEF FPSHENQING}
  if not if_open('028') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_invoice_shen) then
    frm_ch_invoice_shen:=tfrm_ch_invoice_shen.Create (self);
  frm_ch_invoice_shen.ManualDock(frm_main.SearchTabs('frm_ch_invoice_shen',frm_ch_invoice_shen.caption),nil,alClient);
  frm_ch_invoice_shen.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton15Click(Sender: TObject);
begin
  {$IFDEF FPSHENQING}
  if not if_open('029') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_invoice_check) then
    frm_ch_invoice_check:=tfrm_ch_invoice_check.Create (self);
  frm_ch_invoice_check.ManualDock(frm_main.SearchTabs('frm_ch_invoice_check',frm_ch_invoice_check.caption),nil,alClient);
  frm_ch_invoice_check.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton16Click(Sender: TObject);
begin
  if not if_open('030') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_invoice) then
    frm_ch_invoice:=tfrm_ch_invoice.Create (self);
  frm_ch_invoice.ManualDock(frm_main.SearchTabs('frm_ch_invoice',frm_ch_invoice.caption),nil,alClient);
  frm_ch_invoice.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton30Click(Sender: TObject);
begin
  if not if_open('032') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_balance_accept) then
    frm_ch_balance_accept:=tfrm_ch_balance_accept.Create (self);
  frm_ch_balance_accept.ManualDock(frm_main.SearchTabs('frm_ch_balance_accept',frm_ch_balance_accept.caption),nil,alClient);
  frm_ch_balance_accept.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton7Click(Sender: TObject);
begin
  {$IFDEF FFLIUCHENG}
  if not if_open('036') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_check_shen) then
    frm_ch_check_shen:=tfrm_ch_check_shen.Create (self);
  frm_ch_check_shen.ManualDock(frm_main.SearchTabs('frm_ch_check_shen',frm_ch_check_shen.caption),nil,alClient);
  frm_ch_check_shen.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton1Click(Sender: TObject);
begin
  {$IFDEF FFLIUCHENG}
  if not if_open('037') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_check_check) then
    frm_ch_check_check:=tfrm_ch_check_check.Create (self);
  frm_ch_check_check.ManualDock(frm_main.SearchTabs('frm_ch_check_check',frm_ch_check_check.caption),nil,alClient);
  frm_ch_check_check.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton8Click(Sender: TObject);
begin
  if not if_open('034') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_balance_pay) then
    frm_ch_balance_pay:=tfrm_ch_balance_pay.Create (self);
  frm_ch_balance_pay.ManualDock(frm_main.SearchTabs('frm_ch_balance_pay',frm_ch_balance_pay.caption),nil,alClient);
  frm_ch_balance_pay.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton17Click(Sender: TObject);
begin

  if not if_open('054') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seai) then
    frm_op_seai:=tfrm_op_seai.Create (self);
  frm_op_seai.ManualDock(frm_main.SearchTabs('frm_op_seai',frm_op_seai.caption),nil,alClient);
  frm_op_seai.show;

end;

procedure Tfrm_open_operation.bsSkinSpeedButton18Click(Sender: TObject);
begin
  {$IFDEF XSGUANLI}
  if not if_open('057') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_seai_sales) then
    frm_ch_fee_seai_sales:=tfrm_ch_fee_seai_sales.Create (self);
  frm_ch_fee_seai_sales.ManualDock(frm_main.SearchTabs('frm_ch_fee_seai_sales',frm_ch_fee_seai_sales.caption),nil,alClient);
  frm_ch_fee_seai_sales.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton19Click(Sender: TObject);
begin
  if not if_open('060') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_check_seai) then
    frm_ch_fee_check_seai:=tfrm_ch_fee_check_seai.Create (self);
  frm_ch_fee_check_seai.ManualDock(frm_main.SearchTabs('frm_ch_fee_check_seai',frm_ch_fee_check_seai.caption),nil,alClient);
  frm_ch_fee_check_seai.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton20Click(Sender: TObject);
begin
  if not (if_open('061') or if_open('147')) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seai_close) then
    frm_op_seai_close:=tfrm_op_seai_close.Create (self);
  frm_op_seai_close.ManualDock(frm_main.SearchTabs('frm_op_seai_close',frm_op_seai_close.caption),nil,alClient);
  frm_op_seai_close.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton14Click(Sender: TObject);
begin
  if not if_open('072') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_aire) then
    frm_op_aire:=tfrm_op_aire.Create (self);
  frm_op_aire.ManualDock(frm_main.SearchTabs('frm_op_aire',frm_op_aire.caption),nil,alClient);
  frm_op_aire.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton6Click(Sender: TObject);
begin
  {$IFDEF XSGUANLI}
  if not if_open('075') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_aire_sales) then
    frm_ch_fee_aire_sales:=tfrm_ch_fee_aire_sales.Create (self);
  frm_ch_fee_aire_sales.ManualDock(frm_main.SearchTabs('frm_ch_fee_aire_sales',frm_ch_fee_aire_sales.caption),nil,alClient);
  frm_ch_fee_aire_sales.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton5Click(Sender: TObject);
begin
  if not if_open('076') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_check_aire) then
    frm_ch_fee_check_aire:=tfrm_ch_fee_check_aire.Create (self);
  frm_ch_fee_check_aire.ManualDock(frm_main.SearchTabs('frm_ch_fee_check_aire',frm_ch_fee_check_aire.caption),nil,alClient);
  frm_ch_fee_check_aire.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton4Click(Sender: TObject);
begin
  if not (if_open('079') or if_open('148')) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_aire_close) then
    frm_op_aire_close:=tfrm_op_aire_close.Create (self);
  frm_op_aire_close.ManualDock(frm_main.SearchTabs('frm_op_aire_close',frm_op_aire_close.caption),nil,alClient);
  frm_op_aire_close.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton13Click(Sender: TObject);
begin
  if not if_open('080') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_airi) then
    frm_op_airi:=tfrm_op_airi.Create (self);
  frm_op_airi.ManualDock(frm_main.SearchTabs('frm_op_airi',frm_op_airi.caption),nil,alClient);
  frm_op_airi.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton12Click(Sender: TObject);
begin
  {$IFDEF XSGUANLI}
  if not if_open('083') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_airi_sales) then
    frm_ch_fee_airi_sales:=tfrm_ch_fee_airi_sales.Create (self);
  frm_ch_fee_airi_sales.ManualDock(frm_main.SearchTabs('frm_ch_fee_airi_sales',frm_ch_fee_airi_sales.caption),nil,alClient);
  frm_ch_fee_airi_sales.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton11Click(Sender: TObject);
begin
  if not if_open('084') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_check_airi) then
    frm_ch_fee_check_airi:=tfrm_ch_fee_check_airi.Create (self);
  frm_ch_fee_check_airi.ManualDock(frm_main.SearchTabs('frm_ch_fee_check_airi',frm_ch_fee_check_airi.caption),nil,alClient);
  frm_ch_fee_check_airi.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton10Click(Sender: TObject);
begin
  if not (if_open('087') or if_open('149')) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_airi_close) then
    frm_op_airi_close:=tfrm_op_airi_close.Create (self);
  frm_op_airi_close.ManualDock(frm_main.SearchTabs('frm_op_airi_close',frm_op_airi_close.caption),nil,alClient);
  frm_op_airi_close.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton3Click(Sender: TObject);
begin
  if not if_open('141') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_vessel_change) then
    frm_op_seae_vessel_change:=tfrm_op_seae_vessel_change.Create (self);
  frm_op_seae_vessel_change.ManualDock(frm_main.SearchTabs('frm_op_seae_vessel_change',frm_op_seae_vessel_change.caption),nil,alClient);
  frm_op_seae_vessel_change.show;
end;

procedure Tfrm_open_operation.bsSkinButton28Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_open_operation.bsSkinPanel1Resize(Sender: TObject);
var
  i:integer;
begin
//  if G_ZWCHK='TRUE'  then
 //   i:=round(bsSkinPanel1.width/5)
  i:=round(bsSkinPanel1.width/6);
  bsSkinGroupBox4.width:=i;
  bsSkinGroupBox3.width:=i;
  bsSkinGroupBox1.width:=i;
  bsSkinGroupBox2.width:=i;
  bsSkinGroupBox5.width:=i;

  begin
    limited_SpeedButton('014','014',bsSkinSpeedButton24,101);
    limited_SpeedButton('021','021',bsSkinSpeedButton25,20101);
    limited_SpeedButton('024','024',bsSkinSpeedButton26,30101);
    limited_SpeedButton('027','146',bsSkinSpeedButton27,4011);
    limited_SpeedButton('028','028',bsSkinSpeedButton29,191);
    limited_SpeedButton('029','029',bsSkinSpeedButton15,412);
    limited_SpeedButton('030','030',bsSkinSpeedButton16,413);
    limited_SpeedButton('032','032',bsSkinSpeedButton30,445);
    limited_SpeedButton('036','036',bsSkinSpeedButton7,192);
    limited_SpeedButton('037','037',bsSkinSpeedButton1,452);
    limited_SpeedButton('034','034',bsSkinSpeedButton8,453);
    limited_SpeedButton('054','054',bsSkinSpeedButton17,111);
    limited_SpeedButton('057','057',bsSkinSpeedButton18,20102);
    limited_SpeedButton('060','060',bsSkinSpeedButton19,30102);
    limited_SpeedButton('061','147',bsSkinSpeedButton20,4012);
    limited_SpeedButton('072','072',bsSkinSpeedButton14,121);
    limited_SpeedButton('075','075',bsSkinSpeedButton6,20103);
    limited_SpeedButton('076','076',bsSkinSpeedButton5,30103);
    limited_SpeedButton('079','148',bsSkinSpeedButton4,4013);
    limited_SpeedButton('080','080',bsSkinSpeedButton13,131);
    limited_SpeedButton('083','083',bsSkinSpeedButton12,20104);
    limited_SpeedButton('084','084',bsSkinSpeedButton11,30104);
    limited_SpeedButton('087','149',bsSkinSpeedButton10,4014);
    limited_SpeedButton('141','141',bsSkinSpeedButton3,103);
    {$IFDEF PXHUANHUO}
    limited_SpeedButton('152','152',bsSkinSpeedButton2,102);
    {$ENDIF}
    limited_SpeedButton('159','159',bsSkinSpeedButton22,155);
    limited_SpeedButton('160','160',bsSkinSpeedButton21,104);
    limited_SpeedButton('160','160',bsSkinSpeedButton50,104);
    limited_SpeedButton('161','161',bsSkinSpeedButton32);
    limited_SpeedButton('162','162',bsSkinSpeedButton28,1001);
    limited_SpeedButton('163','163',bsSkinSpeedButton31,1002);
    limited_SpeedButton('174','174',bsSkinSpeedButton34,442);
    limited_SpeedButton('175','175',bsSkinSpeedButton33,443);
    limited_SpeedButton('176','176',bsSkinSpeedButton23,444);
    limited_SpeedButton('182','182',bsSkinSpeedButton37,1003);
    limited_SpeedButton('187','187',bsSkinSpeedButton38,48);
    limited_SpeedButton('189','189',bsSkinSpeedButton40,17);
    limited_SpeedButton('190','190',bsSkinSpeedButton41,151);
    limited_SpeedButton('191','191',bsSkinSpeedButton42,152);
    limited_SpeedButton('211','211',bsSkinSpeedButton47);
    limited_SpeedButton('217','217',bsSkinSpeedButton49,441);
    limited_SpeedButton('348','348',bsSkinSpeedButton51,1401);
    limited_SpeedButton('234','234',bsSkinSpeedButton52,306);
    limited_SpeedButton('235','236',bsSkinSpeedButton53,4015);
    limited_SpeedButton('160','160',bsSkinSpeedButton48,105);
    limited_SpeedButton('230','230',bsSkinSpeedButton54,47);
    limited_SpeedButton('286','286',bsSkinSpeedButton39,402);
    limited_SpeedButton('301','301',bsSkinSpeedButton61,25);
    limited_SpeedButton('302','302',bsSkinSpeedButton62,308);
    limited_SpeedButton('327','327',bsSkinSpeedButton63,327);

  end;


end;

procedure Tfrm_open_operation.bsSkinSpeedButton2Click(Sender: TObject);
begin
  {$IFDEF PXHUANHUO}
  if not if_open('152') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_huanhuo) then
    frm_op_seae_huanhuo:=tfrm_op_seae_huanhuo.Create (self);
  frm_op_seae_huanhuo.ManualDock(frm_main.SearchTabs('frm_op_seae_huanhuo',frm_op_seae_huanhuo.caption),nil,alClient);
  frm_op_seae_huanhuo.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton22Click(Sender: TObject);
begin
  {$IFDEF TSQUEREN}
  if not if_open('159') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_tuishui) then
    frm_op_seae_tuishui:=tfrm_op_seae_tuishui.Create (self);
  frm_op_seae_tuishui.ManualDock(frm_main.SearchTabs('frm_op_seae_tuishui',frm_op_seae_tuishui.caption),nil,alClient);
  frm_op_seae_tuishui.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton21Click(Sender: TObject);
begin
  {$IFDEF QDQUEREN}
  if not if_open('160') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_qiandan) then
    frm_op_seae_qiandan:=tfrm_op_seae_qiandan.Create (self);
  frm_op_seae_qiandan.ManualDock(frm_main.SearchTabs('frm_op_seae_qiandan',frm_op_seae_qiandan.caption),nil,alClient);
  frm_op_seae_qiandan.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton32Click(Sender: TObject);
begin
  if not if_open('161') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_truck) then
    frm_op_truck:=tfrm_op_truck.Create (self);
  frm_op_truck.ManualDock(frm_main.SearchTabs('frm_op_truck',frm_op_truck.caption),nil,alClient);
  frm_op_truck.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton28Click(Sender: TObject);
begin
  {$IFDEF KDYEWU}
  if not if_open('162') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_kuaidi_shen) then
    frm_op_kuaidi_shen:=tfrm_op_kuaidi_shen.Create (self);
  frm_op_kuaidi_shen.ManualDock(frm_main.SearchTabs('frm_op_kuaidi_shen',frm_op_kuaidi_shen.caption),nil,alClient);
  frm_op_kuaidi_shen.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton31Click(Sender: TObject);
begin
  {$IFDEF KDYEWU}
  if not if_open('163') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_kuaidi_check) then
    frm_op_kuaidi_check:=tfrm_op_kuaidi_check.Create (self);
  frm_op_kuaidi_check.ManualDock(frm_main.SearchTabs('frm_op_kuaidi_check',frm_op_kuaidi_check.caption),nil,alClient);
  frm_op_kuaidi_check.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton34Click(Sender: TObject);
begin
  {$IFDEF SFLIUCHENG}
  if not if_open('174') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_balance_accept_deng) then
    frm_ch_balance_accept_deng:=tfrm_ch_balance_accept_deng.Create (self);
  frm_ch_balance_accept_deng.ManualDock(frm_main.SearchTabs('frm_ch_balance_accept_deng',frm_ch_balance_accept_deng.caption),nil,alClient);
  frm_ch_balance_accept_deng.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton33Click(Sender: TObject);
begin
  {$IFDEF SFLIUCHENG}
  if not if_open('175') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_balance_accept_hexiao) then
    frm_ch_balance_accept_hexiao:=tfrm_ch_balance_accept_hexiao.Create (self);
  frm_ch_balance_accept_hexiao.ManualDock(frm_main.SearchTabs('frm_ch_balance_accept_hexiao',frm_ch_balance_accept_hexiao.caption),nil,alClient);
  frm_ch_balance_accept_hexiao.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton23Click(Sender: TObject);
begin
  {$IFDEF SFLIUCHENG}
  if not if_open('176') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_balance_accept_check) then
    frm_ch_balance_accept_check:=tfrm_ch_balance_accept_check.Create (self);
  frm_ch_balance_accept_check.ManualDock(frm_main.SearchTabs('frm_ch_balance_accept_check',frm_ch_balance_accept_check.caption),nil,alClient);
  frm_ch_balance_accept_check.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton35Click(Sender: TObject);
begin
  if not if_open('178') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_unlock) then
    frm_op_seae_unlock:=tfrm_op_seae_unlock.Create (self);
  frm_op_seae_unlock.ManualDock(frm_main.SearchTabs('frm_op_seae_unlock',frm_op_seae_unlock.caption),nil,alClient);
  frm_op_seae_unlock.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton36Click(Sender: TObject);
begin
  {
  if not if_open('180') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_truck_du) then
    frm_rp_truck_du:=tfrm_rp_truck_du.Create (self);
  frm_rp_truck_du.ManualDock(frm_main.SearchTabs('frm_rp_truck_du',frm_rp_truck_du.caption),nil,alClient);
  frm_rp_truck_du.show;
  }
end;

procedure Tfrm_open_operation.bsSkinSpeedButton37Click(Sender: TObject);
begin
  {$IFDEF KDYEWU}
  if not if_open('182') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_kuaidi_manage) then
    frm_op_kuaidi_manage:=tfrm_op_kuaidi_manage.Create (self);
  frm_op_kuaidi_manage.ManualDock(frm_main.SearchTabs('frm_op_kuaidi_manage',frm_op_kuaidi_manage.caption),nil,alClient);
  frm_op_kuaidi_manage.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton39Click(Sender: TObject);
begin
  {$IFDEF WLZHANG}
  if not if_open('286') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_ch_genleg:=tfrm_ch_genleg.Create (self);
    frm_ch_genleg.ShowModal;
  finally
    frm_ch_genleg.free;
    frm_ch_genleg:=nil;
  end;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton38Click(Sender: TObject);
begin
  {$IFDEF QTFEIYONG}
  if not if_open('187') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_fee) then
    frm_op_fee:=tfrm_op_fee.Create (self);
  frm_op_fee.ManualDock(frm_main.SearchTabs('frm_op_fee',frm_op_fee.caption),nil,alClient);
  frm_op_fee.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton40Click(Sender: TObject);
begin

  if not if_open('189') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_delete) then
    frm_op_delete:=tfrm_op_delete.Create (self);
  frm_op_delete.ManualDock(frm_main.SearchTabs('frm_op_delete',frm_op_delete.caption),nil,alClient);
  frm_op_delete.show;

end;

procedure Tfrm_open_operation.bsSkinSpeedButton41Click(Sender: TObject);
begin
  {$IFDEF SJBAOGUAN}
  if not if_open('190') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_apply) then
    frm_op_seae_apply:=tfrm_op_seae_apply.Create (self);
  frm_op_seae_apply.ManualDock(frm_main.SearchTabs('frm_op_seae_apply',frm_op_seae_apply.caption),nil,alClient);
  frm_op_seae_apply.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton42Click(Sender: TObject);
begin
  {$IFDEF SJBAOGUAN}
  if not if_open('191') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seai_apply) then
    frm_op_seai_apply:=tfrm_op_seai_apply.Create (self);
  frm_op_seai_apply.ManualDock(frm_main.SearchTabs('frm_op_seai_apply',frm_op_seai_apply.caption),nil,alClient);
  frm_op_seai_apply.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton44Click(Sender: TObject);
begin
  {
  if not if_open('200') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_balance_truck_accept) then
    frm_ch_balance_truck_accept:=tfrm_ch_balance_truck_accept.Create (self);
  frm_ch_balance_truck_accept.ManualDock(frm_main.SearchTabs('frm_ch_balance_truck_accept',frm_ch_balance_truck_accept.caption),nil,alClient);
  frm_ch_balance_truck_accept.show;
  }
end;

procedure Tfrm_open_operation.bsSkinSpeedButton46Click(Sender: TObject);
begin
  {
  if not if_open('201') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_balance_truck_pay) then
    frm_ch_balance_truck_pay:=tfrm_ch_balance_truck_pay.Create (self);
  frm_ch_balance_truck_pay.ManualDock(frm_main.SearchTabs('frm_ch_balance_truck_pay',frm_ch_balance_truck_pay.caption),nil,alClient);
  frm_ch_balance_truck_pay.show;
  }
end;

procedure Tfrm_open_operation.bsSkinSpeedButton47Click(Sender: TObject);
begin
  if not if_open('211') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_modify_check) then
    frm_ch_fee_modify_check:=tfrm_ch_fee_modify_check.Create (self);
  frm_ch_fee_modify_check.ManualDock(frm_main.SearchTabs('frm_ch_fee_modify_check',frm_ch_fee_modify_check.caption),nil,alClient);
  frm_ch_fee_modify_check.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton48Click(Sender: TObject);
begin
  if not if_open('160') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_qiandan_add) then
    frm_op_seae_qiandan_add:=tfrm_op_seae_qiandan_add.Create (self);
  frm_op_seae_qiandan_add.ManualDock(frm_main.SearchTabs('frm_op_seae_qiandan_add',frm_op_seae_qiandan_add.caption),nil,alClient);
  frm_op_seae_qiandan_add.show;

end;

procedure Tfrm_open_operation.bsSkinSpeedButton49Click(Sender: TObject);
begin
  {$IFDEF SFLIUCHENG}
  if not if_open('217') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_accept_shen) then
    frm_ch_accept_shen:=tfrm_ch_accept_shen.Create (self);
  frm_ch_accept_shen.ManualDock(frm_main.SearchTabs('frm_ch_accept_shen',frm_ch_accept_shen.caption),nil,alClient);
  frm_ch_accept_shen.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton50Click(Sender: TObject);
begin
  if not if_open('160') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_card) then
    frm_op_seae_card:=tfrm_op_seae_card.Create (self);
  frm_op_seae_card.ManualDock(frm_main.SearchTabs('frm_op_seae_card',frm_op_seae_card.caption),nil,alClient);
  frm_op_seae_card.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton51Click(Sender: TObject);
begin
 // {$IFDEF GJCHE}
  if not if_open('348') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_airtruck) then
    frm_op_airtruck:=tfrm_op_airtruck.Create (self);
  frm_op_airtruck.ManualDock(frm_main.SearchTabs('frm_op_airtruck',frm_op_airtruck.caption),nil,alClient);
  frm_op_airtruck.show;
 // {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton52Click(Sender: TObject);
begin
  {$IFDEF JGCHE}
  if not if_open('234') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_check_airtruck) then
    frm_ch_fee_check_airtruck:=tfrm_ch_fee_check_airtruck.Create (self);
  frm_ch_fee_check_airtruck.ManualDock(frm_main.SearchTabs('frm_ch_fee_check_airtruck',frm_ch_fee_check_airtruck.caption),nil,alClient);
  frm_ch_fee_check_airtruck.show;
  {$ENDIF}

end;

procedure Tfrm_open_operation.bsSkinSpeedButton53Click(Sender: TObject);
begin
  {$IFDEF JGCHE}
  if not (if_open('235') or if_open('236')) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_aire_close) then
    frm_op_airtruck_close:=tfrm_op_airtruck_close.Create (self);
  frm_op_airtruck_close.ManualDock(frm_main.SearchTabs('frm_op_airtruck_close',frm_op_airtruck_close.caption),nil,alClient);
  frm_op_airtruck_close.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton54Click(Sender: TObject);
begin

  if not if_open('230') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_cw_prnFee) then
    frm_cw_prnFee:=tfrm_cw_prnFee.Create (self);
  frm_cw_prnFee.ManualDock(frm_main.SearchTabs('frm_cw_prnFee',frm_cw_prnFee.caption),nil,alClient);
  frm_cw_prnFee.show;

end;

procedure Tfrm_open_operation.bsSkinSpeedButton55Click(Sender: TObject);
begin
  {$IFDEF YWFUHE}
  if not if_open('248') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_Recheck_seae) then
    frm_ch_fee_Recheck_seae:=tfrm_ch_fee_Recheck_seae.Create (self);
  frm_ch_fee_Recheck_seae.ManualDock(frm_main.SearchTabs('frm_ch_fee_Recheck_seae',frm_ch_fee_Recheck_seae.caption),nil,alClient);
  frm_ch_fee_Recheck_seae.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton56Click(Sender: TObject);
begin
 {$IFDEF YWFUHE}

 if not if_open('249') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_Recheck_seai) then
    frm_ch_fee_Recheck_seai:=tfrm_ch_fee_Recheck_seai.Create (self);
  frm_ch_fee_Recheck_seai.ManualDock(frm_main.SearchTabs('frm_ch_fee_Recheck_seai',frm_ch_fee_Recheck_seai.caption),nil,alClient);
  frm_ch_fee_Recheck_seai.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton57Click(Sender: TObject);
begin
  {$IFDEF YWFUHE}
  if not if_open('250') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_check_aire) then
    frm_ch_fee_Recheck_aire:=tfrm_ch_fee_Recheck_aire.Create (self);
  frm_ch_fee_Recheck_aire.ManualDock(frm_main.SearchTabs('frm_ch_fee_Recheck_aire',frm_ch_fee_Recheck_aire.caption),nil,alClient);
  frm_ch_fee_Recheck_aire.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton58Click(Sender: TObject);
begin
  {$IFDEF YWFUHE}
  if not if_open('251') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_Recheck_airi) then
    frm_ch_fee_Recheck_airi:=tfrm_ch_fee_Recheck_airi.Create (self);
  frm_ch_fee_Recheck_airi.ManualDock(frm_main.SearchTabs('frm_ch_fee_Recheck_airi',frm_ch_fee_Recheck_airi.caption),nil,alClient);
  frm_ch_fee_Recheck_airi.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton43Click(Sender: TObject);
begin
  if not if_open('014') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_tdqr) then
    frm_op_seae_tdqr:=tfrm_op_seae_tdqr.Create (self);
  frm_op_seae_tdqr.ManualDock(frm_main.SearchTabs('frm_op_seae_tdqr',frm_op_seae_tdqr.caption),nil,alClient);
  frm_op_seae_tdqr.show;
end;

procedure Tfrm_open_operation.FormShow(Sender: TObject);
var showbtn:boolean ;
begin
  showbtn:=G_ZWCHK<>'TRUE' ;
  bsSkinSpeedButton58.Visible:=showbtn ;
  bsSkinSpeedButton57.Visible:=showbtn ;
  bsSkinSpeedButton56.Visible:=showbtn ;
  bsSkinSpeedButton55.Visible:=showbtn ;
  bsSkinSpeedButton35.Visible:=showbtn ;
  bsSkinSpeedButton26.Visible:=showbtn ;
  bsSkinSpeedButton27.Visible:=showbtn ;
  bsSkinSpeedButton19.Visible:=showbtn ;
  bsSkinSpeedButton20.Visible:=showbtn ;
  bsSkinSpeedButton5.Visible:=showbtn  ;
  bsSkinSpeedButton4.Visible:=showbtn  ;
  bsSkinSpeedButton10.Visible:=showbtn ;
  bsSkinSpeedButton11.Visible:=showbtn ;
  bsSkinSpeedButton52.Visible:=showbtn ;
  bsSkinSpeedButton53.Visible:=showbtn ;
  bsSkinSpeedButton29.Visible:=showbtn ;
  bsSkinSpeedButton15.Visible:=showbtn ;
//  bsSkinSpeedButton43.Visible:=showbtn ;
  bsSkinSpeedButton49.Visible:=showbtn ;
  bsSkinSpeedButton34.Visible:=showbtn ;
  bsSkinSpeedButton33.Visible:=showbtn ;
  bsSkinSpeedButton23.Visible:=showbtn ;
  bsSkinSpeedButton30.Visible:=showbtn ;
  bsSkinSpeedButton7.Visible:=showbtn ;
  bsSkinSpeedButton1.Visible:=showbtn ;
  bsSkinSpeedButton8.Visible:=showbtn ;
  bsSkinSpeedButton9.Visible:=showbtn ;
//  bsSkinSpeedButton39.Visible:=showbtn ;
  bsSkinSpeedButton54.Visible:=showbtn ;
  if showbtn then
  begin
    bsSkinSpeedButton58.Visible:=if_open('251') ;
    bsSkinSpeedButton57.Visible:=if_open('250') ;
    bsSkinSpeedButton56.Visible:=if_open('249') ;
    bsSkinSpeedButton55.Visible:=if_open('248') ;
  end
  else
  begin
    bsSkinSpeedButton58.Visible:=showbtn ;
    bsSkinSpeedButton57.Visible:=showbtn ;
    bsSkinSpeedButton56.Visible:=showbtn ;
    bsSkinSpeedButton55.Visible:=showbtn ;
  end ;


  if strtobool(get_parameters_value(1,'false')) and (G_ZWCHK<>'TRUE')then
    bsSkinSpeedButton15.Visible:=true
  else
    bsSkinSpeedButton15.Visible:=false;

  if strtobool(get_parameters_value(28,'false')) and (G_ZWCHK<>'TRUE') then
  begin
    bsSkinSpeedButton35.Visible:=true;
    limited_SpeedButton('178','178',bsSkinSpeedButton35);
  end
  else
  begin
    bsSkinSpeedButton35.Visible:=false;
  end;
  if strtobool(get_parameters_value(30,'false')) then
  begin
//    bsSkinSpeedButton44.Visible:=true;
//    bsSkinSpeedButton45.Visible:=true;
//    bsSkinSpeedButton46.Visible:=true;
//    bsSkinSpeedButton36.Visible:=true;
//    limited_SpeedButton('180','180',bsSkinSpeedButton36);
//    limited_SpeedButton('200','200',bsSkinSpeedButton44);
//    limited_SpeedButton('201','201',bsSkinSpeedButton46);
  end
  else
  begin
//    bsSkinSpeedButton44.Visible:=false;
//    bsSkinSpeedButton45.Visible:=false;
//    bsSkinSpeedButton46.Visible:=false;
//    bsSkinSpeedButton36.Visible:=false;
  end;
  if (frm_data_share.t_sys_company.fieldbyname('OHTER').asboolean) and (G_ZWCHK<>'TRUE') then
  begin
    bsSkinSpeedButton9.Visible:=true;
//    bsSkinSpeedButton39.Visible:=true;
    limited_SpeedButton('185','185',bsSkinSpeedButton9);
//    limited_SpeedButton('186','186',bsSkinSpeedButton39);
  end
  else
  begin
    bsSkinSpeedButton9.Visible:=false;
//    bsSkinSpeedButton39.Visible:=false;
  end;


{$IFDEF SJBAOGUAN}
 {$ELSE}
 bsSkinSpeedButton41.Visible:=false;
 bsSkinSpeedButton42.Visible:=false;
 {$ENDIF}
 {$IFDEF XSGUANLI}
 {$ELSE}
 bsSkinSpeedButton25.Visible:=false;
 bsSkinSpeedButton18.Visible:=false;
 bsSkinSpeedButton6.Visible:=false;
 bsSkinSpeedButton12.Visible:=false;
 {$ENDIF}
 {$IFDEF TSQUEREN}
 {$ELSE}
 bsSkinSpeedButton22.Visible:=false;
 {$ENDIF}

 {$IFDEF QDQUEREN}
 {$ELSE}
 bsSkinSpeedButton21.Visible:=false;
 {$ENDIF}
 {$IFDEF YWFUHE}
 {$ELSE}
 bsSkinSpeedButton55.Visible:=false;
 bsSkinSpeedButton56.Visible:=false;
 bsSkinSpeedButton57.Visible:=false;
 bsSkinSpeedButton58.Visible:=false;
 {$ENDIF}

 {$IFDEF JGCHE}

 {$ELSE}
 bsSkinGroupBox7.Visible:=false;
 {$ENDIF}

 {$IFDEF KDYEWU}
 {$ELSE}
 bsSkinSpeedButton28.Visible:=false;
 bsSkinSpeedButton31.Visible:=false;
 bsSkinSpeedButton37.Visible:=false;

 {$ENDIF}
 {$IFDEF QTFEIYONG}
 {$ELSE}
 bsSkinSpeedButton38.Visible:=false;

 {$ENDIF}

 {$IFDEF FPSHENQING}
 {$ELSE}
 bsSkinSpeedButton29.Visible:=false;
 bsSkinSpeedButton15.Visible:=false;

 {$ENDIF}

 {$IFDEF SFLIUCHENG}
 {$ELSE}
 bsSkinSpeedButton33.Visible:=false;
 bsSkinSpeedButton34.Visible:=false;
 bsSkinSpeedButton49.Visible:=false;
 bsSkinSpeedButton23.Visible:=false;

 {$ENDIF}

 {$IFDEF FFLIUCHENG}
 {$ELSE}
 bsSkinSpeedButton7.Visible:=false;
 bsSkinSpeedButton1.Visible:=false;

 {$ENDIF}

 {$IFDEF PZJIEKOU}
 {$ELSE}
 bsSkinSpeedButton9.Visible:=false;

 {$ENDIF}
 {$IFDEF WLZHANG}
 {$ELSE}
 bsSkinSpeedButton39.Visible:=false;
 {$ENDIF}


end ;

procedure Tfrm_open_operation.bsSkinSpeedButton59Click(Sender: TObject);
begin
  if not assigned(frm_op_fee_view) then
    frm_op_fee_view:=tfrm_op_fee_view.Create (self);
  frm_op_fee_view.ManualDock(frm_main.SearchTabs('frm_op_fee_view',frm_op_fee_view.caption),nil,alClient);
  frm_op_fee_view.show;
end;

procedure Tfrm_open_operation.bsSkinSpeedButton60Click(Sender: TObject);
begin
  {$IFDEF SJBAOGUAN}
  if not if_open('288') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_apply) then
    frm_op_apply:=tfrm_op_apply.Create (self);
  frm_op_apply.ManualDock(frm_main.SearchTabs('frm_op_apply',frm_op_apply.caption),nil,alClient);
  frm_op_apply.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton61Click(Sender: TObject);
begin
  {$IFDEF DCKA}
  if not if_open('301') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_weituo) then
    frm_op_seae_weituo:=tfrm_op_seae_weituo.Create (self);
  frm_op_seae_weituo.ManualDock(frm_main.SearchTabs('frm_op_seae_weituo',frm_op_seae_weituo.caption),nil,alClient);
  frm_op_seae_weituo.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton62Click(Sender: TObject);
begin
  {$IFDEF DCKA}
  if not if_open('302') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_order) then
    frm_op_seae_order:=tfrm_op_seae_order.Create (self);
  frm_op_seae_order.ManualDock(frm_main.SearchTabs('frm_op_seae_order',frm_op_seae_order.caption),nil,alClient);
  frm_op_seae_order.show;
  {$ENDIF}
end;

procedure Tfrm_open_operation.bsSkinSpeedButton63Click(Sender: TObject);
begin
  if not if_open('327') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seai_fuhui) then
    frm_op_seai_fuhui:=tfrm_op_seai_fuhui.Create (self);
  frm_op_seai_fuhui.ManualDock(frm_main.SearchTabs('frm_op_seai_fuhui',frm_op_seai_fuhui.caption,'158'),nil,alClient);
  frm_op_seai_fuhui.show;
end;

end.