DS6JIEFENG/海运业务/u_op_seae_ctn.pas

unit u_op_seae_ctn;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, DB, ADODB,
  ExtCtrls, bsSkinCtrls;

type
  Tfrm_op_seae_ctn = class(TForm)
    ADOQuery_CtnList1: TDataSource;
    ADOQuery_CtnList: TADOQuery;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2Column1: TdxDBGridColumn;
    dxDBGrid2Column2: TdxDBGridColumn;
    dxDBGrid2Column3: TdxDBGridColumn;
    dxDBGrid2Column4: TdxDBGridColumn;
    dxDBGrid2Column5: TdxDBGridColumn;
    dxDBGrid2Column6: TdxDBGridColumn;
    dxDBGrid2Column7: TdxDBGridColumn;
    dxDBGrid2Column8: TdxDBGridColumn;
    dxDBGrid2Column9: TdxDBGridColumn;
    dxDBGrid2Column10: TdxDBGridColumn;
    Panel1: TPanel;
    bsSkinButton5: TbsSkinButton;
    t_op_ctn1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    CorpName,Vsl,Voy,bsNo:string;
  end;

var
  frm_op_seae_ctn: Tfrm_op_seae_ctn;

implementation
uses u_main;


{$R *.dfm}

procedure Tfrm_op_seae_ctn.FormShow(Sender: TObject);
begin
  with ADOQuery_CtnList do
  begin
    Close;SQL.Clear;
    SQL.Add('select  t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,t_op_seae.ί<>е<EFBFBD>λ,t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_ctn.* from t_op_seae');
    SQL.Add('left join t_op_ctn on t_op_seae.<2E><><EFBFBD><EFBFBD>=t_op_ctn.<2E><><EFBFBD><EFBFBD>');
    SQL.Add('where t_op_seae.ί<>е<EFBFBD>λ=:CorpName and t_op_seae.<2E><><EFBFBD><EFBFBD>=:Vsl and t_op_seae.<2E><><EFBFBD><EFBFBD>=:voy');
    SQL.Add('and t_op_seae.<2E><><EFBFBD><EFBFBD><>:bsno');
    Parameters.ParamByName('CorpName').Value:=CorpName;
    Parameters.ParamByName('bsno').Value:=bsno;
    Parameters.ParamByName('vsl').Value:=Vsl;
    Parameters.ParamByName('Voy').Value:=Voy;
    Open;
  end;

end;

procedure Tfrm_op_seae_ctn.bsSkinButton5Click(Sender: TObject);
var
  i:integer;
begin
  if ADOQuery_CtnList.IsEmpty then
    exit;

  if dxDBGrid2.SelectedCount>=1 then
  begin
    for i:=0 to dxDBGrid2.SelectedCount-1 do
    begin
      ADOQuery_CtnList.GotoBookmark(pointer(dxDBGrid2.selectedrows[i]));
      t_op_ctn1.Dataset.Append;
      t_op_ctn1.Dataset.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=bsno;
      t_op_ctn1.Dataset.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=ADOQuery_CtnList.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn1.Dataset.FieldByName('<27>ߴ<EFBFBD>').Value:=ADOQuery_CtnList.FieldByName('<27>ߴ<EFBFBD>').Value;
      t_op_ctn1.Dataset.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=ADOQuery_CtnList.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn1.Dataset.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=ADOQuery_CtnList.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn1.Dataset.FieldByName('TEU').Value:=ADOQuery_CtnList.FieldByName('TEU').Value;
      t_op_ctn1.Dataset.FieldByName('TEU').Value:=ADOQuery_CtnList.FieldByName('TEU').Value;
      t_op_ctn1.Dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value:=ADOQuery_CtnList.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').Value;
      t_op_ctn1.Dataset.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=ADOQuery_CtnList.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn1.Dataset.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=ADOQuery_CtnList.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn1.Dataset.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=ADOQuery_CtnList.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn1.Dataset.FieldByName('<27><>װ').Value:=ADOQuery_CtnList.FieldByName('<27><>װ').Value;
      t_op_ctn1.Dataset.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=ADOQuery_CtnList.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn1.Dataset.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=ADOQuery_CtnList.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
      t_op_ctn1.Dataset.post;
//      Create.
    end;
  end;
end;

end.