D6HECHUAN/信息资源/u_info_lines_sadd.pas

unit u_info_lines_sadd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, Wwdbigrd, Wwdbgrid, bsSkinCtrls, ExtCtrls, dxExEdtr,
  dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid, dxCntner, DB, ADODB,
  StdCtrls, Mask, DBCtrls, RxLookup, wwdbedit, Wwdotdot, Wwdbcomb,
  BusinessSkinForm, wwdbdatetimepicker, wwdblook, DBGridEh;

type
  Tfrm_info_lines_sadd = class(TForm)
    bsSkinPanel1: TbsSkinPanel;
    Panel1: TPanel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinPanel2: TbsSkinPanel;
    dbgrdh1: TDBGridEh;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_info_lines_sadd: Tfrm_info_lines_sadd;

implementation

uses u_main, u_data_share, my_sys_function, u_info_lines_manage;

{$R *.dfm}

procedure Tfrm_info_lines_sadd.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose:=frm_close_query(frm_info_lines_manage.t_vessel_plan);

end;

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

procedure Tfrm_info_lines_sadd.bsSkinButton3Click(Sender: TObject);
var
  str:widestring;
begin
  table_cancel(frm_info_lines_manage.t_vessel_plan);
end;

procedure Tfrm_info_lines_sadd.bsSkinButton2Click(Sender: TObject);
var
  str:string;
begin
  if frm_info_lines_manage.t_vessel_plan.IsEmpty then
    exit;
end;

procedure Tfrm_info_lines_sadd.bsSkinButton4Click(Sender: TObject);
begin
  table_delete(frm_info_lines_manage.t_vessel_plan);
end;

procedure Tfrm_info_lines_sadd.bsSkinButton1Click(Sender: TObject);
begin
  frm_info_lines_manage.t_vessel_plan.Insert;
end;

procedure Tfrm_info_lines_sadd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_info_lines_manage.t_vessel_plan.requery;
end;

procedure Tfrm_info_lines_sadd.bsSkinButton7Click(Sender: TObject);
begin
  table_Prior(frm_info_lines_manage.t_vessel_plan);
end;

procedure Tfrm_info_lines_sadd.bsSkinButton6Click(Sender: TObject);
begin
  table_Next(frm_info_lines_manage.t_vessel_plan);
end;

procedure Tfrm_info_lines_sadd.FormShow(Sender: TObject);
var aCol : TColumnEh;
begin
  if not frm_data_share.t_code_line_ctn.active then
    frm_data_share.t_code_line_ctn.Open;

  if frm_data_share.t_code_line_ctn.IsEmpty then
    exit;
  with dbgrdh1 do
  try
    Columns.BeginUpdate;
  if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring)<>'' then
  begin
    aCol:=FieldColumns['S<><53><EFBFBD><EFBFBD>1'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='ʵ<><CAB5><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring);
      if if_open('228') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['Y<><59><EFBFBD><EFBFBD>1'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='<27><><EFBFBD>Ӳ<EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring);
      if if_open('227') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['L<><4C><EFBFBD><EFBFBD>1'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='Ԥ<><D4A4><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring);
      if if_open('229') then begin
        aCol.ReadOnly:=False;
      end;

    end;
    aCol:=FieldColumns['D<><44><EFBFBD><EFBFBD>1'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='Ŀǰ<C4BF><C7B0><EFBFBD><EFBFBD>|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring);
      aCol.ReadOnly:=True;
    end;
    aCol:=FieldColumns['B<><42><EFBFBD><EFBFBD>1'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='ʣ<><CAA3><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring);
      aCol.ReadOnly:=True;
    end;
  end;
  if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring)<>'' then
  begin
    aCol:=FieldColumns['S<><53><EFBFBD><EFBFBD>2'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='ʵ<><CAB5><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring);
      if if_open('228') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['Y<><59><EFBFBD><EFBFBD>2'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='<27><><EFBFBD>Ӳ<EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring);
      if if_open('227') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['L<><4C><EFBFBD><EFBFBD>2'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='Ԥ<><D4A4><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring);
      if if_open('229') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['D<><44><EFBFBD><EFBFBD>2'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='Ŀǰ<C4BF><C7B0><EFBFBD><EFBFBD>|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring);
        aCol.ReadOnly:=true;
    end;
    aCol:=FieldColumns['B<><42><EFBFBD><EFBFBD>2'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='ʣ<><CAA3><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring);
        aCol.ReadOnly:=true;
    end;
  end;
  if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring)<>'' then
  begin
    aCol:=FieldColumns['S<><53><EFBFBD><EFBFBD>3'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='ʵ<><CAB5><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring);
      if if_open('228') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['Y<><59><EFBFBD><EFBFBD>3'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='<27><><EFBFBD>Ӳ<EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring);
      if if_open('227') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['L<><4C><EFBFBD><EFBFBD>3'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='Ԥ<><D4A4><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring);
      if if_open('229') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['D<><44><EFBFBD><EFBFBD>3'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='Ŀǰ<C4BF><C7B0><EFBFBD><EFBFBD>|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring);
        aCol.ReadOnly:=true;
    end;
    aCol:=FieldColumns['B<><42><EFBFBD><EFBFBD>3'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='ʣ<><CAA3><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring);
        aCol.ReadOnly:=true;
    end;
  end;
  if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring)<>'' then
  begin
    aCol:=FieldColumns['S<><53><EFBFBD><EFBFBD>4'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='ʵ<><CAB5><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring);
      if if_open('228') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['Y<><59><EFBFBD><EFBFBD>4'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='<27><><EFBFBD>Ӳ<EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring);
      if if_open('227') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['L<><4C><EFBFBD><EFBFBD>4'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='Ԥ<><D4A4><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring);
      if if_open('229') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['D<><44><EFBFBD><EFBFBD>4'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='Ŀǰ<C4BF><C7B0><EFBFBD><EFBFBD>|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring);
        aCol.ReadOnly:=true;
    end;
    aCol:=FieldColumns['B<><42><EFBFBD><EFBFBD>4'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='ʣ<><CAA3><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring);
        aCol.ReadOnly:=true;
    end;
  end;
  if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring)<>'' then
  begin
    aCol:=FieldColumns['S<><53><EFBFBD><EFBFBD>5'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='ʵ<><CAB5><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring);
      if if_open('228') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['Y<><59><EFBFBD><EFBFBD>5'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='<27><><EFBFBD>Ӳ<EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring);
      if if_open('227') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['L<><4C><EFBFBD><EFBFBD>5'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='Ԥ<><D4A4><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring);
      if if_open('229') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['D<><44><EFBFBD><EFBFBD>5'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='Ŀǰ<C4BF><C7B0><EFBFBD><EFBFBD>|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring);
        aCol.ReadOnly:=true;
    end;
    aCol:=FieldColumns['B<><42><EFBFBD><EFBFBD>5'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='ʣ<><CAA3><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring);
        aCol.ReadOnly:=true;
    end;
  end;
  if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring)<>'' then
  begin
    aCol:=FieldColumns['S<><53><EFBFBD><EFBFBD>6'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='ʵ<><CAB5><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring);
      if if_open('228') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['Y<><59><EFBFBD><EFBFBD>6'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='<27><><EFBFBD>Ӳ<EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring);
      if if_open('227') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['L<><4C><EFBFBD><EFBFBD>6'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='Ԥ<><D4A4><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring);
      if if_open('229') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['D<><44><EFBFBD><EFBFBD>6'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='Ŀǰ<C4BF><C7B0><EFBFBD><EFBFBD>|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring);
        aCol.ReadOnly:=true;
    end;
    aCol:=FieldColumns['B<><42><EFBFBD><EFBFBD>6'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='ʣ<><CAA3><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring);
        aCol.ReadOnly:=true;
    end;
  end;
  if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>7').asstring)<>'' then
  begin
    aCol:=FieldColumns['S<><53><EFBFBD><EFBFBD>7'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='ʵ<><CAB5><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>7').asstring);
      if if_open('228') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['Y<><59><EFBFBD><EFBFBD>7'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='<27><><EFBFBD>Ӳ<EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>7').asstring);
      if if_open('227') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['L<><4C><EFBFBD><EFBFBD>7'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='Ԥ<><D4A4><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>7').asstring);
      if if_open('229') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['D<><44><EFBFBD><EFBFBD>7'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='Ŀǰ<C4BF><C7B0><EFBFBD><EFBFBD>|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>7').asstring);
        aCol.ReadOnly:=true;
    end;
    aCol:=FieldColumns['B<><42><EFBFBD><EFBFBD>7'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='ʣ<><CAA3><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>7').asstring);
        aCol.ReadOnly:=true;
    end;
  end;
  if trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>8').asstring)<>'' then
  begin
    aCol:=FieldColumns['S<><53><EFBFBD><EFBFBD>8'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='ʵ<><CAB5><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>8').asstring);
      if if_open('228') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['Y<><59><EFBFBD><EFBFBD>8'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='<27><><EFBFBD>Ӳ<EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>8').asstring);
      if if_open('227') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['L<><4C><EFBFBD><EFBFBD>8'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='Ԥ<><D4A4><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>8').asstring);
      if if_open('229') then begin
        aCol.ReadOnly:=False;
      end;
    end;
    aCol:=FieldColumns['D<><44><EFBFBD><EFBFBD>8'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='Ŀǰ<C4BF><C7B0><EFBFBD><EFBFBD>|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>8').asstring);
      aCol.ReadOnly:=true;
    end;

    aCol:=FieldColumns['B<><42><EFBFBD><EFBFBD>8'];
    if aCol<>nil then begin
      aCol.Visible:=true;
      aCol.Title.Caption:='ʣ<><CAA3><EFBFBD><EFBFBD>λ|'+trim(frm_data_share.t_code_line_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>8').asstring);
      aCol.ReadOnly:=true;
    end;
  end;
  finally
    Columns.EndUpdate;
  end;
end;

end.