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;
    bsSkinButton54: TbsSkinButton;
    bsSkinButton55: 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 bsSkinButton48Click(Sender: TObject);
    procedure bsSkinButton49Click(Sender: TObject);
    procedure bsSkinButton50Click(Sender: TObject);
    procedure bsSkinButton51Click(Sender: TObject);
    procedure bsSkinButton52Click(Sender: TObject);
    procedure bsSkinButton53Click(Sender: TObject);
    procedure bsSkinButton54Click(Sender: TObject);
    procedure bsSkinButton55Click(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, u_code_state,
  u_code_signbill, u_code_price, u_code_vessel, u_code_print_head,
  u_sys_parameters, u_code_client_parameter, u_code_contract,
  u_code_fee_project, u_code_truck_client, u_code_truck_changzhan,
  u_code_send_head, u_code_card, u_code_price_ctn, u_code_fee_color,
  u_code_source, u_code_letter, u_code_fee_type, u_code_port_air,
  u_code_send_address, u_code_empty, u_code_ctn_para, u_code_edi_port,
  u_data_share, u_cw_design, u_cw_kemu, u_code_tiaokuan, u_code_shiyan,
  u_code_UsdExRate, u_code_zhangqi_color, u_code_line_ctn,
  u_code_ctn_detail, u_vessel_lines, u_sys_sale_profitset, u_code_line_edi,
  u_code_port_load, u_sys_printset, u_code_fee_project_new,
  u_code_fee_project_usd, u_code_custclass, u_code_pilcode, u_code_filetype,
  u_code_billstatus;

{$R *.dfm}

procedure Tfrm_open_code.open_code(code:string);
begin
  if not if_open(code) then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    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;
    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
  if not if_open('052') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    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;
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('对不起你没有此模块的操作权限！');
    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('对不起你没有此模块的操作权限！');
    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
  if not if_open('119') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    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;
end;

procedure Tfrm_open_code.bsSkinButton20Click(Sender: TObject);
begin
  if not if_open('121') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    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;
end;

procedure Tfrm_open_code.bsSkinButton15Click(Sender: TObject);
begin
  if not if_open('140') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    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('对不起你没有此模块的操作权限！');
    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('对不起你没有此模块的操作权限！');
    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('对不起你没有此模块的操作权限！');
    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('对不起你没有此模块的操作权限！');
    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
  if not if_open('122') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    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;
end;

procedure Tfrm_open_code.bsSkinButton26Click(Sender: TObject);
begin
  if not if_open('090') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    exit;
  end;
  try
    frm_code_price:=tfrm_code_price.Create (self);
    frm_code_price.ShowModal;
  finally
    frm_code_price.Free;
  end;
end;

procedure Tfrm_open_code.bsSkinButton27Click(Sender: TObject);
begin
  if not if_open('038') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    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
  i:=round((bsSkinPanel1.width-bsSkinPanel2.width)/5);
  bsSkinGroupBox1.width:=i;
  bsSkinGroupBox2.width:=i;
  bsSkinGroupBox3.width:=i;
  bsSkinGroupBox5.width:=i;
  begin
    limited_button('008',bsSkinButton4);
    //limited_button('010',bsSkinButton8);
    //limited_button('011',bsSkinButton6);
    //limited_button('012',bsSkinButton5);
    limited_button('013',bsSkinButton9);
    limited_button('015',bsSkinButton10);
    limited_button('016',bsSkinButton11);
    limited_button('005',bsSkinButton1);
    limited_button('006',bsSkinButton2);
    limited_button('007',bsSkinButton3);
    limited_button('009',bsSkinButton12);
    limited_button('017',bsSkinButton7);
    limited_button('052',bsSkinButton13);
    limited_button('071',bsSkinButton16);
    limited_button('097',bsSkinButton14);
    limited_button('070',bsSkinButton18);
    limited_button('096',bsSkinButton17);
    limited_button('119',bsSkinButton19);
    limited_button('121',bsSkinButton20);
    limited_button('140',bsSkinButton15);
    limited_button('142',bsSkinButton21);
    limited_button('143',bsSkinButton22);
    limited_button('144',bsSkinButton23);
    limited_button('145',bsSkinButton24);
    limited_button('122',bsSkinButton25);
    limited_button('090',bsSkinButton26);
    limited_button('038',bsSkinButton27);
    limited_button('151',bsSkinButton29);
//    limited_button('151',bsSkinButton29);

    limited_button('153',bsSkinButton32);
    limited_button('154',bsSkinButton33);
    limited_button('155',bsSkinButton34);
    limited_button('164',bsSkinButton35);
    limited_button('165',bsSkinButton36);
    limited_button('179',bsSkinButton38);
    limited_button('188',bsSkinButton39);
    limited_button('198',bsSkinButton40);
    limited_button('252',bsSkinButton46);
    limited_button('179',bsSkinButton47);

    limited_button('226',bsSkinButton43);
    limited_button('265',bsSkinButton44);
    limited_button('264',bsSkinButton45);
    limited_button('266',bsSkinButton41);
    limited_button('170',bsSkinButton49);

    limited_button('402',bsSkinButton50);
    limited_button('403',bsSkinButton51);
    limited_button('119',bsSkinButton52);
    limited_button('179',bsSkinButton53);

      limited_button('151',bsSkinButton54);
  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('对不起你没有此模块的操作权限！');
    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('对不起你没有此模块的操作权限！');
    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('对不起你没有此模块的操作权限！');
    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('对不起你没有此模块的操作权限！');
    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
  if not if_open('164') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    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;
end;

procedure Tfrm_open_code.bsSkinButton36Click(Sender: TObject);
begin
  if not if_open('165') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    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
  if not if_open('179') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    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;
end;

procedure Tfrm_open_code.bsSkinButton31Click(Sender: TObject);
begin
  if not if_open('183') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    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;
end;

procedure Tfrm_open_code.bsSkinButton30Click(Sender: TObject);
begin
  if not if_open('184') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    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;
end;

procedure Tfrm_open_code.bsSkinButton39Click(Sender: TObject);
begin
  if not if_open('188') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    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('对不起你没有此模块的操作权限！');
    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('266') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    exit;
  end;
  try
    frm_code_UsdExrate:=tfrm_code_UsdExrate.Create (self);
    frm_code_UsdExrate.ShowModal;
  finally
    frm_code_UsdExRate.Free;
    frm_code_UsdExRate:=nil;
  end;

end;

procedure Tfrm_open_code.bsSkinButton42Click(Sender: TObject);
begin
  if not if_open('038') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    exit;
  end;
  try
    frm_code_zhangqi_color:=tfrm_code_zhangqi_color.Create (self);
    frm_code_zhangqi_color.ShowModal;
  finally
    frm_code_zhangqi_color.Free;
    frm_code_zhangqi_color:=nil;
  end;

end;

procedure Tfrm_open_code.bsSkinButton43Click(Sender: TObject);
begin
 if not if_open('226') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    exit;
  end;
  try
    if not assigned(frm_code_line_ctn) then
      frm_code_line_ctn:=tfrm_code_line_ctn.Create (self);
    frm_code_line_ctn.ShowModal;
  finally
    frm_code_line_ctn.free;
  end;
end;

procedure Tfrm_open_code.bsSkinButton44Click(Sender: TObject);
begin
 if not if_open('265') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    exit;
  end;
  try
    if not assigned(frm_code_ctn_detail) then
      frm_code_ctn_detail:=tfrm_code_ctn_detail.Create (self);
    frm_code_ctn_detail.ShowModal;
  finally
    FreeAndNil(frm_code_ctn_detail); 
  end;

end;

procedure Tfrm_open_code.bsSkinButton45Click(Sender: TObject);
begin
 if not if_open('264') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    exit;
  end;
  try
    if not assigned(frm_vessel_lines) then
      frm_vessel_lines:=tfrm_vessel_lines.Create(self);
    frm_vessel_lines.ShowModal;
  finally
    FreeAndNil(frm_vessel_lines); 
  end;

end;

procedure Tfrm_open_code.bsSkinButton46Click(Sender: TObject);
begin
  if not if_open('252') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    exit;
  end;
  try
    frm_sys_sale_profitset:=tfrm_sys_sale_profitset.Create (self);
    frm_sys_sale_profitset.ShowModal;
  finally
    FreeAndNil(frm_sys_sale_profitset);
  end;

end;

procedure Tfrm_open_code.bsSkinButton47Click(Sender: TObject);
begin
  if not if_open('179') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    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;

end;

procedure Tfrm_open_code.bsSkinButton48Click(Sender: TObject);
begin
  try
    if not assigned(frm_code_port_load) then
      frm_code_port_load:=tfrm_code_port_load.Create (self);
    frm_code_port_load.ShowModal;
  finally
    frm_code_port_load.free;
    frm_code_port_load:=NIL;
  end;
end;

procedure Tfrm_open_code.bsSkinButton49Click(Sender: TObject);
begin
  if not if_open('170') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    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.bsSkinButton50Click(Sender: TObject);
begin
  if not assigned(frm_code_fee_project_new) then
    frm_code_fee_project_new:=tfrm_code_fee_project_new.Create (self);
  frm_code_fee_project_new.ManualDock(frm_main.SearchTabs('frm_code_fee_project_new',frm_code_fee_project_new.caption),nil,alClient);
  frm_code_fee_project_new.show;

end;

procedure Tfrm_open_code.bsSkinButton51Click(Sender: TObject);
begin
  if not assigned(frm_code_fee_project_usd) then
    frm_code_fee_project_usd:=tfrm_code_fee_project_usd.Create (self);
  frm_code_fee_project_usd.ManualDock(frm_main.SearchTabs('frm_code_fee_project_usd',frm_code_fee_project_usd.caption),nil,alClient);
  frm_code_fee_project_usd.show;

end;

procedure Tfrm_open_code.bsSkinButton52Click(Sender: TObject);
begin
  if not if_open('119') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    exit;
  end;
  try
    frm_code_custclass:=tfrm_code_custclass.Create (self);
    frm_code_custclass.ShowModal;
  finally
    frm_code_custclass.free;
  end;
end;

procedure Tfrm_open_code.bsSkinButton53Click(Sender: TObject);
begin
  if not if_open('179') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    exit;
  end;
  try
    frm_code_pilcode:=tfrm_code_pilcode.Create (self);
    frm_code_pilcode.ShowModal;
  finally
    frm_code_pilcode.free;
  end;
end;

procedure Tfrm_open_code.bsSkinButton54Click(Sender: TObject);
begin
  if not if_open('151') then
  begin
    showmessage('对不起你没有此模块的操作权限！');
    exit;
  end;
  try
    frm_code_filetype:=tfrm_code_filetype.Create (self);
    frm_code_filetype.ShowModal;
  finally
    frm_code_filetype.Free;
    frm_code_filetype:=nil;
  end;
end;

procedure Tfrm_open_code.bsSkinButton55Click(Sender: TObject);
begin
    try
    frm_code_billstatus:=tfrm_code_billstatus.Create (self);
    frm_code_billstatus.ShowModal;
  finally
    frm_code_billstatus.Free;
    frm_code_billstatus:=nil;
  end;
end;

end.