DONGSHENG6/公用模块/系统模块/u_open_code.pas

{$INCLUDE t_main.inc}
unit u_open_code;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, DB, ADODB, StdCtrls, Grids, DBGrids;

type
  Tfrm_open_code = class(TForm)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton12: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton15: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton14: TbsSkinButton;
    bsSkinButton16: TbsSkinButton;
    bsSkinButton21: TbsSkinButton;
    bsSkinButton22: TbsSkinButton;
    bsSkinButton23: TbsSkinButton;
    bsSkinButton27: TbsSkinButton;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinGroupBox5: TbsSkinGroupBox;
    bsSkinButton25: TbsSkinButton;
    bsSkinButton19: TbsSkinButton;
    bsSkinButton26: TbsSkinButton;
    bsSkinButton13: TbsSkinButton;
    bsSkinButton17: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton24: TbsSkinButton;
    bsSkinButton20: TbsSkinButton;
    bsSkinButton28: TbsSkinButton;
    bsSkinButton29: TbsSkinButton;
    bsSkinButton18: TbsSkinButton;
    bsSkinButton30: TbsSkinButton;
    bsSkinButton32: TbsSkinButton;
    bsSkinButton33: TbsSkinButton;
    bsSkinButton34: TbsSkinButton;
    bsSkinButton35: TbsSkinButton;
    bsSkinButton36: TbsSkinButton;
    bsSkinButton37: TbsSkinButton;
    bsSkinButton38: TbsSkinButton;
    bsSkinButton31: TbsSkinButton;
    bsSkinButton39: TbsSkinButton;
    bsSkinButton40: TbsSkinButton;
    bsSkinButton41: TbsSkinButton;
    bsSkinButton42: TbsSkinButton;
    bsSkinButton43: TbsSkinButton;
    bsSkinButton44: TbsSkinButton;
    bsSkinButton45: TbsSkinButton;
    bsSkinButton46: TbsSkinButton;
    bsSkinButton47: TbsSkinButton;
    bsSkinButton48: TbsSkinButton;
    bsSkinButton49: TbsSkinButton;
    bsSkinButton50: TbsSkinButton;
    bsSkinButton51: TbsSkinButton;
    bsSkinButton52: TbsSkinButton;
    bsSkinButton53: TbsSkinButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure open_code(code:string);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton13Click(Sender: TObject);
    procedure bsSkinButton16Click(Sender: TObject);
    procedure bsSkinButton14Click(Sender: TObject);
    procedure bsSkinButton18Click(Sender: TObject);
    procedure bsSkinButton17Click(Sender: TObject);
    procedure bsSkinButton19Click(Sender: TObject);
    procedure bsSkinButton20Click(Sender: TObject);
    procedure bsSkinButton15Click(Sender: TObject);
    procedure bsSkinButton21Click(Sender: TObject);
    procedure bsSkinButton22Click(Sender: TObject);
    procedure bsSkinButton23Click(Sender: TObject);
    procedure bsSkinButton24Click(Sender: TObject);
    procedure bsSkinButton25Click(Sender: TObject);
    procedure bsSkinButton26Click(Sender: TObject);
    procedure bsSkinButton27Click(Sender: TObject);
    procedure bsSkinPanel1Resize(Sender: TObject);
    procedure bsSkinButton28Click(Sender: TObject);
    procedure bsSkinButton29Click(Sender: TObject);
    procedure bsSkinButton32Click(Sender: TObject);
    procedure bsSkinButton33Click(Sender: TObject);
    procedure bsSkinButton34Click(Sender: TObject);
    procedure bsSkinButton35Click(Sender: TObject);
    procedure bsSkinButton36Click(Sender: TObject);
    procedure bsSkinButton37Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure bsSkinButton38Click(Sender: TObject);
    procedure bsSkinButton31Click(Sender: TObject);
    procedure bsSkinButton30Click(Sender: TObject);
    procedure bsSkinButton39Click(Sender: TObject);
    procedure bsSkinButton40Click(Sender: TObject);
    procedure bsSkinButton41Click(Sender: TObject);
    procedure bsSkinButton42Click(Sender: TObject);
    procedure bsSkinButton43Click(Sender: TObject);
    procedure bsSkinButton44Click(Sender: TObject);
    procedure bsSkinButton45Click(Sender: TObject);
    procedure bsSkinButton46Click(Sender: TObject);
    procedure bsSkinButton47Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton48Click(Sender: TObject);
    procedure bsSkinButton49Click(Sender: TObject);
    procedure bsSkinButton50Click(Sender: TObject);
    procedure bsSkinButton51Click(Sender: TObject);
    procedure bsSkinButton52Click(Sender: TObject);
    procedure bsSkinButton53Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_open_code: Tfrm_open_code;

implementation

uses u_main, u_code_currency, u_code_fee, u_code_goods, u_code_items,
  u_code_ctn, u_code_country, u_code_port, u_code_trade, u_code_package,
  u_code_free, my_sys_function, u_code_code, u_code_ctn_kind,
  {$IFDEF ZTGENGZONG}u_code_state, {$ENDIF}
  u_code_signbill,  u_code_vessel, u_code_print_head,
  u_sys_parameters, {$IFDEF KHGUANLI}u_code_price,u_code_customstatu,U_sys_crm_params,u_code_client_parameter,u_code_contract,{$ENDIF}
  u_code_fee_project, u_code_truck_client, u_code_truck_changzhan,
  u_code_send_head, u_code_card,
  {$IFDEF YJGUANLI}u_code_price_ctn,{$ENDIF}
  u_code_fee_color,
  u_code_source, u_code_letter, u_code_fee_type, u_code_port_air,
  {$IFDEF KDYEWU}u_code_send_address, {$ENDIF}
  u_code_empty, u_code_ctn_para,
  {$IFDEF EDI}u_code_edi_port,u_code_line_edi,{$ENDIF}
  u_data_share,
  {$IFDEF PZJIEKOU}
  u_cw_design, u_cw_kemu,
  {$ENDIF}
  u_code_tiaokuan, u_code_shiyan,
  u_code_subcomp, u_code_opresult,
  {$IFDEF DLFENZHANG}u_code_fee_project_agent,u_code_fee_project_cargomainfest,{$ENDIF}
  {$IFDEF XSGUANLI}u_sys_sale_profitset,{$ENDIF}
  u_info_bunk, u_code_UsdExRate,
  u_sys_printset, u_code_airtrade, u_sys_noset, u_code_port_load;

{$R *.dfm}

procedure Tfrm_open_code.open_code(code:string);
begin
  if not if_open(code) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  case strtoint(code) of
    5:
    begin
      try
        frm_code_currency:=tfrm_code_currency.Create (self);
        frm_code_currency.ShowModal;
      finally
        frm_code_currency.Free;
      end;
    end;
    51:
    begin
      try
        frm_code_UsdExRate:=tfrm_code_UsdExRate.Create (self);
        frm_code_UsdExRate.ShowModal;
      finally
        frm_code_UsdExRate.Free;
      end;
    end;

    6:
    begin
      try
        frm_code_fee:=tfrm_code_fee.Create (self);
        frm_code_fee.ShowModal;
      finally
        frm_code_fee.Free;
      end;
    end;
    7:
    begin
      try
        frm_code_goods:=tfrm_code_goods.Create (self);
        frm_code_goods.ShowModal;
      finally
        frm_code_goods.Free;
      end;
    end;
    8:
    begin
      try
        frm_code_items:=tfrm_code_items.Create (self);
        frm_code_items.ShowModal;
      finally
        frm_code_items.Free;
      end;
    end;
    9:
    begin
      try
        frm_code_ctn:=tfrm_code_ctn.Create (self);
        frm_code_ctn.ShowModal;
      finally
        frm_code_ctn.Free;
      end;
    end;
    13:
    begin
      try
        frm_code_package:=tfrm_code_package.Create (self);
        frm_code_package.ShowModal;
      finally
        frm_code_package.Free;
      end;
    end;
    15:
    begin
      try
        frm_code_free:=tfrm_code_free.Create (self);
        frm_code_free.ShowModal;
      finally
        frm_code_free.Free;
      end;
    end;
    16:
    begin
      try
        frm_code_code:=tfrm_code_code.Create (self);
        frm_code_code.ShowModal;
      finally
        frm_code_code.Free;
      end;
    end;
    17:
    begin
      try
        frm_code_ctn_kind:=tfrm_code_ctn_kind.Create (self);
        frm_code_ctn_kind.ShowModal;
      finally
        frm_code_ctn_kind.Free;
      end;
    end;
    71:
    begin
      try
        frm_code_signbill:=tfrm_code_signbill.Create (self);
        frm_code_signbill.ShowModal;
      finally
        frm_code_signbill.Free;
      end;
    end;
    97:
    begin
      try
        frm_code_vessel:=tfrm_code_vessel.Create (self);
        frm_code_vessel.ShowModal;
      finally
        frm_code_vessel.Free;
      end;
    end;
  end;
end;

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

procedure Tfrm_open_code.bsSkinButton4Click(Sender: TObject);
begin
  frm_open_code.open_code('008');
end;

procedure Tfrm_open_code.bsSkinButton6Click(Sender: TObject);
begin
  if not assigned(frm_code_port) then
    frm_code_port:=tfrm_code_port.Create (self);
  frm_code_port.ManualDock(frm_main.SearchTabs('frm_code_port',frm_code_port.caption),nil,alClient);
  frm_code_port.show;
end;

procedure Tfrm_open_code.bsSkinButton5Click(Sender: TObject);
begin
  try
    frm_code_trade:=tfrm_code_trade.Create (self);
    frm_code_trade.ShowModal;
  finally
    frm_code_trade.Free;
  end;
end;

procedure Tfrm_open_code.bsSkinButton9Click(Sender: TObject);
begin
  frm_open_code.open_code('013');
end;

procedure Tfrm_open_code.bsSkinButton10Click(Sender: TObject);
begin
  frm_open_code.open_code('015');
end;

procedure Tfrm_open_code.bsSkinButton11Click(Sender: TObject);
begin
  frm_open_code.open_code('016');
end;

procedure Tfrm_open_code.bsSkinButton1Click(Sender: TObject);
begin
  frm_open_code.open_code('005');
end;

procedure Tfrm_open_code.bsSkinButton2Click(Sender: TObject);
begin
  frm_open_code.open_code('006');
end;

procedure Tfrm_open_code.bsSkinButton3Click(Sender: TObject);
begin
  frm_open_code.open_code('007');
end;

procedure Tfrm_open_code.bsSkinButton12Click(Sender: TObject);
begin
  frm_open_code.open_code('009');
end;

procedure Tfrm_open_code.bsSkinButton7Click(Sender: TObject);
begin
  frm_open_code.open_code('017');
end;

procedure Tfrm_open_code.bsSkinButton13Click(Sender: TObject);
begin
  {$IFDEF ZTGENGZONG}
  if not if_open('052') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;  if not assigned(frm_code_state) then
    frm_code_state:=tfrm_code_state.Create (self);
  frm_code_state.ManualDock(frm_main.SearchTabs('frm_code_state',frm_code_state.caption),nil,alClient);
  frm_code_state.show;
  {$ENDIF}
end;

procedure Tfrm_open_code.bsSkinButton16Click(Sender: TObject);
begin
  frm_open_code.open_code('071');
end;

procedure Tfrm_open_code.bsSkinButton14Click(Sender: TObject);
begin
  frm_open_code.open_code('097');
end;

procedure Tfrm_open_code.bsSkinButton18Click(Sender: TObject);
begin
  if not if_open('070') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_print_head:=tfrm_code_print_head.Create (self);
    frm_code_print_head.ShowModal;
  finally
    frm_code_print_head.Free;
  end;
end;

procedure Tfrm_open_code.bsSkinButton17Click(Sender: TObject);
begin
  if not if_open('096') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_sys_parameters) then
      frm_sys_parameters:=tfrm_sys_parameters.Create (self);
    frm_sys_parameters.ShowModal;
  finally
    frm_sys_parameters.free;
  end;
end;

procedure Tfrm_open_code.bsSkinButton19Click(Sender: TObject);
begin
  {$IFDEF KHGUANLI}
  if not if_open('119') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_client_parameter) then
      frm_code_client_parameter:=tfrm_code_client_parameter.Create (self);
    frm_code_client_parameter.ShowModal;
  finally
    frm_code_client_parameter.free;
  end;
  {$ENDIF}
end;

procedure Tfrm_open_code.bsSkinButton20Click(Sender: TObject);
begin
  {$IFDEF KHGUANLI}
  if not if_open('121') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_contract) then
      frm_code_contract:=tfrm_code_contract.Create (self);
    frm_code_contract.ShowModal;
  finally
    frm_code_contract.free;
  end;
  {$ENDIF}
end;

procedure Tfrm_open_code.bsSkinButton15Click(Sender: TObject);
begin
  if not if_open('140') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_code_fee_project) then
    frm_code_fee_project:=tfrm_code_fee_project.Create (self);
  frm_code_fee_project.ManualDock(frm_main.SearchTabs('frm_code_fee_project',frm_code_fee_project.caption),nil,alClient);
  frm_code_fee_project.show;
end;

procedure Tfrm_open_code.bsSkinButton21Click(Sender: TObject);
begin
  if not if_open('142') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_truck_client:=tfrm_code_truck_client.Create (self);
    code_truck_client_num:=0;
    frm_code_truck_client.ShowModal;
  finally
    frm_code_truck_client.Free;
    frm_code_truck_client:=nil;
  end;
end;

procedure Tfrm_open_code.bsSkinButton22Click(Sender: TObject);
begin
  if not if_open('143') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_truck_changzhan:=tfrm_code_truck_changzhan.Create (self);
    code_truck_changzhan_num:=0;
    frm_code_truck_changzhan.ShowModal;
  finally
    frm_code_truck_changzhan.Free;
    frm_code_truck_changzhan:=nil;
  end;
end;

procedure Tfrm_open_code.bsSkinButton23Click(Sender: TObject);
begin
  if not if_open('144') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_send_head:=tfrm_code_send_head.Create (self);
    code_send_head_num:=0;
    frm_code_send_head.ShowModal;

  finally
    frm_code_send_head.Free;
    frm_code_send_head:=nil;
  end;
end;

procedure Tfrm_open_code.bsSkinButton24Click(Sender: TObject);
begin
  if not if_open('145') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_code_card) then
    frm_code_card:=tfrm_code_card.Create (self);
  frm_code_card.ManualDock(frm_main.SearchTabs('frm_code_card',frm_code_card.caption),nil,alClient);
  frm_code_card.show;
end;

procedure Tfrm_open_code.bsSkinButton25Click(Sender: TObject);
begin
  {$IFDEF YJGUANLI}
  if not if_open('122') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_price_ctn) then
      frm_code_price_ctn:=tfrm_code_price_ctn.Create (self);
    frm_code_price_ctn.ShowModal;
  finally
    frm_code_price_ctn.free;
  end;
  {$ENDIF}
end;

procedure Tfrm_open_code.bsSkinButton26Click(Sender: TObject);
begin
  {$IFDEF KHGUANLI}
  if not if_open('090') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_price:=tfrm_code_price.Create (self);
    frm_code_price.ShowModal;
  finally
    frm_code_price.Free;
  end;
  {$ENDIF}
end;

procedure Tfrm_open_code.bsSkinButton27Click(Sender: TObject);
begin
  if not if_open('038') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_fee_color:=tfrm_code_fee_color.Create (self);
    frm_code_fee_color.ShowModal;
  finally
    frm_code_fee_color.Free;
    frm_code_fee_color:=nil;
  end;
end;

procedure Tfrm_open_code.bsSkinPanel1Resize(Sender: TObject);
var
  i:integer;
begin
  if G_ZWCHK<>'TRUE' then
  begin
    i:=round((bsSkinPanel1.width-bsSkinPanel2.width)/5);
    bsSkinGroupBox1.width:=i;
    bsSkinGroupBox2.width:=i;
    bsSkinGroupBox3.width:=i;
    bsSkinGroupBox5.width:=i;
  end
  else
  begin
    i:=round((bsSkinPanel1.width-bsSkinPanel2.width)/4);
    bsSkinGroupBox1.width:=0;
    bsSkinGroupBox2.width:=i;
    bsSkinGroupBox3.width:=i;
    bsSkinGroupBox5.width:=i;
  end ;
  begin
    limited_button('008',bsSkinButton4,965);
    //limited_button('010',bsSkinButton8);
    //limited_button('011',bsSkinButton6);
    //limited_button('012',bsSkinButton5);
    limited_button('013',bsSkinButton9,955);
    limited_button('015',bsSkinButton10,935);
    limited_button('016',bsSkinButton11,966);
    limited_button('005',bsSkinButton1,931);
    limited_button('005',bsSkinButton48,9391);
    limited_button('006',bsSkinButton2,933);
    limited_button('007',bsSkinButton3,954);
    limited_button('009',bsSkinButton12,952);
    limited_button('017',bsSkinButton7,951);
    limited_button('052',bsSkinButton13,969);
    limited_button('071',bsSkinButton16,964);
    limited_button('097',bsSkinButton14,961);
    limited_button('070',bsSkinButton18,913);
    limited_button('170',bsSkinButton50,947);
    limited_button('096',bsSkinButton17,941);
    limited_button('096',bsSkinButton40,941);
    limited_button('119',bsSkinButton19,946);
    limited_button('121',bsSkinButton20);
    limited_button('140',bsSkinButton15,934);
    limited_button('275',bsSkinButton45,939);

    limited_button('142',bsSkinButton21);
    limited_button('143',bsSkinButton22);
    limited_button('144',bsSkinButton23,967);
    limited_button('145',bsSkinButton24,968);
    limited_button('122',bsSkinButton25,853);
    limited_button('090',bsSkinButton26,74);
    limited_button('038',bsSkinButton27,936);
    limited_button('151',bsSkinButton29,970);
    limited_button('153',bsSkinButton32);
    limited_button('154',bsSkinButton33,932);
    limited_button('155',bsSkinButton34,959);
    limited_button('164',bsSkinButton35,963);
    limited_button('165',bsSkinButton36,942);
    limited_button('179',bsSkinButton38,962);
    limited_button('188',bsSkinButton39,956);
    limited_button('198',bsSkinButton40);
    limited_button('012',bsSkinButton51,960);
    limited_button('274',bsSkinButton49,123);
    limited_button('179',bsSkinButton44,962);
    limited_button('151',bsSkinButton41,912);
    limited_button('151',bsSkinButton42,971);
    limited_button('151',bsSkinButton43,972);
    limited_button('119',bsSkinButton47,943);
    limited_button('273',bsSkinButton46,944);
    limited_button('271',bsSkinButton13,43);
  end;
  
  if frm_data_share.t_sys_company.fieldbyname('OHTER').asboolean then
  begin
    bsSkinButton31.Visible:=true;
    limited_button('183',bsSkinButton31);
  end
  else
  begin
    bsSkinButton31.Visible:=false;
  end;
  if frm_data_share.t_sys_company.fieldbyname('OHTER').asboolean then
  begin
    bsSkinButton30.Visible:=true;
    limited_button('184',bsSkinButton30);
  end
  else
  begin
    bsSkinButton30.Visible:=false;
  end;
end;

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

procedure Tfrm_open_code.bsSkinButton29Click(Sender: TObject);
begin
  if not if_open('151') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_source:=tfrm_code_source.Create (self);
    frm_code_source.ShowModal;
  finally
    frm_code_source.Free;
    frm_code_source:=nil;
  end;
end;

procedure Tfrm_open_code.bsSkinButton32Click(Sender: TObject);
begin
  if not if_open('153') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_letter) then
      frm_code_letter:=tfrm_code_letter.Create (self);
    frm_code_letter.ShowModal;
  finally
    frm_code_letter.free;
    frm_code_letter:=NIL;
  end;
end;

procedure Tfrm_open_code.bsSkinButton33Click(Sender: TObject);
begin
  if not if_open('154') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_fee_type) then
      frm_code_fee_type:=tfrm_code_fee_type.Create (self);
    frm_code_fee_type.ShowModal;
  finally
    frm_code_fee_type.free;
    frm_code_fee_type:=NIL;
  end;
end;

procedure Tfrm_open_code.bsSkinButton34Click(Sender: TObject);
begin
  if not if_open('155') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_port_air) then
      frm_code_port_air:=tfrm_code_port_air.Create (self);
    frm_code_port_air.ShowModal;
  finally
    frm_code_port_air.free;
    frm_code_port_air:=NIL;
  end;
end;

procedure Tfrm_open_code.bsSkinButton35Click(Sender: TObject);
begin
  {$IFDEF KDYEWU}
  if not if_open('164') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_send_address) then
      frm_code_send_address:=tfrm_code_send_address.Create (self);
    frm_code_send_address.bsSkinButton3.Enabled:=false;
    frm_code_send_address.ShowModal;
  finally
    frm_code_send_address.free;
    frm_code_send_address:=NIL;
  end;
  {$ENDIF}
end;

procedure Tfrm_open_code.bsSkinButton36Click(Sender: TObject);
begin
  if not if_open('165') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_empty) then
      frm_code_empty:=tfrm_code_empty.Create (self);
    frm_code_empty.ShowModal;
  finally
    frm_code_empty.free;
    frm_code_empty:=NIL;
  end;
end;

procedure Tfrm_open_code.bsSkinButton37Click(Sender: TObject);
begin
  if not assigned(frm_code_ctn_para) then
    frm_code_ctn_para:=tfrm_code_ctn_para.Create (self);
  frm_code_ctn_para.ManualDock(frm_main.SearchTabs('frm_code_ctn_para',frm_code_ctn_para.caption),nil,alClient);
  frm_code_ctn_para.show;
end;

procedure Tfrm_open_code.bsSkinButton8Click(Sender: TObject);
begin
  if not assigned(frm_code_country) then
    frm_code_country:=tfrm_code_country.Create (self);
  frm_code_country.ManualDock(frm_main.SearchTabs('frm_code_country',frm_code_country.caption),nil,alClient);
  frm_code_country.show;
end;

procedure Tfrm_open_code.bsSkinButton38Click(Sender: TObject);
begin
  {$IFDEF EDI}
  if not if_open('179') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_edi_port) then
      frm_code_edi_port:=tfrm_code_edi_port.Create (self);
    frm_code_edi_port.ShowModal;
  finally
    frm_code_edi_port.free;
    frm_code_edi_port:=NIL;
  end;
  {$ENDIF}
end;

procedure Tfrm_open_code.bsSkinButton31Click(Sender: TObject);
begin
  {$IFDEF PZJIEKOU}
  if not if_open('183') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_cw_design) then
      frm_cw_design:=tfrm_cw_design.Create (self);
    frm_cw_design.ShowModal;
  finally
    frm_cw_design.free;
    frm_cw_design:=NIL;
  end;
  {$ENDIF}
end;

procedure Tfrm_open_code.bsSkinButton30Click(Sender: TObject);
begin
  {$IFDEF PZJIEKOU}
  if not if_open('184') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_cw_kemu) then
    frm_cw_kemu:=tfrm_cw_kemu.Create (self);
  frm_cw_kemu.ManualDock(frm_main.SearchTabs('frm_cw_kemu',frm_cw_kemu.caption),nil,alClient);
  frm_cw_kemu.show;
  {$ENDIF}
end;

procedure Tfrm_open_code.bsSkinButton39Click(Sender: TObject);
begin
  if not if_open('188') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_tiaokuan) then
      frm_code_tiaokuan:=tfrm_code_tiaokuan.Create (self);
    frm_code_tiaokuan.ShowModal;
  finally
    frm_code_tiaokuan.free;
    frm_code_tiaokuan:=NIL;
  end;
end;

procedure Tfrm_open_code.bsSkinButton40Click(Sender: TObject);
begin
  if not if_open('198') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_shiyan) then
      frm_code_shiyan:=tfrm_code_shiyan.Create (self);
    frm_code_shiyan.ShowModal;
  finally
    frm_code_shiyan.free;
    frm_code_shiyan:=NIL;
  end;
end;

procedure Tfrm_open_code.bsSkinButton41Click(Sender: TObject);
begin
  if not if_open('284') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_subComp:=tfrm_code_subComp.Create (self);
    frm_code_subComp.ShowModal;
  finally
    frm_code_subComp.Free;
    frm_code_subComp:=nil;
  end;

end;

procedure Tfrm_open_code.bsSkinButton42Click(Sender: TObject);
begin
  if not if_open('151') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_opresult:=tfrm_code_opresult.Create (self);
    frm_code_opresult.ShowModal;
  finally
    frm_code_opresult.Free;
    frm_code_opresult:=nil;
  end;

end;

procedure Tfrm_open_code.bsSkinButton43Click(Sender: TObject);
begin
  {$IFDEF KHGUANLI}
  if not if_open('151') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_customstatu:=tfrm_code_customstatu.Create (self);
    frm_code_customstatu.ShowModal;
  finally
    frm_code_customstatu.Free;
    frm_code_customstatu:=nil;
  end;

  {$ENDIF}
end;

procedure Tfrm_open_code.bsSkinButton44Click(Sender: TObject);
begin
  {$IFDEF EDI}
  if not if_open('179') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_line_edi) then
      frm_code_line_edi:=tfrm_code_line_edi.Create (self);
    frm_code_line_edi.ShowModal;
  finally
    frm_code_line_edi.free;
    frm_code_line_edi:=NIL;
  end;
  {$ENDIF}
end;

procedure Tfrm_open_code.bsSkinButton45Click(Sender: TObject);
begin
  {$IFDEF DLFENZHANG}
  if not if_open('275') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_project_fee_agent) then
    frm_project_fee_agent:=tfrm_project_fee_agent.Create (self);
  frm_project_fee_agent.ManualDock(frm_main.SearchTabs('frm_project_fee_agent',frm_project_fee_agent.caption),nil,alClient);
  frm_project_fee_agent.show;
  {$ENDIF}
end;

procedure Tfrm_open_code.bsSkinButton46Click(Sender: TObject);
begin
  {$IFDEF XSGUANLI}
  if not if_open('273') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_sys_sale_profitset) then
      frm_sys_sale_profitset:=tfrm_sys_sale_profitset.Create (self);
    frm_sys_sale_profitset.ShowModal;
  finally
    FreeAndNil(frm_sys_sale_profitset);
  end;
  {$ENDIF}
end;

procedure Tfrm_open_code.bsSkinButton47Click(Sender: TObject);
begin
  {$IFDEF KHGUANLI}
  if not if_open('119') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_sys_crm_params) then
      frm_sys_crm_params:=tfrm_sys_crm_params.Create (self);
    frm_sys_crm_params.ShowModal;
  finally
    FreeAndNil(frm_sys_crm_params);
  end;
  {$ENDIF}
end;

procedure Tfrm_open_code.FormShow(Sender: TObject);
begin
  bsSkinGroupBox1.Visible:=G_ZWCHK='FALSE' ;
  bsSkinButton47.Visible:=G_ZWCHK='FALSE' ;
  bsSkinButton17.Visible:=G_ZWCHK='FALSE' ;
  {$IFDEF DLFENZHANG}
  {$ELSE}
    bsSkinButton49.Visible:=false;
    bsSkinButton45.Visible:=false;
  {$ENDIF}
  {$IFDEF PZJIEKOU}
  {$ELSE}
    bsSkinButton30.Visible:=false;
    bsSkinButton31.Visible:=false;
  {$ENDIF}
  {$IFDEF YJGUANLI}
  {$ELSE}
    bsSkinButton25.Visible:=false;
  {$ENDIF}
  {$IFDEF EDI}
  {$ELSE}
    bsSkinButton38.Visible:=false;
    bsSkinButton44.Visible:=false;
  {$ENDIF}
  {$IFDEF KDYEWU}
  {$ELSE}
    bsSkinButton35.Visible:=false;
  {$ENDIF}
  {$IFDEF KHGUANLI}
  {$ELSE}
    bsSkinButton20.Visible:=false;
    bsSkinButton43.Visible:=false;
    bsSkinButton47.Visible:=false;
    bsSkinButton19.Visible:=false;
    bsSkinButton26.Visible:=false;
  {$ENDIF}
  {$IFDEF ZTGENGZONG}
  {$ELSE}
    bsSkinButton13.Visible:=false;
  {$ENDIF}
end;

procedure Tfrm_open_code.bsSkinButton48Click(Sender: TObject);
begin
  if not if_open('005') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_UsdExRate:=tfrm_code_UsdExRate.Create (self);
    frm_code_UsdExRate.ShowModal;
  finally
    frm_code_UsdExRate.Free;
  end;
end;

procedure Tfrm_open_code.bsSkinButton49Click(Sender: TObject);
begin
  {$IFDEF DLFENZHANG}
  if not if_open('274') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_project_fee_cargomainfest) then
    frm_project_fee_cargomainfest:=tfrm_project_fee_cargomainfest.Create (self);
  frm_project_fee_cargomainfest.ManualDock(frm_main.SearchTabs('frm_project_fee_cargomainfest',frm_project_fee_cargomainfest.caption),nil,alClient);
  frm_project_fee_cargomainfest.show;
  {$ENDIF}
end;

procedure Tfrm_open_code.bsSkinButton50Click(Sender: TObject);
begin
  if not if_open('070') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_sys_printset:=tfrm_sys_printset.Create (self);
    frm_sys_printset.ShowModal;
  finally
    frm_sys_printset.Free;
  end;
end;

procedure Tfrm_open_code.bsSkinButton51Click(Sender: TObject);
begin
  try
    frm_code_airtrade:=tfrm_code_airtrade.Create (self);
    frm_code_airtrade.ShowModal;
  finally
    frm_code_airtrade.Free;
  end;

end;

procedure Tfrm_open_code.bsSkinButton52Click(Sender: TObject);
begin
  if not if_open('285') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_sys_noset) then
      frm_sys_noset:=tfrm_sys_noset.Create (self);
    frm_sys_noset.ShowModal;
  finally
    FreeAndNil(frm_sys_noset);
  end;
end;

procedure Tfrm_open_code.bsSkinButton53Click(Sender: TObject);
begin
  frm_code_port_load:=tfrm_code_port_load.Create (self);
  try
    frm_code_port_load.ShowModal;
  finally
    FreeAndNil(frm_code_port_load);
  end;
end;

end.