unit u_info_price_port;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, bsdbctrls, Grids, Wwdbigrd, Wwdbgrid,
  BusinessSkinForm, DB, ADODB, StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb,
  wwdblook;

type
  Tfrm_info_price_port = class(TForm)
    wwDBGrid1: TwwDBGrid;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    wwDBLookupCombo52: TwwDBLookupCombo;
    t_price_port: TADOQuery;
    ds_price_port1: TDataSource;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    t_price_portDSDesigner: TStringField;
    t_price_portDSDesigner2: TStringField;
    ds_vessel_lines1: TDataSource;
    t_vessel_lines: TADOQuery;
    t_price_portDSDesigner3: TStringField;
    t_price_portDSDesigner4: TSmallintField;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure t_price_portBeforePost(DataSet: TDataSet);
    procedure t_price_portDSDesigner2Change(Sender: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_info_price_port: Tfrm_info_price_port;

implementation

uses u_main, u_data_share, u_info_price_managelist, my_sys_function;

{$R *.dfm}

procedure Tfrm_info_price_port.FormShow(Sender: TObject);
begin

  if not t_price_port.Active then t_price_port.Open;
  if not t_vessel_lines.Active then t_vessel_lines.Open;

  if not frm_data_share.t_code_disport.Active then frm_data_share.t_code_disport.Open;

end;

procedure Tfrm_info_price_port.bsSkinButton6Click(Sender: TObject);
begin
  t_price_port.Edit;
end;

procedure Tfrm_info_price_port.bsSkinButton7Click(Sender: TObject);
begin
  t_price_port.Insert;
end;

procedure Tfrm_info_price_port.bsSkinButton4Click(Sender: TObject);
begin
  if MessageDlg('确实要删除吗？',mtWarning,mbYesNoCancel,0)=mrYes then
    t_price_port.Delete;
end;

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

procedure Tfrm_info_price_port.t_price_portBeforePost(DataSet: TDataSet);
begin
   table_before_post(t_price_port,'港口代码');
end;

procedure Tfrm_info_price_port.t_price_portDSDesigner2Change(
  Sender: TField);
begin
 if (t_price_port.state=dsinsert)or(t_price_port.state=dsedit) then
  begin
    if not frm_data_share.t_code_disport.IsEmpty then
    if frm_data_share.t_code_disport.locate('英文名',t_price_port['港口名称'],[]) then
    begin
      t_price_port['港口代码']:=frm_data_share.t_code_disport.fieldbyname('EDI代码').asstring;
    end;
  end;

end;

end.